iPK

Kombinasi IF THEN & WHILE DO program Bangun_Ruang; uses wincrt; const    phi=3.14; var    lagi:char;    p,l,t,a,r:real;    pilihan:byte;    luas:real; begin      lagi:='Y';      while (lagi='Y') or (lagi='y') do      begin      writeln('Pilihan');      writeln('==========================');      writeln('1. Hitung Luas Lingkaran');      writeln('2. Hitung Luas Segitiga');      writeln('3. Hitung Luas Bujur Sangkar');      writeln('0. Selesai');      writeln('==========================');      writeln('');      write('Masukkan Angka Pilihan 1/2/3/0: ');readln(pilihan);      if pilihan=1 then   begin      clrscr;      writeln('');      writeln('Menghitung Luas lingkaran');      writeln('---------------------------');      write('Masukkan jari-jari / r : ');readln(r);      luas:=phi*r*r;      Write('Luas Lingkaran= ',luas:4:2);      readln(lagi);   en

CONTOH ARRAY 1 Program kamar_kost; Uses winCrt; Const  nama : Array[1..4] of string=('Roni','galih','Roy','Fajar'); Var  i:integer;     Begin   For i:= 1 to 4 Do   Writeln('Nama penghuni kamar kost no ',i ,' = ',nama[i]);                End. CONROH ARRAY 2 Program bilangan_ke_n; Uses winCrt; var  bil : Array[1..5] of integer;  i:integer;     Begin   clrscr;   For i:= 1 to 5 Do   begin   Write('bilangan ke ',i,' = ');readln(bil[i]);   end;     For i:= 1 to 5 Do   begin   write('---------------------------> ');   Writeln('nilai array ke- ',i,' nilainya = ',bil[i]);   end;                End.

CONTOH CASE OF 1 Program Jurusan_UMK; uses wincrt; Var    Angka :char; Begin      Write('Masukkan Angka Jurusan (1/2/3/4) : ');Readln(Angka);          Case Angka Of      '1':writeln('TM/D3');      '2':writeln('TE/S1');      '3':writeln('SI/S1');      '4':writeln('TI/S1');       Else      Begin           writeln ('Tidak Ada Jurusan Tersebut di Universitas Muria Kudus');      End      end; End. CONTOH CASE OF 2 program UKURAN_JAKET; uses wincrt; Var    Ukuran : Char ;    Banyak : Real ;    Harga, Jumlah : Real ; Begin Write('Ukuran Jaket (S?M?L) : '); Read(Ukuran) ; Write('Banyak Jaket : '); Read(Banyak); Case upcase(Ukuran) Of   'S' :  Harga := 1000 ;   'M':  Harga := 1250 ;   'L' :  Harga := 15000 ; Else   writeln ('Ukuran Jaket anda tidak ada...sorry'); end; End.