Program Myfunction;
Uses Crt;
Var x, 
: real;
Begin clrscr; writeln (‘Vveditj x’); readln(x);
If x <-1 then :=ln(ads(x)) else
if (x>=-1) and (x<1) then :=sin(x) else
:=cos(x);
writeln (‘x=’, x:5:2, ‘ =’, y:5:2);
readln
end.
Зауважимо, що у команді розгалуження перед службовим словом else символ “;” не ставиться.
Завдання
І. обчислити податок із заробітної плати в залежності від її величини за формулою:
ІІ.Скласти програму обчислення значення функції 
ІІІ.Точка задана своїми координатами. Перевірити, чи належить вона колу 
Питання теоретичного опитування
1. Які операції використовуються в логічних виразах?
2. Як визначається порядок дій в логічному виразі?
3. Що таке розгалуження?
4. Як записується і виконується вказівка розгалуження в повній формі?
5. Як записується і виконується вказівка розгалуження в скороченій фoрмі?
6. Чи можна у вказівці розгалуження використовувати складені вказівки?
7. Які особливості використання символу «;» у вказівці розгалуження?
8. Як записується і виконується вказівка варіанта?
9. Як виконується повна команда розгалуження?
10.Як виконується скорочена команда розгалуження?
Дата добавления: 2014-12-19; просмотров: 101 | Поможем написать вашу работу | Нарушение авторских прав |