Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Touchrus
0 / 0 / 2
Регистрация: 14.12.2014
Сообщений: 4
#1

Решить квадратное уравнение - Pascal ABC

05.03.2013, 23:09. Просмотров 734. Ответов 1
Метки нет (Все метки)

Никак не могу понять в чём ошибка... Помогите, желательно с объяснением ошибки. Спасибо.
http://www.cyberforum.ru/pascalabc/thread279881.html

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program progect2;
 
var
  A, B, C, D:Real;
  x1:real;
  x2:real;
 
begin
 read (B);
 read (A);
 read (C);
 D:=(B*B)-(4*A*C);
 
 if (D>0)then;
  begin
     x1:=(-B + sqrt(D))/(2*A);
     x2:=(-B - sqrt(D))/(2*A);
     Writeln('?acoeuoao');
     Writeln('X1:=',X1);
     Writeln('x2:=',X2);
     halt;
  end;
 
 
 if (D=0)then;
  begin
    x1:=-B/2*A;
    x2:=B/2*A;
    Writeln('?acoeuoao');
    Writeln('X1:=',X1);
    Writeln('x2:=',X2);
    halt;
  end;
 
 if (D<0)then
   begin
     Writeln('Aaiia o?aaiaiea ia eiaao ei?iae!');
     halt;
   end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2013, 23:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Решить квадратное уравнение (Pascal ABC):

Решить квадратное уравнение
Задание: квадратное уровнение А*х*х+В*х+С=0 Задача допускает 5 вариантов...

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

Решить квадратное уравнение через цикл
Решить квадратное уравнение, с помощью цикла. y = 5x^2 - 2x + 1 Промежутки - ...

Решить квадратное уравнение и построить параболу
помогите, пожалуйста, написать программу решиния квадратного уравнения вида...

Решить невырожденное квадратное неравенство
Решить невырожденное (т.е. а не равно 0) квадратное неравенство ax2+bx+c&gt;0

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
05.03.2013, 23:41 #2
А зачем после Then стоят двоеточия?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.03.2013, 23:41
Привет! Вот еще темы с решениями:

Отредактировать квадратное уравнение
Есть код квадратногоуравнения: program kvadratnoe_uravnenie; var a, b,...

Квадратное уравнение методом случайного перебора
Напишите пожалуйста программу решения квадратное уравнение методом случайного...

Квадратное уравнение при любых данных
Решить квадратное уравнение при любых исходных данных.

Выяснить, имеет ли квадратное уравнение действительные корни
Помогите пожалуйста, очень нужно, заранее благодарю! Условный оператор. 11....


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

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

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