تبلیغات
گرد آوری مطالب مهم و کاربردی رشته های پیام نور - مطالب فرهاد گنجی زاده 09397252551 Farhad Ganjizadeh 09127252551
 
گرد آوری مطالب مهم و کاربردی رشته های پیام نور
گر بر تن من زبان شود هر مویی یک شکر تو از هزار نتوانم کرد
موضوعات
مطالب اخیر
آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :

5 )

چون در فرمول از تقسیم اعشاری استفاده شده حتما باید نوع sum از نوع real باشد پس :

var

a : longint ;

sum : real ;

begin

writeln ( ' Enter a number ? ' ) ;

readln ( a ) ;

sum := a * ( ( a +1 ) / 2 ) ;

writeln ( ' sum = ' : 8 , sum : 12 : 2 ) ;

end .

 





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

       نظرات

4 ) صورتحساب مالیات از روش بهای ارزیابی شده ضربدر نرخ مالیات تقسیم بر صد محاسبه میشود یعنی اگر

مقدار ارزیابی شده 12.345.000 ریال باشد با نرخ 4 درصد میشد :

12345000 * 4 / 100 = 493800

اینک برنامه نویسی :

var

rate : integer;

id : longint ;

price,maliyat : real ;

begin

writeln ( ' Enter ID number : ' ) ;

readln( id ) ;

writeln ( ' Enter Price : ' ) ;

readln ( pricd ) ;

writeln ( ' Enter rate : ' ) ;

readln ( rate ) ;

maliyat := price * rate / 100 ;

writeln ( ' Your ID : ' : 15 , id : 20 ) ;

writeln ( ' Price: ' : 15 , price : 20:2 ) ;

writeln ( ' rate:' : 15 , rate :20 ) ;

writeln ( ' maliyat = ' : 15 , maliyat : 20 :2 );

end .

 





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

       نظرات

3 )  فرمول تبدیل فارنهایت به سانتی گراد :

C = ( F - 32 ) * 5 / 9

فرمول تبدیل سانتیگراد به فارنهایت :

F = C * 9 / 5 + 32

 

var

F,C : real ;

begin

write ( ' Enter Fahrenhite : ' ) ;

read( F ) ;

C := ( F - 32 ) * 5 / 9 ;

writeln ;

write ( ' convert to Santigerad is : ' , C : 8 : 2 ) ;

readkey ;

end .

 





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

       نظرات
تمرین 1 و 2 در فصل قبلی حل شده است رجوع کنید



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

       نظرات

4 )  حل :  راهنمایی جامع طول میدان

X = 12.235

I = 100

 

[] [] [] [] [] [] X [] i s [] 12.24 I [] i s [] [] 1 0 0

[] [] [] [] [] [] I [] i s 1 0 0

[] [] [] [] [] [] X [] i s 1 2 . 2

[] [] [] [] [] [] [] [] [] [] [] X [] i s [] [] [] 1 2 . 2

[] [] [] [] [] [] I [] i s [] [] [] [] [] [] X [] i s [] 1 2 . 2 3 5

 

 





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

       نظرات

2 ) دستور read بعد از خواندن عدد به عدد بعدی همان سطر میرود ولی readln بعد از خواندن عدد به سطر بعدی میرود

قسمت الف :

 first            second              third 

   1                    2                    7

خروجی

They are ::

[] [] [] [] [] 1 [] [] [] [] [] 2

[] [] [] [] [] 7

 

قسمت ب :

first              second                  third

  1                      

  7                    8

                                                   9

خروجی برنامه

They are

[] [] [] [] [] 7 [] [] [] [] [] 8 [] [] [] [] [] 9

 

قسمت ج :

first              second               third

   1                   2                      7

                        8                      9

                                               13

خروجی برنامه

[] [] [] [] [] 1

[] [] [] [] [] 8 [] [] [] [] 1 3

 





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

       نظرات

خروجی برنامه     راهنمایی و توضیحات بیشتر

[] 1 8 . 8 0





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

       نظرات

قوانین طول میدان اگر عدد از نوع صحیح باشد :

1 - اگر طول میدان از عدد داده شده کمتر باشد عینا همان عدد چاپ میشود مثال :

a:=12345

write( a : 3 ) ;

----------------->>>>     12345    خزوجی

2 - اگر طول میدان بزرگتر باشد ابتدا کل طول میدان در نظر گرفته میشود و سپس از سمت راست عدد نوشته میشود مثال :

write ( a : 15 ) ;

- - - - - - - - - - 1 2 3 4 5  البته خطوط فاصله دیده نمیشوند

3 - اگر برای عدد صحیح طول میدان اعشاری تعریف شود با خطای کامپایلری مواجه میشویم مثال :

var

a : integer ;

begin

a := 12345 ;

write ( a : 3 : 1 ) ;      در اینجا خطای کامپایلری داریم

end .

ولی اگر عدد اعشاری باشد :

1 ) اگر طول میدان کمتر از 8 باشد و طول میدان اعشاری آن وجود نداشته باشد ، همیشه بطورت نماد علمی 8 کاراکتری نشان میدهد که قانون ان بصورت زیر است :

اگر 8 کاراکتر بصورت روبرو باشد :                 8   7   6   5   4   3   2    1

عدد 1 صرفا برای علامت مثبت و یا منفی بکار میرود که اگر عدد مثبت باشد یک جای خالی میگذارد

عدد 2 رقم صحیح نماد علمی است

عدد 3 ممیز است

عدد 4 اولین رقم اعشار نماد علمی که باید حتما گرد شود

عدد 5 حرف انگلیسی E

عدد 6 علامت توان نماد علمی

عدد 7 و 8 توان نماد علمی است

مثال :

var

     a,b,c : real ;

begin

    a := 12.45 ;

    b := -1.45 ;

    c := 12.55 ;

writeln ( a : 5 ) ;

writeln ( c : 6 ) ;

writeln ( b : 1 ) ;

end .

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

[] 1 . 2 E + 0 1

[] 1 . 3 E  + 0 1

-  1 . 5 E  + 0 0

در صورتیکه طول میدان اول بیشتر از عدد باشد و طول میدان اعشاری وجود نداشته باشد

ماکزیمم نشان دهنده نماد علمی در طول میدان 17 رقم است و هر جا عدد اعشار وجود نداشته باشد صفر اضافه میشود مثال با همان مقادیر بالا :

write ( c : 20 ) ;

[] [] [] [] 1 . 2 5 5 0 0 0 0 0 0 0 E + 0 1

 

write ( b : 20 ) ;

[] [] [] - 1 . 4 5 0 0 0 0 0 0 0 0 E + 0 0

ولی اگر برای اعداد اعشاری هم طول میدان صحیح و هم طول میدان اعشاری تعریف شود :

دیگر اعداد با نماد علمی نشان داده نخواهند شد

اگر طول میدان اولی از تعداد اعداد صحیح کمتر باشد بدون تاثیر عدد صحیح آن کامل چاپ میشود و اعشاری آن تابع طول میدان دومی میشود

ممیز جزء شمارش اعداد اعشاری نمیباشد

مثال :

write ( a : 1 : 7 ) ;

1 2 . 4 5 0 0 0 0 0

 

write ( b : 5 : 3 ) ;

- 1 . 4 5 0

 

write ( c : 0 : 0 ) ;

1 3                       گرد کرد

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

write ( b : 15 : 2 ) ;

[] [] [] [] [] [] [] [] [] [] 1 2 . 4 5

 

write ( b : 15 : 7 ) ;

[] [] [] [] [] 1 2 . 4 5 0 0 0 0 0

اگر طول میدان اعشاری کمتر از اعشار عدد باشد گرد میکند :

write ( c : 10 : 1 ) ;

[] [] [] [] [] [] 1 2 . 6

 

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

var

a : string ;

begin

a:= ' farhad ' ;

write ( a : 3 ) ;

----------------->>>>      farhad  کل عبارت چاپ میشود

far      اگر پاسکال استاندارد باشد این عبارت چاپ میشود

write ( a : 15 ) ;

[] [] [] [] [] [] [] [] [] f a r h a d

 





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

       نظرات

35 ) گزینه ج

گفته بین 1 تا 9 و مخالف 4 یعنی فقط اعداد زیر مجازند

2 -3 -5 - 6 - 7 - 8

فقط شروط گزینه ج این اعداد را میدهد





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

       نظرات

34 ) گزینه ج

به تست 26 مراجعه شود





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

       نظرات

33 ) گزینه ج              مشاهده جدول منطقی

a = 2

b = 5

c = 3

( a <> b ) and ( c < b ) or flag

( 2 <> 5 ) and ( 3 < 5 ) or flag

       T        and       T      or flag

                   T                 or  ( ???? )

                                     True

خاصیت Or هر گاه یکی از ورودی هایش true باشد خروجی همیشه true است و ربطی به ورودی دوم ندارد .





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

       نظرات
32 ) الف



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

       نظرات
31 ) گزینه الف



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

       نظرات

30 ) گزینه الف          مشاهده جدول منطقی

I = 2

J = 3

M = 4

N = 5

LVAL := NOT ( I < J ) OR ( M < N ) ;

             NOT ( 2 < 3 )

                NOT ( T )

                      F           or  ( 4 < 5 )

                     F            or        T

                                    True

 





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

       نظرات

29 ) الف

مشاهده جدول منطقی





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

       نظرات


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