Pascal (İndirim Oranı Hesaplama)

Konu: Pascal (İndirim Oranı Hesaplama) Paz Nis. 04, 2010 3:30 am

Pascal (İndirim Oranı Hesaplama)

Program indirim;
var
a,b:integer;
i:real;
Begin
write('fiyati giriniz=');
readln(a) ;
write('indirim oranini giriniz=');
readln(b) ;
i:=a-((a*b)/100);
writeln('indirimli fiyat=',i:0:2);
readln;
End.

» PascaL ( Sayı TopLama )
» PascaL ( Regula Falsi )
» PascaL ( KopyaLama Programı )
» PascaL ( Kayan Yazı )
» PascaL ( SayısaL Loto Programı )