Otopark Ücretini Hesaplayan Basit Bir Programcık Kodu (Turbo Pascal) :
Bir otopark’ a gelen arabalar bilgisayar sisteminde ücretleri hesaplanmaktadır. Otoparka gelen arabaların plaka numaraları, Araç Tipi, Araba sahibinin Adı soyadı ve ne kadar kalacağı yazdırılmaktadır. Yukarıdaki araç bilgileri alındıktan sonra ekrana Arabanın plakasını, Araba sahibinin Adını Soyadını ve Park Ücretini yazan programı Pascal programında gerçekleştirilmesi.Ücret:
Araç Tipi Kamyon ise : Ücret = Kalma süresi x 70
Araç Tipi Otobüs ise : Ücret = Kalma süresi x 75
Araç Tipi Minibüs ise : Ücret = Kalma süresi x 40
Diğerleri : Ücret = Kalma süresi x 20
Cevap :
program Otopark;
uses crt;
var
isim:string;
sure:integer;
ucret:integer;
plaka:string;
aract:integer;
begin
clrscr;
gotoxy(20,5);
textcolor(15);
writeln(‘Arac Sahibi :’);
gotoxy(40,5);textcolor(11);
readln(isim);
gotoxy(20,7);textcolor(15);
writeln(‘Plakası :’);
gotoxy(40,7);textcolor(11);
readln(plaka);
gotoxy(20,9);textcolor(15);
writeln(‘Kalma Suresi:’);
gotoxy(40,9);textcolor(11);
readln(sure);
gotoxy(20,11);textcolor(15);
writeln(‘1 – Kamyon Yandaki Arac’);
gotoxy(20,12);
writeln(‘2 – Otobus Türlerinden Birini’);
gotoxy(20,13);
writeln(‘3 – Minibus Seçiniz (Rakamla)’);
gotoxy(20,14);
writeln(‘4 – Diger “(1-4) Arasında”‘, ‘ :’);
gotoxy(55,14);textcolor(11);
readln(aract);
case aract of
1:ucret:=sure*70;
2:ucret:=sure*75;
3:ucret:=sure*40;
4:ucret:=sure*20;
else gotoxy(30,17);writeln(‘Uygunsuz Araç Türü Seçtiniz.’)
end;
writeln(dosya,isim, ‘ ‘,plaka, ‘ ‘, sure, ‘ ‘, ucret);
writeln;
gotoxy(6,20);
writeln(isim, ‘ isimli ‘, plaka, ‘ plakalı kişi ‘, sure, ‘ saat kalmıştır ve’);
gotoxy(17,22);textcolor(12);
write(ucret);textcolor(11);
write(‘ birim ücret ödemesi gerekmektedir.’);
readln;
end.