римера рассмотрим следующую задачу:
Из двух заданных целых чисел выбрать наибольшее.
Математическая модель:
Данные: x, y
Результат:
Варианты:
Если x5, y8, то max8
Если x6, y1, то max6
Если x5, y5, то max5
Program Vetv1en;
Var x, y, max: integer;
Begin
Writeln (Введите два числа);
Readln (x, y);
if x y then max:x
else max:y;
Writeln (наибольшее ,max);
End.
4. Выполнение самостоятельной практической работы.
1. Дано целое число. Если оно является положительным то прибавить к нему 1, в противном случае вычесть из него два. Вывести полученное число.
2. Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т. е. имеют ли они равные площади.
5. Домашнее задание (задачи из задачника).
12. 4, 12. 5 (вопросы после )
стр. 229 1, 3
6. Подведение итогов занятия. (Оценить роботы учащихся. )
PAGE
PAGE 2
Условие полное
Оператор 2
Оператор 1
условие
Вход
Выход
Да(нет)
Нет (Да)
Условие неполное
условие
Оператор
Вход
Выход
Да(нет)
Нет (Да)
Начало
Ввод (x, y)
xy
max:x
max:y
Вывод (max)
Конец
Страницы: << < 1 | 2 | 3