Презентация "Разработка алгоритмов с ветвлением в среде программирования Турбо Паскаль"

Подписи к слайдам:
1. Какие числа относятся к типу
  • 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
  • Program ;
  • Var a,b,c,x,y: real;
  • Begin
  • Writeln (‘Введите числа a, b и с’)
  • Readln( a,b,c);
  • D:=sqr(b)-4*a*c;
  • x:=(-b+sqrt(d))-2*a;
  • y:=(-b-sqrt(d))-2*a;
  • Write ln ( ‘x=’,x, ‘у=’,y);
  • End.
Разработка алгоритмов с ветвлением в среде программирования Турбо Паскаль
  • Тема урока:
позволяет выбрать те или иные части программы в зависимости от условий
  • позволяет выбрать те или иные части программы в зависимости от условий
  • Z:= X
  • Z:= Y
  • X>Y
Полная форма условного оператора
  • If <логическое выражение> then <оператор 1>
  • else <оператор 2>;
  • Program My2;
  • Var x,y: integer;
  • Begin
  • Writeln (‘Введите два числа’)
  • Readln( х, у);
  • If x>y Then Writeln(x)
  • else Writeln(y);
  • End.
  • Что появится на экране
  • после выполнения
  • данной программы?
  • Подчеркните условный
  • оператор?
Неполная форма условного оператора
  • If <логическое выражение>
  • then <оператор 1> ;
  • Пусть даны два числа. Если первое больше второго по абсолютной величине, то необходимо уменьшить первое в пять раз. Иначе число оставить без изменения.
  • 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;
Задача: Вывести на экран наибольшее из трех чисел
  • 1.Блок схема
  • 2. Запусти файл my5_1;
  • - поставь «:» после оператора Writeln(x).
  • Почему появилось сообщение об ошибке.
  • - введи два равных числа. Измени программу так, чтобы она выводила на экран сообщение «Числа равны»
Программа решения квадратного уравнения.
  • 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.
Напишите фрагмент программы, подсчитывающих сумму только положительных из трёх данных чисел.
  • Напишите фрагмент программы, подсчитывающих сумму только положительных из трёх данных чисел.
  • Дано трехзначное число. Напишите программу определения, является ли оно полидромом («перевертышем»)