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

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

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

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

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

Begin … end.

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

INTEGER REAL

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

Y:=F;

READ (S); READLN (S);

WRITE (S); WRITELN (S);

mod div

Abs(x)Sqr(x) Sin(x)int(x) Cos(x)Exp(x) Sqrt(x)Ln(x)

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

IF B THEN S1 Вход Условие нет да s1 Выход

IF B THEN S1 ELSE S2 Вход Условие нет да s1 s2 Выход

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

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

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

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

WHILE B DO S

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

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

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

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

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

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

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

IF 2 THEN S:=5 IF X

IF X>0 AND X

if (y=x*x-2) and (x>=2) and (x

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; WRITELN (' cумма четных чисел равна S=', S); WRITELN ( ' количество четных чисел k =', k); END.

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.

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

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

начало + - Y:=abs(x) конец X

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

PROGRAM g1; VAR a, b, y, x, h : real; BEGIN WRITELN(ВВЕДИТЕ a, b, h ); READLN (a, b, h); x:=a; While x