آموزش كامپيوتر

آموزش پاسكال - چند مثال

با يك سري تمرين جديد اومدم تا شما و بيشتر با ساختار هاي تكرار آشنا كنم. بدليل وجود كد و طولاني شدن پست، مثال ها رو در ادامه مطلب ببينيد.
ادامه مطلب

+ نوشته شده در یکشنبه هفتم مهر 1387ساعت 22:57 توسط Software |

ماهيت و اساس برخي از كارها تكراري هستش. مثل محاسبه ميانگين حقوق 20 كارمند يا حضور غياب 10 دانش آموز و ... فرض كنيد كه ما مي خواهيم اعداد 1 تا 10 روي صفحه نمايش با استفاده از دستور Write و Writeln چاپ كنيم. چي كار مي كنين؟ 10 بار دستورت خروجي رو مي نويسيد؟؟ حالا فرض كنيد مي خواهيم 100 تا عدد رو چاپ كنيم. آيا منطقي هستش كه 100 بار از دستور Write يا Writeln استفاده كنيم؟ (چه سوال تابلويي). براي جلوگيري از هدر رفتن وقت و نوشتن كدهاي هرز بايد از حلقه هاي تكرار استفاده كنيم. ما در پاسكال دو نوع حلقه تكرار داريم:

حلقه تكرار معين
- دستور For
حلقه هاي تكرار نا معين
- دستور While
- دستور Repeat ... Until

حلقه هاي تكرار معين:

راهنماي كد:

حلقه هايي هستن كه ما تعداد دفعات تكرار اونها رو مي دونيم. مثلاً مي دونيم كه حلقه چند بار قراره تكرار بشه. براي همين منظور از دستور For استفاده مي كنيم. شكل كلي دستور For به دو شكل زير است:

حلقه صعودي

For Varaibleloop:= FirstFoot To LastFoot DO Begin Pascal Instruction; End;

حلقه نزولي

For Varaibleloop:= FirstFoot DownTo LastFoot DO Begin Pascal Instruction; End;

راهنماي كد:

FirstFoot: منظور از اين كلمه عبارت حد اول هستش.

LastFoot: منظور از اين كلمه عبارت حد آخر هستش.

نكات:

در صورتيكه حلقه صعودي باشد بايد حد اول از حد آخر كوچكتر باشد در غير اينصورت حلقه اجرا نمي شود.
در صورتيكه حلقه نزولي باشد بايد حد اول از حد آخر بزرگتر باشد در غيراينصورت حلقه اجرا نمي شود.
در صورتي از Begin ... End; اسفاده مي كنيم كه تعداد دستورات حلقه از يك بيشتر باشد.
اگر دستورات درون حلقه از يك بيشتر باشد و از Begin ... End; استفاده نشود دستورات به صورت جداگانه اجرا ميشن و فقط دستور بعد از For به صورت حلقه تكرار مي شود.
توجه شود كه فقط END پايان برنامه به نقطه ختم مي شود.

حلقه هاي تكرار نامعين:

اين نوع حلقه زماني به كار مي ره كه ما نمي دونيم حلقه ي ما چند بار قراره تكرار بشه و بر اساس يك شرط اجراي دستورات حلقه انجام مي پذيره.

دستور While:

دستور While يك حلقه تكرار نامعين هستش كه در ابتدا يك شرط رو تست مي كنه و در صورت درستي شرط درستورات درونش اجرا ميشن. در درون اين حلقه بايد يك متغير شمارنده قرار داده بشه تا شرط حلقه رو نقص كنه.(حتماً نبايد يك متغير شمارنده باشه هر عبارتيكه باعث False شدن جواب شرط بشه.) اگر شرط حلقه نقص نشه، حلقه بينهايت بار تكرار ميشه و كنترل اجراي برنامه درون حلقه گير مي كنه كه بايد با كليد تركيبي Ctrl + Break از حلقه خارج شد. شكل كلي استفاده از دستور While به صورت زير هستش:

While Condition DO Begin Pascal Instrcution End;

نكات:

اگر دستورات درون حلقه بيشتر از يك بود بايد به صورت تركيبي يا Begin ... End; نوشته بشن.
در صورتيكه شرط حلقه نقص نشه حلقه بينهايت بار اجرا ميشه.

دستور Repeat ... Until:

اين دستور نيز مانند دستور While عمل مي كنه اما با اين تفاوت كه براي اجراي دستورات درون حلقه جواب شرط بايد False بشه. اگه True بشه دستورات اجرا نميشن و كنترل اجراي برنامه از حلقه خارج ميشه. همچنين نكته اي كه بايد بگم اين هستش كه دستورات درون حلقه اول يكبار اجرا ميشن و بعد شرط تست ميشه. يعني شرط در انتهاي حلقه تست ميشه. شكل كلي استفاده از دستور Repeat ... Until به شكل زير است:

Repeat Pascal Instruction; Until Condition

نكات:

اگر دستورات درون حلقه بيشتر از يك بود احتياجي نيست تا به صورت تركيبي نوشته بشن.. در صورت نوشتن Begin ... End; پيغام خطا صادر مي گردد.
دستورات درون حلقه حداقل يكبار تا قبل از تست شرط اجرا ميشوند.
در صورتيكه شرط حلقه True نشه حلقه بينهايت بار اجرا ميشه.

دستور Break:

اين دستور سبب ميشه كه ما در وسط حلقه از حلقه خارج بشيم. يعني كنترل اجراي برنامه رو از درون حلقه خارج و به بعد از آخرين دستور بدنه حلقه مي بره. اگر درون يه حلقه داخلي يا تودر تو باشيم از داخلي ترين حلقه خارج ميشه.

دستور Countinue:

اين دستور باعث ميشه تا كنترل اجراي برنامه به ابتداي حلقه جاري بره و دستورات دوباره اجرا ميشن.

+ نوشته شده در یکشنبه هفدهم شهریور 1387ساعت 15:34 توسط Software |

آموزش پاسكال - چند مثال

با يك سري تمرين جديد اومدم تا شما و بيشتر با ساختار هاي شرطي آشنا كنم. بدليل وجود كد و طولاني شدن پست، مثال ها رو در ادامه مطلب ببينيد.

بدليل نزديكي كنكور خيلي كم به اينترنت ميام. اگر دير به دير آپ مي كنم شرمنده!

ادامه مطلب

+ نوشته شده در شنبه چهارم خرداد 1387ساعت 14:17 توسط Software |

آموزش پاسکال - ساختار های تصمیم

ما در زندگي خيلي از کارها رو بر اساس يک تصميم گيري انجام ميديم. اين تصميم ما بر اساس يک شرط انجام مي پذيره که جوابش موفقيت يا عدم موفقيت در کار هستش حالا هر کاري که بخواد باشه. در برنامه نويسي هم بسياري از برنامه ها بر اساس شرط ها نوشته ميشه در واقع بدون شرط ها نميشه برنامه نوشت!
در پاسکال ساختار شرطي يا دستورهاي شرطي دو نوع هستند که در اين پست به شرح اونها مي پردازم:

دستور شرطي If:
به وسيله اين دستور مي توان يکسري شرط را تست کرد و براساس نتيجه شرط توسط کنترل اجراي برنامه دستورات اجرا مي شوند. ساختار کلي استفاده از دستور زير در حالت زير است:

If Condition Then Instruction1 Else Instruction2

If Condition Then Begin pascal Instruction; End;

* در حالت اول ابتدا شرط مورد نظر يعني Condition تست مي شود و در صورت درستي شرط (True بودن) دستور بعد از Then اجرا مي شود و در صورت نادرستي شرط دستور بعد از Else اجرا مي شود.
* حالت دوم زماني به کار مي رود که تعداد دستورات ما بيش از 1 دستور باشد اون وقته که بايد اونها رو به صورت بلوک بندي بنويسيم يعني درون يه Begin و ;End قرار بديم بازم مي گم که فقط END پاياني به نقطه ختم ميشه و اين دوستورات بلوک بندي شده به سميکالون ختم ميشن.

شرط هاي متداخل يا If هاي تودرتو:

بعضي اوقات نياز هستش که ما از چند شرط تودرتو استفاده کنيم يعني در يک شرط بخواهيم دو سه شرط ديگر را نيز تست کنيم. شکل کلي استفاده از اين نوع شرط به صورت زير است:

If Then If Then If Then Else Else Else

اونايي که هم رنگ هستن يعني ماله 1 شرط جداگانه هستن.
* نکته 1 : استفاده از سميکالون در دستوري که بعد از آن Else قرار دارد مجاز نمي باشد و پيغام خطا صادر مي گردد. آره داداش اينجوريه.
* نکته 2 : استفاده از دستور1، Else و دستور 2 اختياري مي باشد.

If x>5 Then Else

* نکته 3 : اگر دستورات بيش از 1 دستور بود بايد درون بلوک قرار بگيرند
* نکته 4 : نتيجه شرط هميشه مقداريست منطقي

دستور شرطي Case:

استفاده از شرط هاي تودرتو باعث کاهش خوانايي کد برنامه ميشه و در برخي مواقع براي برنامه نويس دچار دردسر ميشه . پس روشي براي استفاده از شرطهاي تودرتو در پاسکال وجود داره که کار ما رو رااحت مي کنه و اونم استفاده از دستور Case هستش. حالت کلي استفاده از دستور Case به صورت زير هستش

Case Condition Of Case FirstValue : Code1 ; Case SecondValue : Code2 ; . . . Case LastValue : Code Lasted; End;

Case و OF دو کلمه کليدي هستن و Condition عبارت مورد شرط ما هستش. کنترل اجراي برنامه شرط رو تست مي کنه و در صورت درست بودن شروع به مقايسه مقادير مختلف در Caseهاي مختلف مي کنه. اگر عبارت مورد شرط با مقدار اول(FirstValue) برابر بود دستورات بعد از اين مقدار اجرا مي شوند. اگر عبارت مورد شرط با مقدار دوم برابر بود دستورات بعد از اين مقدار اجرا مي شوند و اين مقايسه اين قدر انجام ميگيرد تا به
;END برسد و کنترل اجراي برنامه از شرط خارج ميشه.
* نکته 1 : عبارت مورد شرط حتماً بايد از نوع اسکالر و يا 1 يا 2 بايتي باشه در غير اينصورت پيغام خطا صادر ميشه.
1 يا 2 بايتي ها: Byte-Integer - Boolean - Word - Char و غيره...
اسکالر يعني مقداري که قابل شمارش باشه.
* نکته 2 : حتماً در انتهاي دستور بايد از ;END استفاده بشه. هميني که هست مي خواي بخواه نمي خواي ...
* نکته 3 : در صورتي که دستورات بعد از مقادير بيش از 1 دستور باشه بايد به صورت بلوک بندي نوشته بشن. مثل:

Case Name Of Case 'Ali' : Write ('Ali'); Case 'Obalit': Begin Write ('Best Boy in the World :D:D:D'); Write('Hasoodi Nakon'); Write('Booooch'); End; {Case 'Ibo' : Writeln('Good Weblog');} End;

* نکته 4 : در صورتيکه عبارت مورد شرط با اولين مقدار مطابقت داشت دستور بعد از آن اجرا مي شود

x:= ( 5 + 3 ) * 2 / 10; Case x Of Case 2 : Write('FirstValue'); Case 2..6: Write ('A'); Case 2,3,100 : Write ('B'); END;

در دستورات بالا اولين Case اجرا مي شود و دستورات بعدي حتي كامپايل هم نمي شوند.

+ نوشته شده در سه شنبه دهم اردیبهشت 1387ساعت 22:28 توسط Software |

آموزش پاسکال - معرفی یک یونیت

يه يونيتي هست به اسم CRT که تمام زيربرنامه هاي مربوط به متن رو در اختيار برنامه نويس قرار مي ده.
نحوه تعريف اين يونيت در قسمت يونيت به صورت زير هستش :

Uses CRT;

رنگها در پاسکال:
در پاسکال رنگهاي پيش فرضي وجود دارند که به وسيله اونها ميشه رنگ ناحيه مختلف برنامه رو عوض کرد. همشون رو من نمي دونم چون حدود 15 يا 16 تا رنگ تو پاسکال داريم ولي اونايي رو که مي دونم رو مي نويسم:

کد رنگ	نام ثابت	رنگ
0	Black	سياه
1	Blue	آبي
2	Green	سبز
3	Cyan	فيروزه اي
4	Red	قرمز
5	Magenta	صورتي
6	Brown	قهوه اي
نمي دونم	Yellow	زرد
نمي دونم	White	سفيد

خاصيت TextColor:
به وسيله اين ويژگي از يونيت CRT مي تونيد رنگ متن مورد نظر متن رو عوض کنيد. رنگ پيش فرض پاسکال رنگ سفيد هستش و شما مي تونيد اون رو تغيير بديد. شکل کلي دستور TextColor به صورت زير هستش:

; (کد رنگ يا نام ثابت رنگ) TextColor

TextColor(Black);
TextColor(0);
TextColor(Red);
TextColor(4);
TextColor(Blue);
TextColor(1)
TextColor(Green);
TextColor(2);
TextColor(Yellow);
TextColor(Magenta);
TextColor(5);
...and More Color

در دستور زير عبارت Pascal به رنگ قرمز به نمايش در مياد:

TextColor(Red);
Write('Pascal');
Red Text

خاصيت TextBackGround:
به وسيله اين خاصيت ميشه رنگ پس زمينه متن رو عوض کرد. کد رنگ ها و نام ثابت رنگ ها هم در جدول بالا گفتم ولي فقط اعداد 0 تا 7 رو پشتيباني مي کنه. شکل کلي استفاده از اين خاصيت به صورت زير هستش:

; (کد رنگ يا نام ثابت) TextBackGround
TextBackground(Black);
TextBackground(Blue);
TextBackground(Green);
TextBackGround(Red);
TextBackground(Cyan);
TextBackground(Magenta);
... and More Color

خاصيت ClrScr:
اين خاصيت باعث مي شود تا هر دفعه که برنامه از نو کامپايل مي شود صفحه نمايش پاک شود نحوه نوشت دستور هم به اين صورت است:

clrscr; {Clear Screen}

* نکته: clrscr مخفف عبارت Clear Screen مي باشد به معني پاک کردن صفحه نمايش.
خاصيت Gotoxy:
پاسکال داراي ?? سطر و ?? ستون مي باشد. اين رو همين الان حفظش کنيد! خاصيت أخفخطغ شما را به آنجايي که مي خواهيد هدايت مي کند يعني اگر شما بخواهيد متن خود را در سطر ?? و ستون ?? نمايش دهيد متن شما تقريبا ً وسط صفحه در مياد. شکل کلي استفاده از اين دستور به صورت زير است:

GotoXY (شماره ستون , شماره سطر); Gotoxy (12,20); {in Center Screen}

اولين پارامتر مربوط به شماره ستون و دومين پارامتر مربوط به شماره سطر هستش. يادتون نره!

+ نوشته شده در جمعه ششم اردیبهشت 1387ساعت 20:55 توسط Software |

آموزش پاسکال - چند مثال

برنامه اي بنويسي تا دو عدد را از ورودي دريافت کند و آنها را مستقيماً در خروجي چاپ کند.

Program Sum ( Input,Output); var FirstNumber,SecondNumber,Result:Integer; Begin Write ('Enter the First Number:'); Readln (FirstNumber); Write ('Enter Second Number:'); Readln (SecondNumber); Result:= FirstNumber + SecondNumber; Writeln ('First Number is:' , FirstNumber ,' ' , ' ' , ' ' , 'SecondNumber is:',SecondNumber); Writeln( 'Sum of Result is:',Result); Readln; END.

برنامه اي بنويسيد تا از ورودي يک عدد اعشاري، يک عدد صحيح، يک رشته و يک کاراکتر دريافت و در خروجي چاپ نمايد.

Program Test1 (Input,Output); var strData : String; ChData : Char; intData : Integer; sngData : Real; Begin Write ('Enter one String:'); Readln(strData); Write ('Enter one Character:'); Readln (ChData); Write ('Enter one Number of Integer Type:'); Readln(intData); Write ( 'Enter one Number of Single Type:'); Readln (sngData); Writeln; Writeln; Writeln; Writeln ( '********************************'); Writeln ( 'String Data is:',' ',' ',' ',strData); Writeln ( 'Integer Number is:',' ',' ',' ',intData); Writeln ( 'Character Data is : ',' ',' ',' ',chData); Write ('Single Number is:',' ',' ', ' '); Writeln (sngData: 10 : 10); Writeln ('**********************************'); Readln; END.

برنامه اي بنويسيد تا از ورودي نام، نام خانوادگي، سن و معدل را از ورودي دريافت و هر کدام را جداگانه چاپ کند.

Program Student (Input,Output); Var FirstName,Family : String; Average : Real; Age : Byte; Begin Write ('Enter Your First Name:'); Readln(FirstName); Write ('Enter Your Family:'); Readln (Family); Write ('Enter Your Average:'); Readln (Average); Write ('Enter Your Age:'); Readln (Age); Writeln; Writeln; Writeln; Writeln; Writeln ('*************************'); Writeln ('Name:',' ' ,' ',' ',FirstName); Writeln ('Family:',' ',' ',' ',Family); Write ('Average:',' ',' ',' '); Writeln (Average : 0 : 2); Writeln ('Age:',' ',' ',' ',Age); Writeln ('*************************'); Readln; END.

برنامه اي بنويسيد تا شعاع يک دايره را از ورودي دريافت و محيط و مساحت آن را محاسبه و در خروجي چاپ نمايد.

Program Circle (Input,Output); Const Pi = 3.1415; Var Radius : Byte; Area : Real; Perimeter : Real; Begin Write ('Enter the Radius:'); Readln (Radius); Area := Radius * Radius * pi; Perimeter := Radius * pi * 2; Writeln ('Radius:',' ',' ',' ',Radius); Write ( 'Circle Area:',' ',' ',' '); Writeln(Area : 0 : 5); Write ( 'Circle Perimeter:',' ',' ',' '); Writeln(Perimeter : 0 : 5 ); Readln ; END.

+ نوشته شده در پنجشنبه پنجم اردیبهشت 1387ساعت 21:27 توسط Software |

آموزش پاسکال - دستورات ورودی و خروجی در پاسکال

امروز درباره دستورات ورودی و خروجی در پاسکال توضیحاتی رو دادم.
بدلیل اینکه حجم مطالب زیاد هستش اونها رو در ادامه مطلب نوشتم تا شما به راحتی بتونید اون رو بخونید.
1- دستورات ورودی
2- دستورات خروجی
3- قالب بندی

ادامه مطلب

+ نوشته شده در پنجشنبه پنجم اردیبهشت 1387ساعت 19:45 توسط Software |

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

بدلیل زیاد بودن مطالب اونها رو در ادامه مطلب نوشتم. در این قسمت اطلاعاتی راجب نحوه برنامه نویسی در محیط پاسکال براتون نوشتم که امیدوارم به دردتون بخوره.
1- مشخصات برنامه
2- قسمت تعاریف
3- بلوک اصلی برنامه
ادامه مطلب

+ نوشته شده در دوشنبه دوم اردیبهشت 1387ساعت 0:51 توسط Software |

آموزش پاسکال - انواع عملگرها

عملگرها :
عملگرها درواقع علامت ها و نشانه هايي هستند که به وسيله آنها مي توانيم يه عبارت را محاسبه يا مقايسه کنيم و با توجه به آن، نتيجه عبارت را محاسبه و اعلام کنيم. عملگرها در پاسکال 3 نوع هستند:
الف) عملگرهاي محاسباتي
ب) عملگرهاي رابطه اي
ج) عملگرهاي منطقي

1- عملگرهاي محاسباتي:
عملگرهايي هستند که براي محاسبه يه عبارت بر اساس اعمال رياضي به کار مي روند. عملگرهاي محاسباتي در پاسکال به شرح زير هستند:

نام عملگر	وظيفه عملگر	اولويت اجرا	مثال
*	ضرب	1	*12 = 6 2**
/	تقسيم	1	12 = 2 / 24
Mod	باقيمانده	2	3 = 3 Mod 11
Div	خارج قسمت	3	11 Div 3 = 3
+	جمع	4	5+4=9
-	تفريق	4	11-9=2

عملگرهاي محاسباتي براي محاسبه يک عبارت به کار ميروند و براي محاسبه يک عبارت هرکدام داراي حق تقدم يا اولويت اجرا هستند و با توجه به اولويت اجرا يک عبارت را محاسبه مي کنند.
* نکته 1 : اگر در يک عبارت از عملگرهايي که حق تقدم يکساني دارند استفاده شد، حق تقدم ابتدا با عملگري است که در سمت چپ ترين باشد.

مثال:

10 / 2 *3 = 15

* نکته 2 : در بعضي مواقع ممکن است که در يک عبارت از پرانتز استفاده شده باشد در آنصورت حق تقدم با عملگري است که در داخلي ترين پرانتز قرار دارد.

مثال:

(12 Mod 3 * 2 + (11 Div 3) -1 ) = 8

تمرين: حاصل عبارات زير چيست؟

( 25 Mod 5 + ( 3 * 3 Div 2 ) Div 5 ) + 9 )= 11 Mod 2 - 14 * 3 * (-1) / ( 21 Div 7 ) + 21 Mod 7 + 1 = 14 Div 7 Mod 2 + ( 5 * 12 ) / 3 + 16 - 32 + 128 -256 / 8 =

2- عملگرهاي رابطه اي :
عملگرهاي هستند که براي تست شرط هايي از نوع محاسبه رشته يا عدد به کار ميروند و نتيجه شرط را از نوع منطقي اعلام مي کنند.
در واقع عملگرهاي رابطه اي عملگرهايي هستند که برروي عملوندهاي منطقي عمل مي کنند و نتيجه آنها هميشه مقداريست منطقي(درست يا نادرست). در جدول زير عملگرهاي منطقي را مشاهده مي کنيد:

نام عملگر	مفهوم	مثال	نتيجه
<	بزرگتر از	12 > -4	درست
>	کوچکتر از	9 < 52	درست
< =	بزرگتر يا مساوي	5 <=5	درست
> =	کوچکتر يا مساوي	0 >= 0	درست
<>	مخالف	12<> 3	درست
=	مساوي	4 = 4	درست

* نکته 1 : از عملگرهاي رابطه اي مي توان براي مقايسه رشته ها در پاسکال استفاده کرد. اين کار با تبديل حروف و کاراکترها به کد معادل آنها در استاندارد اسکي امکان پذير مي گردد.

'Ali'< 'ali'

در اين عبارت رشته Ali از ali کوچکتر است. زيرا کاراکتر A کد آن در جدول کد اسکي معادل 65 است ولي کاراکتر a در جدول کد اسکي معادل 97 مي باشد. بدين ترتيب 65 با 97 مقايسه شده و نتيجه اعلام ميگردد.

'Ali' < '@li'

در رشته فوق نيز کاراکتر A که کد آن در جدول اسکي 65 مي باشد با کاراکتر @ که کد آن در جدول اسکي 64 مي باشد مقايسه مي شود و نتيجه اعلام مي گردد اما نتيجه در عبارت بالا مقدار False مي باشد زيرا 65 بزرگتر از 64 مي باشد.
* نکته 2 : در هنگام مقايسه از عملگرهاي رابطه اي، بايد به اين نکته توجه داشت که حتماً بايد نوع داده ها با يکديگر سازگار باشند. يعني هيچ وقت يک مقدار رشته اي نمي تواند با يک مقدار صحيح مقايسه شود. به طور کلي بايد داده هاي مورد نظر بايکديگر سازگا باشند. داده هاي عددي با داده هاي عددي، داده هاي رشته اي با داده هاي رشته اي و داده هاي منطقي با داده هاي منطقي مقايسه شوند.

NumericData > BooleanData

StringData>=StringData
3<= 12
True>False
'Ali'>'@li'

عبارت قرمز شده به معناي ناسازگاري داده ها مي باشد.

?- عملگرهاي منطقي :

عملگرهايي هستند که نتيجه آنها هميشه مقداريست منطقي و با توجه به نوع آنها تاثيراتي روي عبارات محاسباتي مي گذارند و تست شرط هاي منتطقي را مورد بررسي قرار مي دهند. انواع عملگرهاي منطقي در پاسکال به شرح زير هستند:

نام عملگر	وضيفه عملگر	اولويت اجرا
NOT	نقص	1
AND	و	2
OR	يا	3
XOR	يا انحصاري	3

نحوه عمل اين عملگرها به اينصورت هستند:

NOT: نتيجه يک مقدار منقي را نقص مي کنيد و آن را مخالف نتيجه موجود قرار مي دهد. يعني اگر يک مقدار منطقي عبارتي برابر True باشد آن را False مي کند و اگر يک مقدار منطقي عبارتي False باشد آن را True مي کند.

AND: يک مقدار منطقي را در يک مقدار منطقي ديگر ضرب مي کند.

OR: يک مقدار منطقي را با يک مقدار منطقي ديگر جمع مي کند.

XOR: مقادير مشابه به هم دو مقدار منطقي را False ميدهد و مقادير غير مشابه به هم را True مي دهد.

مقدار منطقي چيست؟

مقدار منطقي مقداري است که داراي يکي از حالات درستي يا نادرستي (True,False) مي باشد. توجه شود که فقط يکي از اين مقادير را مي تواند بپذيرد زيرا کامپيوتر فقط اين مقادير را مي فهمد و يکي را قبول مي کند.

مقدار عددي يک مقدار منطقي به اينصورت است که False برابر 0 (False=0) و True برابر 1 است (True=1) و هر مقدار غير 0 در محور مختصات برابر Trueمي شود.

اگر x و y دو مقدار منطقي باشند نتيجه آنها با توجه به مقادير داده شده در پاسکال به اينصورت خواهند بود:

x XOR y x OR y x AND y NOT x
y x

F T T F T T

T T F F F T

T T F T T F

F F F T F F

تمرين: اگر A و B دو مقدار منطقي باشند با توجه به عبارت زير کدام يک از گزينه هاي زير صحيح است؟

A = False , B = False

NOT (A OR B) { PAS

الف) A <= B ) > B

ب) A AND NOT(B)

ج) A OR B

د) NOT (A) AND B

جواب صحيح گزينه الف!

+ نوشته شده در چهارشنبه بیست و هشتم فروردین 1387ساعت 1:7 توسط Software |

آموزش پاسکال - انواع داده ها

Data Type :
داده ها انواعی هستند که باعث میشوند توابع دارای نوع خاصی باشند تا اطلاعات را درون خود ذخیره کنند. برای تعیین نوع توابع باید برنامه نویس از انواع داده های زبان برنامه نویسی مورد نظر اطلاع داشته باشد. داده ها انواع مختلفی دارند. در پاسکال 3 نوع داده وجود دارد:
الف: داده های عددی
ب: داده های رشته ای
ج: داده های منطقی
به توضیح این نوع داده ها می پردازم:
1) داده های عددی یا Numeric Data :
داده هایی هستند که دارای محدوده و از نوع عددی هستند که با اعداد سروکار دارند. از این نوع داده برای محاسبات ریاضی یا فرمول ها استفاده می شود که انواع داده های عددی در پاسکال به شرح زیر است:

داده های صحیح:

نوع داده	محدوده تغییر	میزان حافظه اشغالی
Byte	0 تا 255	1 بایت
ShortInt	-127 تا +127	1 بایت
Integer	-32768 تا +32767	2 بایت
Word	0 تا 65535	2 بایت
LongInt	نمی دونم ولی خیلی زیاد	4 بایت

داده های اعشاری:

نوع داده	محدوده تغییر	میزان حافظه اشغالی
Single	7 تا 8 رقم اعشار	4 بایت
Real	11 تا 12 رقم اعشار	6 بایت
Double	15 تا 16 رقم اعشار	8 بایت

2) داده ای رشته ای یا String Data :

داده هایی هستند که برای کار با رشته ها و کاراکترها استفاده می شود. مانند نام، آدرس، پست الکترونیک.
این نوع داده ها می توانند با طول ثابت و طول متغیر استفاده می شوند و انواع آن به صورت زیر است:

داده کاراکتر:

نوع داده	محدوده	میزان حافظه اشغالی
Char	1 کاراکتر	1 بایت

داده رشته ای:

نوع داده	محدوده	میزان حافظه اشغالی
String {طول ثابت}	80 کارااکتر	طول رشته
String {طول متغیر}	255 کاراکتر	طول رشته

3) نوع داده منطقی یا Boolean:
این نوع داده به احترام آقای جورج بولین نامگذاری شده که در سخت افزار هم از جبر بولی استفاده میشه. این نوع داده برای تعیین مقادیری است که دارای دو مقدار منطقی میباشند به کار میرود مثل مذکر یا مونث، درست یا نادرست، بلی یا خیر. این نوع داده را در جدول زیر مشاهده می کنید:

داده منطقی:

نوع داده	محدوده تغییر	میزان حافظه اشغالی
Boolean	True - False	1 بایت

انواع داده ها در پاسکال رو خدمتتون عرض کردم و مطالبم به پایان رسید.

+ نوشته شده در دوشنبه بیست و ششم فروردین 1387ساعت 19:10 توسط Software |

آموزش كامپيوتر

آموزش پاسكال - چند مثال

آموزش پاسكال - حلقه های تکرار

آموزش پاسكال - چند مثال

آموزش پاسکال - ساختار های تصمیم

آموزش پاسکال - معرفی یک یونیت

آموزش پاسکال - چند مثال

آموزش پاسکال - دستورات ورودی و خروجی در پاسکال

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

آموزش پاسکال - انواع عملگرها

آموزش پاسکال - انواع داده ها

نوشته های پیشین

آرشیو موضوعی

پیوندها