آموزش پاسکال

[MaRdoNiuS]

مثال : برنامه ای بنویسید که یک رشته ( متن) را از کاربر بگیرد و آخرين حرف رشته را ستاره بگذارد.

;Program myprog
;Uses WinCRT
var
;i:integer
;s:string
begin
;('writeln('enter string
;(readln(s
;(i:=lenght(s
;'*'=:[s[i
;(writeln(s
.end

دستور تبديل int به str این دستور محتوي يك عد صحيح را به رشته تبديل مي كند

;(عدد,رشته)str

دستور modبراي تعين زوج يا فرد بودن يك عد مورد استفاده قرار مي گيرد و اگر باقي مانده آن عد تقسيم بر دو صفر بود زوج و در غير اينصورت فرد است

mod 2=0 عدد

مثال : برنامه ای بنویسید که عدد از كاربر بگيرد و بگويد كه عدد متقارن است و اگر نبود بگويد كه عدد متقارن نيست

;Program myprog
;Uses WinCRT
var
;i,len:integer
;s:string
begin
;('writeln('enter number
;(readln(i
;(str(i,s
(len:=lenght(s
if len mod 2=0 then
begin
;('عد متقارن نيست')write
;halt
end;
for i:=1 to len/2 do
begin
if s[i]<>s[len-i+1] then
begin
;('عد متقارن نيست')writeln
halt
end
;('عد متقارن هست')writeln
.End

[MaRdoNiuS]

نوشته شده توسط crazy63

پاسکال چه ربطی داره به ویژوال بیسیک؟

اولا به شما ربطی نداره
زوده بخوای نظر بدی در مورد منو تاپیکو پست من
در ضمن بچه جون
بخش پاسکال نداریم
اینجا می زارم
ناراحتی برو بیرون

[admin]

با هم دوست باشید بچه ها

[MaRdoNiuS]

متاسفم آقا crazy

[MaRdoNiuS]

نوشته شده توسط admin

با هم دوست باشید بچه ها

]چشم مهندس

[firuzeh5]

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

[rood]

ایا از این

نوشته شده توسط KniGhT

# انواع زبان های برنامه نویسی:
زبان های نسل اول : زبان ماشین 010110
زبان های نسل دوم : نزدیک به سخت افزار ولی بهتر از زبان ماشین مثل اسمبلی
زبان های نسل سوم : پاسکال ،3GL , Basic , Ada , PL1 , C T ...
زبان های نسل چهام : دلفی ، ویژوال بیسیک ، جاوا ، asp.net
زبان های نسل پنجم : زبان های هوشمند

برای برنامه نویسی به سه چیز نیاز داریم : 1.الگوریتم 2.کامپیوتر 3.برنامه

برای دانلود زبان برنامه نويسی پاسکال به [برای مشاهده لینکها باید ثبت نام کنید] ] برويد.

# ساختار کلی برنامه نویسی به زبان پاسکال :

; نام برنامه Program
برای پاسکال تحت داسیا Uses WinCRT; برای پاسکال تحت ویندوز ;Uses CRT
Begin
دستورات
.End

:# دستور write
جهت نوشتن هر متنی روی صفحه ی مونیتور مورد استفاده قرار می گیرد .

;Program ibpersianblogcom
;Uses WinCRT
Begin
;('نوشته ی مورد نظر مثل=>Write(' This is made by ib.persianblog.ir
.End

:# دستور gotoxy
جهت دادن مختصات چاپ بکار می رود .

;Program ibpersianblogcom
;Uses WinCRT
Begin
;(Gotoxy(10,18
;('.Write('This is made by I.B
;(Gotoxy(5,10
;('Write(' ib.persianblog.ir is the weblog of IB programming group
.End

:# دستور CLRscr

Begin جهت پاک کردن صفحه ی نمایش معمولا" بعد از قرار می گیرد .




:# دستور Textbackground

با استفاده از این دستور می توانیم رنگ زمینه را با استفاده از نام خود رنگ ها تغییر دهیم .(

توجه : این دستور در توربو پاسکال تحت ویندوز کار نمی کند )

;Program ibpersianblogcom
;Uses WinCRT
Begin
CLR Scr
);Textbackground(green
);Gotoxy(10,18
;('Write('Our e-mail address is [برای مشاهده لینکها باید ثبت نام کنید] ]
.End

:# دستور Textcolor

جهت تغییر رنگ نوشته به کار می رود .(

توجه : این دستور در توربو پاسکال تحت ویندوز کار نمی کند )

از blink همچنینجهت چشمک زدن متن استفاده می شود که در این مثال هم ما رنگ آبی را چشمک زن قرار دادیم .

;Program ibpersianblogcom

;Uses WinCRT

Begin

;(Textbackground(green

CLR Scr

;(textcolor(red

('write('IB hopes to learn you pascal

;(textcolor(blue + blink

;('Write('you can ask your questions by [برای مشاهده لینکها باید ثبت نام کنید] ]

.End

[rood]

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

[ensieh]

من جواب این مثال رو می خام:: برنامهای بنویسید که 10 عدد از ورودی خوانده وآنها را به ترتبب نزولی در خروجی چاپ وحاصل جمع مربعات آنها را نیز بدست اورید؟

[soha92]

سلام
اگه ممكنه جواب اين برنا مهاي كه براتون مي نويسم برام ارسال كنيد
البته من اين برنامه رو خيلي زود مي خوامش
تابعي به صورت باز گشتي بنويسيد كه دو آرايه را به عنوان آرگومان ورودي دريافت واگر تمامي مقادير دو آرايه با هم برابرباشند مقدارtrue ودر غير اين صورت false را برگرداند.
ممنون soha92