PDA

View Full Version : آرایه در ابعاد متغیر؟؟؟؟ آخه چطوری؟؟؟؟



Esi2260
پنج شنبه 31 خرداد 1386, 21:42 عصر
دوستان سلام

ببخشید که با وجود این همه زبانهای آنچنانی من یک همچین سئوالی میپرسم!
میخواستم بدونم برنامه ای مثل برنامه زیر رو که به زبان بیسیک است چطوری می شود در پاسکال تعریف کرد:

input row
input column
dim a(row,column)
for i=1 to row
for j=1 to column
a(i,j)=i*j
next j
next i
البته دوستان کلیت برنامه منظورم نیست!
منظور من اون تعریف آرایه است که در بیسیک می تونیم اول از کاربر تعداد سطر و ستون رو بگیریم و بعد آرایه رو تعریف کنیم! میخواستم بدونم این کار رو در پاسکال چطوری میشه انجام داد.

ممنون

SYNDROME
پنج شنبه 31 خرداد 1386, 21:46 عصر
با سلام
این را ببین.
http://barnamenevis.org/forum/showthread.php?t=40356&highlight=%C2%D1%C7%26%231740%3B%E5

Arman_1367
پنج شنبه 31 خرداد 1386, 21:59 عصر
اینو ببین:

var
A : array of array of string;
I, J : Integer;
begin
SetLength(A, 10);
for I := Low(A) to High(A) do
begin
SetLength(A[I], I);
for J := Low(A[I]) to High(A[I]) do
A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
end;
end;

prencessecho
پنج شنبه 31 خرداد 1386, 23:17 عصر
من تو پاسکل برا تعریف آرایه دینامیک اینتوری کار می کنم
(شرمنده من با فایر فاکس تو چپ به راست مشکل دارم)

type arr=array[1..100,1..100] of integer
parr=^arr

var myarr : parr
getmem(myarr,sizeof(integer)*n);

حالا احتمالا کافیه که به بعد خاصی که می خوای اختصاص فضا بدی همین !! امیدوارم منظورت رو درست فهمیده باشم و جواپ پرت نداده باشم