Презентация "Разработка алгоритмов с ветвлением в среде программирования Турбо Паскаль"
Подписи к слайдам:
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.
- Напишите фрагмент программы, подсчитывающих сумму только положительных из трёх данных чисел.
- Дано трехзначное число. Напишите программу определения, является ли оно полидромом («перевертышем»)
Информатика - еще материалы к урокам:
- Презентация "Моделирование как метод познания" 9 класс
- Презентация "Настройка параметров страниц. Создание колонтитулов. Печать документа" 9-10 класс
- Презентация "Технология обработки графической информации" 11 класс
- Конспект занятия "Компьютерлік вирустар түрлері" 10 класс
- Тест "Архитектура персонального компьютера" 11 класс
- Тест "Основы компьютерной графики"