IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Решение уравнений, простая, но мудрёная
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Женский

Репутация: -  0  +


Привет всем!
Помогите, пожалуйста, найти, в чём моя ошибка при составлении программы (необходимо решить уравнение). Я уже тысячу раз всё переделывала, но в результате получается не то, что надо (должно быть 2 корня, а у меня получается только один). wacko.gif
Задание: уравнение имеет вид: а*х*х+в=0;
а=2;
в=-8.
Вот, что у меня получилось:
Код
program lab;
var a,b,d,x1,x2:real;
begin
writeln;
write('a:2');
readln(a);
if a=0 then
begin
write('false');
readln;
halt;
end;
write('b:-8');
readln(B);
writeln('a*',a:5:2,'x*x+','b=',b:5:2,'0');
writeln;
d:=b*b-(4*a);
if d<0 then
begin
write('false');
readln;
halt;
end;
if d=0 then
begin
x1:=-b/(2*a);
readln;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('d:',d:5:2);
readln;
end;
write('x1:',x1:5:2,'x2:',x2:5:2);
readln(x1,x2);
end;
end.


Все исходники должны помещаться в теги [ CODE] [ /CODE] Т.е. ваша программа, должна быть между [ CODE] и [ /CODE]. Пожалуйста, внимательнее...

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






rov4
Кое-что исправил rolleyes.gif
Код
program lab;
var a,b,c, d,x1,x2:real;
begin
 writeln;
 write('a:'); readln(a);
 if a=0 then
   begin
     write('false'); readln; halt
   end;

 write('b:'); readln(b);
 write('c:'); readln(c);
 writeln(a:5:2, '*x*x+', b:5:2, '*x+', c:5:2,'= 0'); writeln;

 d:=b*b-(4*a*c);
 if d<0 then
   begin
     write('false'); readln; halt;
   end;

 if d=0 then
   begin
     x1:=-b/(2*a);
     writeln('one root: x1 = ', x1:5:2); readln; halt
   end;

 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 writeln('two roots:');
 writeln('x1 = ', x1:5:2, ' x2 = ', x2:5:2, ' d = ',d:5:2);
 readln;
end.


Вводим: А=2, В=0, С=-8

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Женский

Репутация: -  0  +


:low: :low: :low: У меня всё равно получается один корень: х=2, а должен быть ещё один: х=-2!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






rov4
Ну конечно !!! Коэффициент А при Х в квадрате, В при Х, С - свободный... Я исправил программу...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Женский

Репутация: -  0  +


Тем не менее, комп выдаёт мне следующий результат: а:2 и всё! Лично я уже не знаю, что и делать... :obm:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






rov4
Я тестировал программу неоднократно... Какие значения вводятся? В посте с моей программой есть исправления, смотрите ВЕСЬ пост, а не только саму программу !!!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Пионер
**

Группа: Пользователи
Сообщений: 81
Пол: Мужской
Реальное имя: Шурик

Репутация: -  0  +


Блин ... Так приятно смотреть , когда прога с отступами rolleyes.gif . Всё сразу совершенно понятно становится . :low:


--------------------
Двадцать пятый час в сутках может появиться всего лишь из-за небольшой ошибки в программе.
Чтобы не воспользоваться сумасшедшими возможностями, нужно быть идиотом.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.12.2024 20:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name