تبلیغات
گرد آوری مطالب مهم و کاربردی رشته های پیام نور
 
گرد آوری مطالب مهم و کاربردی رشته های پیام نور
گر بر تن من زبان شود هر مویی یک شکر تو از هزار نتوانم کرد
موضوعات
مطالب اخیر
آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :

با تشکر از بازدید شما لازم بذکر است که شرکت ابر رایانه ایرانیان خدمات دیگری هم به علاقه مندان و مشتریان خود ارائه میدهد :

فروش نرم افزار ویژه مشاغل فست فود   اینجا کلیک کنید         دریافت بروشور

فروش نرم افزار ویژه مشاغل رستوران   اینجا کلیک کنید          دریافت بروشور

فروش نرم افزار ویژه مشاغل جگرکی   اینجا کلیک کنید           دریافت بروشور

فروش نرم افزار ویژه مشاغل سفره خانه  اینجا کلیک کنید         دریافت بروشور

فروش نرم افزار ویژه مشاغل بستنی آبمیوه   اینجا کلیک کنید     دریافت بروشور

فروش نرم افزار ویژه مشاغل کافی شاپ           دریافت بروشور

فروش پکیج کامل ارسال و دریافت sms   اینجا کلیک کنید

فروش نرم افزار پوشاک - تولیدی - بنکداری  اینجا کلیک کنید

فروش نرم افزار ظروف کرایه و تجهیز مجالس  اینجا کلیک کنید

فروش نرم افزار چاپ بارکد - بدون نیاز به پرینتر مخصوص و ... اینجا کلیک کنید

فروش نرم افزار باربری شهری و بین شهری اینجا کلیک کنید

فروش نرم افزار ویژه کلینیک های ترک اعتیاد  اینجا کلیک کنید

فروش نرم افزار دفتر تلفن + کالر آی دی اینجا کلیک کنید

آموزش دوره های کامپیوتر - فتوشاپ - آفیس - اینترنت بصورت خصوصی و نیمه خصوصی ( در منزل یا محل کار شما )

طراحی وب سایت   اینجا کلیک کنید

طراحی نرم افزار سفارشی    اینجا کلیک کنید 

فروش انواع کامپیوتر - لپ تاپ - تبلت  اینجا کلیک کنید





نوع مطلب :
برچسب ها :
لینک های مرتبط :

       نظرات

1 ) سوال اشتباه است

    در تعریف مقدار دهی ثابت نمیتوان از علامت دونقطه استفاده کرد ، همچنین در تعریف متغیر نمیتوان از علامت مساوی استفاده کرد

همیشه مقدار ثابت باید بصورت زیر تعریف شود :

const      i = 12 ;

و در تعریف متغیر نمیتوان مقدار داد

var        i:integer;

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

برنامه ای که اسم و فامیلی و شماره دانشجویی خود را در وسط صفحه چاپ کند ؟

begin

   gotoxy(20,15);

   writeln( ' Farhad Ganjizadeh 90001234556 ' );

end.

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

برناه ای که دو عدد First,Second را با مقادیر 12,13 در نظر گرفته و سپس مجموع و مجموع مربعات آنها را بدست آورد و چاپ کند ؟

حل : مجموع مربعات یعنی First2 + Second2

var

First,Second:integer;

sum1,sum2:integer; { متغیرهای کمکی }

begin

   First:=12 ;

   Second:=13 ;

   sum1:= First + Second ;

   sum2:= First * First + Secon * Second ;

   writeln( ' Majmu = ' , sum1 ) ;

   writeln( ' Majmu Morabaat = ' , sum2 ) ;

end.





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

برنامه ای که سه عدد را بنام First,Secound,Third بترتیب  13,15,17 را در نظر گرفته و بطور چرخشی مقادیر آنها را جابجا کند

فقط کافیست از یک متغیر کمکی استفاده کنیم ( Temp ) :

var

First,Second,Third:integer;

Temp:integer;

begin

   First:=13;

   Second:=15;

   Third:=17;

   Temp:=First;

   First:=Second;

   Second:=Third;

   Third:=Temp;

   writeln(first);

   writeln(second);

   writeln(Third);

end.

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

برنامه ای بنویسید که دو متغیر با مقادیر 15 و 3 را در نظر گرفته محتویات آنرا بدون استفاده از متغیر کمکی جابجا کند .

حل : این فقط یک روش ریاضی است و توضیح خاصی ندارد لذا :

var

a,b:integer;

begin

a:=15;

b:=3;

a:=a+b;

a:=a-b;

b:=a-b;

writeln(a);

writeln(b);

end.

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

برنامه ای بنویسید که ابعاد مثلث به اضلاع 3و3و1 را در نظر گرفته و مساحت و محیط آنرا حساب کند ؟

var

a,b,c :integer;

begin

a := 3 ;

b := 1 ;

c := 3 ;

writeln ( ' mohit = ' , a+b+c ) ;

writeln ( ' masahat " ' , a*b/2 ) ;

end.





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

حاصل را بدست اورید به ازای :

X := 13 ; y := 3

ابتدا با تقسیمات متوالی بر 2 عدد را به مبنای باینری میبریم پس :

( 13 )2 = 0001101

( 3 )2 = 11

 

A )  X and y = ?         

                                   0 0 0 0 1 1 0 1

                         and   0 0 0 0 0 0 1 1

                                  0 0 0 0 0 0 0 1      = ( 1 * 20 ) = 1

B ) X or y = ?

                                0 0 0 0  1 1 0 1

                         or   0 0 0 0 0 0  1 1

                               0 0 0 0 1 1 1 1  = ( 1 * 20 ) + ( 1 * 21 ) + ( 1 * 22 ) + ( 1 * 23 ) = 15

C ) Not X = ?

                     not  (  0 0 0 0 1 1 0 1 ) = 1 1 1 1 0 0 1 0 = 242

D ) X or X  = ?

                           0 0 0 0 1 1 0 1

                    or   0 0 0 0 1 1 0 1

                          0 0 0 0 1 1 0 1     =   13

E ) X shr Y = ?

  00001101 shr  = 00000110 shr = 00000011 shr = 00000001 = 1

F ) X shl Y = ?

 00001101 shl  = 00011010 shl = 00110100 shl = 01101000  = 104

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

حاصل عبارتهای منطقی به ازای مقادیر مشحص کنید .

A := True ; B := False ; C := True ;

A ) ( A AND B ) OR ( A AND C )

               False or True

                                                                        = True جواب

B ) ( A OR NOT B ) AND ( NOT A OR C )

          ( a or true ) and ( false or c )

                true      and        true

                                                                       = true

C ) A or B and C

      A or false

true  or  false

                                                                    =  true

D ) Not ( A or B ) and c

        not ( true ) and c

                 false and true

                                                                 = false

 

 

 

 

 

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

حاصل عبارنهای زیر را بدست اورید :

A )  3 * 13 mod 3 div 3

همه علامتها در یک اولویت قرار دارند لذا بترتیب از سمت چپ

3 * 13 = 39

39 mod 3 = 0

0 div 3 = 0

پس حاصل عبارت صفر است

B ) 7.3 * 5 / 3

7.3 * 5 = 36.5

36.5 / 3 = 12.6666667   حاصل

C ) ( 3 + 4 < 6 ) And ( 4 + 7 < 13 )

اولویت اول با پرانتز هاست لذا حاصل آنها

(3+4<6) = false

(4+7<13)=true

false And true = false

حاصل false میشود

D ) 33 - 8 * 3 div 3 mod ( 5 div 3 )

اول پرانتز :

5 div 3 = 1

اولویت بعدی ضرب و div است و mod

8 * 3 = 24

24 div 3 = 8

8 mod 1 = 0

در پایان علامت منها با کل حاصل که صفر شد

33 - 0 = 33  نتیجه پایانی

E ) NOT ((( 3 - 4 MOD 3 ) < 5 ) AND (( 6 Div 4 ) <> 3 ))

از داخلی ترین پرانتز تجزیه و تحلیل می کنیم یعنی عبارت زیر که باز اولویت mod بالاتر از منفی است

( 3 - 4 mod 3 )

4 mod 3 = 1

3 - 1 = 2

2 < 5 = true

حال پرانتز سمت راست

6 div 4 = 1

1 <> 3 = true

true and true = true

not(true)=false نتیجه نهایی

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

با توجه به اعلان زیر :

const

        Pi = 3.14159

       Max = 1000 ;

var

     X,Y : real ;

    A,B : integer ;

نکاتی قبل از حل :

موقع تعریف ثابت ها دستور Const باید بالاتر از  Var  باشد .

در تقسیم اعشاری که با علامت / نشان داده میشود حتما حاصل باید در متغیر اعشاری ریخته شود

حاصل تقسیم اعشاری همیشه اعشاریست مثال زیر را ببینید :

write ( 9/3 ) ;

به ظاهر عدد 3 خروجی است ولی الان خروجی ما اعشاریست یعنی :

3.0000000000E+00

واما حل تمرین :

A ) I:= A mod B ;

همیشه برای دو دستور mod , div باید هر دوطرف عدد صحیح یا همان integer باشد و حاصل هم از نوع integer باشد

پس دستور A بدون خطا میباشد و عدد صفر در I ریخته میشود

B ) I := ( 990 - Max ) Div A;

بدون خطا : و مقدار منفی سه در I ریخته میشود

C ) X := A/ B;

بدون خطا چون حاصل باید از نوع اعشاری باشد ولی A,B چه صحیح و چه اعشاری باشد انجام میشود

ولی عدد ریخته شده در X عدد یک نیست بلکه

1.0000000000E+00

میباشد .

D ) I := A/B ;

چون تقسیم اعشاری داریم حاصل نباید از نوع عدد صحیح باشد پس خطای کامپایلر داریم .

E ) X := A Mod ( A/B ) ;

در دستور Mod همه پارامترها باید از نوع صحیح باشد که حاصل داخل پرانتز اعشاری میشود لذا برنامه خطا دارد

F ) I := B Div 0 ;

تقسیم عدد بر صفر خطای زمان اجرا میدهد لذا خروجی نداریم

G ) I := A Mod 0 ;

تقسیم عدد بر صفر خطای زمان اجرا میدهد لذا خروجی نداریم

H ) X := A div B ;

مجاز است .

I ) X := Pi * y ;

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

J ) I := A/y ;

خطای کامپایلری داریم

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

1 -  جواب گزینه الف        در پاسکال متغیر نمیتوان از نوع فلاوت تعریف کرد .

2 - جواب گزینه ب            زیرا یک فاصله مابین آن است ، مابقی چون در کلمات رزرو شده پاسکال  نمیباشند میتواند متغیر باشد به مثال جالب زیر توجه کنید

var

True : integer ;

True : = 7 ;

writeln ( True ) ;

readkey ;

End.

شاید در نظر اول همه ما بگوییم این برنامه خطای کامپایلر دارد ولی خروجی این برنامه عدد 7 میباشد .

3 - جواب گزینه د          میباشد ، اولی نمیتوان عدد را اول نوشت ، دومی از علامت منها نمیتوان استفاده کرد ، سومی جزء کلمات رزورو شده است .

4 - جواب گزینه ج          نکته : ثابت ها دو نوعند اولی مجازی دومی حقیقی ، ثابت مجازی قابل تغیر در طول اجرای برنامه میباشد ولی ثابت حقیقی نه ، اگر در تعریف ثابت ها نوع آن همزمان مشخص شود از نوع مجازی میشود  .

مثالی بیشتر :

const

i:integer=20;

begin

i:=3;

writeln ( i );

end.

چون ثابت در زمان تعریف هم نوع آن مشخص شده و هم مقدار دهی شده پس در حین اجرا قابل تغیر است ولی در مثال زیر :

const

i=20;

begin

i:=3;

writeln ( i );

end.

در اینجا چون نوع آن مشخص نیست در خط چهارم که مقدار برنامه عوض شده خطای کامپایلر داریم

5 - جواب گزینه ب        زیرا در پاسکال تعریف نشده است ، گزینه اول و آخر که خودشان را نشان میدهد و گزینه ج عدد 32767 را چاپ میکند .

6 - جواب گزینه د        به جدول رزروی ها مراجعه کنید

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

8 - جواب گزینه د        در اینجا نکته این است که گفته نوع دو عددی که یکی صورت کسر و دیگری مخرج کسر را دارد از چه نوعی است که هم میتواند عدد صحیح و هم اعشاری باشد ، ولی اگر میگفت حاصل آن در چه نوع متغیری میبایست ریخته شود گزینه الف درست میبود





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

4 - برنامه ای که یک حرف تی بزرگ در صفحه نمایش چاپ کند ؟

begin

clrscr;

writeln ( ' ************************************ ' ) ;

writeln ( '                                  ***                                 ' ) ;

writeln ( '                                  ***                                 ' ) ;

writeln ( '                                  ***                                 ' ) ;

writeln ( '                                  ***                                 ' ) ;

writeln ( '                                  ***                                 ' ) ;

writeln ( '                                  ***                                ' ) ;

writeln ( '                                  ***                                ' ) ;

readkey;

end.

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

3 - برناه ای که عبارت زیر را چاپ کند

Pascal's Book

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

begin

writeln ( ' Pascal ''s Book ' );

end.

 





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

2 - برنامه ای بنویسید که با استفاده از علامت * یک مستطیل نمایش دهد

روش اول :

begin

clrscr;

writeln ( ' ****************************************************** ' );

writeln ( ' *                                                                                                        * ' );

writeln ( ' *                                                                                                        * ' );

writeln ( ' *                                                                                                        * ' );

writeln ( ' ****************************************************** ' );

readkey ;

end.

روش دوم با استفاده از دستور گوتو_ایکس_وای در وسط صفحه چاپ شود

begin

clrscr;

gotoxy (19,11 ) ;

writeln ( ' ****************************************************** ' );

gotoxy (19,12) ;

writeln ( ' *                                                                                                        * ' );

gotoxy (19,13) ;

writeln ( ' *                                                                                                        * ' );

 gotoxy (19,14 ) ;

writeln ( ' *                                                                                                       * ' );

gotoxy (19,15 ) ;

writeln ( ' ****************************************************** ' );

readkey ;

end.





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات

2 - برنامه ای بنویسید که با استفاده از علامت * یک مستطیل نمایش دهد

روش اول :

begin

clrscr;

writeln ( ' ****************************************************** ' );

writeln ( ' *                                                                                                        * ' );

writeln ( ' *                                                                                                        * ' );

writeln ( ' *                                                                                                        * ' );

writeln ( ' ****************************************************** ' );

readkey ;

end.

روش دوم با استفاده از دستور گوتو_ایکس_وای در وسط صفحه چاپ شود

begin

clrscr;

gotoxy (19,11 ) ;

writeln ( ' ****************************************************** ' );

gotoxy (19,12) ;

writeln ( ' *                                                                                                        * ' );

gotoxy (19,13) ;

writeln ( ' *                                                                                                        * ' );

 gotoxy (19,14 ) ;

writeln ( ' *                                                                                                       * ' );

gotoxy (19,15 ) ;

writeln ( ' ****************************************************** ' );

readkey ;

end.





نوع مطلب : حل تمرینات و رفع اشکال درس پاسکال، 
برچسب ها :
لینک های مرتبط :

       نظرات


( کل صفحات : 19 )    ...   2   3   4   5   6   7   8   ...