Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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 Текстовые файлы. Решение квадратного уравнения
всем доброго времени помогите пожалуйста решить задачу. на завтра надо очень... Дано файл в котором каждая строчка содержит 3 числа разделенные пропуском - коэффициенты квадратного уравнения....
Turbo Pascal someone3452 03.03.2013 14:08
Turbo Pascal Решение квадратного уравнения ax2+bx+c=y
Написать программу решения квадратного уравнения ax2+bx+c=y.
Turbo Pascal Карамелька 13.01.2013 20:51
Python Решение квадратного уравнения
Помогите найти ошибку import math a = int(input("Введите значение a= ")) b = int(input("Введите значение b= ")) c = int(input("Введите значение c= ")) D = b ** 2 - 4 * a * c print(D) if D <...
Python tsar925 21.12.2012 04:59
Turbo Pascal Условные переходы. Решение квадратного уравнения.
Составьте программу решения квадратного уравнения с использованием сложных условий.Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также...
Turbo Pascal Nastya Ivanova 30.11.2012 13:12
C# Решение квадратного уравнения
Помогите!!! Очень нужна помощь!!! Нужно разработать класс Квадратное уравнение, т.е. Ax2+bx+c. Коэффициенты уравнения следует хранить как атрибуты класса. Предусмотреть методы: 1. Установить...
C# для начинающих byajka 27.11.2012 16:21
Turbo Pascal turbo Pascal: решение квадратного уравнения
вычислить значение корней квадратного уравнения x^2+px+q=0. помогите пожалуйста
Turbo Pascal toxa91_08 30.10.2010 14:37
C++ Решение квадратного уравнения
Вообщем задание. Написать программу для решения квадратного уравнения, где инкапсулированный метод вычисления х1 и х2... Я вот написал программу...но ошибок выдаёт море!((( писать надо через...
С++ для начинающих LuBu 24.03.2010 19:22
Опции темы

Текущее время: 12:00. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.