PROGRAM PASCAL SEDERHANA

Berikut ini saya tampilkan bebarapa program turbo pascal, semoga dapat bermanfaat dan dapat membantu teman teman.

1. program case

uses wincrt;
var c:integer; x:char;
begin
repeat
writeln('masukan hari ke :');readln(c);
case (c) of
     1:write('Hari ke :',c,' adalah Senin');
     2:write('Hari ke :',c,' adalah Selasa');
     3:write('Hari ke :',c,' adalah Rabu');
     4:write('Hari ke :',c,' adalah Kamis');
     5:write('Hari ke :',c,' adalah Jumat');
     6:write('Hari ke :',c,' adalah sabtu');
     7:write('Hari ke :',c,' adalah Minggu');
     else write('jangan bcanda akh!!:P');
end;
readln;
write('Apakah Anda Ingin Mengulang Lagi [Y/T]: ');readln(x);
until upcase (x)<>'Y';
end.





2. program case II

program Geometri;
uses Wincrt;
var
alas, tinggi, jejari, luas_Segitiga,luas_Lingkaran: Real;
X:integer;
begin
Writeln('1. Segitiga 2. Lingkaran');
Readln(x);
case (x) of
1: begin
write('masukan alas:');readln(alas);
write('masukan tinggi:');readln(tinggi);
luas_Segitiga:= 1 / 2 * alas * tinggi;
Writeln ('luas segitiga : ', luas_segitiga) ;
End;
2: begin
write('masukan jari-jari');readln(jejari);
luas_Lingkaran := pi * sqr (jejari);
Writeln ('luas lingkaran : ',luas_Lingkaran);
end;
end;
readln;
end.


3. program if sederhana

uses wincrt;
var a,b : integer;
begin
write('masukan a :');readln(a);
write('masukan b :');readln(b);
if (a<b) then
writeln(a,  'lebih kecil dari'  ,b);
end.


4. Program untuk menampilkan data pekerja

Program Kasus1;
Uses wincrt;
Var Nama,Alamat,Pekerjaan:string;
    Umur:integer;
Begin
 Clrscr;
 write('Masukan Nama Anda : ');readln(Nama);
 write('Masukan Alamat Anda : ');readln(Alamat);
 write('Masukan Umur Anda : ');readln(Umur);
 write('Masukan Pekerjaan Anda : ');readln(Pekerjaan);
 writeln('============iiiiiiiiii================');
 writeln('Nama    : ',Nama);
 writeln('Alamat  : ',Alamat);
 writeln('Umur    : ',Umur);
 writeln('Pekerjaan :',Pekerjaan);                             
 readln;                            
End.