PASCAL - Perulangan For Do

Program dibawah ini adalah program untuk menampilan bilangan berurutan secara ke bawah dari 1 sampai 20

program perulangan;
uses crt;
var i :Integer;
begin
  for i:=1 to 20 do
  begin
    writeln(i);
  end;
  readln;
end.


Komentar

Postingan populer dari blog ini

FUNCTION DENGAN PARAMETER - TUGAS II

Function dengan parameter - PASCAL

FUNCTION - PASCAL