Skocz do zawartości

Bucior

Użytkownicy
  • Zawartość

    211
  • Rejestracja

  • Ostatnia wizyta

Reputacja

0 Neutralny

O Bucior

  • Tytuł
    Major User
  • Urodziny 03/05/1992

Contact Methods

  • MSN
    bucior1@tlen.pl
  • Website URL
    http://

Profile Fields

  • Interests
    Gram w koszykówkę w "GKS KORSARZ"; w wolnym ciasie zajmuje sie informatyka(GM, sprzęt komputerowy, nowości systemowe i gram w gry:))
  1. Turbo Pascal

    tak dzieki
  2. Turbo Pascal

    dane i wyglad, tak zeby wygladalo chociaz w 50% inaczej
  3. Turbo Pascal

    A mogłbym Cie prosic o przerobienie naserio nie kumam tego....
  4. Turbo Pascal

    wiec ktos pomoze ??dziki
  5. Turbo Pascal

    program wizytowka; uses crt; var zn:char; procedure plansza; begin clrscr; begin textcolor(15); gotoxy(35,9); write('F1 - Ania'); gotoxy(35,11); write('F2 - Ola'); gotoxy(35,13); write('F3 - Ula'); gotoxy(35,15); write('Esc- Koniec'); end; end; procedure ania; var zn:char; x,y,n:byte; begin x:=31; y:=10; repeat clrscr; for n:=x to x+22 do begin textcolor(10); gotoxy(n,y); write(char(205)); gotoxy(n,y+6); write(char(205)); end; for n:=y to y+6 do begin gotoxy(x,n); write(char(186)); gotoxy(x+22,n); write(char(186)); end; gotoxy(x,y); write(char(201)); gotoxy(x+22,y); write(char(187)); gotoxy(x+22,y+6); write(char(188)); gotoxy(x,y+6); write(char(200)); gotoxy(x+3,y+1); write('Ania Fig'); gotoxy(x+3,y+3); write('ul. Ziemniakowa 2'); gotoxy(x+3,y+5); write('93-121 Kobieszewo'); zn:=readkey; if ord(zn)=0 then begin zn:=readkey; case ord(zn) of 72: if y>1 then y:=y-1 else y:=19; 80: if y+6<25 then y:=y+1 else y:=1; 75: if x>2 then x:=x-1 else x:=57; 77: if x+23<80 then x:=x+1 else x:=1; end; end; until ord(zn)=27 end; procedure ola; var zn:char; x,y,n:byte; begin x:=31; y:=10; repeat clrscr; for n:=x to x+20 do begin textcolor(11); gotoxy(n,y); write(char(205)); gotoxy(n,y+6); write(char(205)); end; for n:=y to y+6 do begin gotoxy(x,n); write(char(186)); gotoxy(x+20,n); write(char(186)); end; gotoxy(x,y); write(char(201)); gotoxy(x+20,y); write(char(187)); gotoxy(x+20,y+6); write(char(188)); gotoxy(x,y+6); write(char(200)); gotoxy(x+3,y+1); write(' Ola Nianka'); gotoxy(x+3,y+3); write(' ul. Dluga 11'); gotoxy(x+3,y+5); write('43-000 Warszawa'); zn:=readkey; if ord(zn)=0 then begin zn:=readkey; case ord(zn) of 72: if y>1 then y:=y-1 else y:=19; 80: if y+6<25 then y:=y+1 else y:=1; 75: if x>2 then x:=x-1 else x:=59; 77: if x+21<80 then x:=x+1 else x:=2; end; end until ord(zn)=27 end; procedure ula; var zn:char; x,y,n:byte; begin x:=31; y:=10; repeat clrscr; for n:=x to x+21 do begin textcolor(13); gotoxy(n,y); write(char(205)); gotoxy(n,y+6); write(char(205)); end; for n:=y to y+6 do begin gotoxy(x,n); write(char(186)); gotoxy(x+21,n); write(char(186)); end; gotoxy(x,y); write(char(201)); gotoxy(x+21,y); write(char(187)); gotoxy(x+21,y+6); write(char(188)); gotoxy(x,y+6); write(char(200)); gotoxy(x+3,y+1); write('Ula Bialoszewska'); gotoxy(x+3,y+3); write('ul. Szeroka 10'); gotoxy(x+3,y+5); write('21-123 Gdansk'); zn:=readkey; if ord(zn)=0 then begin zn:=readkey; case ord(zn) of 72: if y>1 then y:=y-1 else y:=19; 80: if y+6<25 then y:=y+1 else y:=1; 75: if x>2 then x:=x-1 else x:=58; 77: if x+22<80 then x:=x+1 else x:=2; end; end until ord(zn)=27 end; begin repeat plansza; zn:=readkey; if ord(zn)=0 then begin zn:=readkey; case ord(zn) of 59:ania; 60:ola; 61:ula; end; end until ord(zn)=27; end. Wsadziłem całość w CODE, żeby było czytelniej. Marmot
  6. Turbo Pascal

    NO MAM taka przykladowa wizytowke zrobiona w tym i trzeba zrobic to samo ale inaczej wygladajace... tzn inne ale maja byc te same informacje
  7. Turbo Pascal

    Witam Zna ktos ten program/jezyk poniewaz musze zrobic wizytowke a zbytnio go nei rozumiem
  8. Monitor & TV

    Witam Najpierw chciałbym zapytać: ...o róznice miedzy TV LCD a Plazmą ? ...który z tych typów matryc polecacie ?? ...doradzcie mi jaki TV midzy 40-42 cale (musi miec min 2 wejsca HDMI)?? ...szukam moniotra LCD 22-24 cale (musie miec HDMI + component, najlepiej DELL'a, LG lub BENQ)?? Z gory dzieki za pomoc.
  9. Program do łączenia plików wideo

    'MyWinAvi' <--jak by co to moge na maila wyslac ------ Warn za złamanie 13. punktu regulaminu. Marmot
  10. Nasze strony

    Moja strona O to moje dzieło dla qumpeli :P
  11. Firma

    Witam Utworzylem ten temat poniewaz chcial bym was spytac czy korzystacie z jakis czesci komputerowych firmy tacens tzn pytam dokladnie o Zasilacze i Obudowy!!! Chcial bym znac dostepnosc czescie tej firmy u was w miastach ...
  12. Twoje gwiezdne imię i nazwisko

    Kockos Gdaju
  13. Twoje "stanowisko" pracy

    Spokojnie z tylu jest okolo 10cm przestrzeni , w gornej czesci obudowy znajduja sie 2 wiatraczki pozatym biurko ma 6odwory(4 po bokach , 2 u gory (jakies otwory na kable muusza byc :P ))
  14. Twoje "stanowisko" pracy

    To moje stanowisko pracy(tzn giercowania :P) !!!
  15. TNT, PVA...?

    Ranmus a panel TFT jak sie sprawuje ??
×