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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2015, 11:30   #1
ak.lexa1998
Новичок
Джуниор
 
Регистрация: 08.04.2015
Сообщений: 4
Сообщение программа для вычисления тангенсов выдаёт ошибку

Код:
var x, x1, i, s, tg:real;
function tg(sinx,cosx:real):real;
begin
  tg:=sinx/cosx;
end;

begin
for i:=1 to 10 do
begin
  x:=1;
  x1:=x;
  x:=sinx;
  x1:=cosx;
  s:=tg(x, x1);
  writeln (x, x1,s );
end.
ВЫДАЁТ ОШИБКУ

_____
код программы нужно форматировать тегами!
Модератор

Последний раз редактировалось Serge_Bliznykov; 08.04.2015 в 11:44.
ak.lexa1998 вне форума Ответить с цитированием
Старый 08.04.2015, 11:42   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
x:=sinx;
x1:=cosx;
Код:
x:=sin(x);
x1:=cos(x);
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.04.2015, 11:43   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

давайте угадаю...
выдаёт ошибку - "Дублирующийся идентификатор" ?

вот тут
Цитата:
Код:
var x, x1, i, s, tg:real;
Это неверно.

попробуйте так:
Код:
var
  x, x1, s : real;
  i : integer;
второе.
Цитата:
Код:
x:=sinx;
x1:=cosx;
нет таких переменных sinx, cosx
если нужно найти синус и косинус от X
тогда:
Код:
x:=sin(x);
x1:=cos(x);
но это всё чисто синтаксические ошибки.
думаю, что цикл у Вас неверно написан.
Вы какую задачу вообще решаете?!!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 08.04.2015, 11:44   #4
ak.lexa1998
Новичок
Джуниор
 
Регистрация: 08.04.2015
Сообщений: 4
По умолчанию

ошибка не в этом
ak.lexa1998 вне форума Ответить с цитированием
Старый 08.04.2015, 11:44   #5
ak.lexa1998
Новичок
Джуниор
 
Регистрация: 08.04.2015
Сообщений: 4
По умолчанию

Program1.pas(17,4): FOUND'.'EXPECTED';'
ak.lexa1998 вне форума Ответить с цитированием
Старый 08.04.2015, 11:46   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

посчитайте сколько begin и сколько end
вы же в начале цикла BEGIN написали, а END для него забыли.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 08.04.2015, 11:48   #7
ak.lexa1998
Новичок
Джуниор
 
Регистрация: 08.04.2015
Сообщений: 4
По умолчанию

var x, x1, i, s, tg:real;
function tg(sinx,cosx:real):real;
begin
tg:=sinx/cosx;
end;
begin
for i:=1 to 10 do
x:=1;
x1:=x;
x:=sin(x);
x1:=cos(x);
s:=tg(x, x1);
writeln (x, x1,s );
end.

Program1.pas(2,10): Имя функции используется для определения другого типа объекта (не функции)
ak.lexa1998 вне форума Ответить с цитированием
Старый 08.04.2015, 12:05   #8
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ak.lexa1998, пока Вы не научитесь читать ответы, бессмысленно задавать вопросы.

на эту ошибку смотрите ответ в пост #3 (у Ваc переменные описаны неверно)

а код Вы испортили. Выкинуть BEGIN в начале цикла было ОЧЕНЬ ПЛОХОЙ ИДЕЕЙ!
Верните его на место и добавьте в конце цикла END
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите найти ошибку - StrToFloat выдаёт ошибку EConvertError для ячеек StringGrid (Delphi) Artsiom Помощь студентам 10 18.12.2013 14:10
Программа с WebBrowser выдаёт ошибку paxan86 Общие вопросы Delphi 30 22.11.2011 20:37
Программа выдаёт ошибку, не пойму, как исправить. Яна Гришина Помощь студентам 14 06.08.2011 18:43
программа выдаёт ошибку brans Microsoft Office Excel 3 24.10.2010 13:55