Skocz do zawartości

Bucior

Użytkownicy
  • Postów

    211
  • Dołączył

  • Ostatnia wizyta

O Bucior

  • Urodziny 05.03.1992

O mnie

  • Adres www
  • Hobby
    Gram w koszykówkę w "GKS KORSARZ"; w wolnym ciasie zajmuje sie informatyka(GM, sprzęt komputerowy, nowości systemowe i gram w gry:))

Ostatnie wizyty

1 718 wyświetleń profilu

Osiągnięcia Bucior

Major User

Major User (5/13)

0

Reputacja

  1. Bucior

    Turbo Pascal

    dane i wyglad, tak zeby wygladalo chociaz w 50% inaczej
  2. Bucior

    Turbo Pascal

    A mogłbym Cie prosic o przerobienie naserio nie kumam tego....
  3. Bucior

    Turbo Pascal

    wiec ktos pomoze ??dziki
  4. Bucior

    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
  5. Bucior

    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
  6. Bucior

    Turbo Pascal

    Witam Zna ktos ten program/jezyk poniewaz musze zrobic wizytowke a zbytnio go nei rozumiem
  7. Bucior

    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.
  8. 'MyWinAvi' <--jak by co to moge na maila wyslac ------ Warn za złamanie 13. punktu regulaminu. Marmot
  9. Bucior

    Nasze strony

    Moja strona O to moje dzieło dla qumpeli :P
  10. Bucior

    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 ...
  11. Bucior

    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 ))
  12. Bucior

    Twoje "stanowisko" pracy

    To moje stanowisko pracy(tzn giercowania :P) !!!
×
×
  • Dodaj nową pozycję...