Program Perulangan Repeat Until Menghitung Jumlah Sepuluh Bilangan Pascal (coding)

-

Program bahasa pemrograman Pascal untuk menghitung/compute jumlah dari sepuluh(10) bilangan. Yaitu bilangan 1,2,3,4,5,6,7,8,9,10. Program dibawah ini menggunakan perulangan looping repeat until. Programnya dapat dilihat dibawah ini:

 program perulangan_while_do;
uses crt;

 var
   a,b: integer;

begin
   clrscr;
   a:= 0;
   b:= 0;
   repeat
      begin
      a:= a + 1;
      b:= b + a;
      end;
   until a>= 10;
   writeln('jumlah data: ',b);
   readln;

end.

 Maka hasilnya adalah sebagai berikut:

Sekian :)

SO: Coding pascal, pemrograman pascal sederhana, perulangan repeat until sederhana, looping repeat until, perulangan sederhana pascal.

Komentar

Posting Komentar

Postingan populer dari blog ini

Alasan Mengapa Kelvin Dijadikan Satuan Suhu Internasional

-
Gambar
Dok. Pribadi Sejak tahun 1960 dunia mulai menggunakan Sistem Satuan Internasional yang disingkat SI, yang dalam bahasa Inggris disebut International System of Unit atau dalam bahasa Perancis le System International d’unites. Sistem ini merupakan hasil kesepakatan dari CGPM (Conference General des Poids et Measures) di Paris, Perancis. Dan pada CGPM 13 Tahun 1967 memuat perjanjian yang salah satu dari kesepakatan tersebut yaitu penggunaan Kelvin sebagai satuan suhu internasional. Dalam penerapan kesepakatan penggunaan Kelvin tersebut berdasarkan beberapa alasan, berikut beberapa alasan mengapa Kelvin lebih dipilih dibandingkan dengan satuan lainnya:   Titik Terendah dalam Kelvin adalah 0 K dan pada suhu tersebut energi atom berada pada level paling rendah (minimum). Tidak ada lagi kuantum energi yang lebih rendah yang bisa dimiliki oleh sebuah atom selain level energi tersebut. Oleh karena itu pada Kelvin tidak harus menggunakan tanda minus, dengan kata lain lebih efisien d...
Baca selengkapnya

Program Menghitung Jumlah dan Rata-Rata Bilangan Ganjil Genap Pascal

-
Gambar
Program dalam bahasa Pascal untuk menghitung jumlah dan rata-rata bilangan ganjil genap. Coding untuk meghitung jumlah dan rata-rata bilangan ganjil dan genap. Programnya dapat dilihat dibawah ini: program hitung_genap_ganjil; uses crt; var    N,i,a, ganjil,genap : integer;    jumlahganjil, jumlahgenap : integer;    rataganjil, ratagenap : real; begin    clrscr;    jumlahganjil:= 0;    jumlahgenap:= 0;    genap:= 0;    ganjil:= 0;    write('masukan jumlah data: ');    readln(N);    for i:= 1 to N do    begin       write('masukan data ke-',i,': ');       readln(a);       if a mod 2 = 0 then       begin          genap:= genap + 1;          jumlahgenap:= jumlahgenap + a;       end       else    ...
Baca selengkapnya

Procedure Parameter Luaran Menghitung Rata-Rata Pascal (coding)

-
Gambar
Codepamulang. Program Pascal tentang penggunaan Prosedur/Procedure dengan parameter Luaran untuk menghitung rata-rata N buah bilangan. Programnya dapata dilihat dibawah ini: program menghitung_rerata; uses crt; var    N : integer;    rerata : real; procedure hitung(N: integer; var u: real);    var       a,b : integer;       jumlah: real;    begin       for a:= 1 to N do       begin          write('Masukan nilai ke-',a,' = ');          readln(b);          jumlah:= jumlah+b;       end;       u:= jumlah/N;    end; begin    clrscr;    writeln('-----Menghitung Rerata Nilai-----');    writeln();    write('Masukan jumlah data inputan = ');    readln(N);    hitung(N, rerata);    writ...
Baca selengkapnya