Praktek Pascal Minggu Kedua " kondisi"

Program Pertama 

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