Program repeat dengan PASCAL

Setelah kemarin posting tentang bilangan positif dan negatif. Kembali ingin saya membantu sobat jika menemukan soal ataupun tugas yang berhubungan dengan pascal. Pernahkah mendengar kata repeat ? Ya, sebuah kata yang memberikan arti perulangan. Sebuah kegiatan yang diulang-ulang. Dalam pascal terdapat banyak perulangan dan repeat adalah salah satu perulangan yang memiliki peran penting dalam pembuatan program dengan pascal. Perlukah kita kenalan dengan repeat ? jelas, untuk bisa menggunakan repeat kita harus mengetahui syarat untuk terjadinya repeat. Repeat adalah perulangan yang terjadi dengan syarat selama kondisi belum terpenuhi. Jika dalam kehidupan kita ambil kasus minum obat ketika kita sakit. Kog bisa ? Sudah dijelaskan Repeat adalah perulangan yang terjadi dengan syarat selama kondisi belum terpenuhi. Kita akan minum obat selama kita belum sembuh. Kita akan berhenti minum obat setelah kita sehat. Kiranya dengan penalaran untk mengenal repeat. Untuk lebih jelasnya silahkan compile sintaks dibawah ini. Silahkan tinggalkan komentar jika ada hal perlu kita diskusikan. Semoga membantui, Jangan lupa untuk copy klik view plain ya ...

Uses wincrt;

Var kondisi, jumlah_positif, jumlah_negatif, bil_positif,bil_negatif,bil, all,n_all,

jenis_positif, jenis_negatif: integer;

rata2_positif,rata2_negatif,rata2_all : real;



begin

writeln ('=----------------------------------------------------------------=');

writeln ('=                    PROGRAM REPEAT - UNTIL                      =');

writeln ('= JUMLAH DAN RATA-RATA BILANGAN POSTIF & NEGATIF DARI N KONDISI  =');

writeln ('=----------------------------------------------------------------=');

writeln ('=----------------------------------------------------------------=');

writeln ('=                  Toto Raharjo 3105111326 TI E                  =');

writeln ('=----------------------------------------------------------------=');

writeln (' ');



write('Berapa bilangan yang akan menjadi kondisi ? ==> ');

readln(kondisi);



writeln('========================================================================');

writeln('=       ! BILANGAN >=0 ADALAH POSITIF SELAIN ITU NEGATIF !             =');

writeln('========================================================================');

writeln (' ');



{KONDISI AWAL}

all:=0;

n_all:=0;

bil_positif:=0;

bil_negatif:=0;

jumlah_positif:=0;

jumlah_negatif:=0;



repeat

begin

write (' ');

write ('------------------------------- ');

write ('#==> ');

readln (bil);



{LANGKAH 1 MENENTUKAN JENIS BILANGAN POSITIF ATAU NEGATIF}

if bil >=0 then writeln (bil, ' adalah bilangan POSITIF') else writeln (bil, ' adalah bilangan NEGATIF');

                                   

all:= all+bil ;

n_all:=n_all+1;

rata2_all:=all/n_all;



if bil >=0 then



{LANGKAH 2 MENENTUKAN JUMLAH, N, RATA-RATA DARI BILANGAN POSITIF}

begin

jumlah_positif:=jumlah_positif+bil;

bil_positif:=bil_positif + 1;

rata2_positif:=jumlah_positif/bil_positif;

end



else

{LANGKAH 3 MENENTUKAN JUMLAH, N, RATA-RATA DARI BILANGAN NEGATIF}

begin

jumlah_negatif:=jumlah_negatif+bil;

bil_negatif:=bil_negatif + 1;

rata2_negatif:=jumlah_negatif/bil_negatif;

end



end;

until  all>=kondisi;  {KONDISI YANG MENJADI PENENTU PROGRAM AKAN BERHENTI}



{MENAMPILKAN DARI PERHITUNGAN LANGKAH 2 DAN 3}

writeln;

writeln('bilangan positif yang diinputkan adalah ',bil_positif);

writeln('Jumlah bilangan positif yang diinputkan  = ',jumlah_positif);

writeln('Rata-rata bilangan positif yang diinputkan  = ',rata2_positif:0:2);



writeln;

writeln('bilangan negatif yang diinputkan adalah ',bil_negatif);

writeln('Jumlah bilangan negatif yang diinputkan  = ',jumlah_negatif);

writeln('Rata-rata bilangan negatif yang diinputkan  = ',rata2_negatif:0:2);



writeln;

writeln('Jumlah inputan keseluruhan adalah ',n_all);

writeln('Jumlah Keseluruhan adalah ',all);

writeln('rata-rata keseluruhan adalah  = ',rata2_all:0:2);

writeln('');





{PEMBUKTIAN PROGRAM AKAN BERHENTI SELAMA MEMEMUHI KONDISI}

writeln('PERULANGAN DIKERJAKAN SAMPAI KONDISI TERPENUHI : >= ',kondisi );

if all=kondisi then writeln( all,' ==> SUDAH MEMENUHI KONDISI YAITU = ',kondisi)

else writeln( all,' ==> SUDAH MEMENUHI KONDISI YAITU > ',kondisi);



readln;

end.

Tweet