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

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

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

Никак не могу понять в чём ошибка... Помогите, желательно с объяснением ошибки. Спасибо.

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
Ответы с готовыми решениями:

Решить квадратное уравнение
решить квадратное уравнение ax2 +bx+c=0

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

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

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

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

1
Kodzaev
3008 / 1897 / 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

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

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

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


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

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

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