Презентация на тему "Алгоритм с ветвлением в среде программирования Turbo Pascal"

Содержание

• 
  Слайд 1
  

  30.12.2016 Тема урока: Алгоритм с вертвлением в среде программирования Turbo Pascal Костина Вера Павловна МАОУ «СОШ № 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
  

  позволяет выбрать те или иные части программы в зависимости от условий Z:= X Z:= Y X>Y

• 
  Слайд 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
  

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