| Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis |
| Skrip Program Pascal | Output Program |
program jum_bil;
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;
writeln(‘Jumlah Bilangan = ‘,jum);
end. | Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Jumlah Bilangan = 60 |
| Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis |
| Skrip Program Pascal | Output Program |
program jum_bil2;
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write(‘Banyak bilangan : ’);read(n);
jum := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil);
jum := jum+bil;
end;
writeln(‘Jum = ‘,jum:0:2);
end. | Banyak bilangan : 3
Masukkan Bilangan 1 = 12
Masukkan Bilangan 2 = 13
Masukkan Bilangan 3 = 14
Jum = 39.00 |
| Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis |
| Skrip Program Pascal | Output Program |
program contoh_3;
uses wincrt;
var
n, i : integer;
rata : real;
jum, bil : integer;
begin
Write(‘Masukkan nilai N = ‘);readln(n);
writeln (‘Nilai N adalah= ‘,n);writeln;
for i := 1 to n do
begin
write(‘Masukkan bilangan : ‘);read(bil);
jum := jum+bil;
end;
rata := jum/n;writeln;
writeln(‘Jumlahnya adalah : ‘,jum);
writeln(‘Nilai rata-ratanya :’, rata:0:2);
end. | Masukkan nilai N = 3
Nilai N adalah= 3
Masukkan bilangan: 1
Masukkan bilangan: 2
Masukkan bilangan: 3
Jumlahnya adalah : 6
Nilai rata-ratanya : 2.00 |
| Program Menghitung Jumlah dan Banyaknya Data |
| Script Program Pascal | Output Program Pascal |
program contoh4;
uses wincrt;
var
n, i,byk,jum, bil : integer;
begin
Write(‘Masukkan nilai perulangan : ‘);readln(n);
Writeln;
for i := 1 to n do
begin
write(‘Bilangan ‘,i,’ = ‘);read(bil);
if bil >= 10 then
begin
byk := byk+1;
jum := jum+bil ;
end;
end;
writeln;
writeln(‘banyak bilangan yang >= 10 : ‘,byk);
writeln(‘jumlah bilangan yang >= 10 : ‘,jum);
end. | Masukkan nilai perulangan: 3
Bilangan 1 = 10
Bilangan 2 = 3
Bilangan 3 = 25
Banyak bilangan yang >= 10 : 2
Jumlah bilangan yang >= 10 : 35
|
0 komentar:
Posting Komentar