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

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

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

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

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

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

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.

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

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

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.

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