Форум программистов, компьютерный форум CyberForum.ru

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 5.00
Никита0723
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 3
#1

Решение квадратного уравнения - Turbo Pascal

21.04.2011, 22:02. Просмотров 1647. Ответов 3
Метки нет (Все метки)

Доброго времени суток. Нужна помощь в решении задачи по паскалю. Задача простейшая, но вот выдаёт ошибку.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program ... ;
var 
a,b,c,D : real;
begin
Write ('Введите а: ');
Readln(a);
Write ('Введите b: ');
Readln (b);
Write ('Введите с: ');
Readln (c);
D= b^2 - 4*a*c ;
If d>0 then begin
Writeln( (-b + sqrt(D) )/2);
Writeln( (-b - sqrt(D) )/2);
and else if D=0 then
Writeln(-b/2);
else
Writeln ('Нет решений!') ;
Readln;
End.
Вот код собственно , выдаёт Error 121 Invalid qualifier. В строчке D= b^2 - 4*a*c ; а конкретно ругается на степень b.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.04.2011, 22:02     Решение квадратного уравнения
Посмотрите здесь:

Решение квадратного уравнения - Turbo Pascal
ax^2+bx+c=0 и блок схемой тоже помогите

Решение квадратного уравнения - Turbo Pascal
Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных данных и в случае, когда коэффициент при...

Решение квадратного уравнения - Turbo Pascal
вычислить значение корней квадратного уравнения x^2+px+q=0. помогите пожалуйста

Решение квадратного уравнения - Turbo Pascal
3. Составить подпрограмму решения квадратного уравнения ах2 +bx +c = 0. Через процедуру.

Решение квадратного уравнения ax2+bx+c=y - Turbo Pascal
Написать программу решения квадратного уравнения ax2+bx+c=y.

Решение квадратного уравнения, если B<0 - Turbo Pascal
Всем доброго времени суток! Опять нуждаюсь в помощи. Работаю над осложненной версией программы по решению квадратных уравнений. Но не...

Условные переходы. Решение квадратного уравнения. - Turbo Pascal
Составьте программу решения квадратного уравнения с использованием сложных условий.Правила форума п. 5.5: Запрещено размещать тему в...

Текстовые файлы. Решение квадратного уравнения - Turbo Pascal
всем доброго времени помогите пожалуйста решить задачу. на завтра надо очень... Дано файл в котором каждая строчка содержит 3 числа...

Решение квадратного уравнения с процедурой нахождения дискриминанта в Pascal - Turbo Pascal
Решение квадратного уравнения с процедурой нахождения дискриминанта в Pascal. Помогите пожалуйста!Заранее спасибо!)

Программа квадратного уравнения - Turbo Pascal
Напишите программу решения квадратного уравнения, но ... без единого гвоздя. Т.е. это не шутка - программа написана - просто для тех, кто...

Найти корни квадратного уравнения - Turbo Pascal
нужно создать программу,находящую корни квадратного уравнения вида: ax^2+bx+c=0 так же учесть случай,когда действительных корней нет. ...

Вычислить корни квадратного уравнения - Turbo Pascal
Здравствуйте.Помогите пожалуйста в написании пары программ на ТП: 1. вычислить корни квадратного уравнения ax^2+bx+c= 0. Если d=...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Qwark
21 / 21 / 9
Регистрация: 28.01.2011
Сообщений: 72
21.04.2011, 22:14     Решение квадратного уравнения #2
D= sqr(b) - 4*a*c;
Никита0723
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 3
21.04.2011, 22:18  [ТС]     Решение квадратного уравнения #3
А почему там квадрат нельзя ставить, а через натуральный логориф ?
djtriotix
4 / 4 / 1
Регистрация: 28.03.2011
Сообщений: 32
21.04.2011, 23:36     Решение квадратного уравнения #4
Можно и через логорифм(точнее через экспонент) и это нагрузит программу, но в паскале есть функция sqr(х) - что есть квадратом от аргумента х. А вот значек ^(стрелка вверх) в турбо паскале используется по совсем иным целям, если интересно, почитай про адресные типы данных.

Добавлено через 5 минут
Кстати это не решение квадратного уровнения, а проверка дискриминанта и вывод способов дальнейшего нахождения корней. Если цель задания показать пути нахождения то ошибка только в задании квадрата.
Yandex
Объявления
21.04.2011, 23:36     Решение квадратного уравнения
Ответ Создать тему
Опции темы

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