Rámček z hviezdičiek – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

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

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Twit
~ Anonymní uživatel
10 příspěvků
20. 9. 2016   #1
-
0
-

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.

Nahlásit jako SPAM
IP: 78.98.17.–
Reklama
Reklama
peter
~ Anonymní uživatel
2551 příspěvků
20. 9. 2016   #2
-
0
-

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.

Nahlásit jako SPAM
IP: 2001:718:2601:26c:353e:35...–
Twit
~ Anonymní uživatel
10 příspěvků
20. 9. 2016   #3
-
0
-

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

Nahlásit jako SPAM
IP: 78.98.17.–
Mircosoft+1
Věrný člen
29. 9. 2016   #4
-
0
-

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.

Nahlásit jako SPAM
IP: 194.228.20.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
Zjistit počet nových příspěvků

Přidej příspěvek

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 17 hostů

Podobná vlákna

VB(S) Cim zacit? — založil BobrB

Problém se zápisem fopen — založil ProTom

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý