Question

Buatlah program pascal untuk mengcari total laba dari sebuah perusahaan yang memiliki banyak cabang jika diketahui rata-rata laba dan jumlah cabang

Answer 1

Ini jawabannya semoga bisa membantu

program menghitung_total_laba;
uses crt;
var jml_cab,i,n_rata,n_tot:integer;
begin
clrscr;
i:= 1;
writeln('Menghitung Total Laba');
write('Masukkan Jumlah cabang : ');
read(jml_cab);
writeln('-------------------------');
repeatwriteln('Cabang ke : ',i);
write('Rata-rata laba :');
read(n_rata);
n_tot := n_rata+n_tot;
writeln('-------------------------');
i := i+1;
until i>jml_cab;
writeln('Total Laba : ',n_tot);
writeln('-------------------------');
readln;
readln;
end.