Задачка по паскалю

Question

Задачка по паскалю

Артём Бойченко Профи (617), на голосовании 13 лет назад

4.В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу. Покупателю нужно задать по крайней мере два вопроса: 1. ЧТО ХОТИТЕ КУПИТЬ? ЖУРНАЛ ИЛИ ГАЗЕТУ? После ввода ответа нужно показать стоимость соответствующего издания и задать вопрос: 2. Сколько ВЫ ПЛАТИТЕ? Сумма покупателя вводится с клавиатуры. Далее эта сумма сравнивается со стоимостью покупки и печатается соответствующее итоговое сообщение.

Дополнен 13 лет назад

вопрос всё еще открыт

Answer 1

var
tov_name:string;
tov1_price,tov2_price,rest:real;

begin
// ответ на вопрос писать маленькими буквами
// если вы платите дробное число, то пишите через точку
tov1_price:=0.20; //цена журнала
tov2_price:=0.03; //цена газеты
WriteLn('What do you wand to bay? Magazine or newspaper?');
ReadLn(tov_name);
WriteLn('How much do you pay?');
ReadLn(rest);

// если журнал
if tov_name='magazine' then begin
rest:=rest-tov1_price;
end;

// если газета
if tov_name='newspaper' then begin
rest:=rest-tov2_price;
end;

WriteLn ('Your rest is: '+FloatToStr(rest));
WriteLn ('Press Enter to exit.');
ReadLn;
end.