LINUXSOFT.cz
Nazwa użytkownika: Hasło:     
    CZ UK PL

> Komentarze :: Poradna PASCAL - úloha do školy

PASCAL - úloha do školy 3.6.2007 18:55
Nikola Asusova

Ahoj. Potřebovala bych poradit prosím s touto úlohou z Pascalu.Přivítala bych postup, nebo rozepsaný program (popřípadě jeho část). Předem děkuji.

Napište program, který nakreslí titulní rámeček(hlavní nabídku) v horní části obrazovky. Zadejte souřadnice levého horního vrcholu a délku a šířku kresleného rámečku

Re: PASCAL - úloha do školy 3.6.2007 23:25
Ondřej Čečák

Zkus hledat na webu, zadani zni trivialne -- staci budto textove znaky nebo graficky treba nejakou funkci krelici usecky nakreslit "carou" ramecek.

Re: PASCAL - úloha do školy 4.6.2007 08:29
dvhx
program abc;

procedure VymazObrazovku;
begin
  { toto musis implementovat, nepises v akom rezime sa to ma robit - textovy/graficky }
end;

procedure NapisPolozku(poloha : integer; nadpis : string);
begin
  { detto - v textovom locate + write, v grafike outtextxy alebo textout... }
end;

procedure HorneMenu(polozky : array of string);
var i : integer;
begin
  VymazObrazovku;
  for i := 0 to high(polozky) do
    NapisPolozku(i,polozky[i]);
end;

begin
  { inicializacia obrazovky - textova al. graficka, neviem }

  { horne menu }
  HorneMenu(['Subor','Edituj','Nastavenie','Pomoc']);
end.

KOMENTARZE
PASCAL - úloha do školy 3.6.2007 18:55 Nikola Asusova
  |- Re: PASCAL - úloha do školy 3.6.2007 23:25 Ondřej Čečák
  L Re: PASCAL - úloha do školy 4.6.2007 08:29 dvhx
Tylko zarejestrowani użytkownicy mogą dopisywać komentarze.
> Szukanie oprogramowania
1. Pacman linux
Download: 4873x
2. FreeBSD
Download: 9063x
3. PCLinuxOS-2010
Download: 8561x
4. alcolix
Download: 10943x
5. Onebase Linux
Download: 9656x
6. Novell Linux Desktop
Download: 0x
7. KateOS
Download: 6239x

1. xinetd
Download: 2411x
2. RDGS
Download: 937x
3. spkg
Download: 4752x
4. LinPacker
Download: 9961x
5. VFU File Manager
Download: 3196x
6. LeftHand Mała Księgowość
Download: 7200x
7. MISU pyFotoResize
Download: 2805x
8. Lefthand CRM
Download: 3560x
9. MetadataExtractor
Download: 0x
10. RCP100
Download: 3116x
11. Predaj softveru
Download: 0x
12. MSH Free Autoresponder
Download: 0x
©Pavel Kysilka - 2003-2024 | mailatlinuxsoft.cz | Design: www.megadesign.cz