triangle d'étoiles
Page 1 sur 1
triangle d'étoiles
ÉNONCÉ
Ecrire un programme qui permet d'afficher un triangle d'étoiles, s'étendant sur un nombre de lignes fourni en données et se présentant comme dans cet exemple.
*
**
***
****
*****
PASCAL
program etoile;
uses wincrt;
var
j,n,i:integer;
begin repeat
writeln('n'); readln(n);
until n>0;
for i:=1 to n do begin
for j:=1 to i do write('*'); writeln; end;
end.
Methode 2
program etoile;
uses wincrt;
var
j,n,i:integer;
ch:string;
begin
repeat
write('n :'); readln(n);
until n>0;
for i:=1 to n do begin
ch:='';
for j:=1 to i do ch:=concat(ch,'*'); writeln(ch); end;
end.
Ecrire un programme qui permet d'afficher un triangle d'étoiles, s'étendant sur un nombre de lignes fourni en données et se présentant comme dans cet exemple.
*
**
***
****
*****
PASCAL
program etoile;
uses wincrt;
var
j,n,i:integer;
begin repeat
writeln('n'); readln(n);
until n>0;
for i:=1 to n do begin
for j:=1 to i do write('*'); writeln; end;
end.
Methode 2
program etoile;
uses wincrt;
var
j,n,i:integer;
ch:string;
begin
repeat
write('n :'); readln(n);
until n>0;
for i:=1 to n do begin
ch:='';
for j:=1 to i do ch:=concat(ch,'*'); writeln(ch); end;
end.
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum