tugas 11

soal dari tugas terakhir

hasil tgs 10

tampilan tgs 10 jika di Run :

 

tugas 10

perhitungan jumlah nilai dengan menyertakan rata" nilai dengan While Do

tugas 9

while do program Stat_Mat

 

tugas 8

program untuk while do
by : juwita

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

tugas 6

Program For Do

Program               For_Do;

Uses                      wincrt;

Var                         I : byte;

Begin

                                For I : = 1 to 5 Do

                                                Writeln (i);

End.

                                                                                                                          by juwita