Dodaj do ulubionych

prosze o pomoc - Delphi

16.01.07, 13:45
Napisz program wyświetlający na środku ekranu, dla danej liczby całkowitej
dodatniej n, wzór złożony z symbolu gwiazdki prezentowany poniżej. Liczbę n
podaje użytkownik.

Mam coś takiego, ale potrzebuje przerobic to na Delphi. Prosze o pomoc
type Side = (UP, DOWN);

procedure fig(n:integer; s:Side; shift:integer);
var i,j:integer;
begin
if s = UP then
for j:= 1 to n do begin
for i := 1 to shift do write(' ');
for i := 1 to j do write('*');
for i := 1 to 2*n-2*j+1 do write(' ');
for i := 1 to j do write('*');
writeln;
end
else
for j:= n downto 1 do begin
for i := 1 to shift do write(' ');
for i := 1 to j do write('*');
for i := 1 to 2*n-2*j+1 do write(' ');
for i := 1 to j do write('*');
writeln;
end;
end;

procedure draw(n:integer; shift:integer);
var i:integer;
begin
fig(n,UP,shift);
for i := 1 to shift do write(' ');
for i := 1 to 2*n+1 do write('*');
writeln;
fig(n,DOWN,shift);
end;

procedure drawAll(n:integer);
var i:integer;
begin
for i := 1 to n-1 do
draw(i,n-i);
draw(n,0);
for i := n-1 downto 1 do
draw(i,n-i);
end;

begin
drawAll(4);
end.
Obserwuj wątek

Popularne wątki

Nie pamiętasz hasła

lub ?

 

Nie masz jeszcze konta? Zarejestruj się

Nakarm Pajacyka