For i:=N1 to N2 do Begin тело цикла End;
While do begin ; ;......end;
Repeat ; ; Until ;
Общий вид: While do While do begin begin ; ; … End; End; Общий вид: While do ; ; Оператор While служит для реализации циклического алгоритма с пред-условием.
Проверяется условие: если оно истинно, то выполняются операторы тела цикла. Проверяется условие: если оно истинно, то выполняются операторы тела цикла. Если ложно, то происходит выход из цикла.Если ложно, то происходит выход из цикла. While do While do ; ;
Число проходов цикла заранее неизвестно, минимальное количество – 0.Число проходов цикла заранее неизвестно, минимальное количество – 0. Выход из цикла, если условие ложно.Выход из цикла, если условие ложно. Условие может быть простым или сложным.Условие может быть простым или сложным. Тело цикла состоит из одного оператора. Если по логике решения задачи нужно в цикле выполнить несколько операторов, то они заключаются в операторные скобки.Тело цикла состоит из одного оператора. Если по логике решения задачи нужно в цикле выполнить несколько операторов, то они заключаются в операторные скобки. В теле цикла обязательно должно содержаться изменение переменной, проверяемой в условии,В теле цикла обязательно должно содержаться изменение переменной, проверяемой в условии,
ЗАДАЧА Ввести с клавиатуры ряд чисел, признак окончания ввода – число 0. Найти сумму чисел. Program Summa_While; uses crt; uses crt; Const W=0; Const W=0; Var chislo, S: integer; Var chislo, S: integer;Begin ClrScr; S:= 0; ClrScr; S:= 0; Write (Введи число ); Write (Введи число ); Readln (chislo); While chislo W do While chislo W do begin begin Write (Введи число ); Readln (chislo); S := S + chislo; end; end; Writeln (Сумма =, S); Readln End. Program Summa_Repeat; Const R=0; Const R=0; Var chislo, S: integer; Var chislo, S: integer;Begin S:= 0; S:= 0;Repeat Write (Введи число ); Readln (chislo); S := S + chislo; Until chislo = R; Writeln (Сумма =, S); Readln End.
Ввести с клавиатуры несколько дробных чисел, признак окончания ввода – число Найти и напечатать целую часть каждого числа.Ввести с клавиатуры несколько дробных чисел, признак окончания ввода – число Найти и напечатать целую часть каждого числа.
Program Trunc_While; Uses Crt; Uses Crt; Const W =1000; Const W =1000; Var chislo: real; Var chislo: real;BeginClrScr; While chislo W do While chislo W do begin begin Writeln (Целая часть =, Trunc (chislo)); Writeln (Целая часть =, Trunc (chislo)); Write (Введи число ); Write (Введи число ); Readln (chislo) Readln (chislo) end; end;Readln End.
Program Trunc_While; Uses Crt; Uses Crt; Const W =1000; Const W =1000; Var chislo: real; Var chislo: real;BeginClrScr; Write (Введи число ); Readln (chislo); While chislo W do begin Writeln (Целая часть =, Trunc (chislo)); Writeln (Целая часть =, Trunc (chislo)); Write (Введи число ); Write (Введи число ); Readln (chislo) Readln (chislo) end; Readln End.
Изменить программу так, чтобы она находила:Изменить программу так, чтобы она находила: а) дробную часть чисел; а) дробную часть чисел; б) произведение чисел, меньших 22; б) произведение чисел, меньших 22; в) сумму чисел, которые попадают в промежуток [10, 50]. в) сумму чисел, которые попадают в промежуток [10, 50].
Изменить программу так, чтобы она находила среднее арифметическое введенных чисел.Изменить программу так, чтобы она находила среднее арифметическое введенных чисел.