Rencana Modul Web-joomla-jowrocks.blogspot.com

  • Uploaded by: JoW Rocks
  • 0
  • 0
  • June 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Rencana Modul Web-joomla-jowrocks.blogspot.com as PDF for free.

More details

  • Words: 353
  • Pages: 2
Program Dasar Fortran 90 CHARACTER NAME*20 PR INT* , ' S i apa Nama Kamu? ' READ* , NAME PR INT* , 'H i the re , ' , NAME END Output pada monitor setelah dilakukan compile ; Siapa Nama Kamu? Garfield Hi there, Garfield Program dasar fortran dalam suatu persamaan : Persamaan untuk menghitung populasi AIDS di USA :

A(t)=174.6(t−1981.2)3 PROGRAM A IDS ! Ca lcu la tes number o f accumula ted A IDS cases i n USA INTEGER T ! year REAL A ! number o f cases READ* , T A = 174 .6 * (T - 1981 .2 ) ** 3 PR INT* , ' Accumu la ted A IDS cases i n US by year ' , T, ' : ' , A END PROGRAM A IDS Program dasar fortran dalam suatu persamaan : Contoh lain untuk program persamaan dalam fortran : PROGRAM MONEY ! Ca lcu la tes ba lance a f te r i n te res t compounded REAL BALANCE, INTEREST, RATE BALANCE = 1000 RATE = 0 .09 INTEREST = RATE * BALANCE BALANCE = BALANCE + INTEREST PR INT* , 'New ba lance : ' , BALANCE END PROGRAM MONEY Program dasar fortran dalam suatu persamaan gerak jatuh bola yang  dipengaruhi gaya gravitasi  : PROGRAM Ver t i ca l ! Ver t i ca l mot ion under grav i ty IMPL IC IT NONE REAL , PARAMETER : : G = 9 .8 ! acce le ra t i on due to grav i ty REAL S ! d i sp lacement (met res ) REAL T ! t ime REAL U ! i n i t i a l speed (met res / sec ) PR INT* , ' T ime Disp lacement ' PR INT* U = 60 T =6 S = U * T - G / 2 * T ** 2 PR INT* , T, S

END PROGRAM Ver t i ca l Dasar syntax program looping fortran 90: INTEGER I REAL R DO I = 1 , 10 PR INT* , I END DO END

Related Documents


More Documents from ""

T A T A T E R T I B
May 2020 50
Bab 1 Baru
May 2020 46
Pmdk Jalur Diploma
May 2020 29
Kepbab I
May 2020 32