Цикл с предусловием
презентация к уроку по информатике и икт (9 класс) по теме

Слайд 1

Слайд 2

Задача 1 ( табулирование функции ) Вычислить значения функции y=x 2 на отрезке [1,10] с шагом 1 Program test1; Var x,y: integer; Begin x := 1; While x<=10 do Begin y:= sqr(x); Writeln (‘x=’,x:2,’ y=’,y); x:= x+1; End; End. x =1 x≤10 нет да y=x 2 x=x+1 вывод x,y

Слайд 3

Задача 2 Найти сумму пяти первых натуральных чисел S=1+2+3+4 +5 Program test; Var x, s : integer; Begin X:=1; S:=0; While x<=5 do Begin S:=S+X; X:=X+1; End; Writeln (‘ Сумма= ’, S); End . x =1 S=0 x≤5 нет да s=s+x x=x+1 вывод s

Слайд 4

Задача 3 Вычислить сумму ряда чисел S= 2+4+6+…+50 x =2 S=0 x≤5 0 нет да s=s+x x=x+ 2 вывод s Program test; Var x, s : integer; Begin X:= 2 ; S:=0; While x<=5 0 do Begin S:=S+X; X:=X+ 2 ; End; Writeln (‘ Сумма= ’, S); End .

Слайд 5

Задача 4 Вычислить сумму ряда чисел S=1+1/2+1/3+1/4+1/5+1/6 x = 1 S=0 x≤6 нет да s=s+1/x x=x+1 вывод s Program test; Var x: integer; s:real; Begin X:=1; S:=0; While x<=6 do Begin S:=S+1/X; X:=X+1; End; Writeln (‘ Сумма= ’, S:4:2); End .

Слайд 6

Задача 5 Дано : Курс доллара начальное значение суммы в долларах конечное значение суммы в долларах шаг пересчета валюты Получить : пересчет долларовой суммы в рубли Формула пересчета : Сумма в рублях = сумма в долларах * курс доллара в руб. Вывести результат в табличной форме

Слайд 7

Решение sd=nsd sd≤ksd нет да sr=sd*k; sd=sd+h ввод k,nsd,ksd,h вывод sd, sr Program test; Var k,nsd,ksd,sd,sr,h:real; Begin Writeln( ‘ Введите курс доллара'); Readln(k); Writeln( ‘ Введите начальную сумму в долларах'); Readln(nsd); Writeln( ‘ Введите конечную сумму в долларах '); Readln(ksd); Writeln( ‘ Введите шаг'); Readln(h); sd:=nsd; Writeln(‘Доллары Рубли'); While sd<=ksd do Begin sr:=sd*k; Writeln(sd:4:2, ' ',sr:4:2); sd:=sd+h; End; End.

Слайд 8

Задача 6 Известны n оценок по информатике за 1 четверть. Вычислить средний балл. Program test; Var x,s,n: integer; sred:real; Begin S:=0; Writeln(‘ введите количество оценок ’); Readln(n); While x<=n do Begin Writeln(‘ введите оценку ’); Readln(x); S:=S+X; X:=X+1; End; sred:=s/n; Writeln (‘ Средний балл= ’, Sred:4:2); End . x≤n нет да s=s+x x=x+1 вывод sred ввод x ввод n S=0 sred=s/n

Слайд 9

Задача 7 Дано N целых чисел. Вычислить произведение положительных чисел. Program test; Var x,n,p: integer; Begin p:=1; Writeln(‘ введите количество чисел ’); Readln(n); While x<=n do Begin Writeln(‘ введите число ’); Readln(x); if x>0 then p:=p*x; X:=X+1; End; Writeln (‘ Произведение ’, p); End . x≤n нет да p=p*x x=x+1 вывод p ввод x ввод n p=1 x>0