Слайды и текст доклада
Pic.1
Тема: Операторы организации циклов Цель: Познакомить с форматом и алгоритмом работы операторов цикла с предусловием и постусловием.
Pic.2
Оператор повторения с предусловием while Формат: while условие do begin тело цикла end;
Pic.3
Блок-схема while . . . . . . . . While Bl do begin P1; P2; . . Pn; end; . . . . . . . .
Pic.4
Работа оператора while проверяется условие; если оно истинно, то выполняется тело цикла; вновь проверяется условие и т. д. , как только на очередном шаге окажется, что условие ложно, то выполнение …
Pic.5
Пример1 While x<=0 do x:=x+1; Если x отрицательно, то к этому значению будет добавляться по 1 до тех пор, пока значение не станет положительным. Если x положительно, то значение x не изменяется.
Pic.6
Задача: Составить программу подсчета S
Pic.7
Вычислить сумму квадратов целых чисел в диапазоне от m до n: ; если n<m тогда сумма не вычисляется и S=0.
Pic.8
задание Написать программу для решения задачи. Дано натуральное число n. Определить количество и сумму цифр числа. Сумма в 10 000 у. е. положена в банк. При этом прирост составляет 3% в год и …
Pic.9
Оператор повторения с постусловием repeat Формат: repeat тело цикла until условие; Работа оператора: Тело цикла выполняется пока условие ложно. Выполнение прекращается, если условие истинно. Цикл …
Pic.11
Пример2 Repeat x:=x-1 until x=0; Сначала выполняется оператор x:=x-1; затем проверяется условие x=0. если , то оператор еще раз выполнится. Если x=0, то управление передается на оператор, следующий …
Pic.12
Задача: Составить программу подсчета S Program s_Repeat; Var s:real; n,i:integer; Begin readln(n); s:=0; i:=1; repeat S:=s+1/i; i:=i+1; until i>n; writeln(s); End.
Pic.13
задание Написать программу для решения задач используя команду Repeat: Дано натуральное число n. Определить сумму четных цифр числа. Сумма в 10 000 у. е. положена в банк. При этом прирост составляет …
Pic.14
Program Schet; Program Schet; {Uvelichenie summ vklada_Lavruhina} Var NS:longint; P,X,KS:real; K:byte; Begin WriteLn('Vvedite nachalnuy summu'); Read(NS); WriteLn('Vvedite …
Скачать презентацию
Если вам понравился сайт и размещенные на нем материалы, пожалуйста, не забывайте поделиться этой страничкой в социальных сетях и с друзьями! Спасибо!