Задание 1. Создайте программу для вычисления значений выражений. Исходные данные a, b, c задаются пользователем с клавиатуры.

X=2a^2-b/3c

Y=sqrt (x+c^2) + 4ab

Какие исходные данные будут недопустимыми? Проверьте, что произойдет при запуске программы с такими данными. Добавьте в программу проверку исходных данных после их ввода.

Var

a, b, c, x, y:real;

begin

Write ('Введите a и b: ') ; Read (a, b) ;

repeat

Write ('Введите c, не равное нулю: ') ;

Read (c)

until c0;

x:=2*sqr (a) - b / (3*c) ;

{

Если Вы относитесь к людям, ненавидящим скобки

и тех, кто решает Ваши задания, то в Вашем условии

на 3 а делится все выражение, и тогда предыдущая строка

должна иметь вид x: = (2*sqr (a) - b) / (3*a) ;

}

if x>=0 then

begin y:=sqrt (x+sqr (c)) + 4*a*b; Writeln ('x=', x,', y=', y) end

else

Writeln ('x=', x,', y вычислить нельзя, под корнем отрицательное значение')

end.

Тестовое решение:

Введите a и b: 3.4 - 2.18

Введите c, не равное нулю: 0

Введите c, не равное нулю: 5.172

x=23.2605001288992, y=-22.5762191684909