arif zainurrohman
program arifbykangka;
uses wincrt;
var
i,n:integer;
begin
write ('masukkan banyak angka : ');readln(n);
i:=1;
while (i<=n) do
begin
writeln(i);
i:=i+1;
end;
end.
Kota Pempek , 22 Maret 2012
akhukum fillah arif zainurrohman
Contoh sederhana program for..to..do
program arifbykangka;
uses wincrt;
var
i,n:integer;
begin
write ('masukkan banyak angka : ');readln(n);
i:=1;
while (i<=n) do
begin
writeln(i);
i:=i+1;
end;
end.
Kota Pempek , 22 Maret 2012
akhukum fillah arif zainurrohman
1 komentar:
thanks for the information and I liked the look of this website blog .......
greetings
Posting Komentar