25
Июль1.Найти меньшее min из двух целых чисел x и y 2.Даны натуральные числа a и b. Определить тип обыкновенной…
Предмет: Информатика
Уровень: студенческий
1.Найти меньшее min из двух целых чисел x и y
2.Даны натуральные числа a и b. Определить тип обыкновенной дроби a/b (правильная или неправильная), ответ записать в переменную d.
3.Дано целое число х. Если оно двузначное, то в переменную s записать слово “YES”, иначе – слово “NO”.
Замечание: в программах обязательно должны быть блок ввода и блок вывода.
Ответ:
program z1;//имя программы
var a:real;b,c,d:integer;//объявление глобальных переменных
function M (x,y:integer): integer;//название функции, параметры, тип результата
begin//тело функции
if x>y then M:=x else M:=y//неполный условный оператор
end;
begin//тело программы
read (a,b);//ввод значений переменных
if frac(a) >= 0.5 then c:=trunc(a)+1 else c:=trunc(a);//математическое округление
d:= M (b,c);//вызов функции
write(d)//вывод результата
end.
Объяснение:
картинка 1 — блок-схема программы
картинка 2 — блок-схема функции
математическое округление, чтобы 2,5 было равно 3, а не 2 как при использовании функции round