5 contoh Coding perulangan ‘for to do’ program pascal.

Buat mahasiswa TI yang lagi mecari cari coding buat ngerjain tugas pascal bisa dilihat disini, dalam postingan kali ini saya telah menuliskan beberapa contoh koding yang dapat langsung dijalankan di program pascal,berikut coding coding tersebut.

1. coding program bilangan 1 sampai 100

________________________________

Uses crt;

Var

Bil:integer;

Begin

Clrscr;

For bil:=1 to 100 do

Writeln(bil);

Readln;

End.

________________________________

2. coding program halaman 1 sampai 10

_____________________________

Usus crt;

Var

Hal:integer

Begin

Clrscr;

For hal:=1 to 10 do

Writeln(‘halaman’,hal);

Readln;

End.

_____________________________

3. coding program data mahasiswa.

____________________________

uses crt;

var

npm:integer;

nama:string;

alamat:string;

x:integer;

begin

clrscr;

for x:=1 to 3 do

begin

writeln('halaman',x);

writeln('______________');

writeln('DATA MAHASISWA');

writeln('______________');

write('NPM :');readln(npm);

write('Nama :');readln(nama);

write('Alamat:');readln(alamat);

writeln('______________');

readln;

end;

end.

_______________________________

4. coding menampilkan bilangan ganjil antara 1-50

_______________________________

Uses crt;

Var

B:integer;

Begin

Clrscr;

Write(‘ANGKA : ‘);

For B:=1 to 25 do

Write (2*B-1,’ ‘);

Readln;

End.

_______________________________

5. coding program menampilkan bilangan genap

______________________________

Uses crt;

Var

B:integer;

Begin

Clrscr;

Write(‘ANGKA : ‘);

For B:=1 to 10 do

Write (2*B,’ ‘);

Readln;

End.

______________________________

Itulah contoh contoh coding perulangan for to do yang dapat saya bagikan pada postingan kali ini, silahkan di praktekan langsung pada program pascal nya masing masing, semoga postingan kali ini bermanfaat bagi yang baca, aminn..

5 contoh Coding perulangan ‘for to do’ program pascal.