Source Code

SCRIPT CODE - REPEAT UNTIL

program CobaRepeatUntil;
uses
Windows, SysUtils;

{$R *.res}
{$APPTYPE CONSOLE}
var
luas, keliling, diameter: real;
pilihan: char;
begin
writeln('Menghitung Luas dan Keliling Lingkaran');
writeln('===============================');
repeat
write('Diameter = '); readln(diameter);
luas:= 1/4*(22/7)*(diameter*diameter);
keliling:= pi*diameter;
writeln('Luas lingkaran : ', luas:5:2);
writeln('Keliling lingkaran : ', keliling:5:2);
write('Anda ingin menghitung lagi [Y/T] : '); readln(pilihan);
until (pilihan = 't') or (pilihan = 'T');
end.

JIKA PILIH 'Y'

JIKA PILIH 'T'

CODE : CASE OF

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nilai : integer;
ket1, grade : string;
begin
write ('Masukkan Nilai = ');readln(nilai);
Case nilai of

0 .. 25 : begin
grade:='E';
ket1:='TIDAK LULUS';
end;

26 .. 55 : begin
grade:='D';
ket1:='MENGULANG';
end;

56 .. 70 : begin
grade:='C' ;
ket1:='CUKUP';
end;

71 .. 85 : begin
grade:='B';
ket1:='BAIK';
end;
else
grade:='A';
ket1:='SANGAT BAIK';

end;
writeln ('Grade = ',grade);
write ('Keterangan = ',ket1);
readln;
end.

IF GRADE = A

IF GRADE = B

IF GRADE = C

IF GRADE = D

IF GRADE = E

Dasar dari Script Logika IF sudah saya terapkan pada Latihan 1 dan Latihan 2, sekarang saya akan membuat Program Nilai ujian disertai dengan Nilai Grade dalam artian kita akan mendapatkan predikat nilai A, B, C, D dan E sesuai nilai yang kita dapatkan !!

program Project3;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

nilai : integer;

grade : string;

begin

 write ('Massukkan Nilai : ');readln(nilai);

 begin

 if nilai > 85 then

  grade:='A' else

 if nilai > 75 then

  grade:='B' else

 if nilai > 65 then

  grade:='C' else

 if nilai > 55 then

  grade:='D' else

  grade:='E'

 end;

 write('Nilai Anda Adalah : ');writeln(nilai);

 write('Masuk Kategori : ');Write(grade);

 readln;

end.

Grade A

Grade B

Grade C

Grade D

Grade E

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nilai : integer;
ket1, ket2 : string;
begin
  write('Masukkan Nilai: ');readln(nilai);
  If nilai > 70 then
  begin
  ket1:='LULUS';
  ket2:='ANDA DITERIMA'
  end else
  begin
  ket1:='TIDAK LULUS';
  ket2:='SILAKAN COBA LAGI';
  end;
  write('Hasil = ');writeln(ket1);
  write('Keterangan = ');write(ket2);
  readln;
end.

Jika Nilai diatas 70

Jika Nhlai dibawah 70

program Project2;

uses

  SysUtils;

var

nilai : integer;

begin

 write('Masukkan Nilai = ');readln(nilai);

 if nilai > 60 then

  write('LULUS')

 else

  write('TIDAK LULUS');

 readln;

end.

Jika Nilai Lebih Besar dari 60

Jika Nilai Lebih Kecil dari 60