Tutorial Turbo Pascal - Perulangan FOR DO Dalam Pascal

Contoh Program Perulangan Dengan For Do pada Pascal

1. uses crt;
    var
    i:integer;
    begin
    clrscr;
    for i:=10 downto 1 do
    begin
    writeln('hitung mundur');
    end;
    readln;
    end.

Hasilnya :

2. uses crt;
    var
    x:integer;
    begin
    clrscr;
    for x:=1 to 5 do
    writeln ('Belajar Pascal');
    readln;
    end.

Hasilnya :

Itulah Contoh Perulangan FOR DO pada pascal Sekian dan Terimakasih Semoga Bermanfaat

Location:

Bona Pasogit Content Creator, Video Creator and Writer

Berbagi :