Презентация, доклад Программирование линейных, разветвляющихся и циклических алгоритмов

математики и информатики МБОУ СОШ №15 г. Рязани
Зотова Марина Анатольевна.

умений выполнять и строить алгоритмы,а также написания программ на языке Паскаль;
Способствовать формированию качеств личности: взаимопомощи, взаимоподдержки, дружелюбия

строго друг за другом?
2. В каких алгоритмах происходит выбор действия в зависимости от выполнения условия?
3. В каких алгоритмах есть повторяющиеся действия, пока выполняется заданное условие?

Begin
A:=5;
B:=10;
S:=A+B;
Writeln (‘S=‘,S);


2) Begin
S:=0;
For i:=0 to 124 do
S:=S+ i * i;
Writeln (‘S=‘,S);

3) Begin
Readln (x);
f x<=10 then y:=3 else y:=x * x;
Writeln (‘y=‘,y);




4) Begin
i:=0;
S:=0;
Repeat
i:=i+2;
S:=S+I;
Until i >100;
Writeln (‘S=‘,S);

Линейный алгоритм
Вычисление суммы чисел

Цикл с параметром
Вычисление суммы квадратов чисел от 0 до 124

Разветвляющийся алгоритм вычисление у
в зависимости от х: если х
меньше или равен 10 то у=3, иначе у=х2

Цикл с постусловием
Вычисление суммы четных чисел от 0 до 100

(mod- вычисление остатка от деления нацело первого аргумента на второй)
y:=t;

Ответы:
1) x=2 2) x=7 3) x=2 4) x=5
y=5 y=5 y=2 y=5
t=5 t=5 t=2 t=5

Правильный ответ 1

-11 2) 15 3) 27 4) 33

Правильный ответ -4

нахождения наибольшего их двух чисел.
Задание для группы 2 Составьте блок схему и допишите программу вычисление гипотенузы с прямоугольного треугольника с катетами а и b
Задание для группы 3 Составьте блок схему и напишите программу вычисления суммы целых чисел от 5 до 50, используя цикл с параметром.
Задание для группы 4 Составьте блок-схему и напишите программу вычисления суммы целых чисел от 0 до 100, используя цикл с предусловием

их двух чисел.

Program A1;
Var
a, : ;
Begin
Writeln(‘ введите числа а и b’);
Readln( );
If a>b then max: else
Writeln( );
Readln;
End.

с прямоугольного треугольника с катетами а и b

Program A2;
Var
;
Begin
Writeln(‘ ’);
Readln( );
C:=
Writeln( ‘гипотенуза равна’ );
Readln;
End.

целых чисел от 5 до 50, используя цикл с параметром.

Program A3;
Var
i, s : ;
Begin
S:= ;
For i:= to do
S:= s + i;
Writeln( ‘S=‘, );
Readln;
End.

чисел от 0 до 100, используя цикл с предусловием.

Program A4;
Var
i, : ;
Begin
i:=0;
S:= ;
While i < do s:= ;
Writeln( ‘S=‘,S );
Readln;
End.

а и b’);
Readln( a,b );
If a>b then max:=a else max:=b;
Writeln( ‘наибольшее число=‘,max);
Readln;
End.

Readln( a,b );
C:=sqrt(a*a +b*b);
Writeln( ‘гипотенуза равна’,c :2:2);
Readln;
End.

0 ;
For i:= 5 to 50 do
S:= s + i;
Writeln( ‘S=‘, S );
Readln;
End.

i < 100 do s:= s+i ;
Writeln( ‘S=‘,S );
Readln;
End.

использованием алгоритмов. Какие базовые задачи мы с вами сегодня решали?
Как показал урок лучше всего отработаны навыки решения задач предполагающие нахождение ………………………….., наибольшее количество вопросов и, соответственно, ошибок вызвали задачи на………………………………………
По итогам урока:
«5» - получили группы
«4» - получили группы
«3» - получила группы

новое, повторил

Урок не понравился, не интересно, материал не понял.