Рабочие листы
к вашим урокам
Скачать
1 слайд
27.12.2020
Тема урока:
Алгоритм с вертвлением
в среде программирования
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 <оператор 1>
else <оператор 2>;
Program My2;
Var x,y: integer;
Begin
Writeln (‘Введите два числа’)
Readln( х, у);
If x>y Then Writeln(x)
else Writeln(y);
End.
Полная форма условного оператора
Что появится на экране
после выполнения
данной программы?
Подчеркните условный
оператор?
6 слайд
Неполная форма условного оператора
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.
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 слайд
Напишите фрагмент программы, подсчитывающих сумму только положительных из трёх данных чисел.
Дано трехзначное число. Напишите программу определения, является ли оно полидромом («перевертышем»)
Рабочие листы
к вашим урокам
Скачать
6 625 090 материалов в базе
Настоящий материал опубликован пользователем Лучинин Александр Васильевич. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс повышения квалификации
72/180 ч.
Курс профессиональной переподготовки
600 ч.
Курс профессиональной переподготовки
300/600 ч.
Мини-курс
6 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.