Ruang Sekolah

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    ...

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...

Bahasa Pemrograman Pascal merupakan bahasa yang cukup banyak dipakai oleh sebagian besar beginner programmer di Indonesia. Codepamulang kali ini akan memberikan contoh dari penggunakan Array atau Larik dalam bahasa tersebut untuk menghitung jumlah N bilangan. masukan melalui permbacaan papan ketik. Programnya sebagai berikut: program array)_menjumlah_N_bilangan; uses crt; var    nilai : array[0..100] of integer;    i,N,jumlah : integer; begin    clrscr;    jumlah := 0;    write('masukan banyak data yang akan dijumlahkan: ');    readln(N);    for i := 1 to N do    begin       write('masukan data ke-',i,' : ');       readln(nilai[i]);    end;    for i := 1 to N do    begin       writeln('data ke-',i,' : ',nilai[i]);    end;    //penjumlahan    for i := 1 to N do    ...

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.

Program dalam bahasa pemrograman Pascal untuk menghitung jumlah dari 10/sepuluh bilangan. Yaitu bilangan 1,2,3,4,5,6,7,8,9,10. Program dibawah ini menggunakan perulangan looping while do. Programnya dapat dilihat dibawah ini: program perulangan_while_do; uses crt; var       a,b: integer; begin      clrscr;      a:= 0;      b:= 0;      while a < 10 do      begin           a:= a + 1;           b:= b + a;      end;      writeln('jumlah data: ',b);      readln; end. Anda juga dapat mengganti increment atau menambahkan nilai +1 pada peubah/variabel a dengan operator inc(a); sehingga program diatas nampak seperti dibawah ini: program perulangan_while_do; uses crt; var      a,b: integer; begin      clrscr;      a:= 0;   ...

Program dalam bahasa pemrograman Pascal untuk menghitung jumlah 10 bilangan. Yaitu bilangan 1,2,3,4,5,6,7,8,9,10. Programnya dapat dilihat dibawah ini: program menghitung_jumlah_dari_10_bilangan_pertama; uses crt; var   a, i : integer; begin      clrscr;   a := 0;   for i := 1 to 10 do   begin a := a + i;   end;   write('Jumlahnya adalah = ',a);   readln; end. Dan ini adalah hasil luaran dari program diatas: Anda juga dapat sedikit memodifikasi program diatas agar bilangan diatas dapat ditampilkan dalam hasil luarannya. Programnya sebagai berikut: program menghitung_jumlah_dari_10_bilangan; uses crt; var   a, i : integer; begin   clrscr;   a := 0;   for i := 1 to 10 do   begin write(i,' '); a := a + i;   end;   write('Jumlahnya adalah = ',a);   readln; end. Hasilnya berupa luara...