Need Help Buat Agan Agan Yang ngerti Bahasa Fortran

Beranda
Komunitas
Tech
Programmer Forum
Need Help Buat Agan Agan Yang ngerti Bahasa Fortran

alfisyah

01-11-2013 09:56

Need Help Buat Agan Agan Yang ngerti Bahasa Fortran

Assalamualaikum agan agan

Ane numpang nanya nih ada yang bisa bahasa fortran gak ? ane ada tugas kuliah gan disuruh pake fortran sedangkan ane bisanya PHP gan hehe

Spoiler for ini algoritma soalnya gan :

Jika n = 0 maka m adalah PBB (m,n)
jika kondisi diatas proram stop ->
tetapi jika n != 0
bagilah m dengan n dan misalkan r sisanya
ganti nilai m dengan n dan nilai n dengan r maka program kembali ke fase awal

Spoiler for Gan ini perkembangan script yang ane buat:

program algoritma_tucidean
real R
character s
10 write(*,*)"APLIKASI ALGORITMA TUCIDEAN"
write(*,1)
1 format(1x, "Masukkan Bilangan Pertama = ", \ )
read(*,*)M
write(*,2)
2 format(1x, 'Masukkan Bilangan Kedua = ', \ )
read(*,*)N

if(N.EQ.0)then
write(*,*) "",M," ADALAH PBB DARI (",N,",",M,")"
end program algoritma_tucidean

else
R=M/N
write(*,*) "JADI ",R
endif

5 format(1x, 'hitung lagi ?(y/n) ', \ )
read (*,*)s
if((s.EQ."y").OR.(s.EQ."Y"))then
goto 10
endif
end

ane mohon bantuannya gan emoticon-Sorry

Diubah oleh alfisyah 01-11-2013 11:42

541

Kutip

Balasan

Komentar yang asik ya

Komunitas Pilihan