FIFA 07 - Potrzebny kod rejestracyjny do gry online -Zajrzyj

OK.Witam.To mój 8 post, a więc rozprawię się z tym szybko.[br /] 1.Szukamy KeyGenerator by FFF[br /] 2.ściągamy[br /] 3.Uruchamiamy[br /] 4.Z Listy wybieramy FIFA 2007[br /] 5.Przepisujemy na kartkę KeyGen.[br /] 6.Odpalamy grę i rejestrujemy się.[br /] 7.Przepisujemy KeyGen z kartki[br /] 8.Gramy do woli przez OnLine

(Pascal) Twierdzenie Pitagorasa [kod źródłowy]

:: program twierdzeniepitagorasa;[br /] [br /] var[br /] a, b : real;[br /] [br /] begin[br /] write('Podaj dˆługoś˜ci przyprostokątnych a i b:');[br /] readln(a, b);[br /] writeln('Dˆugo˜ść przyprostokątnej c wynosi: ', sqrt(a*a+b*b):13:5);[br /] [br /] end. ::

(Pascal) Fire Sword - gra tekstowa [kod źródłowy]

:: program fire;[br /] [br /] {$APPTYPE CONSOLE}[br /] [br /] uses[br /] crt;[br /] [br /] var[br /] c1,c2:char;[br /] y:byte;[br /] tablica:array[1..4]of string;[br /] przyklad: text;[br /] linia: string;[br /] twoja_lokacja: byte;[br /] nowa_lokacja: byte;[br /] czynnosc: BYTE;[br /] specjalne: byte;[br /] obrona: byte;[br /] przedmiot: array [0..20] of string;[br /] ktory_przedmiot: string;[br /] odpowiedz: byte;[br /] taknie: char;[br /] nazwa: string;[br /] i: byte;[br /] [br /] label[br /] lokacja, 1, 2, 3, 4, 5, 6, 7, 8, 9;[br /] [br /] [br /] [br /] procedure menu; forward;[br /] procedure sterowanie; forward;[br /] [br /] [br /] procedure intro;[br /] var[br /] x,y: shortint;[br /] begin[br /] x := 10;[br /] y := 10;[br /] textbackground(red);[br /] clrscr;[br /] gotoxy(32,13);[br /] textcolor(white);[br /] gotoxy(21,y); write(' #### ### ##### ### ##### #');[br /] gotoxy(21,y+1);write(' # # # # # # # # #');[br /] gotoxy(21,y+2);write(' #### ##### ...

(Pascal) Zgadnij wylosowaną liczbę [kod źródłowy]

:: program zgadula;[br /] [br /] // Nalezy odgadnac liczbe wygenerowana[br /] // przez komputer w jak najmniejszej ilosci prob.[br /] [br /] [br /] uses[br /] Crt;[br /] [br /] [br /] procedure zakres(var b : integer);[br /] begin[br /] repeat[br /] Write('Z jakiego zakresu chcesz wygenerować liczbę? 1..');[br /] read(b);[br /] if (b < 2) or (b > 30000) then writeln('Liczba spoza zakresu! 2..30000');[br /] until (b > 1) and (b < 30001);[br /] end;[br /] [br /] [br /] procedure generuj(b : integer; var liczba : integer);[br /] begin[br /] randomize;[br /] liczba := random(b) + 1;[br /] end;[br /] [br /] [br /] procedure szukanie(liczba : integer; var b,szuk : integer);[br /] [br /] var[br /] a,x : integer;[br /] [br /] begin[br /] clrscr;[br /] a := 1;[br /] Repeat[br /] //write(b);[br /] Writeln('Liczba z zakresu: [',a,'..',b,']');[br /] read(x);[br /] clrscr;[br /] if (a < ...

(Pascal) Lotto [kod źródłowy]

:: program lotto;[br /] [br /] {$APPTYPE CONSOLE}[br /] [br /] uses[br /] crt;[br /] [br /] [br /] type[br /] Ttab = array[1..6] of byte;[br /] [br /] label[br /] poczatek;[br /] [br /] procedure wylosowywuj (liczba: Ttab); forward;[br /] procedure sprawdz(kula, liczba: Ttab); forward;[br /] procedure wypisz(kula, liczba: Ttab; odgadniete:byte); forward;[br /] procedure wprowadz(wybor: boolean); forward;[br /] [br /] [br /] procedure logo;[br /] begin[br /] textcolor(white);[br /] gotoxy(30,1);[br /] writeln('*************************');[br /] gotoxy(30,2);[br /] writeln('** LOTTO 1.0 **');[br /] gotoxy(30,3);[br /] writeln('** COPYRIGHT BY RAFAEL **');[br /] gotoxy(30,4);[br /] writeln('*************************');[br /] end;[br /] [br /] [br /] procedure menu;[br /] var[br /] znak: char;[br /] x: byte;[br /] wybor: boolean;[br /] begin[br /] x := 1;[br /] repeat[br /] if znak = #80 then x := x + 1;[br /] if znak = #72 then x := x - 1;[br /] if x = 4 then x := ...

(C++) Program 9 [kod źródłowy]

Program wyświetlający na ekranie trójkąt Pascala.[br /] [br /] :: #include <iostream.h>[br /] #include <conio.h>[br /] [br /] int main (void)[br /] {[br /] [br /] const int s=10; // <-- Poteg do wypisania max -> 17[br /] [br /] [br /] [br /] int tab[s][s];[br /] [br /] [br /] memset(tab, 0, sizeof(tab));[br /] [br /] tab[0][0] = 1;[br /] for(int i = 1; i < s; i++)[br /] {[br /] tab[i][0] = 1;[br /] for(int j = 1; j < s; j++)[br /] {[br /] tab[i][j] = tab[i-1][j] + tab[i-1][j-1];[br /] }[br /] }[br /] [br /] [br /] for(i = 0; i < s; i++)[br /] {[br /] for(int j = 0; j < s; j++)[br /] {[br /] if(tab[i][j] != 0)[br /] cout << tab[i][j] << " ";[br /] }[br /] cout << endl;[br /] }[br /] getch();[br /] }[br /] ::

(C++) Program 1 [kod źródłowy]

Program sprawdzający, czy dana liczba jest parzysta.[br /] [br /] :: #include<iostream.h>[br /] main()[br /] {[br /] [br /] int a;[br /] cout<<"Podaj Liczbe : ";[br /] cin>>a;[br /] [br /] if (a%2==0) {cout<<"Liczba jest Parzysta";}else[br /] {cout<<"Liczba nie jest patrzysta.";}[br /] [br /] }[br /] [br /] ::

(C++) Program 6 [kod źródłowy]

Funkcja licząca Cotangens "Ctg" kąta.[br /] [br /] :: #include<iostream.h>[br /] #include<math.h>[br /] [br /] float ctg(float x)[br /] {[br /] return 1/tan(x);[br /] }[br /] [br /] main()[br /] {[br /] int k;[br /] cout<<"Podaj kat : ";[br /] cin>>k;[br /] cout<<"Ctg kata = "<<ctg(k);[br /] }[br /] ::

(C++) Program 3 [kod źródłowy]

Program oblicza cenę brutto z podanej ceny netto.[br /] [br /] :: [br /] #include<iostream.h>[br /] [br /] main()[br /] {[br /] [br /] float netto;[br /] cout<<"Podaj cene Netto : ";[br /] cin>>netto;[br /] cout<<endl;[br /] cout<<"Cena Brutto = "<<netto+(netto*0.22);[br /] [br /] [br /] [br /] }[br /] [br /] [br /] ::

(Pascal) Edytor HTML 1.0 [kod źródłowy]

:: program edytor;[br /] [br /] {$APPTYPE CONSOLE}[br /] [br /] uses[br /] crt;[br /] [br /] var[br /] plik: text;[br /] katalog: string;[br /] [br /] [br /] procedure intro;[br /] begin[br /] textcolor(white);[br /] gotoxy(30,1);[br /] writeln ('***********************');[br /] gotoxy(30,2);[br /] writeln ('** EDYTOR HTML V 1.0 **');[br /] gotoxy(30,3);[br /] writeln ('** COPYRIGHT BY **');[br /] gotoxy(30,4);[br /] writeln ('** RAFAEL **');[br /] gotoxy(30,5);[br /] writeln ('***********************');[br /] writeln;[br /] end;[br /] [br /] [br /] procedure stworz_plik;[br /] begin[br /] write ('W jakim katologu ma zostac stworzony plik: ');[br /] textcolor(yellow);[br /] readln(katalog);[br /] katalog := katalog + 'index.html';[br /] assign (plik,katalog);[br /] rewrite (plik);[br /] end;[br /] [br /] procedure tworzenie;[br /] var[br /] dane: string;[br /] begin[br /] textcolor(white);[br /] write ('Tytul witryny: ');[br /] textcolor(yellow);[br /] readln (dane);[br /] writeln (plik,'<html>');[br /] writeln (plik,'<head>');[br /] writeln (plik,'<title>',dane,'</title>');[br /] writeln (plik,'</head>');[br /] textcolor(white);[br /] ...

(C++) Program 4 [kod źródłowy]

Kalkulator.[br /] [br /] :: #include<iostream.h>[br /] [br /] main()[br /] {[br /] int l1,l2,rodzaj;[br /] [br /] [br /] cout<<"Podaj liczbe 1 : ";[br /] cin>>l1;[br /] [br /] cout<<"Podaj liczbe 2 : ";[br /] cin>>l2;[br /] endl;[br /] endl;[br /] endl;[br /] [br /] [br /] cout<<"Wybierz Rodzaj dzialania : [1] - dodawanie"<<endl;[br /] cout<<" : [2] - odejmowanie"<<endl;[br /] cout<<" : [3] - mnozenie"<<endl;[br /] cout<<" : [4] - dzielenie"<<endl;[br /] cout<<"WYBOR :";[br /] cin>>rodzaj;[br /] [br /] switch (rodzaj)[br /] {[br /] case 1:{cout<<"SUMA LICZB WYNOSI : "<<l1+l2;break;};[br /] case 2:{cout<<"ROZNICA WYNOSI : "<<l1-l2;break;};[br /] case 3:{cout<<"ILOCZYN WYNOSI : "<<l1*l2;break;};[br /] case 4:{cout<<"ILORAZ WYNOSI : "<<l1/l2;break;};[br /] }[br /] [br /] }[br /] [br /] [br /] ::

(Pascal) Edytor graficzny [kod źródłowy]

:: program edytor_graficzny;[br /] uses Crt,graph;[br /] var karta,tryb,n:integer;[br /] ch:char;[br /] a,b,kol,y,x:integer;[br /] tx:string;[br /] [br /] procedure wyswietl; {procedura wyswietlania napisow na ekranie}[br /] begin[br /] outtextxy(a,b,tx);[br /] end;[br /] [br /] procedure wizytowka; {procedura wyswietlenia wizytowki}[br /] begin[br /] setcolor(green); {kolor napisu}[br /] a:=20; b:=20; {ustalenie pozycji wyswietlenia wizytowki}[br /] tx:='Program wykonal:';[br /] wyswietl; {odwolanie do procedury wyswietlenia napisow}[br /] b:=b+12; tx:='MARCIN ***';[br /] wyswietl;[br /] end;[br /] [br /] procedure text; {procedura wyswietlajaca napisy poprzez odwolanie}[br /] begin {sie do procedury 'wyswietl' }[br /] setcolor(yellow);[br /] a:=getmaxx div 3;[br /] b:=30;[br /] tx:='EDYTOR GRAFICZNY';[br /] wyswietl;[br /] setcolor(lightgreen); a:=getmaxx-150; b:=100; tx:='OBJASNIENIA:';[br /] wyswietl;[br /] setcolor(white); a:=getmaxx-185; b:=140; tx:='ESC - zakoncz.';[br /] wyswietl;[br /] b:=b+30; tx:='Rysuj kursorami:';[br /] wyswietl;[br /] b:=b+15; tx:='GORA, DOL, PRAWO, LEWO';[br /] wyswietl;[br /] b:=b+30; tx:='Czyszczenie ekranu:';[br /] wyswietl;[br /] b:=b+15; tx:='BACKSPACE';[br /] wyswietl;[br /] b:=b+30; tx:='Podniesienie pisaka:';[br /] wyswietl;[br /] b:=b+15; tx:='SPACJA';[br ...

(Pascal) Adventure - gra [kod źródłowy]

:: program adventure;[br /] [br /] {$APPTYPE CONSOLE}[br /] [br /] uses[br /] SysUtils, crt;[br /] [br /] type[br /] Truch = record[br /] x: integer;[br /] y: integer;[br /] end;[br /] Texp = record[br /] next: integer;[br /] nr: integer;[br /] exp: integer;[br /] zdobyte: integer;[br /] end;[br /] Tpostac = record[br /] wytrzymalosc: integer;[br /] wytrzymalosc_max: integer;[br /] sila: integer;[br /] zrecznosc: integer;[br /] imie: string[20];[br /] end;[br /] Twrogowie = array[1..10] of Tpostac;[br /] [br /] procedure intro;[br /] begin[br /] writeln('*********************************');[br /] writeln('*********************************');[br /] writeln(' ADVENTURE ');[br /] writeln(' Copyright 2006 by RAFAEL ');[br /] writeln('*********************************');[br /] writeln('*********************************');[br /] readln;[br /] clrscr;[br /] end;[br /] [br /] procedure losuj_imie(var wrog: Twrogowie);[br /] var[br /] numer: byte;[br /] begin[br /] Randomize;[br /] numer := Random(10);[br /] case numer of[br /] 0: wrog[2].imie := 'Mantikora';[br /] 1: wrog[2].imie := 'Jaszczur';[br /] 2: wrog[2].imie := 'Zloty smok';[br /] 3: ...

(Pascal) Dźwięk [kod źródłowy]

:: Uses CRT;[br /] [br /] Begin[br /] Sound(2000); {dowolna liczba}[br /] Delay(1000); {dowolna liczba}[br /] NoSound;[br /] End.[br /] [br /] ::

(Pascal) Cofanie kalendarza o dwa dni [kod źródłowy]

:: type[br /] kalendarz = record[br /] dd,mm : integer;[br /] end;[br /] [br /] var[br /] kal : kalendarz;[br /] [br /] Function dzien(dz : integer): integer; [br /] var[br /] ok : boolean;[br /] k,d : integer;[br /] begin[br /] ok := true;[br /] if (dz = 2) then k := 28 else[br /] if (dz = 4) or (dz = 6) or (dz = 9) or (dz = 11) then k := 30[br /] else k := 31;[br /] Repeat[br /] Write('Dzień: ');[br /] Read(d);[br /] if (d < 1) or (d > k) then ok := false else ok := true;[br /] Until ok = true;[br /] dzien := d;[br /] end;[br /] [br /] Procedure wczytaj(var kal : kalendarz);[br /] var[br /] ok : boolean;[br /] begin[br /] ok := true;[br /] Writeln('Podaj datę');[br /] with kal do[br /] Repeat[br /] Write('Miesiąc: ');[br /] Read(mm);[br ...

(C++) Program 8 [kod źródłowy]

Silnia - bez żadnej funkcji.[br /] [br /] :: # include <iostream.h>[br /] [br /] main()[br /] {[br /] cout<<"Podaj Liczbe : ";[br /] int liczba;[br /] cin>>liczba;[br /] long silnia=1;[br /] for (int i=1;i<=liczba;i++)silnia*=i;[br /] cout<<"Silnia z liczby "<<liczba<<" wynosi "<<silnia;[br /] }[br /] ::

(Pascal) Waga [kod źródłowy]

:: program waga;[br /] [br /] {$APPTYPE CONSOLE}[br /] [br /] uses[br /] crt;[br /] [br /] var[br /] wzrost: byte;[br /] znak: char;[br /] x: byte;[br /] waga1: real;[br /] prawidlowa: byte;[br /] [br /] procedure intro;[br /] begin[br /] writeln ('Program podaje jaka waga jest odpowiednia dla wpisanego');[br /] writeln ('wzrostu czlowieka. Wedlug metody Paula Broca');[br /] writeln;[br /] write ('Autor: Rafael');[br /] readln;[br /] end;[br /] [br /] procedure wprowadz_dane;[br /] begin[br /] clrscr;[br /] write ('Twoj wzrost: ');[br /] readln (wzrost);[br /] x := 1;[br /] repeat[br /] clrscr;[br /] textcolor(white);[br /] write ('Twoja plec: ');[br /] if znak = #75 then x := x - 1;[br /] if znak = #77 then x := x + 1;[br /] if x = 0 then x := 2;[br /] if x = 3 then x := 1;[br /] if x = 1 then textcolor(yellow)[br /] else[br /] ...

(C++) Program 10 [kod źródłowy]

Program liczący ilość znaków w zdaniu.[br /] [br /] :: #include<iostream.h>[br /] #include<stdio.h>[br /] #include<string.h>[br /] [br /] [br /] main()[br /] {[br /] char napis[255];[br /] cout<<"Wpisz jakies zdanie !!"<<endl;[br /] cout<<" : ";[br /] gets(napis);[br /] cout<<"Znakow w zdaniu jest : "<<strlen(napis);[br /] [br /] }[br /] [br /] // program traktuje spacje jako normalny znak[br /] [br /] ::

(Pascal) Kalkulator [kod źródłowy]

:: program kalkulator;[br /] [br /] {$APPTYPE CONSOLE}[br /] [br /] var[br /] liczba1: real;[br /] liczba2: real;[br /] wynik: real;[br /] znak: char;[br /] [br /] procedure liczby;[br /] begin[br /] write ('Podaj pierwsza liczbe: ');[br /] readln (liczba1);[br /] write ('Podaj znak [/;*;-;+]: ');[br /] readln (znak);[br /] write ('Podaj druga liczbe: ');[br /] readln (liczba2);[br /] [br /] if (znak = '/') and (liczba2 = 0) then[br /] begin[br /] repeat[br /] writeln;[br /] writeln ('Dzielenie przez zero zabronione!');[br /] write ('Podaj druga liczbe: ');[br /] readln (liczba2);[br /] until liczba2 > 0;[br /] end;[br /] [br /] end;[br /] [br /] procedure liczenie;[br /] begin[br /] case znak of[br /] '/': wynik := liczba1 / liczba2;[br /] '*': wynik := liczba1 * liczba2;[br /] '-': wynik := liczba1 - liczba2;[br /] '+': wynik := liczba1 + liczba2;[br /] end;[br /] [br /] end;[br /] [br /] ...

(C++) Program 5 [kod źródłowy]

Program oblicza ilość wyrazów w zdaniu.[br /] [br /] :: # include <iostream.h>[br /] [br /] [br /] main()[br /] {[br /] const size=200; //Ilosc liter w zdaniu - dlugosc zdania[br /] [br /] char string[size];[br /] cout<<"Wpisz zadanie max "<<size<<" literowe :";[br /] cin>>string;[br /] [br /] for (int i=0,ilosc=0;i<size;i++)[br /] {[br /] if (string[i]==' '){ilosc++;};[br /] [br /] };[br /] cout<<"Wyrazow w zdaniu jest "<<ilosc;[br /] }[br /] [br /] [br /] ::

Windows 7 - kod źródłowy dostarczony do Rosjii

Rosja ma kod źródłowy Windows 7 [br /] Windows 7 | 2010-07-16 09:05:54 [br /] Microsoft podpisał umowę, na podstawie której firma udostępniła kod źródłowy systemu operacyjnego Windows 7 rosyjskim służbom wywiadu. [br /] [br /] Rosyjskie Vedomosti podały, jakoby firma z Redmond udostępniła również rosyjskim służbom bezpieczeństwa FSB kod źródłowy Microsoft Windows Server 2008 R2, Microsoft Office 2010 oraz Microsoft SQL Server. Decyzja ta ma mieć wpływ na zwiększenie sprzedaży produktów Microsoftu na rynku rosyjskim. [br /] [br /] Porozumienie zakłada również, że otwarcie kodu pozwoli odpowiednim służbom na rozwój kryptografii w produktach Microsoftu dzięki rządowemu ciału o nazwie Atlas. [br /] [br /] Atlas i FSB mają ściśle współpracować - poinformował Nikolai Pryanishnikov, prezes Microsoft Russia. [br /] [br /] Źródło: http://hacking.pl/pl/news-16022-Rosja_ma_kod_zrodlowy_Windows_7.html[br /] [br /] Ps. Właściciele Windowsa 7 - co o tym sądzicie? Chyba Microsoft oszalał... Ale nie pisze że za darmo udostępnił...

(Pascal) War - gra [kod źródłowy]

:: program war;[br /] [br /] {$APPTYPE CONSOLE}[br /] [br /] uses[br /] crt;[br /] [br /] [br /] type[br /] Tgracz=record[br /] imie: string;[br /] wojsko: integer;[br /] doswiadczenie: integer;[br /] wytrzymalosc: integer;[br /] obwarowanie: boolean;[br /] zloto: integer;[br /] end;[br /] [br /] procedure losuj_wydarzenie(var czlowiek: Tgracz; var komputer: Tgracz; tura: integer);forward;[br /] [br /] procedure start(var czlowiek: Tgracz);[br /] begin[br /] czlowiek.wojsko := 300;[br /] czlowiek.doswiadczenie := 10;[br /] czlowiek.wytrzymalosc := 100;[br /] end;[br /] [br /] function losuj_imie: string;[br /] var[br /] imie: array[1..20] of string;[br /] x: byte;[br /] begin[br /] imie[1] := 'Valhari';[br /] imie[2] := 'Rafael';[br /] imie[3] := 'EL Polaco';[br /] imie[4] := 'Tommus';[br /] imie[5] := 'Meshif';[br /] imie[6] := 'Quaran';[br /] imie[7] := 'Felix';[br /] imie[8] := 'Hannibal';[br /] imie[9] := 'Spartakus';[br /] imie[10] := 'Pompejusz';[br /] imie[11] := 'Xay';[br /] imie[12] := 'Tuxer';[br /] imie[13] := 'Alibaba';[br /] imie[14] ...

(Pascal) Mnożenie [kod źródłowy]

:: program mnozenie;[br /] [br /] var[br /] Liczba1, Liczba2 :real;[br /] [br /] begin[br /] write('Podaj liczbe 1: ');[br /] readln(Liczba1);[br /] write('Podaj druga liczbe: ');[br /] readln(Liczba2);[br /] writeln('Wynik: ', Liczba1*Liczba2 :13:5);[br /] readln;[br /] end. ::

(Pascal) Walka [kod źródłowy]

:: program walka;[br /] [br /] {$APPTYPE CONSOLE}[br /] [br /] uses[br /] SysUtils;[br /] [br /] type[br /] TWojownik = record[br /] sila: integer;[br /] zrecznosc: integer;[br /] wytrzymalosc: integer;[br /] Detale: record[br /] wzrost: integer;[br /] waga: integer;[br /] ksywa: string[20];[br /] end;[br /] end;[br /] TDruzyna = array[1..10] of TWojownik;[br /] [br /] procedure intro;[br /] begin[br /] writeln('***************************');[br /] writeln(' Walka ziomale vs zule ');[br /] writeln(' autor: RAFAEL ');[br /] writeln('***************************');[br /] readln;[br /] end;[br /] [br /] procedure fightOneToOne(var woj1, woj2: TWojownik);[br /] var[br /] sa1, sa2: integer;[br /] begin[br /] randomize;[br /] repeat[br /] sa1 := woj1.sila + woj1.zrecznosc + random(10);[br /] sa2 := woj2.sila + woj2.zrecznosc + random(10);[br /] if sa1 > sa2 then[br /] begin[br /] dec(woj2.wytrzymalosc, round(0.5*sa1));[br /] writeln('Zul dostal ', round(0.5*sa1),' obrazen.');[br /] end[br /] else[br /] dec(woj1.wytrzymalosc, round(0.5*sa2));[br /] writeln('Ziomal dostal ', round(0.5*sa1), ' obrazen');[br /] until (woj1.wytrzymalosc ...

(C++) Program 7 [kod źródłowy]

Silnia - funkcja rekurencyjna.[br /] [br /] :: # include <iostream.h>[br /] [br /] double silnia(double x)[br /] {if (x==1) {return 1;} else[br /] return silnia(x-1)*x;[br /] }[br /] [br /] main()[br /] {[br /] cout<<"Podaj Liczbe : ";[br /] int liczba;[br /] cin>>liczba;[br /] cout<<"Silnia z liczby "<<liczba<<" wynosi "<<silnia(liczba);[br /] }[br /] [br /] ::