50 баллов!!помогите,пожалуйста.
Составить блок-схему и написать программу на языке Pascal. Определить ежемесячные показатели прибыли предприятия, от реализации N видов товара,в течение года по алгоритму :
Доход = цена товара * реализовано в месяц;
Себестоимость = постоянные издержки + переменные издержки * реализовано;
Прибыль = доход – себестоимость;
Вычислить прибыль предприятия за год.
Ответы
var
Price, Scost, Vcost, Income, CostPrice, Profit: Real;
Amount: Integer;
begin
Write ('Введите цену товара: ');
Readln (Price);
Write ('Введите количество реализованного товара : ');
Readln (Amount);
Write ('Введите постоянные издержки: ');
Readln (Scost);
Write ('Введите переменные издержки: ');
Readln (Vcost);
Income := Price * Amount;
CostPrice := Scost + Vcost * Amount;
Profit := (Income - CostPrice) * 12;
Writeln ('Прибыть предприятия за год = ' + FloatToStr (Profit));
end;
Алгоритм здесь линейный, в виде последовательности пунктов:
1. Доход = цена товара * реализовано в месяц;
2. Себестоимость = постоянные издержки + переменные издержки * реализовано;
3. Прибыль за год = (доход – себестоимость) * 12;