Ввод - сигнал или данные, получаемые системой. соответственно вывод - посылаемые.
Ввод информации может осуществляться через консоль или какой-то графический интерфейс. Данные могут считываться из файла, они могут поступать из какого-то потока и тд.
Выводиться информация может на экран монитора, она может печататься, передаваться с звукового сигнала и тд.
Считается хорошим тоном использовать слова для именования переменных, а не буквы. Какие можно использовать буквы - зависит от твоего языка программирования. Но чаще всего это только английские буквы любого регистра.
Program prognoz; var Z, K, p, q: real; M: Integer; BEGIN Write('Введите среднюю зарплату в январе Z = '); ReadLn(Z); Write('Введите среднюю потреб.корзину в январе K = '); ReadLn(K); Write('Введите предполагаемый ежемесячный рост зарплаты в % p = '); ReadLn(p); Write('Введите предполагаемый ежемесячный рост потреб.корзины в % q = '); ReadLn(q); M := 2; Z := Z*(1+p/100); K := K*(1+q/100); while (Z >= K) AND (M < 13) do begin WriteLn('Прогноз разности зарплаты и потреб.корзины в ', M:2, '-й месяц:', (Z-K):10:2, ' руб.'); Inc(M); Z := Z*(1+p/100); К := K*(1+q/100); end END.
Объяснение:
Ввод - сигнал или данные, получаемые системой. соответственно вывод - посылаемые.
Ввод информации может осуществляться через консоль или какой-то графический интерфейс. Данные могут считываться из файла, они могут поступать из какого-то потока и тд.
Выводиться информация может на экран монитора, она может печататься, передаваться с звукового сигнала и тд.
Считается хорошим тоном использовать слова для именования переменных, а не буквы. Какие можно использовать буквы - зависит от твоего языка программирования. Но чаще всего это только английские буквы любого регистра.
var Z, K, p, q: real;
M: Integer;
BEGIN
Write('Введите среднюю зарплату в январе Z = '); ReadLn(Z);
Write('Введите среднюю потреб.корзину в январе K = '); ReadLn(K);
Write('Введите предполагаемый ежемесячный рост зарплаты в % p = '); ReadLn(p);
Write('Введите предполагаемый ежемесячный рост потреб.корзины в % q = '); ReadLn(q);
M := 2;
Z := Z*(1+p/100);
K := K*(1+q/100);
while (Z >= K) AND (M < 13) do
begin
WriteLn('Прогноз разности зарплаты и потреб.корзины в ', M:2, '-й месяц:', (Z-K):10:2, ' руб.');
Inc(M);
Z := Z*(1+p/100);
К := K*(1+q/100);
end
END.