Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2010, 22:35   #1
#Sharp#
 
Регистрация: 21.12.2010
Сообщений: 3
По умолчанию Найдите ошибку

Код:
program sqrt;
 var
 a,b,c,d,x,x1 : Real;

       begin
            readLn(a,b,c);
            if a<>0 then
            begin
            d := b*b -(4*a*c);
            if d<0 then
            begin
            WriteLn('No');
            end
            else
                begin
                if d=0  then
                begin
                x:= -b/2*a;
                WriteLn('x1= ', x)
                end
                else
                begin
                 x := (-b + sqrt(d)) (2*a);
                 x1 := (-b- sqrt(d))/ 2*a;
                 WriteLn('x1= ',x);
                 Write('x2= ', x1);
                 end
                end
            end;
            read(x);
       end.
Оформляем код правильно!

Последний раз редактировалось alex_fcsm; 23.12.2010 в 00:23.
#Sharp# вне форума Ответить с цитированием
Старый 22.12.2010, 22:43   #2
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,762
По умолчанию

Это квест такой? "Догадайтесь что должна делать моя программа, потом найдите где она делает не так, и сообщите мне" Так чтоли?
Скажите сначала чего хотите добится, и где не получается.

PS Код оформляется тегом [code] значок # (в правке к сожалению пока не доступен, но доступен при наборе или в расширеном режиме (жмёте правка, затем ниже сообщения "расширенный режим", затем выделяете код и жмёте значок # на панелке над сообщением))

Последний раз редактировалось vovk; 22.12.2010 в 22:49.
vovk вне форума Ответить с цитированием
Старый 22.12.2010, 22:52   #3
#Sharp#
 
Регистрация: 21.12.2010
Сообщений: 3
По умолчанию

программа для поиска корней квадратного уравнения
при компиляции выходит ощибка с сообщением: Предологаеться "."
вот в этой строчке:
Код:
x := (-b + sqrt(d)) /(2*a);

Последний раз редактировалось #Sharp#; 22.12.2010 в 23:08.
#Sharp# вне форума Ответить с цитированием
Старый 22.12.2010, 23:26   #4
Ghost of Night
Форумчанин
 
Аватар для Ghost of Night
 
Регистрация: 08.08.2010
Сообщений: 371
По умолчанию

Цитата:
Код:
x := (-b + sqrt(d)) (2*a);
ничего не замечаете? а знак деления??

и ещё
Цитата:
Код:
Write('x2= ', x1);
end //здесь нужно ";"
end //и здесь нужно ";"
end;
read(x);  //и зачем эта строчка?
end.
Хакинг - не преступление, а способ выживания.
Ghost of Night вне форума Ответить с цитированием
Старый 22.12.2010, 23:59   #5
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,762
По умолчанию

По моему паскаль просто не знает функции sqrt,
2Ghost of Night
Код:
x := (-b + sqrt(d)) (2*a);//это да чегото не хватает
,
Цитата:
Код:
Write('x2= ', x1);
end //здесь нужно ";" //не обязательно 
end //и здесь нужно ";" //не обязательно
end;
read(x);  //и зачем эта строчка? //'это просто чтоб программма не завершась, посмотреть вывод, хотя хватило бы и просто readln
end.
vovk вне форума Ответить с цитированием
Старый 23.12.2010, 09:54   #6
#Sharp#
 
Регистрация: 21.12.2010
Сообщений: 3
По умолчанию

Цитата:
Сообщение от vovk Посмотреть сообщение
По моему паскаль просто не знает функции sqrt
а какую тогда функцию использовать для получения квадратного корня из числа?
#Sharp# вне форума Ответить с цитированием
Старый 23.12.2010, 10:30   #7
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,762
По умолчанию

Я неправильно выразился, не незнает функцию, а не понимает что вы хотите применить именно ФУНКЦИЮ, поосторожнее в названия и именах переменных с зарезервированными словами, в общем просто переименуйте программу,
Код:
program my_sqrt;

Последний раз редактировалось vovk; 23.12.2010 в 11:05.
vovk вне форума Ответить с цитированием
Старый 23.12.2010, 14:35   #8
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Цитата:
program sqrt;
убери.Ну и дальше косяки исправляй
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найдите ошибку dyusha2006 Помощь студентам 7 23.11.2010 16:48
Найдите ошибку MaJlbBuHa Паскаль, Turbo Pascal, PascalABC.NET 2 20.10.2009 23:26
Найдите ошибку! geniy JavaScript, Ajax 4 04.12.2007 16:22