Muhamad_Ridwan

keterangan :
dalam program TPW (end.) adalah tanda selesai program

1. program angka;
uses wincrt;
var a : integer;
begin
         clrscr;
         write('Masukkan nilai antara 0 sampai 100 : ');
         readln(a);
         if a > 5 then begin
                  writeln('-----------------------------------------------');
                  writeln('Nilai ' ,a, ' lebih besar dari 5');
                  writeln('_______________________________________________');
                  writeln('muhamad_ridwan40 @ yahoo.co.id');
         end
         else begin
                  writeln('-----------------------------------------------');
                  writeln('Nilai ' ,a, ' lebih kecil dari 5');
                  writeln('_______________________________________________');
                  writeln('muhamad_ridwan40 @ yahoo.co.id');
         end;
       
end.


2. Program Bayar;
Uses winCrt;
Var Ukuran : char;
Banyak     : integer;

Harga,Jumlah: real;
Begin
ClrScr;
Write('Ukuran jaket (S/M/L) : '); Readln(Ukuran);
Writeln('-------------------------------------------');
Write('Banyak jaket : '); Readln(Banyak);
Case Ukuran of
'S' : Harga :=6500;
'M' : Harga :=7100;
'L' : Harga :=7400;

end;
Jumlah:=Banyak * Harga;
writeln('-------------------------------------------');
Writeln('Jumlah yang harus dibayar = Rp ',Jumlah:8:0);
End.



3. Program input;
Uses wincrt;
Var nm : String;
nim    : String;
Jk     : String;
Begin
Clrscr;
Writeln ('Masukkan Nama dan NIM serta Jenis Kelamin ');
Writeln ('------------------------------');
Write ('Nama anda       : ');
Readln (nm);
Write ('NIM anda        : ');
Readln (nim);
Write ('Jenis Kelamin   : ');
Readln (Jk);
writeln ('------------------------------');
write ('........ Terima kasih ........');
End.


4. program dua_kasus;
      uses wincrt;
      var
      bilangan : integer;
      begin
           clrscr;
           write('Masukan sebuah bilangan='); Readln(bilangan);
           if (bilangan mod 2)= 0 then
                writeln('Bilangan yang Anda input adalah bilangan genap')
           else
                writeln('Bilangan yang Anda input adalah bilangan ganjil');

      End.


5.  program statemen_repeat;
uses wincrt;
var
i:integer;
begin
i:=1;
repeat
         i:=i+1;
         writeln('algoritma');
until i>10;
end.


6. Program Tiga_kasus;
uses wincrt;
var
x :integer;
begin
Write ('Masukan nilai ='); readln (x);
writeln ('-------------------------------');
if x>0 then
writeln ('Bilanagan Positif')
else
if x<0 then
writeln ('Bilangan Negatif')
else
writeln ('Nol');
end.


7.  Program Luas_Lingkaran;

Uses wincrt;
Var r,L,K:Real;
Begin
clrscr;
Write ('masukan jari-jari lingkaran(cm):');
Readln(r);
L:=pi*r*r;
K:=2*pi*r;
Writeln;
Writeln ('luas lingkaran        :',L:10:2,'cm2');
Writeln ('keliling lingkaran    :',K:10:2,'cm');
End.


8. program Welcome;
uses
  WinCrt;
begin
  Writeln('Welcome to Turbo Pascal for Windows');
end.

9.ogram Pilihan;

uses wincrt;

label

stop,jump;

begin

repeat

stop:

clrscr;

writeln('===========================================================');

writeln('= ------- pilih rumus ------- =');

writeln('= 1. Luas Persegi panjang     =');

writeln('= 4. Clear/Exit               =');

writeln('===========================================================');

write('Masukan Nomor Pilihan Anda (1/2/3/4): ');

readln(NomorMenu);

case NomorMenu of

1: begin

writeln('rumus luas persegi ');

write('masukan panjang persegi  : '); readln(pjg);

write('Masukan Lebar Persegi    : '); readln(lbr);

l_persegi:= pjg*lbr;

writeln('luas persegi adalah ',l_persegi);

readln;

end;

2: begin

writeln('rumus luas segitiga');

readln;

end;

3: begin

writeln('rumus kll persegi');

write('masukan panjang persegi  : '); readln(pjg);

write('Masukan Lebar Persegi    : '); readln(lbr);

kll_persegi:=2*(pjg+lbr);

writeln('jadi keliling persegi adalah ',kll_persegi);

readln;

end;

4: begin

Exit;

end;

end;

goto stop;

until NomorMenu=4;

end.