function F1(x:integer):integer; far; { <-- Исправлено } begin F1:=x+100; end;
function F2(x:integer;g:tF):integer; begin F2:=g(x)+1000; end;
begin WriteLn(F2(2,F1)); ReadLn end.
volvo
20.05.2006 17:15
lapp, тебя опять подводит FPC
Ты забыл Far, без этого в Турбо Паскале программа не скомпилируется
Lapp
20.05.2006 17:25
Цитата(volvo @ 20.05.2006 14:15)
lapp, тебя опять подводит FPC
sorry.. [слышится скрип мозгов] volvo, исправь, я уже клюю носом..
Гость
21.05.2006 4:20
Уточнить не могу,как в задании написанно так и написал.В принципе ответ lappa меня вполне устраивает(чтото такое мне когдато помогло с массивами), поэтому если он работает, то тему можно закрыть. Мне ещё советовали с помощью указателей, но в C++. А в паскале не знаю таких методов. Мож кто знает
volvo
21.05.2006 5:15
Гость, по приведенной ссылке, значит, тебе сходить лень... Ну, правильно. Чего себя утруждать. Там же читать надо, а тут глядишь и выложат все на блюдечке, чтобы ты сразу к трапезе приступил. Только смотри, чтобы ЗА ТЕБЯ и не съели...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.