کاربر:Esi Gonzalez/صفحه تمرین: تفاوت میان نسخهها
محتوای حذفشده محتوای افزودهشده
Esi Gonzalez (بحث | مشارکتها) بدون خلاصۀ ویرایش |
Esi Gonzalez (بحث | مشارکتها) بدون خلاصۀ ویرایش |
||
خط ۵۳:
program average
! تعدادی عدد را از ورودی میخواند و میانگینش را میدهد
! همانطور که نوشته شده، اگر هیچ دادهای موجود نباشد، صفر را به عنوان میانگین برمیگرداند
! ممکن است در آن حالت برگرداندن میانگین صفر رفتار مطلوب برنامه نباشد، اما این کار باعث سادگی برنامه می شود
implicit none
خط ۸۵:
deallocate (points)
! حالا نتیجه رادر خروجی چاپ میکند
write (*,'(a,g12.4)') 'Average = ', average_points
write (*,'(a,g12.4)') 'Average of positive points = ', positive_average
|