19.44
IT COM STMIK
Lihat image klik he...
Rabu, 25 April 2012
.jpg)
Senin, 16 April 2012
Minggu, 15 April 2012
Selasa, 10 April 2012
Rabu, 04 April 2012
Senin, 02 April 2012
[Turbo Pascal] Perulangan(1) Dengan Repeat...Until
Program Perulangan;
Uses wincrt;
Var
i,jum,bil,n : Integer;
rata : Real;
Begin
i:= 1;
jum:= 0;
write('Isikan Banyaknya Data : '); Readln(n);
Begin
Repeat
write('Isikan Bilangan ke ',i,' = '); Readln(bil);
i:= i + 1;
jum:= jum + bil;
Until n < i;
End;
rata:= jum / n;
writeln('Nilai Rata-rata Bilangan = ',rata:0:2);
writeln('Jumlah Bilangan = ',jum);
E...
[Turbo Pascal] Perulangan(2) Dengan Repeat..Until
Program Perulangan;
Uses wincrt;
Var
b_bil, j_bil, bil, bil1, banyak_bil, jum: Integer;
rata: real;
Begin
b_bil:=0;
j_bil:=0;
write('Isi Bilangan Kesatu : '); readln(bil1);
Begin
Repeat
b_bil:= b_bil + 1;
j_bil:= j_bil + bil;
write('Isi Bilangan Berikutnnya : '); readln(bil);
Until (bil <= 10);
End;
banyak_bil:= j_bil + ( bil + bil1 );
jum:= b_bil + 1;
rata:= banyak_bil / jum;
writeln;
writeln('Banyak Bilangan = ',banyak_bil);
writeln('Jumlah Bilangan = ',jum);
writeln('Nilai Rata-rata = ',rata:0:2);
End....
Minggu, 01 April 2012
[Turbo Pascal] Perulangan dalam Turbo Pascal
Blok pengulangan ini sebenarnya mirip dengan pengulangan while,perbedaannya
hanya pada jenis ini pengulangan akan terus dilakukan apabila kondisi yg
didefinisikan masih bernilai false,jadi dengan kata lain pengulangan dihentikan
jika kondisi bernilai true. Juga dalam pengulangan repeat, kondisi ditulis
di akhir blok.
Bentuk umumnya seperti ini:
repeat
statemen;
...
until (kondisi);
sebagai bahan perbandingan dengan jenis-jenis pengulangan sebelumnya,kita lihat saja
contoh programnya dibawah ini:
program statemenrepeat1;
uses wincrt;
var i:integer;
begin
{inisialisasi nilai indeks i dengan 1}
i:=1;
{melakukan pengulangan}
repeat
writeln('Coba Perulangan');
i:=i+1;
until (i < 5);
end.
lihat contoh...
