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

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

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

> Решение уравнений, простая, но мудрёная
rov4
сообщение 12.01.2005 9:59
Сообщение #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 - 12.01.2005 10:02
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 

- Текстовая версия 30.07.2025 23:57
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"