Составить программы с цикловыми структурами

Задачник-сборник

По информатике

Класс

I. Повторение материала 8 класса

Преобразовать алгоритмическую запись выражений в обычную

Работа с операторами ввода-вывода

По схеме алгоритма написать программу

Написать программы, используя условный оператор

Составить программу и проверить выдаваемые значения на компьютере

Решить задачи, используя сперва условный оператор, а потом оператор выбора

1. В зависимости от введённой цифры вывести день недели

2. Дан угол. Определить его тип. Использовать case

3. Дана температура. Определить агрегатное состояние воды

4. Сейчас дата g (год), m (месяц), d (день). Определить завтрашнюю дату

II. Программное управление работой компьютера

Составить программы с цикловыми структурами

1. Вывести на экран 20 раз число 10

2. Найти сумму всех четных трехзначных чисел

3. Что получится в результате выполнения цикла

а) a:=5; s:=6; while a<=9 do begin s:=s+a-1; inc(a) end; writeln(a,’ ‘, s);

б) a:=5; s:=6; while a<=9 do begin inc(a); s:=s+a-1 end; writeln(a,’ ‘, s);

в) a:=5; s:=6; while a<=9 do inc(a); s:=s+a-1; writeln(a,’ ‘, s);

г) a:=5; s:=6; while a<=9 do s:=s+a-1; inc(a); writeln(a,’ ‘, s);

2. Протрассировать приведённые фрагменты программ (1,2,3,4) и составить программу для условия, выделенного жирным шрифтом

I вариант Что будет на экране? 1)a:=5; s:=6; while a<=9 do begin s:=s+a-1; inc(a) end; writeln(a,’ ‘, s); 2)a:=5; s:=6; while a<=9 do begin inc(a); s:=s+a-1 end; writeln(a,’ ‘, s); 3)a:=5; s:=6; while a<=9 do inc(a); s:=s+a-1; writeln(a,’ ‘, s); 4)a:=5; s:=6; while a<=9 do s:=s+a-1; inc(a); writeln(a,’ ‘, s); Найти все двузначные числа, кратные 3	II вариант Что будет на экране? 1)b:=3; a:=5; while b<=9 do begin a:=a+b+2; inc(b) end; writeln(b,’ ‘, a); 2)b:=3; a:=5; while b<=9 do begin inc(b); a:=a+b+2 end; writeln(b,’ ‘, a); 3)b:=3; a:=5; while b<=9 do inc(b); a:=a+b+2; writeln(b,’ ‘, a); 4)b:=3; a:=5; while b<=9 do a:=a+b+2; inc(b); writeln(b,’ ‘, a); Найти все трехначные числа, кратные 5	III вариант Что будет на экране? 1)q:=5; d:=1; while q>0 do begin d:=d+q; dec(q) end; writeln(q,’ ‘, d); 2)q:=5; d:=1; while q>0 do begin dec(q); d:=d+q end; writeln(q,’ ‘, d); 3)q:=5; d:=1; while q>0 do dec(q); d:=d+q; writeln(q,’ ‘, d); 4)q:=5; d:=1; while q>0 do d:=d+q; dec(q); writeln(q,’ ‘, d); Найти все числа, кратные 3 на интервале от 15 до 255	IV вариант Что будет на экране? 1)p:=2; u:=6; while p<=6 do begin u:=u+p-2; inc(p) end; writeln(p,’ ‘, u); 2)p:=2; u:=6; while p<=6 do begin inc(p); u:=u+p-2 end; writeln(p,’ ‘, u); 3)p:=2; u:=6; while p<=6 do inc(p); u:=u+p-2; writeln(p,’ ‘, u); 4)p:=2; u:=6; while p<=6 do u:=u+p-2; inc(p); writeln(p,’ ‘, u); Найти все числа, кратные 4 на промежутке от 5 до 111	V вариант Что будет на экране? 1)t:=20; r:=11; while t>=15 do begin r:=r+t-1; dec(t) end; writeln(t,’ ‘, r); 2)t:=20; r:=11; while t>=15 do begin dec(t); r:=r+t-1 end; writeln(t,’ ‘, r); 3)t:=20; r:=11; while t>=15 do dec(t); r:=r+t-1; writeln(t,’ ‘, r); 4)t:=20; r:=11; while t>=15 do r:=r+t-1; dec(t); writeln(t,’ ‘, r); Найти все четырехзначные числа, кратные 11
VI вариант Что будет на экране? 1)x:=2; v:=6; while x<=5 do begin v:=v+x; inc(x) end; writeln(x,’ ‘, v); 2)x:=2; v:=6; while x<=5 do begin inc(x); v:=v+x end; writeln(x,’ ‘, v); 3)x:=2; v:=6; while x<=5 do inc(x); v:=v+x; writeln(x,’ ‘, v); 4)x:=2; v:=6; while x<=5 do v:=v+x; inc(x); writeln(x,’ ‘, v); Найти все числа, кратные 5 на промежутке от 7 до 222	VII вариант Что будет на экране? 1)g:=7; y:=6; while g>4 do begin y:=y+g+3; dec(g) end; writeln(g,’ ‘, y); 2)g:=7; y:=6; while g>4 do begin dec(g); y:=y+g+3 end; writeln(g,’ ‘, y); 3)g:=7; y:=6; while g>4 do dec(g); y:=y+g+3; writeln(g,’ ‘, y); 4)g:=7; y:=6; while g>4 do y:=y+g+3; dec(g); writeln(g,’ ‘, y); Найти все числа, кратные 33 на промежутке от 40 до 1011	VIII вариант Что будет на экране? 1)r:=1; j:=2; while r<=4 do begin j:=j*r+1; inc(r) end; writeln(r,’ ‘, j); 2)r:=1; j:=2; while r<=4 do begin inc(r); j:=j*r+1 end; writeln(r,’ ‘, j); 3)r:=1; j:=2; while r<=4 do inc(r); j:=j*r+1; writeln(r,’ ‘, j); 4)r:=1; j:=2; while r<=4 do j:=j*r+1; inc(r); writeln(r,’ ‘, j); Найти все числа, кратные 2 на промежутке от 3 до 456	IX вариант Что будет на экране? 1)m:=34; b:=3; while m>=31 do begin b:=b-m; dec(m) end; writeln(m,’ ‘, b); 2)m:=34; b:=3; while m>=31 do begin dec(m); b:=b-m end; writeln(m,’ ‘, b); 3)m:=34; b:=3; while m>=31 do dec(m); b:=b-m; writeln(m,’ ‘, b); 4)m:=34; b:=3; while m>=31 do b:=b-m; dec(m); writeln(m,’ ‘, b); Найти все числа, кратные 8 на промежутке от 99 до 7766	X вариант Что будет на экране? 1)f:=15; h:=6; while f>=9 do begin h:=h+f-4; dec(f) end; writeln(f,’ ‘, h); 2)f:=15; h:=6; while f>=9 do begin dec(f); h:=h+f-4 end; writeln(f,’ ‘, h); 3)f:=15; h:=6; while f>=9 do dec(f); h:=h+f-4; writeln(f,’ ‘, h); 4)f:=15; h:=6; while f>=9 do h:=h+f-4; dec(f); writeln(f,’ ‘, h); Найти все числа, кратные 11 на промежутке от 22 до 333
XI вариант Что будет на экране? 1)z:=7; p:=-2; while z<=11 do begin p:=p+z+2; inc(z) end; writeln(z,’ ‘, p); 2)z:=7; p:=-2; while z<=11 do begin inc(z); p:=p+z+2 end; writeln(z,’ ‘, p); 3)z:=7; p:=-2; while z<=11 do inc(z); p:=p+z+2; writeln(z,’ ‘, p); 4)z:=7; p:=-2; while z<=11 do p:=p+z+2; inc(z); writeln(z,’ ‘, p); Найти все числа, кратные 13 на промежутке от 56 до 7655	XII вариант Что будет на экране? 1)e:=3; w:=9; while e<=6 do begin w:=w+e-5; inc(e) end; writeln(e,’ ‘, w); 2)e:=3; w:=9; while e<=6 do begin inc(e); w:=w+e-5 end; writeln(e,’ ‘, w); 3)e:=3; w:=9; while e<=6 do inc(e); w:=w+e-5; writeln(e,’ ‘, w); 4)e:=3; w:=9; while e<=6 do w:=w+e-5; inc(e); writeln(e,’ ‘, w); Найти все числа, кратные 9 на промежутке от 102 до 5000	XIII вариант Что будет на экране? 1)d:=-4; k:=d+5; while d<=1 do begin k:=k+d+3; inc(d) end; writeln(d,’ ‘, k); 2)d:=-4; k:=d+5; while d<=1 do begin inc(d); k:=k+d+3 end; writeln(d,’ ‘, k); 3)d:=-4; k:=d+5; while d<=1 do inc(d); k:=k+d+3; writeln(d,’ ‘, k); 4)d:=-4; k:=d+5; while d<=1 do k:=k+d+3; inc(d); writeln(d,’ ‘, k); Найти все числа, кратные 15 на промежутке от 14 до 3498	XIV вариант Что будет на экране? 1)x1:=7; x2:=x1*2; while x1<=10 do begin x2:=x2+x1-1; inc(x1) end; writeln(x1,’ ‘, x2); 2)x1:=7; x2:=x1*2; while x1<=10 do begin inc(x1); x2:=x2+x1-1 end; writeln(x1,’ ‘, x2); 3)x1:=7; x2:=x1*2; while x1<=10 do inc(x1); x2:=x2+x1-1; writeln(x1,’ ‘, x2); 4)x1:=7; x2:=x1*2; while x1<=10 do x2:=x2+x1-1; inc(x1); writeln(x1,’ ‘, x2); Найти все числа, кратные 17 на промежутке от 65 до 10000	XV вариант Что будет на экране? 1)v:=1; w:=2; while v<=6 do begin w:=w+v*2; inc(v) end; writeln(v,’ ‘, w); 2)v:=1; w:=2; while v<=6 do begin inc(v); w:=w+v*2 end; writeln(v,’ ‘, w); 3)v:=1; w:=2; while v<=6 do inc(v); w:=w+v*2; writeln(v,’ ‘, w); 4)v:=1; w:=2; while v<=6 do w:=w+v*2; inc(v); writeln(v,’ ‘, w); Найти все числа, кратные 6 на промежутке от 66 до 6666