Счетчик – это переменная любого из перечисляемых типов (целого, булевого, символьного, диапазонного, перечисления). Начальные и конечные значения могут быть представлены не только значениями, но и выражениями, возвращающими совместимые с типом счетчика типы данных. Если между начальным и конечным выражением указано служебное слово to, то на каждом шаге цикла значение параметра будет увеличиваться на единицу. Если же указано downto, то значение параметра будет уменьшаться на единицу.
Количество итераций цикла for известно именно до его выполнения, но не до выполнения всей программы. Так в примере ниже, количество выполнений цикла определяется пользователем. Значение присваивается переменной, а затем используется в заголовке цикла. Но когда оно используется, циклу уже точно известно, сколько раз надо выполниться.
Ниже приведен вариант, когда программа запустится, но не выполнится:
program Zadacha; // удален символ 1
var a, b, c, d, s, p, r, q: integer;
begin // began заменен на begin
write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;
writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;
writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;
writeln (‘Ведите четвертое число=’, d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:
program Zadacha;
var a, b, c, d, s, p, r, q: integer;
begin
write ('Ведите первое число='); read(a);
writeln ('Ведите второе число='); read(b);
writeln ('Ведите третье число='); read(c);
writeln ('Ведите четвертое число='); read(d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:
52 раза
Объяснение:
Цикл for существует в двух формах:
for счетчик:=значение to конечное_значение do
тело_цикла;
for счетчик:=значение downto конечное_значение do
тело_цикла;
Счетчик – это переменная любого из перечисляемых типов (целого, булевого, символьного, диапазонного, перечисления). Начальные и конечные значения могут быть представлены не только значениями, но и выражениями, возвращающими совместимые с типом счетчика типы данных. Если между начальным и конечным выражением указано служебное слово to, то на каждом шаге цикла значение параметра будет увеличиваться на единицу. Если же указано downto, то значение параметра будет уменьшаться на единицу.
Количество итераций цикла for известно именно до его выполнения, но не до выполнения всей программы. Так в примере ниже, количество выполнений цикла определяется пользователем. Значение присваивается переменной, а затем используется в заголовке цикла. Но когда оно используется, циклу уже точно известно, сколько раз надо выполниться.
Ниже приведен вариант, когда программа запустится, но не выполнится:
program Zadacha; // удален символ 1
var a, b, c, d, s, p, r, q: integer;
begin // began заменен на begin
write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;
writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;
writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;
writeln (‘Ведите четвертое число=’, d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:
program Zadacha;
var a, b, c, d, s, p, r, q: integer;
begin
write ('Ведите первое число='); read(a);
writeln ('Ведите второе число='); read(b);
writeln ('Ведите третье число='); read(c);
writeln ('Ведите четвертое число='); read(d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:
program Zadacha;
var a, b, c, d, s, p, r: integer;
var q: real;
begin
...