Контрольное задание №9-1 / 9-1

Составьте программу, реализующую эпизод применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг, сумму денег, внесенную покупателем. Если сдачи не требуется, печатает на экране «спасибо», еслим денег внгесли больше, то печатает «возьмите сдачу и указывает сумму сдачи, если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы.

После слова program пишется название программы: “knizhniy_magazine”. После слова var, следуют переменные значения, которые будут применяться в данной программе а,b: integer. Этим переменным будет присвоен тип integer. Непосредственно, программу начинаем со слова begin. Далее следует слово writeln, которое означает вывод следующей за ним фразы на экран. В первом случае следующим образом выводится фраза: ('vvedite stoimost` knigi'). Затем следует команда ввода переменной а, которая в настоящем случае означает стоимость книжной продукции в магазине: readln(a). Затем по аналогии на экран выводится фраза ('vnesite summu') и команда: readln(b), показывающее сумму внесённых в кассу денег. Затем следует команда if, означающее сравнение или выполнение того или иного условия. В данном случае рассматривается следующее: a<b. То есть стоимость книги должна быть меньше внесённой суммы. Если это условие будет соблюдено, то следует команда следствия then, указывающее дальнейшие действия в данном случае следует команда вывода на экран фразы: ('vozmite sdachu '+inttostr(b-a)), так же в этой фразе введена команда +inttostr(b-a), означающая вывод на экран результат арифметического действия. Далее по аналогии рассматриваются варианты равенства внесенной суммы и стоимости книги и случай внесения недостаточной суммы: if a=b then writeln('spasibo');

if a>b then writeln('nedostatochno '+inttostr(a-b)). После вода команд readln и end программа завершает свою работу.

program knizhniy_magazine;

var a,b:integer;

begin

writeln('vvedite stoimost` knigi');

readln(a);

writeln('vnesite summu');

readln(b);

if a<b then writeln('vozmite sdachu '+inttostr(b-a));

if a=b then writeln('spasibo');

if a>b then writeln('nedostatochno '+inttostr(a-b));

readln;

end.