Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Никита0723
Новичок
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 3
21.04.2011, 22:02     Решение квадратного уравнения на паскале.
  #1
Доброго времени суток. Нужна помощь в решении задачи по паскалю. Задача простейшая, но вот выдаёт ошибку.
Код 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.
AdAgent
Объявления
21.04.2011, 22:02
Qwark
Форумчанин
21 / 21 / 1
Регистрация: 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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Turbo Pascal Программа квадратного уравнения
Напишите программу решения квадратного уравнения, но ... без единого гвоздя. Т.е. это не шутка - программа написана - просто для тех, кто хочет копнуть чуть глубже чем обычно свой вариант того, что...
Turbo Pascal 13 DerKodt1 19.04.2014 12:09
Turbo Pascal Текстовые файлы. Решение квадратного уравнения
всем доброго времени помогите пожалуйста решить задачу. на завтра надо очень... Дано файл в котором каждая строчка содержит 3 числа разделенные пропуском - коэффициенты квадратного уравнения....
Turbo Pascal 2 someone3452 03.03.2013 14:08
Turbo Pascal Вычислить корни квадратного уравнения
Здравствуйте.Помогите пожалуйста в написании пары программ на ТП: 1. вычислить корни квадратного уравнения ax^2+bx+c= 0. Если d= (b^2-4ac) >=0, то корни действительные,вычислить x (1,2) = e+-f....
Turbo Pascal 1 HooLIGUN 03.02.2013 01:45
Turbo Pascal Решение квадратного уравнения ax2+bx+c=y
Написать программу решения квадратного уравнения ax2+bx+c=y.
Turbo Pascal 3 Карамелька 13.01.2013 20:51
Turbo Pascal Условные переходы. Решение квадратного уравнения.
Составьте программу решения квадратного уравнения с использованием сложных условий.Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также...
Turbo Pascal 1 Nastya Ivanova 30.11.2012 13:12
Turbo Pascal Решение квадратного уравнения с процедурой нахождения дискриминанта в Pascal
Решение квадратного уравнения с процедурой нахождения дискриминанта в Pascal. Помогите пожалуйста!Заранее спасибо!)
Turbo Pascal 4 Рифатина 05.02.2012 17:53
Turbo Pascal корни квадратного уравнения
нужно создать программу,находящую корни квадратного уравнения вида: ax^2+bx+c=0 так же учесть случай,когда действительных корней нет. заранее спасибо за помощь
Turbo Pascal 3 аленаалена 14.11.2010 15:45
Turbo Pascal turbo Pascal: решение квадратного уравнения
вычислить значение корней квадратного уравнения x^2+px+q=0. помогите пожалуйста
Turbo Pascal 4 toxa91_08 30.10.2010 14:37
Опции темы

Текущее время: 05:36. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.