Сравнение типов циклов Холопкина Марина Евгеньевна, учитель информатики, МОУ гимназия 19, г.Королёв МО
Задание «Свойства типов циклов» С помощью указателя «Карандаш» нарисовать линии соответствующего цвета, соединяющие название цикла и его свойства цикл с предусловием цикл с постусловием цикл со счетчиком условие работы цикла условие выхода из цикла может ни разу не выполниться обязательно выполнится хоть 1 раз сразу известно сколько раз выполнится может выполняться бесконечно не может выполняться бесконечно Цикл For Цикл While Цикл Repeat- -Until
Задача «Банк» Program bank1; CONST P=15; N=5; VAR S:real; i: integer; BEGIN Writeln (Summa vklada: ); Readln (S); For i:=1 to N do S:=S+S*P/100; Writeln (itogovaja summa, S); END.
Задача «Банк» Program bank2; CONST P=15; N=5; VAR S:real; i: integer; BEGIN Writeln (Summa vklada: ); Readln (S); i:=1; While iN; Writeln (itogovaja summa, S); END.
Задача «Пароль» Program parol2; CONST P=12345; VAR password: integer; BEGIN password:=0; While passwordP do begin Writeln (Введите пароль); Readln (password); end; writeln (пароль угадан!); END. Program parol3; CONST P=12345; VAR password: integer; BEGIN Repeat Writeln (Введите пароль); Readln (password); Until password=P; writeln (пароль угадан!); END.
Задача «Евклид» Program evklid2; VAR n,m : integer; BEGIN Readln (n, m); While nm do If n>m then n:=n-m else m:=m-n; Writeln (НОД =, n) END. Program evklid3; VAR n,m : integer; BEGIN Readln (n, m); If nm then Repeat If n>m then n:=n-m else m:=m-n; Until n=m; Writeln (НОД =, n) END.
Число Пи Формула Джона Валлиса Формула Джеймса Грегори π /4 = 1 - 1/3 + 1/5 - 1/ Надо только постараться И запомнить всё как есть: Три, четырнадцать, пятнадцать, Девяносто два и шесть.