![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
rov4 |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Женский Репутация: ![]() ![]() ![]() |
Привет всем!
Помогите, пожалуйста, найти, в чём моя ошибка при составлении программы (необходимо решить уравнение). Я уже тысячу раз всё переделывала, но в результате получается не то, что надо (должно быть 2 корня, а у меня получается только один). ![]() Задание: уравнение имеет вид: а*х*х+в=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 |
![]() ![]() |
![]() |
Текстовая версия | 30.07.2025 23:57 |