VPF::[Pascal] Вычисление целых корней приведённого

Stroks

Дата 18.10.2006, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.10.2006

Репутация: 1
Всего: 1

Мне с утра нужно сдать задачу на паскале, а я даже не представляю как это делать. Сам пытался, честно . Я в программировании просто ничего НЕ ПОНИМАЮ (подскажите хороший учебник, хочу выучить). Хотя это абсолютно простая задача для 11 или 10-го класса.
Задача:
"Вычислите целые корни уравнения x^n + a1*x^(n-1) + a2*x^(n-2) + ... + an = 0 с целыми коэффициентами (an неравен нулю). Эти корни следует искать среди всевозможных делителей числа an."
Число "n" (степень уравнения (а следовательно и число коэффициентов)) не больше 20 и задаётся с клавиатуры. Все коэффициенты задаются с клавиатуры. (коэффициенты - это a1,a2,...,an)"

Задача спокойно решается с помощью бумаги и ручки, но вот как перевести её в Паскаль....
Вот 2 небольших алгоритма, которые мне пришли в голову:
1) находим все делители числа an, далее идёт следующая операция: если при подставлении этого числа в уравнение (на место икса), оно обращается в "0", то тогда это число выводится на экран. Если нет - берётся следующий делитель.
2) производятся действия первого алгоритма, только в обратном порядке

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

Желательно стучать в аську - 303727275

smile

Palladin

Дата 18.10.2006, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Вот что-то такое, может и не правильно smile

Код


program RooR;
var
a,b:array[1..20]of integer;
i,n,j,x,k:integer;
s:real;
begin
Write('Vvedite kol-vo elementov:  ');
Readln(n);
Write('Vvedite x: ');
Readln(x);
for i:=1 to n do
begin
Write('A[',i,']= ');
Readln(a[i]);
end;

s:=exp(n*ln(x));
j:=1;
for i:=1 to n do
begin
s:=s+a[i]*exp(n-1*ln(x));
if s=0 then
begin
b[j]:=a[i];
j:=j+1;
end;
end;
if j=1 then Writeln('NET deliteley!!!');
if j>1 then Writeln('Prostie deliteli est: ');

for k:=1 to j do
Write(b[j],'  ');
readln;
end.

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Alexeis

Дата 18.10.2006, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

M
alexeis1

Модератор: Название темы должно отражать ее суть!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Palladin

Дата 18.10.2006, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Вот переделал, задание просто, вернее я, математику не помню smile

Код


program RooR;
var
a,b,c:array[1..20]of integer;
i,n,j,k,u:integer;
s:real;
begin
Write('Vvedite kol-vo elementov:  ');
Readln(n);
for i:=1 to n do
begin
Write('A[',i,']= ');
Readln(a[i]);
end;
b[1]:=1;
j:=2;
if (n mod 2)=0 then begin b[j]:=2; j:=j+1; end;
if (n mod 3)=0 then begin b[j]:=3; j:=j+1; end;
if (n mod 5)=0 then begin b[j]:=5; j:=j+1; end;
if (n mod 7)=0 then begin b[j]:=7; j:=j+1; end;
if (n mod 11)=0 then begin b[j]:=11; j:=j+1; end;
if (n mod 13)=0 then begin b[j]:=13; j:=j+1; end;
if (n mod 17)=0 then begin b[j]:=17; j:=j+1; end;
if (n mod 19)=0 then begin b[j]:=19; j:=j+1; end;
k:=j;
if k<>0 then
begin
for j:=1 to k-1 do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i]*exp((n-i)*ln(b[j]));
end;
if s=0 then begin u:=u+1; c[u]:=b[j]; end;
end;
end;
if u=0 then Writeln('Korney net');

if u>0 then Writeln('korni est:');

for i:=1 to u do
Write(c[u]);

Readln;
end.

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Stroks

Дата 18.10.2006, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.10.2006

Репутация: 1
Всего: 1

Задача решена, спасибо ОГРОМНОЕ RooR'у. Я бы "+" поставил, но не могу... smile

Закрывайте

Alexeis

Дата 18.10.2006, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Цитата

Я бы "+" поставил, но не могу...

Я уже телепатировал и поставил заранее smile

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »