Одномерный массив

[Настена95]

составьте программу генерирующую массив b содержащий только те элементы одномерного массива A[t] что удовлетворяют условию:корни квадратного трехчлена x^2-2a[J]x-Q вещественны и положительны

[MagAragorn]

Не очень понятна формула,распишите пожалуйста.

[Настена95]

x^2-2a[j]x-q (j=1,2,3...T)

[hon]

КРОССПОСТИНГ ЗАПРЕЩЕН!!!!!

Вот твои темы:
http://programmersforum.ru/showthread.php?t=234293
http://programmersforum.ru/showthread.php?t=234292

ЭТА ТЕМА БУДЕТ ЗАКРЫТА!

[Настена95]

А в каком нибудь одном разделе можно оставить?

[BDA]

Сообщение от Настена95

А в каком нибудь одном разделе можно оставить?

Да, в принципе, так и произойдет. Одну тему модераторы удалят (которая создалась случайно), а вторую закроют (а может тоже удалят).

По задаче:
В цикле по всем элементам A рассчитываем дискриминант по формуле D' = (a[j])^2 + Q
Если он больше нуля, то рассчитываем 2 корня по формуле a[j] + sqrt(D'), a[j] - sqrt(D') и сравниваем их с нулем (чтобы оба были положительными)
Если дискриминант равен 0, то корень равен a[j] (смотрим на его знак)
Если дискриминант меньше 0, то корни комплексные (не подходят)
После того, как определили положительность корней, добавляем их в массив B, если нужно

Сообщение от Настена95

язык программирования -Turbo Pascal, извиняюсь,что не упомянула

Это, просто, моя стандартная подпись (ваша тема в разделе Паскаль, что указывает на язык).

[Настена95]

язык программирования -Turbo Pascal, извиняюсь,что не упомянула

[Настена95]

Сообщение от BDA

Да, в принципе, так и произойдет. Одну тему модераторы удалят (которая создалась случайно), а вторую закроют (а может тоже удалят).

По задаче:
В цикле по всем элементам A рассчитываем дискриминант по формуле D' = (a[j])^2 + Q
Если он больше нуля, то рассчитываем 2 корня по формуле a[j] + sqrt(D'), a[j] - sqrt(D') и сравниваем их с нулем (чтобы оба были положительными)
Если дискриминант равен 0, то корень равен a[j] (смотрим на его знак)
Если дискриминант меньше 0, то корни комплексные (не подходят)
После того, как определили положительность корней, добавляем их в массив B, если нужно



Это, просто, моя стандартная подпись (ваша тема в разделе Паскаль, что указывает на язык).

А вы бы не смогли листинг написать?

[BDA]

Сообщение от Настена95

А вы бы не смогли листинг написать?

Нет
Сначала Ваши попытки решения задачи.

[Настена95]

Сообщение от BDA

Нет
Сначала Ваши попытки решения задачи.

ну вот,только преподаватель говорит,что слишком сложно здесь всё, и ей нужно,чтобы просто вводился массив, потом прогонялся по формуле и потом уже вывелся массив который удовлетворяет условию, что числа вещественны и положительны, но я честное слово уже не знаю,что изменить можно, поэтому и помощи попросила(может сможете упростить как нибудь этот листинг) и да ещё она говорила,что формулы которая проверяет условие,её тут нету, типо того уравнения который даётся в задании, но оно же там не нужно вроде, так запуталась, жуть просто

program s1;
uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
n,m,j,q:integer;
d,x1,x2:real;
begin
clrscr;
randomize;
repeat
write('Размер массива A до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив A:');
for j:=1 to n do
begin
a[j]:=-5+random(11);
write(a[j]:4);
end;
writeln;
write('q=');
readln(q);
m:=0;
for j:=1 to n do
begin
d:=sqr(a[j])+4*q;
if d>=0 then
begin
x1:=(2*a[j]+sqrt(d))/2;
x2:=(2*a[j]-sqrt(d))/2;
end;
if (x1>0)and(x2>0) then
begin
m:=m+1;
b[m]:=a[j];
end;
end;
if m=0 then write('Нет элементов, удовлетворяющих условию')
else
begin
writeln('Массив B:');
for j:=1 to m do
write(b[j]:4);
end;
readln
end.