LATIHAN SOAL PASCAL

Perhatian untuk Program001 s/d 005 loop 0 tidak dihitung !

Program 001;

Begin

Writeln(‘Nilai R=’);readln(R);

S:=3;

T:=R div S;

Writeln(‘Nilai T=’,T);Readln;

End.

Program 002;

Begin

Writeln(‘Nilai A=’); readln(A);

Writeln(‘Nilai B=’);readln(B);

C:=A div B;

D:=A*C div B;

Writeln(‘Nilai D=’,D);Readln;

Writeln(‘Nilai C=’,C);

End.

Program 003;

Begin

readln(a,b,c);

if a>b then

if a>c then writeln(‘X’)

writeln(‘Y’)

else

if b>c then writeln(‘Z’);

else writeln(‘R’);

End.

Program 004;

Begin

 readln(b,x,y,z)

if x<=7 then

if x>=9 then a:=50 / b;

         else a:=0;

      else

         if y>z then a:=10*b;

else a:=1;

End.







Program 005;
Begin                

Write(’Nilai

Awal’);      
Readln(aw);      
Write(‘Nilai

Akhir);                   
Readln(ak);                   
Jml:=1;a:=f;       
For i:= aw downto ak do            
Begin                
Jml:=jml*50/ f;end;
Writeln(‘Hasil=’,jml:10:0);                    
End.     

Readln;             

1. Berdasarkan Program 001, bila R=135 maka nilai T adalah …
2. Berdasarkan Program 001, berapakah nilai R bila T adalah 76?
3. Berdasarkan Program 002, bila nilai A=24 dan B=5, maka nilai C dan D adalah …
4. Berdasarkan Program 002, bila Hasil D=36 dan C=6, berapakan nilai A dan B ?
5. Berdasarkan Program 003, bila a=12 b=5 c=15 maka hasil yang muncul adalah …
6. Berdasarkan Program 003, bila a=10 b=15 c=9 maka hasil yang muncul adalah …
7. Berdasarkan Program 004, bila b=5 x=8 y=5 z=6 maka hasil a adalah …
8. Berdasarkan Program 004, bila b=2 x=10 y=7 z=5 maka hasil a adalah …
9. Berdasarkan Program 005, bila a=3 dan aw=5, ak=2, maka berapakah nilai jml?
10. Berdasarkan Program 005, bila a=2 dan aw=7, ak=2, maka berapakali proses Perulangan?