tugas 7

Program Repeat Until

 

Program               Statistika_dan_Matematika;

Uses                      wincrt;

Var

                                Prodi, statistika, matematika, kode : integer;

                                Totstatistika, totmatematika : real;

Repeat

Write (‘kode 1 -> ‘); readln (prodi);

If             prodi = 1 then

Begin

                Totstatistika := totstatistika + 1;

End

Else

If             prodi = 2 then

Begin

Totmatematika := totmatematika + 1;

End

Until prodi = 3;

(‘jumlah statistika : ‘, totstatistika : 5:2);

(‘jumlahmatematika : ‘, totmatematika : 5:2);

End.

                                                                                                                                        juwita