Anonymní profil Twit – Programujte.com

Ahojte,sorry že tu zakládam takúto tému,ale vobec sa nevyznam do úpravy videí a potreboval by som sa naučiť upravovať nejaké videá s roznymi efektami ,jediny program co poznam je Sony Vegas,existuje este nieco lepsie ? Vdaka :)

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 :)

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.