|
Рассмотрим некоторые простые задачи на использование условия (алгоритм с ветвлением).
Задача 1. Два числа вводятся с клавиатуры. Выведем большее из них.
Алгоритм решения. Вводим два числа. Используя условие определяем большее и выводим его. Полная форма. В случае равенства чисел выводится любое.
Program Pr1; Var a, b : integer; Begin read(a,b); if a>b then writeln(a) else writeln(b); end.
Задача 2. Дано целое число. Определить, двухзначное ли оно.
Алгоритм решения. Вводим целое число. Условие целого двухзначного числа а больше 9 и а меньше 100.
Program Pr2; Var a : integer; Begin read(a); if (100>a) and (9<a) then writeln('Двухзначное') else writeln('Не двухзначное'); End.
Задача 3. Даны три целых числа. Вычислите сумму положительных чисел.
Алгоритм решения. Первоначально сумма равна нулю. Вводим целое число. Проверяем: если оно положительно, то прибавляем к сумме. Так еще два раза. Выводим результирующую сумму.
Program Pr3; Var a, s: integer; Begin s:=0; read(a); if 0<a then s:=s+a; read(a); if 0<a then s:=s+a; read(a); if 0<a then s:=s+a; writeln(s); End.
Задача 4. Даны три целых числа. Выведите количество положительных чисел.
Алгоритм решения. Первоначально количество равно нулю. Вводим целое число. Проверяем: если оно положительно, то увеличим количество на один. Так еще два раза. Выводим результирующее количество.
Program Pr4; Var a, k: integer; Begin k:=0; read(a); if 0<a then k:=k+1; read(a); if 0<a then k:=k+1; read(a); if 0<a then k:=k+1; writeln(k); End.
|