Contoh Flow Chart Pemrograman

Flow Chart Pemrograman dengan Program Utama dan Sub Program Oleh : Yuan Andi Andi C. C. C hoerurRobac obach

Jurusan Teknik Sipil Universitas Brawijaya T.A. 2008/2009

FLOWCHART PROGRAM UTAMA

MULAI

PILIHAN : ٢.

PERS PERSEG EGII PANJ PANJAN ANG G

٣.

SEGITIGA

٤.

LINGKARAN

TIDAK

TIDAK

K=1

K=2

TIDAK K=3

YA

YA

PSGPJG

SGTG

LNGKRN

HASIL

HASIL

HASIL

YA

LANJUT TIDAK

SELESAI

PILIHAN ANDA SALAH

FLOWCHART SUB PROGRAM

PSGPJG

A

Tidak 

MASUKKAN B, H, E, PJG

ALC>ALSS

Ya RUMUS TEDMEYER 

PMSS=3100*(1-(ALSS/277))*ALUAS 2

ALUAS=B*H AIX=1/12*B*H**3 AIY=1/12*H*B**3

RUMUS EULER 

PMSS=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  AIX>AIY

AIMIN=AIX Ya

RETURN

AIMIN=AIY

AI=SQRT(AIMIN/ALUAS) ALC=SQRT(3.14*3.14*E/0.7*2400) ALJJ= (0.5*PJG)/AI ALJB= (2*PJG)/AI ALJS= (0.7*PJG)/AI ALSS= (1*PJG)/AI Tidak  ALC>ALJJ

Ya RUMUS TEDMEYER 

PMJJ=3100*(1-(ALJJ/277))*ALUAS 2

RUMUS EULER 

PMJJ=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  ALC>ALJB

Ya RUMUS TEDMEYER 

PMJB=3100*(1-(ALJB/277))*ALUAS 2

RUMUS EULER 

PMJB=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  ALC>ALJS

Ya RUMUS TEDMEYER 

PMJS=3100*(1-(ALJS/277))*ALUAS 2 RUMUS EULER 

PMJS=(3.14*3.14*E*ALUAS) (ALC**2)

A

SGTG

B

Tidak 

MASUKKAN B,H,E,PJG

ALC>ALSS

Ya RUMUS TEDMEYER 

PMSS=3100*(1-(ALSS/277))*ALUAS 2

ALUAS=0.5*B*H AIX=1/36*B*H**3 AIY=1/36*H*B**3

RUMUS EULER 

PMSS=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  AIX>AIY

AIMIN=AIX Ya

RETURN

AIMIN=AIY

AI=SQRT(AIMIN/ALUAS) ALC=SQRT(3.14*3.14*E/0.7*2400) ALJJ= (0.5*PJG)/AI ALJB= (2*PJG)/AI ALJS= (0.7*PJG)/AI ALSS= (1*PJG)/AI Tidak  ALC>ALJJ

Ya RUMUS TEDMEYER 

PMJJ=3100*(1-(ALJJ/277))*ALUAS 2

RUMUS EULER 

PMJJ=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  ALC>ALJB

Ya RUMUS TEDMEYER 

PMJB=3100*(1-(ALJB/277))*ALUAS 2

RUMUS EULER 

PMJB=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  ALC>ALJS

Ya RUMUS TEDMEYER 

PMJS=3100*(1-(ALJS/277))*ALUAS 2 RUMUS EULER 

PMJS=(3.14*3.14*E*ALUAS) (ALC**2)

B

LNGKRN

HASIL

MASUKKAN R,E,PJG

L,PJJ,PJB,PJS,PSS

RETURN

ALUAS=3.14*R**2 AI=R/2 ALC=SQRT(3.14*3.14*E/0.7*2400) ALJJ= (0.5*PJG)/AI ALJB= (2*PJG)/AI ALJS= (0.7*PJG)/AI ALSS= (1*PJG)/AI Tidak  ALC>ALJJ

Ya RUMUS TEDMEYER 

PMJJ=3100*(1-(ALJJ/277))*ALUAS 2

RUMUS EULER 

PMJJ=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  ALC>ALJB

Ya RUMUS TEDMEYER 

PMJB=3100*(1-(ALJB/277))*ALUAS 2

RUMUS EULER 

PMJB=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  ALC>ALJS

Ya RUMUS TEDMEYER 

PMJS=3100*(1-(ALJS/277))*ALUAS 2 RUMUS EULER 

PMJS=(3.14*3.14*E*ALUAS) (ALC**2)

Tidak  ALC>ALSS

Ya RUMUS TEDMEYER 

PMSS=3100*(1-(ALSS/277))*ALUAS 2 RUMUS EULER 

PMSS=(3.14*3.14*E*ALUAS) (ALC**2)

RETURN