Rámček z hviezdičiek – Pascal – Fórum – Programujte.com

Ahojte,mám úlohu spraviť rámček o rozmeroch X a Y z hviezdičiek a musí to byť procedúra ktorá vykreslí ten rámček od aktuálnej pozície kurzora ,takže nemusí to byť vždy vľavo hore ,viď obrázok. Vytvoril som niečo takéto  ,dalo by sa to ešte nejako zjednodušiť napriklad cez vnorené for? 

program okienko;
uses crt;

procedure okno();
var i,j,x,y,sirka,vyska:byte;
begin
x:=WhereX;
y:=WhereY;
sirka:=10;
vyska:=5;

for j:=y to y+vyska-1 do begin
    gotoxy(x,j);
    write('+');
    gotoxy(x+sirka-1,j);
    write('+');
end;

for i:=x to x+sirka-1 do begin
    gotoxy(i,j);
    write('+');
    gotoxy(i,j-vyska+1);
    write('+');
end;
end;

begin
clrscr;
gotoxy(50,20);
okno;
readln;
end.

Připojen obrázek.

Jeste by to slo vypisovat podle naplneneho pole. Porovnavat, zda je v tom poli mezera nebo jiny znak. Nebo ho vypsat tak, jak je.

Mozna by slo vynechat nektere gotoxy. Kdyz se nekam presunes pres gotoxy, tak od toho mista pise pak +1, +1, ne?
Mozna by se tam dalo uvazovat o maximanich a minimalnich rozmerech obrazovky a prepocitat rozmery obdelniku.

Pokud nemusis, tak je dobre se zanorovani vyhnout. Myslim, ze pro tento priklad je to takhle asi jedno s nejjednodussich reseni.

Pole určite nechcem používať v tomto prípade , neberiem teraz do úvahy rozmery obrazovky,skor mi ide o ten algoritmus ,ale asi to necháme teda tak,dík :)

Líp to nejde, na míň než dva cykly se nedostaneš. Dalo by se to udělat i jinak, třeba takhle:

- pro i od prvního řádku do posledního:
-- jestli je to první nebo poslední řádek: pro j od prvního sloupce do posledního: vykřížkuj pozici x+j,y+i
-- jestli to není první ani poslední řádek, vykřížkuj jenom pozice x,y+i a x+šířka-1,i

ale to jsou pořád dva cykly.

Pro horní a dolní okraj stačí najet Gotoxy na první křížek a pak už volat jenom Write, protože kurzor se po napsání znaku automaticky posouvá doprava. Tím se ušetří pár taktů procesoru, ale na vzhled rámečku to nemá vliv.

Dále se dá ušetřit zdvojené psaní rohových křížků: první cyklus uprav z for j:=y to y+vyska-1 na for j:=y+1 to y+vyska-2. Ale napřed si musíš zkontrolovat, že je výška minimálně 3, jinak čísla přetečou a budeš psát kdovíkam.

Ve zdrojáku máš chybu, ve druhém cyklu má být y místo j. Potom bych proměnné x, y, šířku a výšku udělal spíš jako parametry a vyhodil bych proměnnou j (cykly neběží současně, takže mohou používat stejnou řídicí proměnnou). Ale to už nejsou chyby.