\
8 класс
Тема: Программирование циклических алгоритмов.
Задание:
Написать теорию в тетрадь: В языке Паскаль имеются три вида операторов цикла: while (цикл-Пока), repeat (цикл-До), for (цикл с параметром). Если число повторений тела цикла известно, то лучше воспользоваться оператором for; в остальных случаях используются операторы while и repeat.
Решить задачи:
1. Дана последовательность оператора:
a:=1;
b:=2;
while a+b<8 do
begin
a:=a+1
b:=b+2
end;
s:=a+b
Сколько раз будет повторен цикл и какими будут значения переменных a,b,s после исполнения этой последовательности оператор?
2. Сколько раз будет выполнен цикл?
1. for i:= 0 to 15 do s:= s+1;
2. for i:= 10 to 15 do s:= s+1;
3. for i:= -1 to 1do s:= s+1;
4. for i:= 10 to 10 do s:= s+1;
5. k:=5;
for i:= k-1 to k+1 do s:= s+1;
2)Один дюйм — 2,54 сантиметра - это 27 символов => 27*2 = 54 байт
3)12 кб = 12 * 1024 байт = 12 288 байт = 12 288 * 8 бит = 98 304 бит
4)N=2^i
N = 32 символа
32=2^i
i = 5 бит требуется для кодирования 1 символа
24*5 бит = 120 бит
5)Кто любит трудиться – тому без дела не сидится - 46 символов
Не написано сколько символов в алфавите => посчитаем сколько различных символов используется в данном предложении = 19 символов
N = 2^i
N=19
19 = 2^i
i=5 бит - 1 символ
46*5 бит = 230 бит
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
s:=s+a[i];
writeln('s=',s);
readln;
end.
program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if a[i] mod 2=0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if i mod 2 =0 then s:=s+a[i];
writeln('s=',s);
readln;
end.