materi perulangan turbo pascal
di sini saya akan memposting tentang perulangan bahasa pemrograman turbo pascal.
1.buka turbo pascal lalu pilih file
seperti ss di atas.
2.lalu buka new
3.lalu tulis seperti ini :
uses crt;
var
a:byte;
begin
clrscr;
a:=20;
while a>8 do
begin
writeln(a);
a:=a-2;
end;
readln;
end.
seperti ss berikut
jika sudah klik file lalu save.
n/b: angka 20 dan 8 bisa di ganti angka lain
simbol > dan - bisa di ganti dengan tanda < dan +
1.buka turbo pascal lalu pilih file
2.lalu buka new
3.lalu tulis seperti ini :
uses crt;
var
a:byte;
begin
clrscr;
a:=20;
while a>8 do
begin
writeln(a);
a:=a-2;
end;
readln;
end.
seperti ss berikut
n/b: angka 20 dan 8 bisa di ganti angka lain
simbol > dan - bisa di ganti dengan tanda < dan +
Komentar
Posting Komentar