24.piemērs

Uzrakstīt programmu, kurā lietotājam pieprasa ievadīt pirkuma summu; programma uz ekrāna parāda, cik pircējam jāmaksā, ja zināms, ka par pirkumiem virs 200 Ls ir 10% atlaide, bet pirkumiem, kuru summa ir lielāka vai vienāda ar 500 Ls - 20%. Uzzīmēt blokshēmu.

Atrisinājums

program p24;
var sum:real;
begin
writeln ('Ievadi pirkuma summu');
readln (sum);

if sum<200 then
writeln ('Pirkumam atlaides nav, tādēļ jāmaksā Ls ', sum:6:2);

if (sum>=200) and (sum<500) then
writeln ('Pirkumam ir 10% atlaide, tādēļ jāmaksā Ls ', sum*0.9:6:2);

if sum>500 then
writeln ('Pirkumam ir 20% atlaide, tādēļ jāmaksā Ls ', sum*0.8:6:2);

readln;
end.