Contoh program

Ini adalah salah satu contoh program menggunakan string ....
uses wincrt;
var c : string;
begin
clrscr;
repeat
writeln (' Program daftar menu makanan dan minuman ringan ');
writeln (' kantin universitas teknologi Yogyakarta ');
writeln ('================================================');
writeln (' ');
writeln ('1. Daftar kelompok snack ');
writeln ('2. Daftar kelompok minuman ');
writeln ('3. Daftar kelompok makanan');
writeln ('4. Keluar');
writeln (' ');
writeln ('Masukkan sesuai angkanya :'); readln(c);
if (c) = '1' then
begin
clrscr;
writeln ('1. Taro');
writeln ('2. Mr.P');
writeln ('3. Potato');
writeln ('4. Lays');
writeln (' ');
writeln ('Tulis angkanya saja :');
end
else if (c) = '2' then
begin
clrscr;
writeln ('1. Sprit');
writeln ('2. Fanta');
writeln ('3. Teh Sosro');
writeln ('4. Aqua');
writeln (' ');
writeln ('Tulis angkanya saja');
end
else if (c) = '3' then
begin
clrscr;
writeln ('1. Nasi pecel ');
writeln ('2. Nasi campur');
writeln ('3. Mie ayam ');
writeln ('4. Bakso');
writeln (' ');
writeln ('Tulis angkanya saja');
end
else if (c) = '4' then
begin
clrscr;
writeln ('Terima kasih sudah masuk program ini');
writeln (' ');
writeln (' Klik enter ');
end
else if (c) = '' then
writeln ('Perintahnya belum diisi')
else
writeln ('Maaf, harap tuliskan perintahnya dengan benar');
readln;
clrscr;
until c = '4';
writeln ('');
writeln ('Klik silang pada ujung kanan program atau anda menekan tombol Alt + F4');
writeln ('untuk keluar dari program ini.');
end.

Reade more >>