|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.04.2015, 11:30 | #1 |
Новичок
Джуниор
Регистрация: 08.04.2015
Сообщений: 4
|
программа для вычисления тангенсов выдаёт ошибку
Код:
_____ код программы нужно форматировать тегами! Модератор Последний раз редактировалось Serge_Bliznykov; 08.04.2015 в 11:44. |
08.04.2015, 11:42 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Код:
I'm learning to live...
|
|
08.04.2015, 11:43 | #3 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
давайте угадаю...
выдаёт ошибку - "Дублирующийся идентификатор" ? вот тут Цитата:
попробуйте так: Код:
Цитата:
если нужно найти синус и косинус от X тогда: Код:
думаю, что цикл у Вас неверно написан. Вы какую задачу вообще решаете?!! |
||
08.04.2015, 11:44 | #4 |
Новичок
Джуниор
Регистрация: 08.04.2015
Сообщений: 4
|
ошибка не в этом
|
08.04.2015, 11:44 | #5 |
Новичок
Джуниор
Регистрация: 08.04.2015
Сообщений: 4
|
Program1.pas(17,4): FOUND'.'EXPECTED';'
|
08.04.2015, 11:46 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
посчитайте сколько begin и сколько end
вы же в начале цикла BEGIN написали, а END для него забыли. |
08.04.2015, 11:48 | #7 |
Новичок
Джуниор
Регистрация: 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): Имя функции используется для определения другого типа объекта (не функции) |
08.04.2015, 12:05 | #8 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ak.lexa1998, пока Вы не научитесь читать ответы, бессмысленно задавать вопросы.
на эту ошибку смотрите ответ в пост #3 (у Ваc переменные описаны неверно) а код Вы испортили. Выкинуть BEGIN в начале цикла было ОЧЕНЬ ПЛОХОЙ ИДЕЕЙ! Верните его на место и добавьте в конце цикла END |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите найти ошибку - 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 |