تمامی مباحث و سوالات زبان پاسکال Pascal
دوستان این تاپیک هم ایجاد شد که دیگه مسائل در اینجا پیگیری بشه و دیگه پراکنده نشه .به درخواست خیلی از دوستان.
:wink:
Printable View
تمامی مباحث و سوالات زبان پاسکال Pascal
دوستان این تاپیک هم ایجاد شد که دیگه مسائل در اینجا پیگیری بشه و دیگه پراکنده نشه .به درخواست خیلی از دوستان.
:wink:
يعني اينجا پاسكال رو مي شه اموزش داد
سلام دوست عزیز آموزش پاسکال و همچنین مقایسه سی با پاسکال توسط اینجانب قبلا توسط اینجانب گذاشته شده و شما جستجو کنید آموزش های خوبی هست .البته برای شروع .
متشکر از شما.
پس اينجا براي چيه
سلام دوست عزیز اینجا برای همین هست ولی اوایل کار من آموزش پاسکال رو جای دیگه گذشتم چون که این تاپیک هنوز باز نشده بود و گر نه اینجا برای آموزش و پرسش و پاسخ سوال های مربوط به پاسکال هست .
پس آموزش كجاست؟؟؟؟؟؟؟؟؟؟؟؟/
سلام دوست عزیز .
ورود شما رو تبریک میگیم .
و شما باید بگردید اینجا نیست اینجا فقط سوال و جواب هست .
متشکر
سلام دوست عزيز
من عضو جديد اين انجمن هستم.اميدوارم به ياري شما بتوانم مشكلم را برطرف كنم .من از شما دوست عزيز مي خواهم مرا
دراموزش و دادن اطلا عات درباره برنامه نويسي پاسكال ياري بفر ماييد.
سلام قبل از اموزشات اموزشهایی که نستا داده رو گیر بیار بخون چیزای تکراری نگی
خیلی ممنون
سلام البته سامان جان منظورش آقای gharibeh_65 هست .نه آقای narvan احتمالا .
آقای narvan شما شروع کن با اموزش ها ما کمکت می‌کنیم .
سلام خيلي ممنون از اين كه به پيغام من پاسخ داديد.مشكلي كه من دارم اينه ...
من ديپلم نقشه كشي با كاربري كامپيوتر هستم و درسهايي كه من خوانده ام با آنهايي كه بايد براي كنكور بخوانم فرق مي كند
به خواطر همين دچار مشكل شده ام .در صورتي كه من كتاب پاسكال درجه 1و2 را هم تهيه كرده ام ولي چون فهميدن بيسيك
برايم مشكل بود فكر مي كنم ياد گرفتن پاسكال هم سخت است.در ضمن من وقت كمي براي خواندن دارم .
سلام دوست عزیز .
کنکور شما تمام شد .باید کاردانی شرکت میکردین.که تمام شد.
در مورد پاسکال هم باید بگم که سخت نیست از بیسیک خیلی راحت تر هست .فقط باید از اول خوب بخونین تا در قسمت procedure or functions ها به مشگل بر نخردید .شما اموزش های پاسکال که در این انجمن هست که باید جستجو کنید و دانلد کنین رو گیر بیارید بد شروع به خوندن کنید و یا یک کتاب آموزشی خوب .برنامه turbo pascal 7.0 هم نصب کنید و کار کنید .بدن به مشگلی بر خورد کردین کمکتون می‌کنیم.
:) سلام nesta جان
باز هم ممنون.من آموزش پاسكال را براي كنكور سال آينده مي خواستم .آن آموزشهايي كه گفتيد رو پيدا كردم و به گفتي شما
شروع به خواندن مي كنم و اگر با مشكلي برخوردم با شما در مي يان ميگذارم.
سلام دوست عزیز .
خواهش میکنم و لطف دارید .
شما ابتدا بخش متغیر ها و ثابت ها رو خوب بخوانین که مهم هست مثل real-var-boolean-string-longint-integer-byte-shortint...
و مهدوده آنها رو نیز حفظ کنید که مثلا integer چه ارقامی دارش میتونه جای بگیره .
آقایون من یه برنامه نوشتم که a,b,c,d رو میگیره و روی صفحه به صورت بزرگ چاپشون میکنه
یعنی مثلا اگه a رو گرفت به صورت ستاره هایی که در کنار هم دیگه یک a رو درست می کنن نشون میده(با procedure نوشتم)
میخوام ببینم چه طوری میشه یه کاری کرد که برنامه به طور نا محدود A,B,C,D رو بگیره و همین جوری نمایش بده ضمنا اگر دو بار پشت سر هم یک حرف رو وارد کردیم روی هم دیگه چاپ نکنه جدا جدا چاپ کنه
ضمنا جلو جلوی هم چاپ کنه ممنون;)
تا یادم نرفته متغیرم x هست که a,b,c,d رو میگیره و با دستور case x of نوشتم
سلام آقا من درست متوجه نشدم که مثل ستاره منظور چیست ؟
اگه مثلا شما 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 بذار و این کار ها رو انجام بده
:) سلام دوست عزيزم
ممنون از اينكه من را راهنماي ميكنيد. خواهشي از شما دارم اينه يك كتاب خوب به من معرفي كنيد كه تمامي مباحص را كامل
توضيح داده باشه.واينكه خوشحال هستم با دوست خوبي مثل شماآشنا شدم و اميدوارم كه اين ارتباط ادامه داشته باشد.
سلام دوست عزیز سپاسگزار از لطف شما.
کتاب های بسیاری هست که برای شروع کتاب جعفر نژاد قمی و کتاب کافمن و محمد عادلینیا .
کتاب های خوبی هست اینا حالا شما موقع خرید اینا رو نگاه کنید و ببینین که کدوم رو میپسندین از نظر محتوا.
نستا جون منظورم از ستاره اینجوریه مثلا A :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
برای اینکه هر حرف رو هم اینجوری بنویسه برای هر 4 حرف A,B,C,D یه procedure نوشتم مثلا:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام دوست عزیزی که عاشق flashget هستی .
من منظور شما رو از ستاره هنوز نفهمیدم A: ??
اگه امکان داره در مورد ستاره کمی بیشتر توضیح بدین ممنون میشم.
سلام, مي خواستم بپرسم كه كتاب فرامرز تقي نژادچه طور است.چون بچه هاي كامپيوتر اين كتاب را خوانده اند
مي خواستم بدونم اين كتاب چه طوريه .با تشكر.
سلام دوست عزيز
ممنون از معرفي كتاب ها فقط اينكه مي خواستم بدونم كتاب فرامرز تقي نژاد چه طور است چون بچه هاي كامپيوتر اين كتابرا
مي خواندن. آيا اين كتاب كامله يا آنهايي كه شما گفتيد.ببخشید که پیغامم دوتا تایپ شده شرمنده اتفاقی پیش
اومد من هم پاک کردنش رو بلد نبودم.
نستا جون قهریییییییییییییییییییییی ییییییییییییییییییییییییی ییییی
بابا بیا و آشتی کن!!!!!!!
منظورم از ستاره ها اینه که گفتم دیگه مگه صفحه ی قبل عکس ها رو ندیدی leechget جون!!!!!!!
ببین حالا ستاره نه کاراکتر Alt + 178 که یه کاراکتر نیمه پر رو یه جوری با writeln مینویسیشون که مثل A بشن
نستا جون مجبور شدم بنویسم آپلود کنم یه قسمت از برنامه رو:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام دوست عزیز .حالا فهمیدم اینا میشه کد های اسکی در اصل که شما اگه مثلا این ها رو ترکیب کنی اشکال عجیب غریبی بهت میده .اینا رو اصول هست که باید یک کتاب مرجع جلوت باشه که آخرش ضمیمه داره و کاملا این کد ها رو نوشته که چه شکل هائی داره و چطوری میتونی ازشون استفاده کنی یا کجا به درد میخوره .
در مورد سوال اون دوستم هم باید بگم که من همچین کتابی دقیق نمیدونم .ولی خوب ها و گفتنی ها رو من گفتم .اگه دوست های شما میگن خوب بوده .شما هم امتحان کنین .
نستا جون شکل ها رو خودم آماده کردم;)
میخوام ببینم توی برنامه چه جوری میشه مثلا A رو بزنی بعد A رو به همون شکلی که گفتم چاپ کنه بعد که چاپ کرد دوباره سوال کنه که یک حرف رو وارد کنید تا بنویسه به همون شکل البته!
ضمنا حرفها رو جلوی هم بنویسه:)
سلام .
شما می‌خواهید که مثلا A رو زدید رو صفحه نمایش اونطوری نشان بده .
شما اگه کتاب داشته باشید داخل اون هست .من دقیق فرمان رو نمیدونم ولی احتمالا
CHR(67)====A
حرف C در کد ASCII میشه CHR(ord(ch))
یکی دیگه هم بود که متاسفانه یادم نیست .شما در کتاب اگه اینجا ها رو پیدا کنی CHR حتما پیدا میکنی.
مرسی نستا جون:)
سلام یک تابع دیگه هم هست پیدا کردم .یعنی یادم رفته بود چون این توابع زیاد خوب کاربرد نداره .
ASC('a')
این کد های اسکی رو بر میگردونه یا بر عکس .
دیگه بیشتر دستت درد نکه نستا جون:)
سلام خواهش می کنم.وظیفه هست.
سلام دوستان عزيز به خصوص nesta
من یه مشکلی دارم هر کی تونست حل کنه ممنونش میشم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
یه برنامه بنویسه تو پاسکال بنویسه که ضرب دو ماتریس 3×3 رو حساب کنه
دستوت درد نکنه
در ضمن یونیکس به من گفت که به آقا نستا بگم
خاهشا اگه میشه تا فردا آماده بشه
سلام دوست عزیز .نقل قول:
نوشته شده توسط sajad_h
از لطف شما و یونیکس جان سپاسگزارم ولی عزیز برنامه می‌خوای به این سرعت که نمی‌شه .باور نمیکنی اگه بگم جدول ماتریکس یادم رفته .ولی اگه منظور شما ساختار یا ساختمان داده ها یا الگوریتم هست اونو می‌تونم .ولی خود برنامه برای اجرا رو من والا اصلا پاسکال رو سیستمم نصب نیست مدتهاست .متشکر از شما .
سلام نستا جان . من توي سايت اسم شما رو زياد ديدم و به خاطر فعال بودنت ازت تشكر ميكنم.
من نياز به Quick Sort (مرتب سازي سريع) با كد پاسكال دارم
اگه داري يا بلدين لطفا كمك كنيد
((( ميتونم بپرسم خداحافظي نستا چه مفهومي داره؟ يعني ميخاين برين؟)))
با عرض سلام خدمت دوستان
اگر كسي در خصوص با ليست هاي پيوندي سررشته داره يا كاركرده كمك كنه
رويه اي بنويسيد كه در ليست پيوندي خطي يكطرفه تعداد گره ها را مشخص و چاپ نمايد و سپس عنصر وسط را حذف نمايد
حذف عنصر وسط به اين صورت است كه اگر تعداد گره هاي ما اگر 7 تا بود 4مين گره را حذف كند واگر 8 تا گره بود 5 گره را حذف كند.
خيلي نياز دارم و تشكر
با سلام و تشكر از اساتيد محترم
بنده در راستاي ياد گيري كتاب راهنماي جامع برنامه نويسي پاسكال نوشته مهرداد اسماعيلي به قسمت گرافيك رسيدم اما نميدانم چرا تابع ها و پروسيجرهاي گرافيكي اجرا نمي شن گفتم شايد اجراي توربو تحت ويندوز مشكل را ايجاد كرده و به فكر نصب داس افتادم اما در داس هم اين مشكل را دارم تنها چيزي كه مي توانم بگويم اين است كه توربو پاسكال error 200 را ميدهد
به مضمون division by zero و حتي پروسيجر sound هم با همين error ظاهر ميشود
با تشكر احمد
sharifnia جان تازه پستت رو ديدم براي همين هست كه دير دارم جوابت رو ميدم .
اميدوارم به دردت بخوره:
کد:procedure quicksort (var x:arraylist;left,right:integer);
var i,j,s,pivot:integer;
begin
if left<right then
begin
i:=left;
j:=right+1;
pivot:=x[left];
reapeat
reapeat
I:=I+1;
until x[i]>=pivot;
reapeat
j:=j-1;
until x[j]<=pivot;
if i<j then
begin
s:=x[i];
x[i]:=x[j];
x[j]:=s;
end;
until i>=j;
s:=x[left];
x[left]:=x[j];
x[j]:=s;
quicksort(x,left,j-1);
quicksort(x,j+1,right);
end;
end;
hedi جان اينم براي شما:
در ضمن متغير i رو بايد در قسمت اصلي برنامه از نوع integer تعريف كني ( بايد متغيير سراسري باشه ).کد:procedure print(c:listpointer);
begin
if (x<>nil) then
begin
write(x^.data);
i:=i+1;
print(x^.link);
end;
end;
procedure del(x:listpointer);
var temp:^node;
j:integer;
begin
temp:=x;
for j:=1 to (i div 2) do
temp:=temp^.link;
temp^.link:=temp^link.^link;
end;
اقا من هین امروز پاسکال رو شروع کردم یه برنامه هم نوشتم ولی وقتی فایل اجرایی درست میکنم پیام زیر رو میده
runtime error 105 at 0001:0032
لطفا کمک کنید
در ضمن اگه کتاب پاسکال فارسی هم دارید لطفا لینکش رو بزارید ممنون میشم
با سلام و عرض خسته نباشید به تمامی دوستان و برنا مه نویسان محترم - می خواستم اگر ممکنه منو برای نوشتن یه ماشین حساب به زبان پاسکال راهنمایی کنین-پیشاپیش از راهنمایی شما سپاسگذارم