Я так поняла вопрос в том, что надо объяснить работу программы. ответ будет выводиться в зависимости от введеных значений переменных. Переменная M типа boolean, т.е. это логическая переменная; которой может быть присвоенно только 2 значения, либо true, либо false, т.е. либо логическое вырожение истинное, либо ложное. Если в конце программы добавить writeln(M), тогда выведиться либо слово true, либо false. Не знаю, случайно ли, но в программе есть опечатки и в таком виде она работать не будет. 1. После program bd; ставиться точка с запятой, а не просто запятая. 2. Не car, a var 3. После объявления переменных, перед указанием их типа надо ставить двоеточие (:), а не точку с запятой (;) 4. После M необходимо поставить двоеточие (M:boolean;) 5. В операторе ввода read, нельзя ставить апостровы. Если вы хотите ввести значения, неоходимо просто через запятую их написать readln(a,b); Ну и как я уже сказала, если вы хотите вывести результат выполнения программы, перед end. Вставьте оператор writeln(M); Вроде всё
1. После program bd; ставиться точка с запятой, а не просто запятая.
2. Не car, a var
3. После объявления переменных, перед указанием их типа надо ставить двоеточие (:), а не точку с запятой (;) 4. После M необходимо поставить двоеточие (M:boolean;)
5. В операторе ввода read, нельзя ставить апостровы. Если вы хотите ввести значения, неоходимо просто через запятую их написать readln(a,b);
Ну и как я уже сказала, если вы хотите вывести результат выполнения программы, перед end. Вставьте оператор writeln(M);
Вроде всё
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
const n=7;
var
i:integer;
v:double;
begin
v:=1000;
for i:=1 to n do begin
v:=v*1.02;
end;
writeln('суммарный прирост вклада через 7 месяцев = ',v:4:0);
end.
1
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
05.02.2016, 08:37 3
Лучший ответ Сообщение было отмечено Памирыч как решение
Решение
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
program z1655173;
const n=7;
var i:integer;
v0,v1:real;
begin
v0:=1000;v1:=v0;
for i:=1 to n do begin
v1:=v1*1.02;
end;
writeln(’Сумма вклада через 7 месяцев =',v1:4:2,' руб.');
writeln(’Суммарный прирост вклада через 7 месяцев =',v1-v0:4:2,' руб.');
end.
1