Пример выполнения задания 2. Даны три целых числа A, B и C

Даны три целых числа A, B и C. Определить значения переменных X Y, Z. Вывести их на экран монитора.

Пусть D l и D 2 – заштрихованные части плоскости (см. рис.1) и пусть U определяется как функция X и Y. Вывести на экран значение функции U. Вывод результатов оформить пояснительным текстом.

Если то

иначе

Вычислить значение функции U по правилу:

Записи (x, y) Î D l, (x, y) Î D 2

означают, что точка с координатами (х, у) принадлежит области D 1или D 2.

Рис. 1

Program lab2;

uses crt;

var u, x, y, z:real;

a, b, c:integer;

begin clrscr;

writeln (‘Введите a, b, c ¢);

readln (a, b, c);

if a + b > с then begin x:= a + b;

y:= sqrt(a * a + b * b);

z:= ln(b + c)

end

else

begin x:= a – с;

y:= a * a – c * c;

z:=ln(a*c)

end;

writeln (‘ x =’, x:5:2,’ y =’, y:5:2,’ z =’, z:5:2)

if (y <=2* x /3 + 2) and (y >= x * x) then и:= x * x

else

if (sqrt(sqr(x) + sqr(y)) >= 2)

and (sqrt(sqr(x) + sqr(y))<=3) and (y < 0)

then u:= x + y

else u:= 0;

writeln(‘ u =’, u:7:2);

readkey

end.

Тема 3