Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Jaguar
392 / 278 / 38
Регистрация: 06.08.2010
Сообщений: 834
#1

Теорема Виета - Turbo Pascal

28.09.2010, 23:28. Просмотров 678. Ответов 1
Метки нет (Все метки)

вот написал код под теорему,а вот дальше не знаю как найти x1 и x2,по дискриминанту спокойно ,а вот по теореме в 10 раз сложнее,вот код,может подскажите пожалуйста как там доделать
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b,c,x1,x2,i:Integer;
begin
repeat
Writeln('Введите коофицент a');
readln(a);
until a=1;
Writeln('Введите коофицент b');
readln(b);
if b>0 then b:=-b else if b<0 then b:=abs(b);
Writeln('Введите коофицент c');
readln(c);
Writeln;
Writeln('X1+X2 = ',b);
Writeln('X1*X2 = ',c);
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2010, 23:28
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Теорема Виета (Turbo Pascal):

Теорема Виета
как найти корни квадратного уравнения применяя только теорему Виета? ...

Нужен код решения квадратного уравнения по теореме Виета
Пожалуйста дайте код решения квадратного уравнения по теореме Виета. Turbo...

Теорема Пифагора
Условие:вводится значение 2 катетов треугольника надо найти гипотенуза...

Теорема косинусов
Программа сырая. Подсчет элементов у треугольника через известные элементы. При...

Теорема Пифагора в Паскале
Напишите программу которая вычисляет теорему пифагора при вводе сторон ab,bc,ac...

Теорема Виета
Люди, помогите! Нужно создать программу, чтобы решала квадратные уравнения...

1
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
28.09.2010, 23:39 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a,b,c,x1,x2,i,j:Integer;
begin
repeat
Writeln('Введите коофицент a');
readln(a);
until a=1;
Writeln('Введите коофицент b');
readln(b);
if b>0 then b:=-b else if b<0 then b:=abs(b);
Writeln('Введите коофицент c');
readln(c);
Writeln;
Writeln('X1+X2 = ',b);
Writeln('X1*X2 = ',c);
for i := -100 to 100 do
  for j := -100 to 100 do
    if (i*j = c) and (i+j = b) then begin
      writeln('x1 = ', i, ', x2 = ', j);
      break;
    end;
readln;
end.
находит целые решения уравнения, которые лежат в промежутке от -100 до 100. принцип, я думаю, понятен
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2010, 23:39
Привет! Вот еще темы с решениями:

Теорема Виета
Суть, решить квадратичное уравнение теоремой виета, но мне кажется это...

Теорема Виета
Нужно сделать функцию в которую бы передавался массив x (n штук), а возвращала...

Теорема Виета
Скажите ,правильно ли я решил уравннеие по теоерме Виета?

Теорема Виета, рациональыне корни многочленов
Помогите разобраться с двумя заданиями. Нужны советы как это решить,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru