|
2 вопроса по паскалю, всего 2... |
|
|
|
 |
Ответов
|
Nov 18 2008, 09:31
|
Гуру
     
Группа: Свой
Сообщений: 3 123
Регистрация: 7-04-07
Из: Химки
Пользователь №: 26 847

|
Цитата(_Pasha @ Nov 17 2008, 14:47)  Так, что ли ? Код type Tbuffer= array[1..100] of integer; var work,index:integer; buffer: Tbuffer;
function tip(param1: integer; var param2: Tbuffer) begin tip := param2[lo(param1)] mod param1; (* хз чего сделали *) end;
(* THE MAIN PROGRAM *) BEGIN (*Заполнили случайными числами буфер сюда можно не смотреть*) randomize; for index := 1 to 100 do buffer[index]:=random(65535);
(* а сюда уже смотреть надо*) for index := 1 to 60000 do begin work := tip(index,buffer) writeln ('сделали еще ХЗ чего с индексом ',index, ' и оно равно ', work ); end; END. В последний раз на Pascal писал лет 20 назад, но все равно до сих пор помню, что тип значения, возвращаемого функцией, надо указывать: Код function tip(param1: integer; var param2: Tbuffer) : integer;
|
|
|
|
Сообщений в этой теме
_Ivan_33 2 вопроса по паскалю Nov 14 2008, 13:35 _Pasha Цитата(_Ivan_33 @ Nov 14 2008, 17:35) a:=... Nov 14 2008, 14:00 MrYuran Цитата(_Pasha @ Nov 14 2008, 17:00) Проце... Nov 14 2008, 14:09  _Pasha Цитата(MrYuran @ Nov 14 2008, 18:09) Как ... Nov 14 2008, 14:18   777777 Цитата(_Pasha @ Nov 14 2008, 17:18) Апядь... Nov 17 2008, 05:31    _Pasha Цитата(777777 @ Nov 17 2008, 09:31)
ппц.... Nov 17 2008, 06:18    AHTOXA Цитата(777777 @ Nov 17 2008, 11:31) Я, ко... Nov 17 2008, 06:20     777777 Цитата(AHTOXA @ Nov 17 2008, 09:20) Во, ч... Nov 17 2008, 07:50      AHTOXA Цитата(777777 @ Nov 17 2008, 13:50) Я отю... Nov 17 2008, 09:04 _Ivan_33 между 1000 и b[i] стоит умножение * Nov 15 2008, 15:55 _Pasha Цитата(_Ivan_33 @ Nov 15 2008, 19:55) меж... Nov 15 2008, 16:39 _Ivan_33 а у меня пишет type mismatch... лан, ломать над эт... Nov 15 2008, 19:09 _Pasha Цитата(_Ivan_33 @ Nov 15 2008, 23:09) а у... Nov 15 2008, 19:17 _Ivan_33 версия 7.1
по-моему я разобрался - здесь ошибок не... Nov 15 2008, 19:25 _Pasha Цитата(_Ivan_33 @ Nov 15 2008, 23:25) а к... Nov 15 2008, 20:13  AHTOXA Цитата(_Pasha @ Nov 16 2008, 02:13) Ниаси... Nov 15 2008, 20:45   _Pasha Цитата(AHTOXA @ Nov 16 2008, 00:45) (Не п... Nov 15 2008, 20:54    AHTOXA Цитата(_Pasha @ Nov 16 2008, 02:54) Понят... Nov 15 2008, 21:06 _Ivan_33 нет, как в других компиляторах в свойствах проекта... Nov 16 2008, 06:13   _Pasha Цитата(XVR @ Nov 18 2008, 13:31) до сих п... Nov 18 2008, 09:43 _Ivan_33 спасибо все работает
а еще вопрос - может ли функц... Nov 21 2008, 06:53 _Pasha Цитата(_Ivan_33 @ Nov 21 2008, 10:53) а е... Nov 21 2008, 07:18 _Ivan_33 гы, дошел до файлов...
у меня блокнот видит иерогл... Dec 9 2008, 19:48 _Pasha Цитата(_Ivan_33 @ Dec 9 2008, 23:48) у ме... Dec 11 2008, 12:32 _Ivan_33 СПАСИБО ВАМ ОГРОМНОЕ!!!! СДЕЛАЛ С ... Dec 11 2008, 19:46
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
|
|