1. Какие числа относятся к типу Integer Real 2. Исправь ошибки в программе Program 2 pr; Var b,s: real; Begin Writeln (Введите числа b и с) Readln( b,c);

Презентация:



Advertisements
Похожие презентации
Тема урока: Костина Вера Павловна МАОУ «СОШ 2» МО «Лениногорского муниципального района» РТ.
Advertisements

Тема урока: Преподаватель Шатц К.Э.. 1. Какие числа относятся к типу Integer Real 2. Исправь ошибки в программе Program 2 pr; Var b,s: real; Begin Writeln.
Все познается через труд, через преодоление ошибок (собственных), через процесс решения задач.
Серкова Екатерина Геннадьевна Открытый урок «Условный оператор»
Хазова Н.Б. ЛИЕН г. Саратов. позволяет выбрать те или иные части программы в зависимости от условий Z:= X Z:= Y X>Y Условный оператор.
Алгоритмическая структура «Ветвление» Тема урока.
Урок информатики 9 физико-математический класс.
Условный оператор Информатика и ИКТ 9 класс Гимназия 1 г. Новокуйбышевска Учитель информатики: Красакова О.Н.
Разместите разделы программы в нужном порядке и назовите, что означает каждый раздел.
Задание 1. Какое значение будет принимать переменная х после выполнения фрагмента программы? 1.f:=5; d:=7; if f>=d then x:=f else x:=d; Ответ: х=7 2.a:=5;
Условный оператор 1. Задать с помощью условного оператора следующее действие большее из трех данных чисел (а, b, и с) уменьшить на Запишите условный.
Условный оператор Автор: Облицова Татьяна Александровна, учитель информатики МБОУ СОШ 6, г.Боготол, Красноярский край.
Условный оператор (ветвление) (урок 5). Ветвление Если то иначе кон If then begin end else begin end;
Самостоятельная работа. 1. Укажите неверные имена k, HR3, x1, 4S, r3w, Фil, slog_1, F1Ц, ret, program.
Тема урока:. 1. Оператор Program необходим в программе для… записи заголовка вывода данных ввода данных 2. Оператор End - это: описания типа данных оператор.
Условный оператор. if then if then begin begin ; ; … … ; ; end end else elsebegin ; ; … … end; end;
Решение линейных задач. Найти ошибки: 1. A:= 25+B; 2. 4-B:=A; 3. ABS(A):= B; 4. 4:=B; 5. B:=SQR(A); 6. B:=A; Ошибки в задании 2), 3), 4).
Создание программ разветвляющейся структуры. Условный оператор Условный оператор реализует алгоритмическую конструкцию "развилка" (ветвление) и изменяет.
ТЕМА: «ПРОВЕРКА УСЛОВИЯ» 8 – 9 класс Логунова Наталия Борисовна учитель информатики и ИКТ высшей категории МОСКВА, 2012.
ВетвлениеВетвлениеопределение Разветвляющимся называется процесс, в котором естественный порядок выполнения нарушается в зависимости от условия.
Транксрипт:

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 else ; Program My2; Var x,y: integer; Begin Writeln (Введите два числа) Readln( х, у); If x>y Then Writeln(x) else Writeln(y); End. Что появится на экране после выполнения данной программы? Подчеркните условный оператор?

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.

в которой значение переменной с вычисляется по формуле: a+b, если а –нечетное и a*b, если а – четное. If a div 2=0 then Write (Число чётное) else write (Число нечетное);

который вычисляет значение функции: If a >3 then y:=x 2+ 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.

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