Оказываем услуги
Главные менеджеры
Менеджер Елена Картиза - помогает в оформлении заказов на сайте. Ей можно задать любые интересующие вас вопросы.
Менеджер Галина Евсютина - специалист отдела качества. Проверяет выполненные работы на соответствие всем требованиям.
Менеджер Анастасия Ветрицина - подберет специалиста, который займется выполнением вашего задания.
Справочник студента
Проконсультируем прямо сейчас
Мы онлайн в наших сообществах. ПН - ВС 08:00-22:00
Ðайти дейÑтвительные корни квадратного ÑƒÑ€Ð°Ð²Ð½ÐµÐ½Ð¸Ñ Ð¸Ð»Ð¸ вывеÑти Ñообщение об их отÑутÑтвии. (программа ПаÑкаль)
От нашего клиента с логином VALzh на электронную почту пришел вопрос: "Ðайти дейÑтвительные корни квадратного ÑƒÑ€Ð°Ð²Ð½ÐµÐ½Ð¸Ñ Ð¸Ð»Ð¸ вывеÑти Ñообщение об их отÑутÑтвии. (программа ПаÑкаль)" это здание мы отнесли к разделу ЕГР(школьный). Так как клиент является зарегистрированным пользователем нашего сайта, то мы бесплатно предоставим ответ.
ЕГР(школьный) - довольно сложный раздел, здесь действительно попадаются вопросы, которые даже у специалиста с законченным высшим образованием поставят в тупик при подготовке правильного ответа. Но мы известны тем, что сложности нас не останавливают, а наоборот развивают и расширяют наши знания.
Вы спрашивали Ðайти дейÑтвительные корни квадратного ÑƒÑ€Ð°Ð²Ð½ÐµÐ½Ð¸Ñ Ð¸Ð»Ð¸ вывеÑти Ñообщение об их отÑутÑтвии. (программа ПаÑкаль)? - отвечаем:
uses crt;
var a,b,c,d,x1,x1:real;
begin
clrscr;
writeln (‘Введите коÑффициенты квадратного уравнениÑ’);
write(‘A=’); readln(a);
write(‘B=’); readln(b);
write(‘C=’); readln(c);
d:=sqr(b)-4*a*c;
if d<0 then writeln(‘Уравнение не имеет дейÑтвительных корней’)
else
begin
if d=0 then
begin
x1:=-b/(2*a);
writeln(‘X=’,x1:6:2);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(‘X1=’,x1:6:2,‘ X2=’,x2:6:2);
end;
end;
readln;
