Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189435
18.05.2016, 17:34
0.00 руб.
0 5 1
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
написать программу на языке паскаль: Дан массив, состоящий из 9 элементов. Программа берет пер-
вые три элемента и подставляет их в квадратное уравнение вида
a*x^2+ bx+ c= 0, вместо коэффициентов а, b, с соответственно и решает это
уравнение. Затем со второй и третьей тройкам и чисел. На экран должны
выводиться корни уравнения всех трех случаев.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2016, 10:14
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]var
i:integer;
z:array[1..9]of integer;
procedure calc(a,b,c:integer);
var
d:integer;
begin
d:=b*b-4*a*c;{дискриминант}
if d>0 then writeln('x1:=',(sqrt(d)-b)/(2*a),'x2:=':10,(-sqrt(d)-b)/(2*a)){два корня}
else if d=0 then writeln('x:=',-b/(2*a)){один корень}
else writeln('only complex root');{нет действительных корней}
end;
begin
for i:=1 to 9 do{вводим массив}
begin
write('Enter z[',i,']:=');
readln(z[i]);
end;
for i:=0 to 2 do{считаем корни}
calc(z[3*i+1],z[3*i+2],z[3*i+3]);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
23.06.2016, 11:17
общий
как без процедуры обойтись?
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
23.06.2016, 12:16
общий
[code lang=pascal h=200]var
i,d:integer;
z:array[1..9]of integer;
begin
for i:=1 to 9 do{вводим массив}
begin
write('Enter z[',i,']:=');
readln(z[i]);
end;
for i:=0 to 2 do{считаем корни}
{ calc(z[3*i+1],z[3*i+2],z[3*i+3]);}
begin
d:=z[3*i+2]*z[3*i+2]-4*z[3*i+1]*c;{дискриминант}
if d>0 then writeln('x1:=',(sqrt(d)-z[3*i+2])/(2*z[3*i+1]),'x2:=':10,(-sqrt(d)-z[3*i+2])/(2*z[3*i+1])){два корня}
else if d=0 then writeln('x:=',-z[3*i+2]/(2*z[3*i+1])){один корень}
else writeln('only complex root');{нет действительных корней}
end;
end.[/code]
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
23.06.2016, 20:20
общий
a,b,c нельзя отдельно посчитать и подставить в дискриминант?
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
24.06.2016, 08:29
общий
Цитата: 400185
a,b,c нельзя отдельно посчитать и подставить в дискриминант?

Что их считать, это коэфициэнты при иксах, они уже посчитаны.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа