Задание 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 c<>0;
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
