{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

CE 311K Lab4

# CE 311K Lab4 - Lab4 Control structures and their...

This preview shows pages 1–3. Sign up to view the full content.

Lab4. Control structures and their application to engineering system Margaret Thompson Section No. 14885 02/05/08 1. SCREEN PRINT OUT 2. CODE ! CE311K Lab4 ! Control structures and their application to engineering system ! Programmed by Margaret Thompson Program Lab4 implicit none ! Declaration of variables real F, ang, line, Rang real Ax, Ay, By, Ax_max, Ay_max, By_max real R_MAx,R_MAy,R_MBy integer ID,ios,R_idAx,R_idAy,R_idBy DOUBLE PRECISION PI PARAMETER(PI=3.141592653589793D0) R_MAx=0;R_MAy=0;R_MBy=0 ! Input maximum allowable reactions Print *, 'Input maximum allowable reactions' Print *, 'Ax_max?, Ay_max?, By_max?' Print *, 'Separate the values by space' ! Read Maximum reaction data from the user. ..

This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document
! when prompted for these values type 900 600 900 for (Ax, Ay, By) respectively Read *, Ax_max, Ay_max, By_max ! Prepare output file to display results name the file output.txt ! Prepare input file --- The input file is called data.txt Open (unit=6, file='output.txt', status='unknown')
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

### Page1 / 4

CE 311K Lab4 - Lab4 Control structures and their...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document
Ask a homework question - tutors are online