Персональная страничка
| ||
Предыдущий раздел:
Следующий раздел:
1. Сколько раз на экран выведется слово Hello?
for i:=-2 to 7 do writeln('Hello');
2. Какого типа должна быть переменная i в предыдущем задании?
3. Что изменится, если убрать операторные скобки (слова begin и end) ?
for i:=1 to 10 do begin writeln(i+1); end;
4. Что выведут на экран приведенные программы
(а) |
s:=1; for i:=1 to 5 do if i>2 then s:=s*i; writeln(s); |
(б) |
s:=0; a:=3; for i:=1 to 10 do s:=a+i; writeln(s); |
(в) |
s:=0; a:=5; for i:=1 to 3 do s:=2*a; writeln(s); |
5. Составьте таблицы изменения переменных для циклов
(а) |
s:=0; p:=1; for i:=1 to 5 do begin p:=p*i; s:=s+p; end; |
(б) |
c:=2; for i:=1 to 4 do c:=1/(1-c); |
(в) |
s:=0; p:=1; for i:=1 to 5 do begin p:=-p*2; s:=s+p; end; |
Следующий раздел:
Предыдущий раздел:
Денис, oбъясни пожалуйста почему в заданий 5а и 5в есть begin/end, а в 4а,б,в их нету.
спасибо
Если их нет, то в цикле выполняется только один оператор. В 5а и 5в повторятся будет по два оператора.
Тарас,не пойму,почему в итоге решения этой задачи (5а) получается 153?
var
p,i,s,a:integer;
begin
s:=0;
p:=1;
for i:=1 to 5 do
begin
p:=p*i;
s:=s+p;
end;
writeln(s);
end.
Также не понятно,зачем в первом задании(а,б,в) мы писали for i=1 to .. do, если оно тут бездейственно?
И как у вас получается запускать программу с кодами без begin и end.? у меня так не идёт,пишет ошибку!
var
c:real;
i:integer;
begin
c:=2;
for i:=1 to 70 do — так и не понял,зачем тут этот оператор,функционально?
c:=1/(1-c);
writeln(c);
end.
куда «i» подставляется?
Ответ для 5 а (не знаю, передастся ли правильно таблица)
P S
при і = 1 p=1*1=1 s=0+1=1
при і = 2 p=1*2=2 s=1+2=3
при і = 3 p=2*3=6 s=3+6=9
при і = 4 p=6*4=24 s=9+24=33
при і = 5 p=24*5=120 s=33+120=153
1, 1, 2, 3, 6, 9, 24, 33, 120, 153
Программа для проверки:
program zadacha_5a;
var
i, s, p: integer;
begin
s:=0;
p:=1;
for i:=1 to 5 do
begin
p:=p*i;
s:=s+p;
writeln(p);
writeln(s);
end;
end.
Тарас Викторович правильно ли записано задание 4-в. Где там используется i?
Роман,
4_в
Ответ: 10 – не видно поэтапность работы счетчика i,
поскольку отражается конечный результат, для того, чтобы видеть работу i, нужно поставить begin и end, ответ 10 будет 3 раза.
program zadacha_4v;
var
i, s, a: integer;
begin
s:=0;
a:=5;
for i:=1 to 3 do
begin
s:=2*a;
writeln(s);
end;
end.