Membuat Program Nilai ala Turbo Pascal

       Untuk kali ini saya akan berikan contoh cara membuat program nilai ala turbo pascal

 

uses wincrt;
var
  Score1,Score2:real;
begin
  writeln('Insert 1st Score :');readln(Score1);
  writeln('Insert 2nd Score :');readln(Score2);
  if Score1>Score2 then
    writeln('The highest score :',Score1:4:2)
  else
    writeln('The highest score :',Score2:4:2);
end.

Trik Membuat Program Perpangkatan dengan Turbo Pascal 1.5

       Anda memiliki kesulitan dalam mengerjakan soal Matematika bab perpangkatan? Jangan khawatir! Turbo Pascal 1.5 akan membantumu. Tapi Anda harus membuatnya terlebih dahulu. Berikut caranya:
uses wincrt;
var
  i,a,b,c:integer;
begin
  writeln('Insert The Number : ');
  readln(a);
  writeln('Insert The Equal : ');
  readln(b);
  c:=1;
  for i:=1 to b do
  begin
    c:=c*a;
  end;
  writeln('The Result : ',c:4);
end.

Semoga bermanfaat :)