Müşterilerin adları, soyadlarını, aldığı ürün miktarı ve ürünlerin fiyatını gösteren programcık. Müşterilerin aldığı ürünlerin miktarına göre indirim uygulanmaktadır.
Borç:
100 ve altında ise : Borç = Miktar x (Fiyat -10) (Fiyattan 10 Lira çıkarılmaktadır.)
101 ile 1000 arasında ise: Borç = Miktar x (Fiyat -13) (Fiyattan 13 Lira çıkarılmaktadır.)
1001 ile 10000 arasında ise : Borç = Miktar x (Fiyat -15) (Fiyattan 15 Lira çıkarılmaktadır.)
10001 ve üstünde ise : Borç = Miktar x (Fiyat -18) (Fiyattan 18 Lira çıkarılmaktadır.)
Müşterilerin adlarını, soyadlarını, ürün miktarını ve fiyat bilgisini bilgisayar ortamından öğrenip ekrana müşterinin adını, soyadını, aldığı ürün miktarını ve borcunu ekrana yazdıracak programın Pascal programında gerçekleştirilmesi.
Cevap :
program Hesap;
uses crt;
var
isim:string;
soyad:string;
fiyat:longint;
urun_m:longint;
borc:longint;
begin
clrscr;
gotoxy(20,5);
textcolor(15);
writeln(‘Musteri Adi :’);
gotoxy(40,5);textcolor(11);
readln(isim);
gotoxy(20,7);textcolor(15);
writeln(‘Soyadi :’);
gotoxy(40,7);textcolor(11);
readln(soyad);
gotoxy(20,9);textcolor(15);
writeln(‘Urun Miktari :’);
gotoxy(40,9);textcolor(11);
readln(urun_m);
gotoxy(20,11);textcolor(15);
writeln(‘Urun Fiyati :’);
gotoxy(40,11);textcolor(11);
readln(fiyat);
case urun_m of
1..100: borc:=urun_m*(fiyat-10);
101..1000: borc:=urun_m*(fiyat-13);
1001..10000: borc:=urun_m*(fiyat-15);
else borc:=urun_m*(fiyat-18);
END;
gotoxy(20,15);textcolor(3);
writeln(‘Toplam Borc :’);
gotoxy(40,15);textcolor(9);
writeLN(borc);
readln
end.