PDA

نسخه کامل مشاهده نسخه کامل : تمامی‌ مباحث و سوالات زبان پاسکال Pascal


Nesta
02-08-2005, 17:50
تمامی‌ مباحث و سوالات زبان پاسکال Pascal
دوستان این تاپیک هم ایجاد شد که دیگه مسائل در اینجا پیگیری بشه و دیگه پراکنده نشه .به درخواست خیلی‌ از دوستان.
:wink:
Reynard
17-09-2005, 18:23
يعني اينجا پاسكال رو مي شه اموزش داد
Nesta
18-09-2005, 01:50
سلام دوست عزیز آموزش پاسکال و همچنین مقایسه سی‌ با پاسکال توسط اینجانب قبلا توسط اینجانب گذاشته شده و شما جستجو کنید آموزش های خوبی‌ هست .البته برای شروع .
متشکر از شما.
Reynard
19-09-2005, 15:00
پس اينجا براي چيه
Nesta
19-09-2005, 16:01
سلام دوست عزیز اینجا برای همین هست ولی‌ اوایل کار من آموزش پاسکال رو جای دیگه گذشتم چون که این تاپیک هنوز باز نشده بود و گر نه اینجا برای آموزش و پرسش و پاسخ سوال های مربوط به پاسکال هست .
gharibeh_65
30-09-2005, 16:47
پس آموزش كجاست؟؟؟؟؟؟؟؟؟؟؟؟/
Nesta
30-09-2005, 19:25
سلام دوست عزیز .
ورود شما رو تبریک میگیم .
و شما باید بگردید اینجا نیست اینجا فقط سوال و جواب هست .
متشکر
narvan
02-10-2005, 17:02
سلام دوست عزيز
من عضو جديد اين انجمن هستم.اميدوارم به ياري شما بتوانم مشكلم را برطرف كنم .من از شما دوست عزيز مي خواهم مرا
دراموزش و دادن اطلا عات درباره برنامه نويسي پاسكال ياري بفر ماييد.
saman_uv
02-10-2005, 23:12
سلام قبل از اموزشات اموزشهایی که نستا داده رو گیر بیار بخون چیزای تکراری نگی
خیلی ممنون
Nesta
03-10-2005, 03:47
سلام البته سامان جان منظورش آقای gharibeh_65 هست .نه آقای narvan احتمالا .
آقای narvan شما شروع کن با اموزش ها ما کمکت می‌کنیم .
narvan
03-10-2005, 10:54
سلام خيلي ممنون از اين كه به پيغام من پاسخ داديد.مشكلي كه من دارم اينه ...
من ديپلم نقشه كشي با كاربري كامپيوتر هستم و درسهايي كه من خوانده ام با آنهايي كه بايد براي كنكور بخوانم فرق مي كند
به خواطر همين دچار مشكل شده ام .در صورتي كه من كتاب پاسكال درجه 1و2 را هم تهيه كرده ام ولي چون فهميدن بيسيك
برايم مشكل بود فكر مي كنم ياد گرفتن پاسكال هم سخت است.در ضمن من وقت كمي براي خواندن دارم .
Nesta
03-10-2005, 16:23
سلام دوست عزیز .
کنکور شما تمام شد .باید کاردانی‌ شرکت میکردین.که تمام شد.
در مورد پاسکال هم باید بگم که سخت نیست از بیسیک خیلی‌ راحت تر هست .فقط باید از اول خوب بخونین تا در قسمت procedure or functions ها به مشگل بر نخردید .شما اموزش های پاسکال که در این انجمن هست که باید جستجو کنید و دانلد کنین رو گیر بیارید بد شروع به خوندن کنید و یا یک کتاب آموزشی‌ خوب .برنامه turbo pascal 7.0 هم نصب کنید و کار کنید .بدن به مشگلی‌ بر خورد کردین کمکتون می‌کنیم.
narvan
04-10-2005, 10:15
:) سلام nesta جان
باز هم ممنون.من آموزش پاسكال را براي كنكور سال آينده مي خواستم .آن آموزشهايي كه گفتيد رو پيدا كردم و به گفتي شما
شروع به خواندن مي كنم و اگر با مشكلي برخوردم با شما در مي يان ميگذارم.
Nesta
04-10-2005, 16:31
سلام دوست عزیز .
خواهش می‌کنم و لطف دارید .
شما ابتدا بخش متغیر ها و ثابت ها رو خوب بخوانین که مهم هست مثل real-var-boolean-string-longint-integer-byte-shortint...
و مهدوده آنها رو نیز حفظ کنید که مثلا integer چه ارقامی‌ دارش میتونه جای بگیره .
sAsAn.K
04-10-2005, 21:51
آقایون من یه برنامه نوشتم که a,b,c,d رو میگیره و روی صفحه به صورت بزرگ چاپشون میکنه
یعنی مثلا اگه a رو گرفت به صورت ستاره هایی که در کنار هم دیگه یک a رو درست می کنن نشون میده(با procedure نوشتم)
میخوام ببینم چه طوری میشه یه کاری کرد که برنامه به طور نا محدود A,B,C,D رو بگیره و همین جوری نمایش بده ضمنا اگر دو بار پشت سر هم یک حرف رو وارد کردیم روی هم دیگه چاپ نکنه جدا جدا چاپ کنه
ضمنا جلو جلوی هم چاپ کنه ممنون;)
تا یادم نرفته متغیرم x هست که a,b,c,d رو میگیره و با دستور case x of نوشتم
Nesta
04-10-2005, 22:34
سلام آقا من درست متوجه نشدم که مثل ستاره منظور چیست ؟
اگه مثلا شما a میزانید و به صورت A می‌شه که اونطوری متوجه میشم .
اگه بطور نمحدود می‌خواهید حالا هر طوری که مد نظرتون هست شما از حلقه بی‌ پایان باید استفاده کنید مثلا :
while do begin
..
..
end;
or
repeat
...
until ...;
ولی‌ اینطوری دیگه حلقه همش اجرا می‌شه و یک مشگل پیدا می‌کنه اونم این هست که دیگه اصلا نمیتونی‌ برنامه رو نگاه داری و فقت فقط باید بعبعندی برنامه رو راه این هست که دارو حلقه بی‌ پایان که تعریف میکنی‌ یک شرطی‌ بگذاری
که اینطوری هست مثلا
if #13=A then halt (or break);
یعنی‌ درون حلقه شما باید متقیری رو درون حلقه بگذاری .با این خط میگی‌ که اگه اون مساوی enter یعنی‌ enter زده شد از برنامه یا کلا بید بیرون halt یا این که از حلقه بید بیرون break کنه .
#13===enter
#27=ESC
اینا کد های اسکی‌ هست که موقع برنامه نویسی‌ به کار و کمک میاد که اگه مثلا حلقه بی‌ پایان باشه یا متناوب باشه میگی‌ اگه مثلا escape یا enter زده بشه یک سری کار انجام بده .
برای جدا جدا چاپ کردن هم باید یک wirteln خالی‌ رد کنی‌ که یه خط بره پائین اگه می‌خوای یه کمی‌ انور تر بره چاپ کنه که write(A):10; اینطوری میزانی‌ 10 ستون اون ور تر میره .
اگه با دستور case نوشتی‌ شما begin بذار و این کار ها رو انجام بده
narvan
05-10-2005, 09:55
:) سلام دوست عزيزم
ممنون از اينكه من را راهنماي ميكنيد. خواهشي از شما دارم اينه يك كتاب خوب به من معرفي كنيد كه تمامي مباحص را كامل
توضيح داده باشه.واينكه خوشحال هستم با دوست خوبي مثل شماآشنا شدم و اميدوارم كه اين ارتباط ادامه داشته باشد.
Nesta
05-10-2005, 14:34
سلام دوست عزیز سپاسگزار از لطف شما.
کتاب های بسیاری هست که برای شروع کتاب جعفر نژاد قمی‌ و کتاب کافمن و محمد عادلینیا .
کتاب های خوبی‌ هست اینا حالا شما موقع خرید اینا رو نگاه کنید و ببینین که کدوم رو میپسندین از نظر محتوا.
sAsAn.K
05-10-2005, 17:09
نستا جون منظورم از ستاره اینجوریه مثلا A :
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
sAsAn.K
05-10-2005, 17:17
برای اینکه هر حرف رو هم اینجوری بنویسه برای هر 4 حرف A,B,C,D یه procedure نوشتم مثلا:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Nesta
06-10-2005, 00:47
سلام دوست عزیزی که عاشق flashget هستی‌ .
من منظور شما رو از ستاره هنوز نفهمیدم A: ??
اگه امکان داره در مورد ستاره کمی‌ بیشتر توضیح بدین ممنون میشم.
narvan
06-10-2005, 10:29
سلام, مي خواستم بپرسم كه كتاب فرامرز تقي نژادچه طور است.چون بچه هاي كامپيوتر اين كتاب را خوانده اند
مي خواستم بدونم اين كتاب چه طوريه .با تشكر.
narvan
06-10-2005, 10:41
سلام دوست عزيز
ممنون از معرفي كتاب ها فقط اينكه مي خواستم بدونم كتاب فرامرز تقي نژاد چه طور است چون بچه هاي كامپيوتر اين كتابرا
مي خواندن. آيا اين كتاب كامله يا آنهايي كه شما گفتيد.ببخشید که پیغامم دوتا تایپ شده شرمنده اتفاقی پیش
اومد من هم پاک کردنش رو بلد نبودم.
sAsAn.K
06-10-2005, 16:44
نستا جون قهریییییییییییییییییییییی ییییییییییییییییییییییییی ییییی
بابا بیا و آشتی کن!!!!!!!
منظورم از ستاره ها اینه که گفتم دیگه مگه صفحه ی قبل عکس ها رو ندیدی leechget جون!!!!!!!
ببین حالا ستاره نه کاراکتر Alt + 178 که یه کاراکتر نیمه پر رو یه جوری با writeln مینویسیشون که مثل A بشن
نستا جون مجبور شدم بنویسم آپلود کنم یه قسمت از برنامه رو:

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Nesta
08-10-2005, 04:05
سلام دوست عزیز .حالا فهمیدم اینا می‌شه کد های اسکی‌ در اصل که شما اگه مثلا این ها رو ترکیب کنی‌ اشکال عجیب غریبی‌ بهت میده .اینا رو اصول هست که باید یک کتاب مرجع جلوت باشه که آخرش ضمیمه داره و کاملا این کد ها رو نوشته که چه شکل هائی‌ داره و چطوری میتونی‌ ازشون استفاده کنی‌ یا کجا به درد میخوره .
در مورد سوال اون دوستم هم باید بگم که من همچین کتابی‌ دقیق نمیدونم .ولی‌ خوب ها و گفتنی‌ ها رو من گفتم .اگه دوست های شما میگن خوب بوده .شما هم امتحان کنین .
sAsAn.K
08-10-2005, 07:46
نستا جون شکل ها رو خودم آماده کردم;)
میخوام ببینم توی برنامه چه جوری میشه مثلا A رو بزنی بعد A رو به همون شکلی که گفتم چاپ کنه بعد که چاپ کرد دوباره سوال کنه که یک حرف رو وارد کنید تا بنویسه به همون شکل البته!
ضمنا حرفها رو جلوی هم بنویسه:)
Nesta
08-10-2005, 16:57
سلام .
شما می‌خواهید که مثلا A رو زدید رو صفحه نمایش اونطوری نشان بده .
شما اگه کتاب داشته باشید داخل اون هست .من دقیق فرمان رو نمیدونم ولی‌ احتمالا
CHR(67)====A
حرف C در کد ASCII می‌شه CHR(ord(ch))
یکی‌ دیگه هم بود که متاسفانه یادم نیست .شما در کتاب اگه اینجا ها رو پیدا کنی‌ CHR حتما پیدا میکنی‌.
sAsAn.K
08-10-2005, 23:57
مرسی نستا جون:)
Nesta
09-10-2005, 22:01
سلام یک تابع دیگه هم هست پیدا کردم .یعنی‌ یادم رفته بود چون این توابع زیاد خوب کاربرد نداره .
ASC('a')
این کد های اسکی‌ رو بر میگردونه یا بر عکس .
sAsAn.K
10-10-2005, 22:23
دیگه بیشتر دستت درد نکه نستا جون:)
Nesta
11-10-2005, 14:04
سلام خواهش می کنم.وظیفه هست.
sajad_h
11-10-2005, 19:13
سلام دوستان عزيز به خصوص nesta
من یه مشکلی دارم هر کی تونست حل کنه ممنونش میشم
sajad_iloveyou@yahoo.com
یه برنامه بنویسه تو پاسکال بنویسه که ضرب دو ماتریس 3×3 رو حساب کنه
دستوت درد نکنه
در ضمن یونیکس به من گفت که به آقا نستا بگم
خاهشا اگه میشه تا فردا آماده بشه
Nesta
12-10-2005, 06:04
سلام دوستان عزيز به خصوص nesta
من یه مشکلی دارم هر کی تونست حل کنه ممنونش میشم
sajad_iloveyou@yahoo.com
یه برنامه بنویسه تو پاسکال بنویسه که ضرب دو ماتریس 3×3 رو حساب کنه
دستوت درد نکنه
در ضمن یونیکس به من گفت که به آقا نستا بگم
خاهشا اگه میشه تا فردا آماده بشه
سلام دوست عزیز .
از لطف شما و یونیکس جان سپاسگزارم ولی‌ عزیز برنامه می‌خوای به این سرعت که نمی‌شه .باور نمیکنی‌ اگه بگم جدول ماتریکس یادم رفته .ولی‌ اگه منظور شما ساختار یا ساختمان داده ها یا الگوریتم هست اونو می‌تونم .ولی‌ خود برنامه برای اجرا رو من والا اصلا پاسکال رو سیستمم نصب نیست مدتهاست .متشکر از شما .
sharifnia
28-10-2005, 16:08
سلام نستا جان . من توي سايت اسم شما رو زياد ديدم و به خاطر فعال بودنت ازت تشكر ميكنم.
من نياز به Quick Sort (مرتب سازي سريع) با كد پاسكال دارم
اگه داري يا بلدين لطفا كمك كنيد
((( ميتونم بپرسم خداحافظي نستا چه مفهومي داره؟ يعني ميخاين برين؟)))
hedi
06-11-2005, 14:33
با عرض سلام خدمت دوستان
اگر كسي در خصوص با ليست هاي پيوندي سررشته داره يا كاركرده كمك كنه
رويه اي بنويسيد كه در ليست پيوندي خطي يكطرفه تعداد گره ها را مشخص و چاپ نمايد و سپس عنصر وسط را حذف نمايد
حذف عنصر وسط به اين صورت است كه اگر تعداد گره هاي ما اگر 7 تا بود 4مين گره را حذف كند واگر 8 تا گره بود 5 گره را حذف كند.
خيلي نياز دارم و تشكر
احمد یاراد
01-12-2005, 14:46
با سلام و تشكر از اساتيد محترم
بنده در راستاي ياد گيري كتاب راهنماي جامع برنامه نويسي پاسكال نوشته مهرداد اسماعيلي به قسمت گرافيك رسيدم اما نميدانم چرا تابع ها و پروسيجرهاي گرافيكي اجرا نمي شن گفتم شايد اجراي توربو تحت ويندوز مشكل را ايجاد كرده و به فكر نصب داس افتادم اما در داس هم اين مشكل را دارم تنها چيزي كه مي توانم بگويم اين است كه توربو پاسكال error 200 را ميدهد
به مضمون division by zero و حتي پروسيجر sound هم با همين error ظاهر ميشود
با تشكر احمد
R£ɀД
03-12-2005, 12:29
sharifnia جان تازه پستت رو ديدم براي همين هست كه دير دارم جوابت رو ميدم .
اميدوارم به دردت بخوره:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
R£ɀД
03-12-2005, 12:42
hedi جان اينم براي شما:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

در ضمن متغير i رو بايد در قسمت اصلي برنامه از نوع integer تعريف كني ( بايد متغيير سراسري باشه ).
Mehran NZ
09-10-2006, 05:58
اقا من هین امروز پاسکال رو شروع کردم یه برنامه هم نوشتم ولی وقتی فایل اجرایی درست میکنم پیام زیر رو میده
runtime error 105 at 0001:0032
لطفا کمک کنید
در ضمن اگه کتاب پاسکال فارسی هم دارید لطفا لینکش رو بزارید ممنون میشم
concord
21-10-2006, 09:33
با سلام و عرض خسته نباشید به تمامی دوستان و برنا مه نویسان محترم - می خواستم اگر ممکنه منو برای نوشتن یه ماشین حساب به زبان پاسکال راهنمایی کنین-پیشاپیش از راهنمایی شما سپاسگذارم
mlove
10-01-2007, 12:03
لطفا بازی ox در پاسکال را بنویسید لطفا با توابع
omid_matrix3
11-01-2007, 02:25
برنامه زیر رو در نظر بگیرید
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

حالا چجوری میتونم تعریف کنم که از صفحه خارج نشه میبینید که اگه فرضا کلید بالا را ادامه بدینم از مختصات خارج می شه
با تشکر از راهنمایی شما
mehre7
04-02-2007, 00:55
سلام به همه دوستان
من دارم برنامه کتاب خونه رو تو پاسکال می نویسم اماگرافیک رو بلد نیستم.
اگه کسی پروسیجر آماده در این مورد داره اونو بزاره.
راستی اگه کسی می تونه در موردخود این برنامه منو کمک کنه خیلی ممنون میشم.;)
Dj.Bobo
14-07-2008, 14:58
با سلام خدمت دوستان و اساتيد محترم
من يه پروژ مربو به دفترچ تلن رو نوستم متاسفانه در قسمت اصلي برنامه با پيفام Error 2: File Not Found برخورد ميکنم. از اساتيد خواهش ميکنم هر چه زودتر منو راهنمايي کنند!
لازم به ذکر است که برنامه از چند تابع و پروسيجر تشکيل شده و قسمت MAIN شامل دستورات زير است:


{********************<< MAIN >>********************}
begin
textbackground (0);
clrscr;
items[1] := 'Insert';
items[2] := 'Delete';
items[3] := 'Edit';
items[4] := 'Search';
items[5] := 'Change Color';
items[6] := 'Exit';
comments [1] := 'Insert New Record.';
comments [2] := 'Delete Record.';
comments [3] := 'Edit Record.';
comments [4] := 'Search Record.';
comments [5] := 'Change Menu Color.';
comments [6] := 'Exit.';
pcolor := 5;
pbcolor:= 7;
phlcolor:= 2;
assign (f2,'Tel.bak');
if fsearch ('tel.bal',getenv ('c:\')) <> ' ' then
erase (f2);
assign (f,'Tel.dat');
if fsearch ('Tel.dat',getenv('c:\')) = ' ' then
rewrite (f);
rename (f,'Tel.bak');
assign (f,'Tel.dat');
rewrite (f);
rename (f2,'Tel.bak');
if fsearch ('Tel.bak',getenv('c:\')) = ' ' then
rewrite (f2)
else
reset (f2);
for i:=0 to filesize (f2)-1 do
begin
read (f2,info);
if info.deleted=false then
write (f,info);
end;
while true do
begin
case popup (25,10,pbcolor,1,items,comments,pcolor,phlcolor,1) of
1 : insert;
2 : delete;
3 : updating;
4 : searching;
5 : changecolor;
6,0 : break;
end;
end;
assign (f2,'Tel.bak');
if fsearch ('Tel.bak',getenv('c:\')) = ' ' then
erase (f2);
close (f);
textbackground (0);
clrscr;
end.
helia_20032003
04-01-2009, 18:21
سلام دوستان کسی هست به من کمک کنه؟
من برنامه ماتریس n*n به زبان پاسکال می خوام
م.زارع
05-01-2009, 10:13
سلام دوستان.
من دستورات(قالب) bnf زبان پاسكال رو مي خوام.
كسي مي تونه كمك كنه؟
IrIsmaili
18-01-2009, 23:11
با سلام
پروژه پايان ترم پاسكال
ممنون ميشم كمكم كنين

برنامه بنويسيد كه يك جدول n*n در نظر بگيرد كه اعداد يك تا n را در جدول طوري قرار دهد كه در هر سطر و ستون اعداد يك تا n قرار گرفته و غير تكراري باشد.(حداقل 6*6)
(جواب با ارايه ها و پروسجر و ....)

با تشكر
Farshadd
07-03-2009, 22:34
سلام.


چرا من نمیتونم از دستور clrscr استفاده کنم؟؟ بعد از نوشتن کد یه لحظه برنامه اجرا میشه و بعد ارور میده. کدش رو این جوری مینویسم:


;...program
;uses crt
var
;...
begin
;clrscr
;....
.end
YBB
07-03-2009, 23:25
سلام دوستان کسی هست به من کمک کنه؟
من برنامه ماتریس n*n به زبان پاسکال می خوام

مثلا برنامت می خواد با ماتریسه چی کار کنه؟
ayshin
08-03-2009, 00:03
سلام.


چرا من نمیتونم از دستور clrscr استفاده کنم؟؟ بعد از نوشتن کد یه لحظه برنامه اجرا میشه و بعد ارور میده. کدش رو این جوری مینویسم:


;...program
;uses crt
var
;...
Begin
;clrscr
;....
.end


چه اروری می ده؟
K A R I M I
08-03-2009, 00:15
سلام.


چرا من نمیتونم از دستور clrscr استفاده کنم؟؟ بعد از نوشتن کد یه لحظه برنامه اجرا میشه و بعد ارور میده. کدش رو این جوری مینویسم:


;...program
;uses crt
var
;...
Begin
;clrscr
;....
.end
شما این فایل رو دانلود کنید و پس از اکسترکت در پوشه tp\units کپی کنید ، حالا بدین ترتیب کد نویسی کنید :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
Farshadd
19-03-2009, 00:17
شما این فایل رو دانلود کنید و پس از اکسترکت در پوشه tp\units کپی کنید ، حالا بدین ترتیب کد نویسی کنید :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

سلام.

دستتون درد نکنه.

ولی درست و اصلش همونیه که توی پست قبل گفتم.
در واقع باید اونجوری بنویسیم... راهی هست؟؟
vahidpage
30-05-2009, 18:10
کمک خیلی فوری

یه برنامه تو پاسکال بنویسيد که ضرب دو ماتریس 7*7 رو حساب کنه

خواهشا از مهندسین عزیز میخوام کمک کنین
mojtaba-design
31-05-2009, 04:34
راستش حال کد گذاشتن ندارم اما روش رو میگم .
دو تا آرایه 7*7 تعریف کن.
دو مرتبه از حلقه for تو در تو برای پر کردن آرایه ها استفاده کن.
بعدش هم که با توجه به فرمول محاسبه ، حسابش کن.
یک دونه قبلا نوشته ماله 2*2

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
می تونه راحت این کد رو به هر ماتریسی تبدیل کنی با عوض کردن مقدار های قسمت const توجه کن که r مخخف row هست یعنی ردیف و c هم مخفف column به معنی ستون.1و2 همم برای ماتریس اول و دوم
:11: تفدیم شما !
mojtaba-design
31-05-2009, 04:35
دو تا آرایه 7*7 تعریف کن.
دو مرتبه از حلقه for تو در تو برای پر کردن آرایه ها استفاده کن.
بعدش هم که با توجه به فرمول محاسبه ، حسابش کن.
یک دونه قبلا نوشته ماله ماتریس 2*2:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
می تونه راحت این کد رو به هر ماتریسی تبدیل کنی با عوض کردن مقدار های قسمت const توجه کن که r مخخف row هست یعنی ردیف و c هم مخفف column به معنی ستون.1و2 همم برای ماتریس اول و دوم+ یک خوذد دست کاری تو شکل دستورات write
:11: تفدیم شما !
vahidpage
31-05-2009, 17:48
راستش حال کد گذاشتن ندارم اما روش رو میگم .
دو تا آرایه 7*7 تعریف کن.
دو مرتبه از حلقه for تو در تو برای پر کردن آرایه ها استفاده کن.
بعدش هم که با توجه به فرمول محاسبه ، حسابش کن.
یک دونه قبلا نوشته ماله 2*2

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
می تونه راحت این کد رو به هر ماتریسی تبدیل کنی با عوض کردن مقدار های قسمت const توجه کن که r مخخف row هست یعنی ردیف و c هم مخفف column به معنی ستون.1و2 همم برای ماتریس اول و دوم
:11: تفدیم شما !



















سلام
دوست عزیز
خیلی ممنون به خاطر پاسخ سریع !
vahidpage
03-06-2009, 10:48
یک سوال ( پروژه ) برای زبان پاسکال
خواهشا کمک کنین

برنامه ای بنویسید که ماتریس A7*7را زا ورودی دریافت کند و آن را

مطابق شکل زیر


[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]


به صورت مار پیچی مورد پیمایش قرار داده و

محتویات آن را در خانه های 1 تا 49 بردار B قرار دهد و بردار B را

در خروجی چاپ کند
picher_s
03-06-2009, 12:01
سلام

این الگوریتم خوندنت از ماتریسه.

خودت زحمت بقیه جاهاش رو بکش.

L یه شمارنده و n تعداد سطر های ماتریسه شماست.



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

موفق باشی.:31:
vahidpage
04-06-2009, 16:02
لطفا یه کم بیشتر توضیح بده

تا شنبه نیاز دارم
mojtaba-design
05-06-2009, 06:31
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

لطفا یه کم بیشتر توضیح بده
ببین دوست من ، از اونجایی که ماتریس دو بعد دارد ، بنابرابن برای دسترسی به عناصر اش نیازمند دو اندیش هستیم مثلا اولین عنصر دارای اندیس (1.1) است ، برای اینکه ماتریس مورد پیمایش قرار گیرد از حلقه for تودرتو استفاده میشود ،بدین ترتیب درون حلفه ما میتوانیم اندیس ها به صورت متوالی و صعودی داشته باشیم ، و داشتن اندیس= پیمایش ماتریس.
متوجه شدید دوست عزیز.
mohammad.clergyman
04-09-2009, 12:20
بست اشتباه!!
mohammad.clergyman
04-09-2009, 12:24
سلام من میخوام در باسکال با دستور while یا for ستاره ها را به این صورت چاب کنم



لطفا راهنمایی کنید




*******
******
*****
****
***
**
*
**
***
****
*****
******
*******
romixery
04-09-2009, 18:22
سلام
با كنسول دلفي نوشتمش. ولي نبايد توي پاسكال مشكلي داشته باشه.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
mohammadtari
15-12-2009, 21:27
کسی می دونه چطور می شه تعداد خطوط یک فایل txt رو با پاسکال چاپ کرد؟
istgahin
15-09-2016, 19:07
سلام
دوستان و اساتید محترم
یه سوال دارم - ممنون میشم کمکم کنید و برنامه پاسکالشو برام بمویسید

8 بازی قراره انجام بشه بین 16 تیم
تیم 1 و 2
تیم 3و4
تیم 5و6
..
..
تیم 15و16

وقتی تیم 1و2 باری میکنند یا برد تیم 1 نتیجشه یا مساوی یا برد تیم 2
وقتی تیم 3و4 باری میکنند یا برد تیم 3 نتیجشه یا مساوی یا برد تیم 4

الی اخر

سوال
میخوام برنامه خروجی بده چنذ نتیجه منحصر به فرد اتفاق میافته
مثلا 1 نتیجه : همه میبرند

........
یا جدول زیر ببینید



ردیف

تیم میزبان

برد

مساوی

باخت

تیم میهمان



1

101

a

b

c

102



2

103

d

e

f

104



3

105

g

h

i

106



4

107

j

k

l

108



5

109

m

n

o

110



6

111

p

q

r

112



7

113

s

t

u

114



8

115

v

w

x

116