close

Вход

Забыли?

вход по аккаунту

?

lab5(1.3.4.3) otchyot

код для вставкиСкачать
Лабораторная работа №5
Гончаров Виктор, ИМ-07-12
№ 1.3.4.3.
Алгоритмы со сложным условием продолжения цикла
Средняя заработная плата в январе составила Z рублей, а стоимость потребительской корзины - K рублей. Предполагается, что ежемесячный рост заработной платы составит p%, а потребительской корзины q%. Последовательно выводить ожидаемую разность между средней заработной платой и стоимостью потребительской корзины в феврале-декабре. Вычисления досрочно прекратить, если разница станет отрицательной.
ИмяСмыслТипСтруктураИсходные данныеZСредняя заработная плата в январеВещественныйПростая переменнаяKСтоимость потребительской корзиныВещественныйПростая переменнаяpЕжемесячный рост заработной платы ВещественныйПростая переменнаяqЕжемесячный рост потребительской корзиныВещественныйПростая переменнаяПромежуточные данныеmНомер месяцаВещественныйПростая переменнаяВыходные данныеRazРазность между средней заработной платой и стоимостью потребительской корзины за текущий месяцВещественныйПростая переменнаяФорма ввода
Форма вывода
Код программы:
Program lab5
Var Z,K,p,q,Raz,m:integer; pr:string;
Begin
Write('Введите среднюю заработную плату за январь:');
Readln(Z);
Write('Введите стоимость потребительской корзины за январь:');
Readln(K);
Write('Введите ежемесячный рост заработной платы:');
Readln(p);
Write('Введите ежемесячный рост потребительской корзины:');
Readln(q);
For m:=1 to 12 do
Begin
Raz:=Z-K;
For Raz>=0 do
Begin
Writeln('Месяц:',m,' Зарплата:',Z,' Стоимость потребительской корзины:',K,' Разность:',Raz);
Z:=Z+Z*p/100;
K:=K+K*q/100;
m:=m+1;
End;
End;
End.
Документ
Категория
Рефераты
Просмотров
16
Размер файла
22 Кб
Теги
otchyot, lab5
1/--страниц
Пожаловаться на содержимое документа