AKB Forums

Go Back   AKB Forums > Technical sections > Algorithms
Home Register Blogs FAQ Members List Calendar Downloads Arcade Mark Forums Read

Algorithms The source of algorithms for your project

Troubles when posting message? Click here! :: Проблемы с отправлением сообщения? Нажмите сюда!

Reply
 
LinkBack Thread Tools Display Modes
Old Mar 11, 2002, 10:06   #1
Дошкольник
 
Join Date: Feb 2002
Location: erevan
Posts: 89
Rep Power: 0
Reputation: 10
Post Паскаль.

Кто знаком с Паскалём, пожалуйста , помогите!

Объявляю переменные
n: integer;
i: array[1..n] of integer;
Компилятор говорит, что n должно уже иметь значение, а оно должно образоваться по ходу дела.
Как представить n , чтоб он этого не говорил?
Спасибо.
__________________
Да.
end1 is offline   Reply With Quote Quote selected
Old Mar 11, 2002, 16:32   #2
Дошкольник
 
Join Date: Feb 2002
Location: arminko
Posts: 115
Rep Power: 7
Reputation: 10
Post

Ti doljen znachenie n V "const" abyavit', pered var-om. Tagda vsyo budet ok
__________________
Yesli ti ne koshka, to prajivi svayu edinstvennuyu jizn' tak, chtob tebe ne bilo muchitel'no bol'no za bezcel'no projitoe vremya............
Usamu_B.L. is offline   Reply With Quote Quote selected
Old Mar 17, 2002, 07:22   #3
Дошкольник
 
Join Date: Feb 2002
Location: erevan
Posts: 89
Rep Power: 0
Reputation: 10
Post

В том-то и дело , что значение n присваивается
потом.
__________________
Да.
end1 is offline   Reply With Quote Quote selected
Old Mar 18, 2002, 01:00   #4
Administrator
 
greka's Avatar
 
Join Date: Sep 2001
Location: @work
Posts: 5,337
Rep Power: 10
Reputation: 23
Send a message via ICQ to greka
Post

A bolee nikakix variantov - ispol'zuj dinamicheski vydeljajemuju pamjat'.
__________________
И повешенные могут качаться в неположенную сторону. /С.Е.Лец/
greka is offline   Reply With Quote Quote selected
Old Mar 19, 2002, 18:35   #5
Студент
 
Join Date: Jan 2002
Location: (premission denied!)
Posts: 347
Rep Power: 7
Reputation: 10
Post

Deystvitel'no, esli razmer vector-a neopredelen, edinstvennyy varian - ispol'zovat' ssylku na vector.

Regrads, Bupyc.
__________________
"...Сомнения стали страстью,
А страсть стала судьбой.
Все остальное - искуство,
В безумии быть собой..."
Bupyc is offline   Reply With Quote Quote selected
Old Mar 21, 2002, 00:25   #6
I'm an AIESECer ;)
 
Andromeda's Avatar
 
Join Date: Feb 2002
Location: tre metri sopra il cielo
Posts: 683
Blog Entries: 1
Rep Power: 7
Reputation: 65
Send a message via ICQ to Andromeda Send a message via MSN to Andromeda
Post

look, ti doljen napisat' k primeru:
const m=100; {m maximal'noe chislo, kotoroe kstati, mojet i uvelichivat'sya..}
type i:array[1..m] of integer;
a potom uje
--
--
write('n='): readln(n).............
{zdes' zadash' znachenie "n"}...
vot...
__________________
Andromeda is offline   Reply With Quote Quote selected
Old Mar 21, 2002, 00:34   #7
I'm an AIESECer ;)
 
Andromeda's Avatar
 
Join Date: Feb 2002
Location: tre metri sopra il cielo
Posts: 683
Blog Entries: 1
Rep Power: 7
Reputation: 65
Send a message via ICQ to Andromeda Send a message via MSN to Andromeda
Post

look, ti doljen napisat' k primeru:
const m=100; {m maximal'noe chislo, kotoroe kstati, mojet i uvelichivat'sya..}
type i:array[1..m] of integer;
a potom uje
--
--
write('n='): readln(n).............
{zdes' zadash' znachenie "n"}...
vot...
__________________
Andromeda is offline   Reply With Quote Quote selected
Old Mar 21, 2002, 04:11   #8
Консервативный Демагог
 
VX's Avatar
 
Join Date: Jan 2002
Location: Кавказская Албания
Posts: 889
Rep Power: 7
Reputation: 10
Post

..ili mojno vospol'zivatsa dynamiceki rastushim massivom)
Code:
 

   pntr = ^rec;
   rec  = record
      vec  : integer;
      link : pntr;
   end;
i potom dvigatsa...
__________________
Праздник к нам приходит...

|^^^^^^^^^'''^\| ||\__
| ВОДКА-ВОДКА | ||','''|'''''''\_____,_
| _..... _ | ||_ _|'__|_____||.........| |
'(@)'(@)'(@)''''''''''''''''''''''*|(@)""""|(@)*
VX is offline   Reply With Quote Quote selected
Old May 30, 2002, 23:11   #9
Guru Apprentice
 
Join Date: Feb 2002
Location: /dev/null
Posts: 520
Rep Power: 7
Reputation: 10
Send a message via ICQ to Ektich Send a message via Yahoo to Ektich
Post

To Andromeda: neelegantno, lishnaya pamyat zabiraetsa i nikogda ne ispolzuetsa

To VX: eto nazivaetsa cepochka (chain). Mozhno kak variant, tolko nado budet esche pisat proceduri izvlechenij i-egogo elementa, proceduri dobavlenia-udaleniya, a to u tebya posle vixoda programmi "nichya" pamyat ostanetsa.

Drugoj variant, ya eto delal let 5 nazad, a mne moj starshij tovarish i uchitel programmirovaniya podskazal. Poskolku delalos 5 let nazad - za sintaksis ne ruchajus, kto znaet pascal pust ispravit, rasskazivaju ideju.

Obyavlyaesh novij type kak pointer na samij bolshoj vozmozhnij massiv (tolko pointer! pamyat ne videlyaetsa).
Zatem v programme poluchiv znachenie dlya 'n' videlyaesh dinamicheski pamyat (v golovu lezet C-shnij ekvivalent malloc, v paskale kak-to po drugomu bilo, MemAlloc kazhetsa??)
"skolkzkoe" mesto - MemAlloc-u nado skazat skolko mesta videlyat. Podschitat prosto: n*sizeof(integer) naprimer. (SizeOf - ne pascal funkciya, pravda?)

Domashnee zadanie - nayti po knizhke pravilnie nazvaniya dlya funkcij.
__________________
\/\/h47'5 1n 4 n4m3? 7h47 wh1(h w3 (4|| 4 r053,
8y 4ny 07h3r n4m3 w0u|d 5m3|| 45 5w337...
Ektich is offline   Reply With Quote Quote selected
Old May 31, 2002, 07:59   #10
4294967296
 
Boyov's Avatar
 
Join Date: Mar 2002
Location: /proc/1
Posts: 378
Rep Power: 7
Reputation: 10
Post

Ya bi v etom sluchae zapixnul bi vse v kakoy nibud' failik i vse.
__________________
Free your mind and your OS will follow
Boyov is offline   Reply With Quote Quote selected
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT. The time now is 21:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
This board was founded on September 29, 2001
Powered by Viper Internet

Affordable Web Hosting | ParevNet

Buy text link