Практическое задание n 1. 5

1. Синоптики объявляют погоду на ближайшие дни: 1-солнце,

2-дождь, 3-туман, 4-ветер. Зная нужную вам погоду, вы принимаете определенное решение: жду нужную погоду, либо - беру отгул, которое выводится на экран. Программа запрашивает ввод нужной погоды и выводит на экран ваше решение на каждый день до дня отгула.

2. Старуха послала старика с просьбой: поймать в море нужную ей рыбку. Рыба клюет в определенной последовательности: окунь, камбала, линь, треска. Поймав рыбку, старик принимает решение: ловлю еще, либо - еду домой, которое выводится на экран. Программа запрашивает ввод нужной рыбки и выводит на экран решение старика на каждый улов до нужного.

В случае зависимых событий, исключающих одновременное их выполнение, могут применяться вложенные условные операторы. Во вложенных условных операторах служебное слово "else" относится к ближайшей конструкции If "условие" Then "оператор1" за которым оно следует, т. к. "оператор2" выполняется в случае, если "условие" - ложно.

Приведем пример программы определения весовой категории в зависимости от веса спортсмена.

PROGRAM VES; { определение весовой категории спортсмена }

Условная схема программы

CONST A1='легкая категория';

A2='средняя категория'; Then

A3='тяжелая категория'; IF Writeln(A1)

A4='сверхтяжелая категория'; Else

var V : integer; Then

IF Writeln(A2)

BEGIN Else

write('введите вес спортсмена V='); Then

readln(v); IF Writeln(A3)

Else

IF V < 62 then writeln(A1)

else Writeln(A4)

IF V < 75 then writeln(A2) { вложенный условный оператор }

else

IF V < 88 then writeln(A3) { вложенный условный оператор }

else writeln(A4);

writeln('Нажмите Enter'); readln;

END.

Практическое задание n 1. 6

1. Определить ваши действия в зависимости от дня недели. Например, суббота - еду в баню, воскресенье - еду в гости и т. д. Программа запрашивает ввод дня недели и выводит на экран ваши действия в зависимости от составленного расписания.

2. Определить вид функции в зависимости от значения аргумента:

y=7 при х<-7, у=-х при -7=<х<0, у=х при 0<х<=5, у= 5 при х>5.

Программа запрашивает ввод значения "х" и выводит на экран вид функции "у".

3. Рассчитать значение функции Y= х^N в зависимости от значения "х" с выбором вида формулы: для случая аргумента х>0 функция Y= exp(N*ln(x)), при х<0 преобразовать "х" в положительное число x= abs(x), при х= 0 функция Y= 1.

4. Рассчитать значение функции Y= 1/  х в зависимости от значения "х" с выбором вида формулы: для случая аргумента х>0 функция Y= 1/sqrt(x), при х<0 преобразовать "х" в положительное число x= abs(x), при х= 0 вывести надпись: " Деление на ноль".

24

Для разложения целого числа на цифры удобно применять операции: MOD и DIV. Например, если дано трехзначное число "N" ( "N" соответствует "X1X2X3" ), то цифры: X1X2X3, составляющие это число определяются блоком операторов:

X3:= N mod 10; N:= N div 10;

X2:= N mod 10; N:= N div 10; X1:= N;

Если требуется определить, делится ли вещественное число "A" нацело на число "B", то можно применять функции Frac(x); и Int(x); например:

x:= A/B;

If Frac(x) = 0 then writeln('Число "A" делится нацело на число "B"');

If Int(x) = x then writeln('Число "A" делится нацело на число "B"');