SEGITIGA PASCAL
Berikut adalah koding untuk membuat segitiga pascal seperti pada gambar
berikut kodingnya :
Program SegitigaSikuSiku;
uses wincrt;
var
i,j:integer;
m:char;
begin
clrscr;
write('Masukkan Sembarang Karakter: ');readln(m);
i:=1;
while i<=10 do
begin
j:=1;
while j<=i do
begin
write(m);
inc(j);
end;
writeln;
inc(i);
end;
readln;
end.
Berikut adalah koding untuk membuat segitiga pascal seperti pada gambar
berikut kodingnya :
Program SegitigaSikuSiku;
uses wincrt;
var
i,j:integer;
m:char;
begin
clrscr;
write('Masukkan Sembarang Karakter: ');readln(m);
i:=1;
while i<=10 do
begin
j:=1;
while j<=i do
begin
write(m);
inc(j);
end;
writeln;
inc(i);
end;
readln;
end.
This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.
ConversionConversion EmoticonEmoticon