X

Скопируйте код и вставьте его на свой сайт.

Ширина px

Вы можете уменьшить размер презентации, указав свой размер!

Алгоритм с ветвлением в среде программирования Turbo Pascal

* Тема урока: Костина Вера Павловна МАОУ «СОШ № 2» МО «Лениногорского муницип...
Цели урока: 1. Cпособствовать осознанию и осмыслению новой учебной информации...
1. Какие числа относятся к типу Integer Real 2. Исправь ошибки в программе Pr...
позволяет выбрать те или иные части программы в зависимости от условий
If then else ; Program My2; Var x,y: integer; Begin Writeln (‘Введите два чис...
If then ; Пусть даны два числа. Если первое больше второго по абсолютной вели...
в которой значение переменной с вычисляется по формуле: a+b, если а –нечетное...
который вычисляет значение функции: If a >3 then y:=x2+5 else y:=x- 8;
Program ; Var a,b,c,x,y: real; Begin Writeln (‘Введите числа a, b и с’) Readl...
Напишите фрагмент программы, подсчитывающих сумму только положительных из трё...
Класс
Автор

Алгоритм с ветвлением в среде программирования Turbo Pascal

Описание презентации по отдельным слайдам:

1 слайд

* Тема урока: Костина Вера Павловна МАОУ «СОШ № 2» МО «Лениногорского муниципального района» РТ

2 слайд

Цели урока: 1. Cпособствовать осознанию и осмыслению новой учебной информации; 2. Сформировать представление о принципе работы условного оператора; сформировать навыки программирования в среде TP 3. Формирование ИКТ- компетентности; развитие алгоритмического мышления. 4. Способствовать формированию партнерских отношений в классе.

3 слайд

1. Какие числа относятся к типу Integer Real 2. Исправь ошибки в программе Program 2 pr; Var b,s: real; Begin Writeln (‘Введите числа b и с’) Readln( b,c); A=b+c; Write ln ( ‘a=’,a); End. 3. Запиши на языке программирования математическое выражение х2+2ху-у2 4. Переведите запись с языка программирования Паскаль на математический язык Sqrt(x)*3 – (a+2)/b

4 слайд

позволяет выбрать те или иные части программы в зависимости от условий

5 слайд

If then else ; Program My2; Var x,y: integer; Begin Writeln (‘Введите два числа’) Readln( х, у); If x>y Then Writeln(x) else Writeln(y); End.

6 слайд

If then ; Пусть даны два числа. Если первое больше второго по абсолютной величине, то необходимо уменьшить первое в пять раз. Иначе число оставить без изменения. Program My3; var x, y: real; Begin writeln (‘Введите числа х и у’); readln (x,y); If abs(x) >abs(y) Then x:=x/5; Write(‘x=‘, x, ‘y=‘, y); end.

7 слайд

в которой значение переменной с вычисляется по формуле: a+b, если а –нечетное и a*b, если а – четное. If a div 2=0 then Write (‘Число чётное’) else write (‘Число нечетное’);

8 слайд

который вычисляет значение функции: If a >3 then y:=x2+5 else y:=x- 8;

9 слайд

Program ; Var a,b,c,x,y: real; Begin Writeln (‘Введите числа a, b и с’) Readln (a,b,c); D:=sqr(b)-4*a*c; If d>= 0 then begin x:=(-b+sqrt(d))-2*a; y:=(-b-sqrt(d))-2*a; Write ln ( ‘x=’,x, ‘у=’,y); end; Else write (‘Корней нет’); End.

10 слайд

Напишите фрагмент программы, подсчитывающих сумму только положительных из трёх данных чисел. Дано трехзначное число. Напишите программу определения, является ли оно полидромом («перевертышем»)