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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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





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

       نظرات

6 )

var

id : longint ;

unit_pas,unit_re,unit_sum : integer ;

pascal , riyazi , ave : real ;

begin

writeln ( ' Enter your ID : ' ) ;

readln ( id ) ;

writeln ( ' Enter nomre Pascal ? ' ) ;

readln ( pascal ) ;

writeln ( ' Enter Vahed Pascal ? ' ) ;

readln ( unit_pas ) ;

writeln ;

writeln ( ' ---------------------------------------------------- ' ) ;

writeln ;

writeln ( ' Enter nomre Riyazi ? ' ) ;

readln ( riyazi ) ;

writeln ( ' Enter Vahed Riyazi ? ' ) ;

readln ( unit_re ) ;

writeln ;

writeln( ' ---------------------------------------------------- ' ) ;

writeln ;

unit_sum := unit_pas + unit_re ;

ave := ( pascal * unit_pas + riyazi * unit_re ) / unit_sum ;

writeln ( ' Moadel Shoma = ' : 30 , ave : 5 : 2 ) ;

writeln ( ' Tedad Kol Vahed = ' : 30 , unit_sum : 3 ) ;

readkey ;

end .





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

       نظرات

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

 





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

       نظرات


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