Условный оператор

Тест «Язык Pascal»

Вопросы
Перечислить типы данных.
Назовите оператор ввода данных.
Назовите оператор вывода данных.
Как выглядит оператор присваивания?
Ответы:
INTEGER, LONGINT, REAL
READLN();
WRITELN();
:=

Тема урока:
«Условный оператор»

Цели урока:
научить учащихся решать задачи с использованием условного оператора в Паскаль;
ввести понятие условного оператора.

Общий вид оператора
Полная форма записи оператора
IF <условие> THEN <оператор1> ELSE <оператор2>;
Краткая форма записи оператора:
IF <условие> THEN <оператор>;

Написать программу решения следующей задачи:
Даны два числа не равные друг другу. Найти наибольшее из них и увеличить на 2.
program priumer;
var a,b,max: integer;
begin
writeln(‘Введите a,b’);
readln(a,b);
writeln(max);
end.
if
a>b
then
max:=a+2
else
max:=b+2;

Практическая работа на ПК
Дано действительное число. Возвести его в квадрат, если оно неотрицательно и в четвертую степень, если отрицательно.

Решение
program primer;
var a,b: integer;
begin
writeln(‘Введите a’);
readln(a);
If a>0 then b:=a*a else b:=a*a*a*a;
writeln(b);
end.

Вычислить значение функции
program primer;
var x,y: integer;
begin
writeln(‘Введите x’);
readln(x);
If x<=3 then y:=x-8 else y:=x*x+5;
writeln(y);
end.

Домашнее задание
Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

Подведение итогов
Как записывается оператор ветвления в Паскале?
Что представляет собой полное ветвление(неполное) в Паскале?

Условный оператор
Учитель информатики
ГБОУ гимназия №1517 г. Москва
Попова Маргарита Юрьевна