Ученики на Учителя.com


Самостоятельная работа "Циклы" 8 класс

Вариант №1
1. Напишите общий вид цикла с пред
условием.
2. Какой вид цикла изображен на рисунке.
for
i:= a
to
b
do
begin
серия команд
end;
3. Что вычисляет данная программа.
А) Program Pr1;
Var i: integer;
Begin
P:=1;
i:=1;
While i<=5 do
begin
P:=P*i;
i:=i+1;
end;
Write (‘P=’, P);
end.
1. Б) program Numbers;
2. var
3. f0, f1, f: integer;
4. i, n: byte;
5. begin
6. readln(n);
7. f0 := 0;
8. f1 := 1;
9. for i := 2 to n do begin
10. f := f1 + f0;
11. f0 := f1;
12. f1 := f
13. end;
14. if n = 0 then f1 := 0;
15. writeln(f1)
16. end.
4. Исходя из решения задачи 3(а), если i<=7,
найдите значение p.
Вариант№2
1. Напишите общий вид цикла с пост
условием.
2. Какой вид цикла изображен на
рисунке.
while
условие
do
begin
серия команд;
end;
3. Что вычисляет данная программа.
1. A) program Exponentiation;
2.
3. var
4. x, n, i, res: word;
5.
6. begin
7. readln(x, n);
8. res := 1;
9. for i := 1 to n do begin
10. res := res * x
11. end;
12. writeln(res)
13. end.
Б)
1. program CountDiv;
2.
3. var
4. i, n, count: word;
5.
6. begin
7. readln(n);
8. count := 0;
9. for i := 1 to n do begin
10. if n mod i = 0 then inc(count)
11. end;
12. writeln(count)
13. end.
4. Найдите значение res в задачи 3(а),
если x=3 , а n=5.
Формулировка. Дано натуральное число. Проверить, является ли оно простым. Примечание: простым
называется натуральное число, которое имеет ровно два различных натуральных делителя: единицу и
само это число.
1. program PrimeTest;
2. var
3. i, n, count: word;
4. begin
5. readln(n);
6. count := 0;
7. for i := 1 to n do begin
8. if n mod i = 0 then inc(count)
9. end;
10. writeln(count = 2)
11. end.
Формулировка. Дано натуральное число n. Проверить, представляет ли собой палиндромом
1. var
2. n, a, right: longint;
3. digits, i: byte;
4.
5. begin
6. readln(n);
7. a := n;
8. digits := 0;
9. while a <> 0 do begin
10. a := a div 10;
11. inc(digits)
12. end;
13. right := 0;
14. for i := 1 to digits div 2 do begin
15. right := right * 10;
16. right := right + n mod 10;
17. n := n div 10
18. end;
19. if odd(digits) then n := n div 10;
20. writeln(n = right)
21. end.
Формулировка. Дана последовательность натуральных чисел, ограниченная вводом нуля. Вывести на
количество простых членов этой последовательности.
1. program NumOfPrimes;
2.
3. var
4. a, i, s, count: word;
5.
6. begin
7. read(a);
8. count := 0;
9. while a <> 0 do begin
10. s := 0;
11. for i := 1 to a do begin
12. if a mod i = 0 then inc(s)
13. end;
14. if s = 2 then inc(count);
15. read(a)
16. end;
17. writeln(count)
18. end.
Скачать материал

Информатика - еще материалы к урокам: