1. Запишите заголовки цикла For для изменения параметра из диапазонов:
от -10 до +10_______________________________________________
от 100 до 1_________________________________________________
от 15 до 25_________________________________________________
от -10 до -20_______________________________________________
2. Запишите оператор цикла For, который бы выводил все числа в диапазоне от 100 до 10 включительно:
________________________________________________________________________________________________________________________________________________
________________________________________________________________________
3. Определить, сколько раз выполнится цикл:
|
I:=4;
While i<6 do
i:=i+3;
|
y:=1;
i:=1;
While i>1 do begin
y:=y+1/i;
end;
|
i:=5;
y:=1;
While i>2 do
i:=i-1;
y:=y+i*i;
|
| __________________
| _______________________
|
|
4. Определить значение переменной S после выполнения следующих команд и заполнить таблицу:
……………..
Read(n);
S:=3;
I:=1;
While i<=n do begin
S:=s+I;
I:=i+5;
End;
Write(s);
…………….
5. Составьте блок-схему по готовой программе.
| PROGRAM summa;
VAR A,S:REAL;
BEGIN
S:=0;
A:=0.2;
WHILE A<=2 DO
BEGIN
S:=S+A;
A:=A+0.1;
END;
WRITELN(‘Сумма=’, S:15:2);
END.
|
|
6. Определите значение переменной a после выполнения фрагмента алгоритма:
7. Выполните трассировку и определите значение переменной S и I после выполнения фрагмента программы.
| S:=0;
I:=0;
Repeat
I:=I+5;
Until I<=5;
S:=S+I*I;
S _____________
I _____________
Тело цикла выполняется ____ раз
| I
| S
| I<=5?
|
|
|
|
|
8. Определите сколько раз будет выполняться тело цикла:
| S:=0;
I:=0;
Repeat
I:=I-1;
S:=S+1/I;
Until I<=1;
| S:=0;
I:=1;
Repeat
I:=I+1;
Until I>2;
S:=S+1/I;
| S:=0;
I:=1;
Repeat
S:=S+1/I;
I:=I+1;
Until I<1;
|
| _____________
| _______________
|
|
9. Расставьте строки программы в правильном порядке, чтобы получилась программа, которая находит сумму первых N натуральных чисел:
| 1) writeln(‘sum=’,sum);
|
|
| 2) end.
|
|
| 3) end;
|
|
| 4) sum:=sum+i; i:=i+1;
|
|
| 5) sum:=0; i:=1;
|
|
| 6) while i<=n do begin
|
|
| 7) var i,n,sum: integer;
|
|
| 8) write(‘n=’); readln(n);
|
|
| 9) begin
|
|
10 .Определите сколько раз будет выполняться тело цикла:
| S:=0;
For n:=4 downto 3 do begin
S:=s+n;
S:=s*10;
End;
| Y:=0;
For n:=4 to 6
Y:=y+I;
Y:=y/10;
| Y:=1;
For i:=1 to 3 do begin
Y:=y+1;
Y:=y+i;
End;
| Y:=5;
For n:=1 downto 4 do
Y:=y+n;
|
| ________________
| ________________
| _________________
|
|
11. Сопоставьте фрагменту программы с циклом while соответствующий ей фрагмент программы с циклом For:
| For i:=1 to 5 do
s:=s+5;
|
| While y<=10 do begin
S:=s+5;
Y:=y+1;
End;
|
| For i:=5 downto 1 do
S:=s+5;
|
| I:=5;
While i>=1 do begin
S:=s+5;
I:=i-1;
End;
|
| K:=3;
For i:=k to n do
S:=s+5;
|
| I:=1;
While i<=5 do begin
S:=s+5;
I:=i+1;
End;
|
|
For i:=y to 10 do
S:=s+5;
|
|
I:=3;
While i<=n do begin
S:=s+5;
I:=i+1;
End;
|
12. Выполните трассировку (пошаговое выполнение алгоритма вручную на бумаге). Определите значение переменной Х после выполнения фрагмента программы.
|
X:=10;
For I:=1 to 5 do
Begin
Writeln (I,X);
X:=X-2;
End;
X ____________
| I
| X
| Экран
результата
|
|
|
|
|
13. Составить программу по блок-схеме:
14. Исправьте синтаксические ошибки в следующем фрагменте программы:
| a) Var I, k:real;
S:real;
Begin
K=81;
S:=4
For i=1 to k
S=s/2
End.
| б) Var a:real;
Begin
s=10;
s:=s+2
for s:1 to 10 do
writeln s
end.
|
15. Отгадайте кроссворд:
По горизонтали:
2. Универсальный язык программирования.
3. Символическое имя определенного программного объекта.
4. Структурная команда, выполнение которой происходит после проверки усло-вия.
5. Программа-переводчик с Паскаля на язык машинных команд с полным предва-рительным переводом.
6. Последовательность действий(команд), которую должна выполнить ЭВМ, чтобы решить поставленную задачу обработки информации.
7. Отдельный информационный объект (число, символ, таблица и пр.).
9. Процесс занесения данных в оперативную память.
По вертикали:
1. Повторение некоторой группы действий по условию.
2. Занесение значений в ячейку памяти.
8. Все множество символов, используемых в некотором языке для представления
информации.
