Написать программку на языке Паскаль, реализующую последующую задачку: Продаются продукты 2-ух
Написать программку на языке Паскаль, реализующую последующую задачку: Продаются товары 2-ух видов. Запросить с клавиатуры для каждого продукта стоимость, количество в начале рабочего денька и количество проданного товара (и одного и другого) за денек. Вывести выручку от реализации 2-ух продуктов за денек.
Задать свой вопрос1 ответ
Тимур
Запрашивается цены продуктов и их количество в начале рабочего денька.
Запрашивается количество проданного товара.
Выводится ответ.
Возможно, надобно было запросить не кол-во проданного товара, а кол-во оставшегося товара, но я составил программу по условию. (если нужна будет другая, то отредактирую)
program tovar;
var t1,t2,p1,p2:integer;
c1,c2,s:real;
Begin
WriteLn('Сколько продуктов первого вида было в начале рабочего дня?');
ReadLn(t1);
WriteLn('Цена продуктов первого вида?');
ReadLn(c1);
WriteLn('Сколько продуктов второго вида было в начале рабочего денька?');
ReadLn(t2);
WriteLn('Стоимость продуктов второго вида?');
ReadLn(c2);
WriteLn('сколько товаров перового вида было продано за день?');
ReadLn(p1);
WriteLn('сколько продуктов второго вида было продано за день?');
ReadLn(p2);
s:=p1*c1+p2*c2;
WriteLn('Выручка за денек ' ,s);
end.
/// Появился вопрос. Для чего спрашивать, сколько товаров было в начале рабочего денька, если эти данные не употребляются, вот я и решил составить программу, которая, вероятно, требовалась
program tovar;
var t1,t2,p1,p2:integer;
c1,c2,s:real;
Begin
WriteLn('Сколько продуктов первого вида было в начале рабочего денька?');
ReadLn(t1);
WriteLn('Стоимость продуктов первого вида?');
ReadLn(c1);
WriteLn('Сколько товаров второго вида было в начале рабочего денька?');
ReadLn(t2);
WriteLn('Цена продуктов второго вида?');
ReadLn(c2);
WriteLn('сколько продуктов перового вида осталось?');
ReadLn(p1);
WriteLn('сколько товаров второго вида осталось?');
ReadLn(p2);
s:=(t1-p1)*c1+(t2-p2)*c2;
if (t1-p1lt;0) or (t2-p2lt;0) then WriteLn('Внимание! Кол-во оставшихся продуктов, больше чем кол-во продуктов в начале рабочего дня. Проверьте корректность данных.');
WriteLn('Выручка за день ' ,s);
end.
Запрашивается количество проданного товара.
Выводится ответ.
Возможно, надобно было запросить не кол-во проданного товара, а кол-во оставшегося товара, но я составил программу по условию. (если нужна будет другая, то отредактирую)
program tovar;
var t1,t2,p1,p2:integer;
c1,c2,s:real;
Begin
WriteLn('Сколько продуктов первого вида было в начале рабочего дня?');
ReadLn(t1);
WriteLn('Цена продуктов первого вида?');
ReadLn(c1);
WriteLn('Сколько продуктов второго вида было в начале рабочего денька?');
ReadLn(t2);
WriteLn('Стоимость продуктов второго вида?');
ReadLn(c2);
WriteLn('сколько товаров перового вида было продано за день?');
ReadLn(p1);
WriteLn('сколько продуктов второго вида было продано за день?');
ReadLn(p2);
s:=p1*c1+p2*c2;
WriteLn('Выручка за денек ' ,s);
end.
/// Появился вопрос. Для чего спрашивать, сколько товаров было в начале рабочего денька, если эти данные не употребляются, вот я и решил составить программу, которая, вероятно, требовалась
program tovar;
var t1,t2,p1,p2:integer;
c1,c2,s:real;
Begin
WriteLn('Сколько продуктов первого вида было в начале рабочего денька?');
ReadLn(t1);
WriteLn('Стоимость продуктов первого вида?');
ReadLn(c1);
WriteLn('Сколько товаров второго вида было в начале рабочего денька?');
ReadLn(t2);
WriteLn('Цена продуктов второго вида?');
ReadLn(c2);
WriteLn('сколько продуктов перового вида осталось?');
ReadLn(p1);
WriteLn('сколько товаров второго вида осталось?');
ReadLn(p2);
s:=(t1-p1)*c1+(t2-p2)*c2;
if (t1-p1lt;0) or (t2-p2lt;0) then WriteLn('Внимание! Кол-во оставшихся продуктов, больше чем кол-во продуктов в начале рабочего дня. Проверьте корректность данных.');
WriteLn('Выручка за день ' ,s);
end.
Сергей Гут
Дополнил ответ.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов