Fortran90 tilida chiziqli algoritmlar

Muallif: Mengliyev Sh.

Qo`shilgan sana: 2016-11-01

Fortran90 tilida chiziqli algoritmlar

Masala. A va B ikkita haqiqy sonlar berilgan. Ularning yig’indisi, ayirmasi va ko’paytmasini hisoblang.
Yechish. A va b sonlar yig’indisini S, ayirmasini D, ko’paytmasini K bilan belgilasak, S=a+b, d=a-b, k=a*b formulalar o’rinli bo’ladi.

program Chiziqli
real a, b
call vaqt ( )
write (*, *) "a="
read (*, *), a
write (*, *) "b="
read (*, *) b
write ( *, * ) ' X1 = ', a+b
write ( *, '(a,g24.10)' ) ' X2 = ',a-b
write ( *, '(a,d24.10)' ) ' X3 = ',a*b

end program

!Joriy vaqtning dasturi
subroutine vaqt ( )
character ( len = 8 ) ampm
integer ( kind = 4 ) d
integer ( kind = 4 ) h
integer ( kind = 4 ) m
integer ( kind = 4 ) mm
character ( len = 9 ), parameter, dimension(12) :: month = (/ &
'January ', 'February ', 'March ', 'April ', &
'May ', 'June ', 'July ', 'August ', &
'September', 'October ', 'November ', 'December ' /)
integer ( kind = 4 ) n
integer ( kind = 4 ) s
integer ( kind = 4 ) values(8)
integer ( kind = 4 ) y

call date_and_time ( values = values )

y = values(1)
m = values(2)
d = values(3)
h = values(5)
n = values(6)
s = values(7)
mm = values(8)

if ( h < 12 ) then
ampm = 'AM'
else if ( h == 12 ) then
if ( n == 0 .and. s == 0 ) then
ampm = 'Noon'
else
ampm = 'PM'
end if
else
h = h - 12
if ( h < 12 ) then
ampm = 'PM'
else if ( h == 12 ) then
if ( n == 0 .and. s == 0 ) then
ampm = 'Midnight'
else
ampm = 'AM'
end if
end if
end if

write ( *, '(i2,1x,a,1x,i4,2x,i2,a1,i2.2,a1,i2.2,a1,i3.3,1x,a)' ) &
d, trim ( month(m) ), y, h, ':', n, ':', s, '.', mm, trim ( ampm )

return
end

1549 marta o`qildi.