DemBel D DemBel Регистрация 19 Авг 2013 Сообщения 81 Репутация -3 Спасибо 0 Монет 0 25 Фев 2025 #1 что делать если выдает эт ошибку, проверено 1000 раз, запись правильная
dydarevskiy D dydarevskiy Регистрация 26 Ноя 2013 Сообщения 89 Репутация 0 Спасибо 0 Монет 0 25 Фев 2025 #2 Как я понял, у вас программа идет так: 1) функция 2) основная программа 3) функция В Паскале так нельзя. Все процедуры и функции должны идти выше основной программы. Примерно так: var a, b, c: integer; procedure calculyator(x, y: integer; var z: integer); begin ... end; function n2(a, b: real): real; var x, y: real; begin ... end; {Основная программа} begin ... end. Заметьте: end с точкой идет только один раз - в конце основной программы.
Как я понял, у вас программа идет так: 1) функция 2) основная программа 3) функция В Паскале так нельзя. Все процедуры и функции должны идти выше основной программы. Примерно так: var a, b, c: integer; procedure calculyator(x, y: integer; var z: integer); begin ... end; function n2(a, b: real): real; var x, y: real; begin ... end; {Основная программа} begin ... end. Заметьте: end с точкой идет только один раз - в конце основной программы.
cthtuf C cthtuf Регистрация 14 Дек 2013 Сообщения 84 Репутация 0 Спасибо 0 Монет 0 25 Фев 2025 #3 Вумен
ввллаадд В ввллаадд Регистрация 7 Июн 2013 Сообщения 70 Репутация 0 Спасибо 0 Монет 0 25 Фев 2025 #4 точку с запятой поставь где end
Муха М Муха Регистрация 22 Дек 2013 Сообщения 118 Репутация 0 Спасибо 0 Монет 0 25 Фев 2025 #5 турбо паскал