Cerinta: Se da un numar n. Afisati figura din exemplu.
EXEMPLU: n=5
*
**
***
****
*****
.......*****
.......****
.......***
.......**
.......*
Ma puteti ajuta va rog frumos cu niste explicatii? MULTUMESC ANTICIPAT.
Răspunsuri la întrebare
Răspuns de
5
Sunt 2 parti ale figurii care trebuie afisate. Pentru prima parte nu ar trebui sa existe probleme mari: Pe fiecare linie vei afisa un numar i de stelute, iar de fiecare data cand treci pe urmatoarea linie, numarul de stelute creste cu 1, pana la n.
Pentru o doua parte a figurii: va trebui ca pe fiecare linie sa afisezi mai intai n spatii, iar apoi folosim acelasi principiu ca mai sus, dar de data asta contorul i va scadea cu 1 la fiecare linie.
Ai solutia in atasament.
Pentru o doua parte a figurii: va trebui ca pe fiecare linie sa afisezi mai intai n spatii, iar apoi folosim acelasi principiu ca mai sus, dar de data asta contorul i va scadea cu 1 la fiecare linie.
Ai solutia in atasament.
Anexe:
math9:
Multumesc mult! :)
Răspuns de
1
var i,n,p,r,c:byte;
begin
read(n);
for i:=1 to n do begin
p:=i;
repeat
write('*');
p-=1;
until p=0;
writeln;
end;
c:=n;
for n:=n downto 1 do begin
r:=n;
for i:=1 to c do write(' '); //Nu sint prea sigur daca iti trebuie cu puncte, de ceva pui in loc de write(' '); pui write('.');
repeat
write('*');
r-=1;
until r=0;
writeln;
end;
end.
begin
read(n);
for i:=1 to n do begin
p:=i;
repeat
write('*');
p-=1;
until p=0;
writeln;
end;
c:=n;
for n:=n downto 1 do begin
r:=n;
for i:=1 to c do write(' '); //Nu sint prea sigur daca iti trebuie cu puncte, de ceva pui in loc de write(' '); pui write('.');
repeat
write('*');
r-=1;
until r=0;
writeln;
end;
end.
Alte întrebări interesante
Chimie,
8 ani în urmă
Matematică,
8 ani în urmă
Chimie,
8 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă