kala-tamin تمامی‌ مباحث و سوالات زبان پاسکال Pascal


تمامی‌ مباحث و سوالات زبان پاسکال Pascal



تمامی‌ مباحث و سوالات زبان پاسکال Pascal
دوستان این تاپیک هم ایجاد شد که دیگه مسائل در اینجا پیگیری بشه و دیگه پراکنده نشه .به درخواست خیلی‌ از دوستان.



انواع پوشه؟؟؟؟؟؟؟؟؟؟

1:

يعني اينجا پاسكال رو مي شه اموزش داد


چگونگي استفاده از دستور

2:

سلام دوست عزیز آموزش پاسکال و همچنین مقایسه سی‌ با پاسکال توسط اینجانب قبلا توسط اینجانب گذاشته شده و شما جستجو کنید آموزش های خوبی‌ هست .البته برای شروع .
متشکر از شما.


اگر بخواهیم فرم رو تبدیل به عکس کنیم و یا هر چی ؟؟؟


انتقال اطلاعات از SQL Server به Access

3:

پس اينجا براي چيه


Button داراي عكس

4:

سلام دوست عزیز اینجا برای همین هست ولی‌ اوایل کار من آموزش پاسکال رو جای دیگه گذشتم چون که این تاپیک هنوز باز نشده بود و گر نه اینجا برای آموزش و پرسش و جواب سوال های مربوط به پاسکال هست .


غیر فعال کردن ctrl+c


فونت فارسي در ويندوز ايكس پي توسط دلفي 7

5:

پس آموزش كجاست؟؟؟؟؟؟؟؟؟؟؟؟/


برداشتن عكس(Image)

6:

سلام دوست عزیز .
ورود شما رو تبریک میگیم .
و شما باید بگردید اینجا نیست اینجا فقط سوال و جواب هست .
متشکر

7:

سلام دوست عزيز
من عضو جديد اين انجمن هستم.اميدوارم به ياري شما بتوانم مشكلم را برطرف كنم .من از شما دوست عزيز مي خواهم مرا
دراموزش و دادن اطلا عات درباره برنامه نايشانسي پاسكال ياري بفر ماييد.


8:

سلام قبل از اموزشات اموزشهایی که نستا داده رو گیر بیار بخون چیزای تکراری نگی
خیلی ممنون

9:

سلام البته سامان جان منظورش آقای gharibeh_65 هست .نه آقای narvan احتمالا .
آقای narvan شما شروع کن با اموزش ها ما کمکت می‌کنیم .


10:

سلام خيلي ممنون از اين كه به پيغام من جواب داديد.مشكلي كه من دارم اينه ...
من ديپلم نقشه كشي با كاربري كامپيوتر هستم و درسهايي كه من خوانده ام با اونهايي كه بايد براي كنكور بخوانم فرق مي كند
به خواطر همين دچار مشكل شده ام .در صورتي كه من كتاب پاسكال درجه 1و2 را هم تهيه كرده ام ولي چون فهميدن بيسيك
برايم مشكل بود فكر مي كنم ياد گرفتن پاسكال هم سخت هست.در ضمن من وقت كمي براي مطالعهدارم .


11:

سلام دوست عزیز .
کنکور شما تمام شد .باید کاردانی‌ شرکت میکردین.که تمام شد.
در مورد پاسکال هم باید بگم که سخت نیست از بیسیک خیلی‌ راحت تر هست .فقط باید از اول خوب بخونین تا در قسمت procedure or functions ها به مشگل بر نخردید .شما اموزش های پاسکال که در این انجمن هست که باید جستجو کنید و دانلد کنین رو گیر بیارید بد شروع به خوندن کنید و یا یک کتاب آموزشی‌ خوب .برنامه turbo pascal 7.0 هم نصب کنید و کار کنید .بدن به مشگلی‌ بر خورد کردین کمکتون می‌کنیم.


12:

سلام nesta جان
باز هم ممنون.من آموزش پاسكال را براي كنكور سال آينده مي خواستم .اون آموزشهايي كه فرموديد رو پيدا كردم و به فرمودي شما
شروع به مطالعهمي كنم و اگر با مشكلي برخوردم با شما در مي يان ميگذارم.


13:

سلام دوست عزیز .
خواهش می‌کنم و لطف دارید .
شما ابتدا بخش متغیر ها و ثابت ها رو خوب بخوانین که مهم هست مثل real-var-boolean-string-longint-integer-byte-shortint...
و مهدوده اونها رو نیز حفظ کنید که مثلا integer چه ارقامی‌ دارش میتونه جای بگیره .


14:

آقایون من یه برنامه نوشتم که a,b,c,d رو میگیره و روی صفحه به صورت بزرگ چاپشون میکنه
یعنی مثلا اگه a رو گرفت به صورت ستاره هایی که در کنار هم دیگه یک a رو درست می کنن نشون میده(با procedure نوشتم)
میخوام ببینم چه طوری میشه یه کاری کرد که برنامه به طور نا محدود A,B,C,D رو بگیره و همین جوری نمایش بده ضمنا اگر دو بار پشت سر هم یک حرف رو وارد کردیم روی هم دیگه چاپ نکنه جدا جدا چاپ کنه
ضمنا جلو جلوی هم چاپ کنه ممنون
تا یادم نرفته متغیرم x هست که a,b,c,d رو میگیره و با دستور case x of نوشتم

15:

سلام آقا من درست متوجه نشدم که مثل ستاره منظور چیست ؟
اگه مثلا شما 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 بذار و این کار ها رو انجام بده

16:

سلام دوست عزيزم
ممنون از اينكه من را راهنماي ميكنيد.

خواهشي از شما دارم اينه يك كتاب خوب به من معرفي كنيد كه تمامي مباحص را كامل
توضيح داده باشه.واينكه خوشحال هستم با دوست خوبي مثل شماآشنا شدم و اميدوارم كه اين ارتباط ادامه داشته باشد.


17:

سلام دوست عزیز سپاسگزار از لطف شما.
کتاب های بسیاری هست که برای شروع کتاب جعفر نژاد قمی‌ و کتاب کافمن و محمد عادلینیا .


کتاب های خوبی‌ هست اینا حالا شما موقع خرید اینا رو نگاه کنید و ببینین که کدوم رو میپسندین از نظر محتوا.


18:

نستا جون منظورم از ستاره اینجوریه مثلا A :

19:

برای اینکه هر حرف رو هم اینجوری بنویسه برای هر 4 حرف A,B,C,D یه procedure نوشتم مثلا:

20:

سلام دوست عزیزی که عاشق flashget هستی‌ .
من منظور شما رو از ستاره هنوز نفهمیدم A: ??
اگه امکان داره در مورد ستاره کمی‌ بیشتر توضیح بدین ممنون میشم.


21:

سلام, مي خواستم بپرسم كه كتاب فرامرز تقي نژادچه طور هست.چون بچه هاي كامپيوتر اين كتاب را خوانده اند
مي خواستم بدونم اين كتاب چه طوريه .با تشكر.


22:

سلام دوست عزيز
ممنون از معرفي كتاب ها فقط اينكه مي خواستم بدونم كتاب فرامرز تقي نژاد چه طور هست چون بچه هاي كامپيوتر اين كتابرا
مي خواندن.

آيا اين كتاب كامله يا اونهايي كه شما فرموديد.ببخشید که پیغامم دوتا تایپ شده شرمنده اتفاقی پیش
اومد من هم پاک کردنش رو بلد نبودم.


23:

نستا جون قهریییییییییییییییییییییی ییییییییییییییییییییییییی ییییی
بابا بیا و آشتی کن!!!!!!!
منظورم از ستاره ها اینه که فرمودم دیگه مگه صفحه ی قبل عکس ها رو ندیدی leechget جون!!!!!!!
ببین حالا ستاره نه کاراکتر Alt + 178 که یه کاراکتر نیمه پر رو یه جوری با writeln مینویسیشون که مثل A بشن
نستا جون مجبور شدم بنویسم آپلود کنم یه قسمت از برنامه رو:

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

24:

سلام دوست عزیز .حالا فهمیدم اینا می‌شه کد های اسکی‌ در اصل که شما اگه مثلا این ها رو ترکیب کنی‌ اشکال عجیب غریبی‌ بهت میده .اینا رو اصول هست که باید یک کتاب مرجع جلوت باشه که آخرش ضمیمه داره و کاملا این کد ها رو نوشته که چه شکل هائی‌ داره و چطوری میتونی‌ ازشون هستفاده کنی‌ یا کجا به درد میخوره .
در مورد سوال اون دوستم هم باید بگم که من همچین کتابی‌ دقیق نمیدونم .ولی‌ خوب ها و فرمودنی‌ ها رو من فرمودم .اگه دوست های شما میگن خوب بوده .شما هم امتحان کنین .


25:

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

26:

سلام .
شما می‌خواهید که مثلا A رو زدید رو صفحه نمایش اونطوری نشان بده .
شما اگه کتاب داشته باشید داخل اون هست .من دقیق فرمان رو نمیدونم ولی‌ احتمالا
CHR(67)====A
حرف C در کد ASCII می‌شه CHR(ord(ch))
یکی‌ دیگه هم بود که متاسفانه یادم نیست .شما در کتاب اگه اینجا ها رو پیدا کنی‌ CHR حتما پیدا میکنی‌.


27:

مرسی نستا جون

28:

سلام یک تابع دیگه هم هست پیدا کردم .یعنی‌ یادم رفته بود چون این توابع زیاد خوب کاربرد نداره .
ASC('a')
این کد های اسکی‌ رو بر میگردونه یا بر عکس .


29:

دیگه بیشتر دستت درد نکه نستا جون

30:

سلام خواهش می کنم.وظیفه هست.


31:

سلام دوستان عزيز به خصوص nesta
من یه مشکلی دارم هر کی تونست حل کنه ممنونش میشم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
یه برنامه بنویسه تو پاسکال بنویسه که ضرب دو ماتریس 3×3 رو حساب کنه
دستوت درد نکنه
در ضمن یونیکس به من فرمود که به آقا نستا بگم
خاهشا اگه میشه تا فردا آماده بشه

32:

سلام دوست عزیز .
از لطف شما و یونیکس جان سپاسگزارم ولی‌ عزیز برنامه می‌خوای به این سرعت که نمی‌شه .باور نمیکنی‌ اگه بگم جدول ماتریکس یادم رفته .ولی‌ اگه منظور شما ساختار یا ساختمان داده ها یا الگوریتم هست اونو می‌تونم .ولی‌ خود برنامه برای اجرا رو من والا اصلا پاسکال رو سیستمم نصب نیست مدتهاست .متشکر از شما .


33:

سلام نستا جان .

من تايشان سايت اسم شما رو زياد ديدم و به خاطر فعال بودنت ازت تشكر ميكنم.
من نياز به Quick Sort (مرتب سازي سريع) با كد پاسكال دارم
اگه داري يا بلدين لطفا كمك كنيد
((( ميتونم بپرسم خداحافظي نستا چه مفهومي داره؟ يعني ميخاين برين؟)))

34:

با عرض سلام خدمت دوستان
اگر كسي در خصوص با ليست هاي پيوندي سررشته داره يا كاركرده كمك كنه
رايشانه اي بنايشانسيد كه در ليست پيوندي خطي يكطرفه تعداد گره ها را مشخص و چاپ نمايد و سپس عنصر وسط را حذف نمايد
حذف عنصر وسط به اين صورت هست كه اگر تعداد گره هاي ما اگر 7 تا بود 4مين گره را حذف كند واگر 8 تا گره بود 5 گره را حذف كند.
خيلي نياز دارم و تشكر

35:

با سلام و تشكر از اساتيد محترم
بنده در راستاي ياد گيري كتاب راهنماي جامع برنامه نايشانسي پاسكال نوشته مهرداد اسماعيلي به قسمت گرافيك رسيدم اما نميدانم چرا تابع ها و پروسيجرهاي گرافيكي اجرا نمي شن فرمودم شايد اجراي توربو تحت ايشانندوز مشكل را ايجاد كرده و به فكر نصب داس افتادم اما در داس هم اين مشكل را دارم تنها چيزي كه مي توانم بگايشانم اين هست كه توربو پاسكال error 200 را ميدهد
به مضمون division by zero و حتي پروسيجر sound هم با همين error ظاهر ميشود
با تشكر احمد

36:

sharifnia جان تازه پستت رو ديدم براي همين هست كه دير دارم جوابت رو ميدم .
اميدوارم به دردت بخوره:
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

37:

hedi جان اينم براي شما:
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
در ضمن متغير i رو بايد در قسمت اصلي برنامه از نوع integer تعريف كني ( بايد متغيير سراسري باشه ).


38:

اقا من هین امروز پاسکال رو شروع کردم یه برنامه هم نوشتم ولی وقتی فایل اجرایی درست میکنم پیام زیر رو میده
runtime error 105 at 0001:0032
لطفا کمک کنید
در ضمن اگه کتاب پاسکال فارسی هم دارید لطفا لینکش رو بزارید ممنون میشم

39:

با سلام و عرض خسته نباشید به تمامی دوستان و برنا مه نویسان محترم - می خواستم اگر ممکنه منو برای نوشتن یه ماشین حساب به زبان پاسکال راهنمایی کنین-پیشاپیش از راهنمایی شما سپاسگذارم

40:

لطفا بازی ox در پاسکال را بنویسید لطفا با توابع

41:

برنامه زیر رو در نظر بگیرید
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
حالا چجوری میتونم تعریف کنم که از صفحه خارج نشه میبینید که اگه فرضا کلید بالا را ادامه بدینم از مختصات خارج می شه
با تشکر از راهنمایی شما

42:

سلام به همه دوستان
من دارم برنامه کتاب خونه رو تو پاسکال می نویسم اماگرافیک رو بلد نیستم.
اگه کسی پروسیجر آماده در این مورد داره اونو بزاره.
راستی اگه کسی می تونه در موردخود این برنامه منو کمک کنه خیلی ممنون میشم.

43:

با سلام خدمت دوستان و اساتيد محترم
من يه پروژ مربو به دفترچ تلن رو نوستم متاسفانه در قسمت اصلي برنامه با پيفام 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.

44:

سلام دوستان کسی هست به من کمک کنه؟
من برنامه ماتریس n*n به زبان پاسکال می خوام

45:

سلام دوستان.


من دستورات(قالب) bnf زبان پاسكال رو مي خوام.
كسي مي تونه كمك كنه؟

46:

با سلام
پروژه پايان ترم پاسكال
ممنون ميشم كمكم كنين

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

با تشكر

47:

سلام.


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

کدش رو این جوری مینویسم:

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

48:

مثلا برنامت می خواد با ماتریسه چی کار کنه؟

49:

چه اروری می ده؟

50:

شما این فایل رو دانلود کنید و پس از اکسترکت در پوشه tp\units کپی کنید ، حالا بدین ترتیب کد نویسی کنید :
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

51:

سلام.

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

ولی درست و اصلش همونیه که توی پست قبل فرمودم.
در واقع باید اونجوری بنویسیم...

راهی هست؟؟

52:

کمک خیلی فوری

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

خواهشا از مهندسین عزیز میخوام کمک کنین

53:

راستش حال کد گذاشتن ندارم اما روش رو میگم .
دو تا آرایه 7*7 تعریف کن.
دو مرتبه از حلقه for تو در تو برای پر کردن آرایه ها هستفاده کن.
بعدش هم که با توجه به فرمول محاسبه ، حسابش کن.
یک دونه قبلا نوشته ماله 2*2
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
می تونه راحت این کد رو به هر ماتریسی تبدیل کنی با عوض کردن مقدار های قسمت const توجه کن که r مخخف row هست یعنی ردیف و c هم مخفف column به معنی ستون.1و2 همم برای ماتریس اول و دوم
تفدیم شما !

54:

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

55:



















سلام
دوست عزیز
خیلی ممنون به خاطر جواب سریع !

56:

یک سوال ( پروژه ) برای زبان پاسکال
خواهشا کمک کنین

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

مطابق شکل زیر





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

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

در خروجی چاپ کند

57:

سلام

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

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

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


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

58:


59:

لطفا یه کم بیشتر توضیح بده

تا شنبه نیاز دارم

60:

لطفا یه کم بیشتر توضیح بده
ببین دوست من ، از اونجایی که ماتریس دو بعد دارد ، بنابرابن برای دسترسی به عناصر اش نیازمند دو اندیش هستیم مثلا اولین عنصر دارای اندیس (1.1) هست ، برای اینکه ماتریس مورد پیمایش برنامه گیرد از حلقه for تودرتو هستفاده میشود ،بدین ترتیب درون حلفه ما میتوانیم اندیس ها به صورت متوالی و صعودی داشته باشیم ، و داشتن اندیس= پیمایش ماتریس.
متوجه شدید دوست عزیز.


61:


62:

بست اشتباه!!

63:

سلام من میخوام در باسکال با دستور while یا for ستاره ها را به این صورت چاب کنم



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



*******
******
*****
****
***
**
*
**
***
****
*****
******
*******

64:

سلام
با كنسول دلفي نوشتمش.

ولي نبايد تايشان پاسكال مشكلي داشته باشه.
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

65:

کسی می دونه چطور می شه تعداد خطوط یک فایل txt رو با پاسکال چاپ کرد؟

66:

سلام
دوستان و اساتید محترم
یه سوال دارم - ممنون میشم کمکم کنید و برنامه پاسکالشو برام بمویسید

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


65 out of 100 based on 30 user ratings 1105 reviews