Stickman Warfare: A játék - Fórum

program programneve;
var azonosító: tipus;
begin
 Ez itt a program törzs. Ide kell a program kódot beírni.
end.

unit unitneve;
interface 
 Deklarációs rész ez lesz a modul tartalma. Eljárások függvények fejléce.
implemation 
 Eljárások, függvények deklarációs része ezzel később foglalkozunk.
end.

Program programneve;
Var Szam: Integer = 5; Ez is értékadás
     Szoveg: String; Szövegváltozó
Begin
 Szam:=5; Változónak értékadás
 Szoveg:='Ez egy szöveg változó'; A szövegváltozóknak ' ' jelek között adunk értéket.
End.

program ir;
{$APPTYPE CONSOL}
var I: Integer;
     S: String;
begin
 I:=5;
 S:='Kiir';
 write('Kiir');
 write(S);
 write(I);
 write('2+3=',I);
 write(2+3);
end;

KiirKiir2+3=5

program sortir;
{$APPTYPE CONSOL}
var I: Integer;
     S: String;
begin
 I:=5;
 S:='Kiir';
 writeln('Kiir');
 writeln(S);
 writeln(I);
 writeln('2+3=',I);
 writeln(2+3);
end;

Kiir
Kiir
5
2+3=5
5

program bevitel;
{$APPTYPE CONLOS}
var v,v2: variants;
begin
 read(v); //Két számot adok meg a bekérésnél az egyiket beteszi a változóba a másikat a következő hívásnál beteszi a másikban.
 read(v2); //Nem adok meg bekérési értéket de az előző egy kimaradt számot beteszi a v2 változóba.
 writeln(v,' ',v2); //Kiírja a két változót.
 readln(); //Vár az ENTER lenyomására a program befejezéséhez.
end; 

1 2 //megadtam két számot de csak egyet kellet volna
//itt nem adtam meg semmit
1 2 //Kirtam a két számot

program bevittel2;
{$APPTYPE CONSOL}
var v,v2: variants;
begin
 readln(v,v2); //Beviszek két számot de én direkt hármat adok meg.
 writeln(v,' ',v2); //Kiírom a két változót.
 readln(); //Várok ENTER megnyomására.
end;

1 2 3 //Beviszek három számot egy elfog veszni.
1 2 //Kiírom a két változók.
//Megnyomom az ENTER.

program osszeadas;
var o,i1,i2: Integer;
     so,s,s2: String;
begin
 i1:=1;
 i2:=37;
 o:=i1+i2;
 writeln('Az osszeg: ,'o);
 s:='He';
 s2:='llo';
 so:=s+s2;
 writeln(so);
 s:=s+'llo';
 writeln(s);
end;

Az osszeg: 38
Hello
Hello

Type TOsztaly = class(TObject) // A class szó után meg lehet adni melyik ősosztályból származtatjuk (öröklődés)
                   private // Rejtett adatmezők
                    Tar: Integer; // Itt nem kell var kulcsszó 
                   protected
                    procedure Beker(szam: Integer); // Ezek eljárások de itt methodusoknak fogjuk nevezni csak ezek férhetnek hozzá az adatmezőkhöz
                    procedure Hozzaad(var s: String); //a var kulcsszó itt megváltoztatja paraméterként adott változó értékét
                   public
                    constructor Letrehoz(beall: Integer); // Ezzel hozzuk létre az osztályt
                    destructor Megszüntet; // Ezzel szüntetjük meg az osztályt
                   published
                    property Bekeres: Integer read Beker write Tar; // Ez egy tulajdonság egyszerűbb kezeléshez  a read-el olvassuk
                  end;                                                                 // a beker eljárást és a write-vel írjuk vele a Tar adatmezőt 
                  
implemation

procedure Beker(szam: Integer);
begin
 Tar:=szam;
end;

procedure Hozzaad(var s: String);
begin
 s:=IntToStr(Tar); //Ez egy eljárás ami számból stringet csinál
end;

constructor Letrehoz(beall: Integer);
begin
 Tar:=beall;
end;

destructor Megszüntet;
begin
 Tar:=0;
end;

end;

Használata:
 // Kihagyom a program fejlécét
var Szam: TOsztaly;
     Szöveg: String; 
begin
 Szam:=TOsztaly.Letrehoz(54287); // Lehet az Create constructor-t is használni ez a lehetőség mindig megvan
 Szam.Bekeres:=54287 // Ez ugyanaz az értékadás csak tulajdonsággal
 Szam.Hozzaad(Szöveg); //Szöveg változónak adjuk a szám értékét
 Szam.Megszüntet; // Ehelyet pedig a Destroy destructor-t
 writeln(Szöveg);
end.

Eredmény:

54287

<?php

  $kapcsolat = mysql_connect("127.0.0.1","felhasznalo neved","jelszavad");
  mysql_select_db("adatbazisod", $kapcsolat);  

  $fh = $_POST["bfh"];

  $sql_1 = "SELECT * FROM `adatbazis`.`adattabla`";

  $eredmeny_1 = mysql_query($sql_1);

  $sorok = mysql_num_rows($eredmeny_1);
  
  $index_1 = 0;
  $index_2 = 1;
 
  $szamlalo_1 = 0;
  $szamlalo_2 = 0;
  $szamlalo_3 = 0;

  $byte_1 = 255;

  $ment = "";
  
  while ($szamlalo_2 <= $byte_1) {
    
    $szamlalo_2 += 1;

    $karakter[] = chr($szamlalo_2);

    if ($szamlalo_2 <= 50) {
      
      $code[] = chr($szamlalo_2+50) . chr($szamlalo_2+60) . chr($szamlalo_2+80) . chr($szamlalo_2+80);
    
    }

    elseif ($szamlalo_2 > 50) {
      
      $code[] = chr($szamlalo_2-50) . chr($szamlalo_2-25) . chr($szamlalo_2-45) . chr($szamlalo_2-10);
    
    }

   }

  while (strlen($fh)>=$szamlalo_1) {    

    $szamlalo_1 += 1;

    $betu = substr($fh, $index_1, $index_2);

    while ($szamlalo_3 <= $byte_1) {
      
      $szamlalo_3 += 1;

      if ($karakter[$szamlalo_3] == $betu) {
        
        $ment .= $code[$szamlalo_3];

       }

     }

    $index_1 += 1.75; 
    $index_2 += 1;    
    
   }

  $sor = mysql_fetch_array($eredmeny_1);
  if ($ment == $sor["Felhasznalo"]) {

    $nev = $sor["Felhasznalo"];

   }
  elseif ($ment !=$sor["Felhasznalo"]) {
  
    while ($sorok>0 and $ment != $sor["Felhasznalo"]) {

      $sor = mysql_fetch_array($eredmeny_1);
      if ($ment == $sor["Felhasznalo"]) {

        print "Üdvözlöm " . $_POST["bfh"];

       }

     }

    if ($ment != $sor["Felhasznalo"]) {

      print "A felhasznalonev nem letezik!";      

     }

  }

  mysql_close($kapcsolat);

?>

<?php
	mysql_connect("", "", "");
	mysql_select_db("");
	$sql = mysql_query("SELECT jelszo FROM felhasznalo WHERE nev='".mysql_real_escape_string($_POST["nev"])."'");
	if (mysql_num_rows($sql) == 0)
		echo "Ilyen felhasználó nem létezik";
	else
	{
		$sor = mysql_fetch_array($sql);
		if ($sor["jelszo"] != sha1($_POST["jelszo"]))
			echo "Hibás jelszó";
		else
			echo "Üdv".htmlentities($_POST["nev"]);
	}
?>

<?php

  $fh = "";

  $ment = "";

  $szamlalo_1 = 0;
  $szamlalo_2 = 0;
  $szamlalo_3 = 0;

  while ($szamlalo_2 <= 255) {
    
    $szamlalo_2 += 1;

    $karakter[] = chr($szamlalo_2);

    if ($szamlalo_2 <= 50) {
      
      $code[] = chr($szamlalo_2+50) . chr($szamlalo_2+60) . chr($szamlalo_2+80) . chr($szamlalo_2+80);
    
    }

    elseif ($szamlalo_2 > 50) {
      
      $code[] = chr($szamlalo_2-50) . chr($szamlalo_2-25) . chr($szamlalo_2-45) . chr($szamlalo_2-10);
    
    }

   }

  while (strlen($fh)>=$szamlalo_1) {
    
    $szamlalo_1 += 1;
    $szamlalo_3 = 0;

    $betu = $fh[$szamlalo_1];

    while ($szamlalo_3 <= 255) {
    
      $szamlalo_3 += 1;
      
      if ($betu == $karakter[$szamlalo_3]) {

        $ment = $ment . $code[$szamlalo_3];

       }

     }
   
   }

  print $ment;

?>

<?php

  $fh = "Irj ide be valamit amit le akarsz kodolni.";
 
  $szamlalo_1 = -1;
  $szamlalo_2 = -1;
  $szamlalo_3 = -1;

  $byte_1 = 255;

  $ment = "";
  
  while ($szamlalo_2 <= $byte_1) {
    
    $szamlalo_2 += 1;

    $karakter[] = chr($szamlalo_2);

    if ($szamlalo_2 <= 127) {
      
      $code[] = chr($szamlalo_2+50) . chr($szamlalo_2+60) . chr($szamlalo_2+80) . chr($szamlalo_2+100);
    
    }

    elseif ($szamlalo_2 > 128) {
      
      $code[] = chr($szamlalo_2-50) . chr($szamlalo_2-60) . chr($szamlalo_2-80) . chr($szamlalo_2-100);
    
    }

   }
 

  while (strlen($fh)>=$szamlalo_1) {    

    $szamlalo_1 += 1;
    $szamlalo_3 = -1;

    $betu = $fh[$szamlalo_1];

    while ($szamlalo_3 <= $byte_1) {
      
      $szamlalo_3 += 1;

      if ($karakter[$szamlalo_3] == $betu) {
        
        $ment .= $code[$szamlalo_3];

       }

     } 
    
   }

  print $ment;

?>

<?php
print "Első: ".$tomb["valami"]." Második: ".$tomb["valami2"];
?>

<?php
$tomb=array(
"valami" => "szöveg",
"valami2" => "másik szöveg"
)
?>

<?php
$tomb["valami"] = "szöveg";
$tomb["valami2"] = "másik szöveg";
?>