Contoh Aplikasi Pemrograman Pascal Bagian 1
Pascal merupakan salah satu pemrograman desktop yang sering digunakan untuk membuat aplikasi transaksi dengan user interface yang sederhana, contoh membuat aplikasi yaitu aplikasi memilih program jurusan dan aplikasi memilih ukuran jaket, kucingtekno, kucing tekno, hanamaze
Kucing Tekno - Pascall 2 merupakan salah satu pemrograman desktop yang sering digunakan untuk membuat aplikasi transaksi dengan user interface yang sederhana. Pemrograman ini bisa dianggap ringan karena tanpa menggunakan desain yang kompleks seperti aplikasi pada umumnya.
Akan ada dua contoh membuat aplikasi yaitu aplikasi memilih program jurusan dan aplikasi memilih ukuran jaket.
CONTOH CASE OF 1
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.