FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
1
Y:=0;
FOR X := 3 TO 5 do Y: = Y+X;
Какое значение выдаст программа на экране монитора?
FOR X := 5 DOWNTO 1 DO write (x,’ ‘);
3 раза
Y=12
5 4 3 2 1
Циклы WHILE и REPEAT
При использовании логических циклов необходимо всегда заботиться о том, чтобы переменная, использующаяся в условии завершения цикла, каким-то образом обязательно изменялась в теле цикла. Это может быть команда присваивания ( как в данной программе) или команда ввода.
end.
readln;
end;
k:=k+7;
Writeln(k);
Begin
While k<=99 do
k:=14;
Clrscr;
Begin
Var k: integer;
Uses Crt;
15…210…365…
Какое наименьшее трёхзначное число, делящееся на 5 ?
100
Сначала выполняется тело цикла, затем проверяется условие, если оно ложно, то тело цикла выполняется еще раз до тех пор пока условие не станет истинным
Не зависимо от проверки условия, тело цикла выполняется хотя бы один раз
3. Repeat и Until сами являются операторными скобками
4. Если условие все время будет ложно то произойдет зацикливание
Begin
Clrscr;
sum:=0;
k:=1;
Repeat
Sum:=sum+1/k;
k:=k+1;
Until k>10;
Writeln(‘Summa=‘,sum:5:3);
readln;
end.
Сумма = 0
Чему будет равно начальное значение управляющей переменной цикла?
0
Дан отрезок от 0 до 1 с шагом 0.1, какая получается последовательность?
0 0.1 0.2 0.3 0.4 … 1
Как подсчитать сумму КВАДРАТОВ этих чисел?
0*0 + 0.1*0.1 + 0.2*0.2 + … + 1*1
Итоги урока: