Алгоритм с вертвлением в среде программирования 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
позволяет выбрать те или иные части программы в зависимости от условий позволяет выбрать те или иные части программы в зависимости от условий
Полная форма условного оператора
Неполная форма условного оператора Пусть даны два числа. Если первое больше второго по абсолютной величине, то необходимо уменьшить первое в пять раз. Иначе число оставить без изменения.
Запиши условный оператор, в которой значение переменной с вычисляется по формуле: a+b, если а –нечетное и a*b, если а – четное.
который вычисляет значение функции:
Program ; 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.
Напишите фрагмент программы, подсчитывающих сумму только положительных из трёх данных чисел. Дано трехзначное число. Напишите программу определения, является ли оно полидромом («перевертышем»)