Programowanie Koperta Turbo Pascal

Mam do zrobienia koperte w Turbo Pascalu i nie wiem jak ją zrobić.

---

A może cos więcej powiesz? :) Jak to konkretnie ma wyglądać?

Tutaj masz takie proste rysowanie prostokąta (znakami "#"), może Ci to pomoże :


{$APPTYPE CONSOLE}

uses
SysUtils,
crt;

var
y, x, xlg, xpd, ylg, ypd : integer;

begin
xlg:=5;
ylg:=5;
xpd:=45;
ypd:=20;

for x := xlg to xpd do
begin
GotoXY(x, ylg);
Write('#');
delay(10);
end;

for y := ylg to ypd do
begin
GotoXY(xpd, y);
Write('#');
delay(10);
end;

for x := xpd downto xlg do
begin
GotoXY(x, ypd);
Write('#');
delay(10);
end;

for y := ypd downto ylg do
begin
GotoXY(xlg, y);
Write('#');
delay(10);
end;

readln;

end.


Dziękuje bardzo za pomoc :) :)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

lalalu.xlx.pl