23.piemērs

Uzdevums

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. Uzzīmēt blokshēmu.

Atrisinājums

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

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

readln;
end.