uses crt;
var
nilai :char;
begin
clrscr;
write('ketik nilai anda a/b/c:');
readln(nilai);
case nilai of
'a':write('baik');
'b':write('cukup');
'c':write('kurang');
else writeln('hasil tidak diketahui');
end;
readln;
end.
Program Kedua
uses crt;
var
pilihan : char;
A,B,C,D : string;
s,t : integer;
luas : real;
begin
clscr;
writeln ('menu');
writeln ('1.biodata');
writeln ('2.matematika');
writeln ('3. keluar');
write ('masukkan pilihan anda [1-3]');
readln (pilihan);
clrscr;
case (pilihan) of
'1':
begin
writeln ('->biodata<-');
write ('masukkan nama anda :');readln (a);
write ('masukkan npm anda:') ;readln (b);
write ('masukkan kelas anda:'); readln (c);
writeln;
writeln('nama saya',a);
writeln('npm saya',b);
writeln('kelas saya',c);
end;
'2':
begin
writeln('matematika');
write ('masukkan alas:'); readln (s);
write ('masukkan tinggi:'); readln (t);
luas:=0.5*s*t;
writeln ('luasnya segitiga',luas);
end;
'3':
begin
writeln ('-> keluar <-');
write ('exit'); readlln (d);
end;
end;
readln;
end.
Logika Pemrograman Program 1
Crt merupakan suatu unit yang mempunyai beberapa perintah yang dapat kita gunakan dalam hal pengolahan program berbasis.
Input nilai sebagai char
Begin : mulai
Clrscr : untuk membersihkan layar.
Write (‘ketik nilai anda a/b/c:’); a/b/c disini untuk mencetak nilai pada ‘a’:write(‘baik’);
‘b’: write(‘cukup’); dan ‘c’:write(‘kurang’); Readln : membaca data,untuk nilai,pada statemen ini posisi kursor akan pindah ke baris selanjutnya setelah diinput.
Readln : membaca data,untuk nilai,pada statemen ini posisi kursor akan pindah ke baris selanjutnya setelah diinput.
Else pada elase writeln(‘hasil tidak diketahui’); untuk mencetak hasil yang tidak ditulis
Writeln : menulis data dan kursor akan pindah ke baris berikutnya
End. : mengakhiri program
Logika Pemrograman Program 2
Crt merupakan suatu unit yang mempunyai beberapa perintah yang dapat kita gunakan dalam hal pengolahan program berbasis.
Input pilihan pada char
a,b,c sebagai string
s,t sebagai integer dan luas sebagai real
Begin : memulai program
Clrscr : untuk membersihkan layar. Writeln (‘menu’);
Writeln(‘biodata’);
Writeln(‘2.matematika’) hingga raedln (pilihan) ini adalah sebagai tampilan awal program pilihan.
Clrscr; disini untuk membersihkan layar agar program selanjutnya bisa berjalan.
‘1’: disini untuk menu pertama
Begin : memulai program menu pertama
Writeln(‘biodata’); untuk tampilan judul menu pertama
‘2’: untuk menu kedua,
Begin untuk memulai program kedua
Writeln(‘matemetika’); untuk tampilan judul menu kedua yang mencari luas segitiga
Dimana luas :=0.5*s*t; sebagai rumusnya
‘3’: untuk menu ketiga
Begin untuk memulai menu ketiga
Readln: untuk membaca data
End. Untuk mengakhiri program
