Написать программу, которая запрашивает исходные данные и проводит над ними выбранное пользователем действие. Выбор действия осуществляется с помощью меню — Pascal(Паскаль)

Исходные данные: четыре числа a, b, c, d – цены карандаша, ручки, ластика и тетрадки.
меню действий: купить
1. карандаш
2. ручку
3. ластик
4. тетрадь
5. выход
после каждого действия нужно выводить общую стоимость выбранных товаров.

Var
      a,b,c,d,e,s: INTEGER;
Begin
Writeln('Введите цену карандаша');
Readln(a);
Writeln('Введите цену ручки');
Readln(b);
Writeln('Введите цену ластика');
Readln(c);
Writeln('Введите цену тетрадки');
Readln(d);
Writeln('-----------------------------------------');
Writeln('Меню действий:');
Writeln('1. Карандаш');
Writeln('2. Ручка');
Writeln('3. Ластик');
Writeln('4. Тетрадь');
Writeln('5. Выход');
Writeln;
while e<>5 do begin
Write('>>>');
Readln(e);
if e>5 then Writeln('Ошибка, повторите!');
if e=1 then  s:=s+a;
if e=2 then  s:=s+b;
if e=3 then  s:=s+c;
if e=4 then  s:=s+d;
Writeln('Стоимость товаров равна ',s);
end;
End.

Похожие записи/страницы:

Leave a Comment

3 + 7 =