program soal12;
uses wincrt;
var
a, b : byte;
begin
a:=6;
while a<7 do
begin
b:=1;
while b<a do
begin
write('x');
b := b+1;
end;
a := a-1;
writeln;
end;
readln;
end.
program soal22;
uses wincrt;
var
a, b : byte;
begin
a:=1;
while a<7 do
begin
b:=1;
while b<a do
begin
write('x ');
b := b+1;
end;
a := a+1;
writeln;
end;
readln;
end.
Social Profiles
-
1. program tugas11; uses wincrt; var a, b : byte; begin for a := 1 to 5 do begin writeln(' ',a); b := b+a; end; writeln('--...
-
program satu; uses wincrt; var y, z, n : integer; procedure pertama; var x : integer; begin x := y + z; writeln(x); end; procedure kedua...
-
program tes; uses wincrt; function pertama(var a, b : integer):integer; begin pertama := a*b; end; function kedua(var a, b : integer):intege...
-
program soal12; uses wincrt; var a, b : byte; begin a:=6; while a<7 do begin b:=1; while b<a do begin write('x'); b := b+1; en...
Diberdayakan oleh Blogger.
0 komentar:
Posting Komentar