Урок информатики


The Presentation inside:

Slide 0

Урок информатики 9 физико-математический класс


Slide 1

Создание программ с использованием циклических конструкций Тема урока:


Slide 2

Н. Вирт Блез Паскаль


Slide 3

Дайте определение понятию алгоритм ?


Slide 4

Расскажите о структуре программы на Паскале ?


Slide 5

C какого слова начинается раздел описания переменных ?


Slide 6

Begin … end.


Slide 7

Что такое тип данных ?


Slide 8

INTEGER REAL


Slide 9

Назовите простейшие операторы Паскаля ?


Slide 10

Y:=F;


Slide 11

READ (S); READLN (S);


Slide 12

WRITE (S); WRITELN (S);


Slide 13

mod div


Slide 14


Slide 15

Назначение основных блоков в блок-схемах ?


Slide 16

IF B THEN S1


Slide 17

IF B THEN S1 ELSE S2


Slide 18

Что такое цикл ?


Slide 19

Перечислите основные виды циклов в Паскале ?


Slide 20

FOR I:=A TO B DO S FOR I:=A DOWNTO B DO S


Slide 21

начало Задание начальных параметров цикла + - Тело цикла Задание новых параметров цикла Вывод результатов конец условие


Slide 22

WHILE B DO S


Slide 23

начало + - Тело цикла Вывод результатов конец условие


Slide 24

PROGRAM f1; VAR a,b :INTEGER; begin Read (a,b); WRITELN (a,b,a); END. a=7; b= 1


Slide 25

PROGRAM f2; VAR x :INTEGER; Begin X:=5; WRITELN (‘x+2’); END.


Slide 26

PROGRAM f3; VAR x : INTEGER; Begin Write (‘введите х’); readln (x); y:=sqrt(x)+2; WRITELN (‘y =’, y); END. x = 16


Slide 27

a:=10; b:=5; c:=a div 4; d:=b mod 2; s:= c*d; s= ?


Slide 28

s:= 0; u:=(5*5-1+s)/2; us:=u*s; usa:=u+s+us; usa = ?


Slide 29

a:=3; b:=2; d:=a*a-sqr(sqr(b))+10; d:= ?


Slide 30

IF 2 THEN S:=5 IF X<Y THEN D:=2 ELSE D:=X


Slide 31

IF X>0 AND X<5 THEN Y:=abs(x) IF X:=3 THEN (x)


Slide 32

if (y=x*x-2) and (x>=2) and (x<=0) then writeln (‘точка принадлежит графику функции’) else writeln (‘точка не принадлежит графику функции’);


Slide 33

PROGRAM W1; VAR S,i,N,k: INTEGER; BEGIN write ('vvedite n = '); Readln (n); S:=0; k:=0; For i:=1 to N do begin if i mod 2 = 0 then begin s:=s+i; k:=k+1; end; end; WRITELN (' cумма четных чисел равна S=', S); WRITELN (' количество четных чисел k =', k); END.


Slide 34

PROGRAM W2; VAR i,n,k: INTEGER; BEGIN write ('vvedite n = '); Readln (n); For i:=1 to N do if i mod 5 = 0 then WRITELN (i); END.


Slide 35

Табулирование функции на отрезке [a,b] c шагом h.


Slide 36

a b a+h a+2h a+3h a+4h F(a) = F(a+h) = F(a+2h) = F(a+3h) = F(a+4h) = и т.д. F(b) =


Slide 37

начало + - Y:=abs(x) конец X<=b X: = A Вывод значений X: = x+h


Slide 38

Пример. Протабулировать функцию y=|x-1| на отрезке [a,b] c шагом h. 3


Slide 39

PROGRAM g1; VAR a, b, y, x, h : real; BEGIN WRITELN(‘ВВЕДИТЕ a, b, h ’); READLN (a, b, h); x:=a; While x<=b do begin Y= abs (x*x*x-1); WRITELN (x:2:1, ‘ ‘ , y:2:1); x:=x+h; end; END.


×

HTML:





Ссылка: