2015. január 13., kedd

Anti-Semitism!

   
The  throughout history, some groups were targeted more than others. Like the Jewish people. Their ordeal started at the hands of Pharaoh, who killed their boys and let only their girls live. The oppression against Jews continued throughout antiquity, at the hands of the Assyrians, Babylon and the Romans, who massacred and exiled Jews and destroyed their temples and cities. In medieval times, Jews were once again targeted, labeled, discriminated against and chased away from wherever they took shelter. The oppression continued in recent history when six million Jews were slaughtered by Nazis. Today, the persecution still goes on. Anti-Semitism in Europe lingers in the form of harassment in public areas, offensive remarks and discriminatory behavior in social life and more terrifyingly, in the form of brutal assaults; the vandalizing and looting of Jewish businesses, burning of cars, hundreds chanting “gas the Jews,” “kill the Jews,” in violent protests, shootings and fire-bomb attacks against synagogues, and the recent Creteil attack in France in which a Jewish couple was brutally attacked in their home. That incident was a horrible reminder of the 2006 incident – again in France – that involved a young Jewish man being captured, tortured for weeks and then left naked to die. France is not the only place that witnesses anti-Semitism. From Argentina to Tunisia, from Ireland to Spain, Jews seem to be caught up in a constant cycle of hatred targeting their communities. Even in the US, which is known for its unwavering support for Israel, Jewish people are wary of divulging their identities, or practicing their religious duties in public. An unprovoked attack on a 24-yearold Jewish man wearing a kippa by four men in Brooklyn, New York; the assault of a 12-year-old Jewish girl, who had a bottle thrown at her by a group of girls, including one who yelled, “You dirty Jew”; and the attack on a Jewish man in Los Angeles, California, who was surrounded by five male suspects who yelled “Heil Hitler!” before striking him, can be listed among the disturbing recent incidents in the US. The Middle East is home to the worst cases of anti-Semitism, however. Especially after the recent Gaza war, hatred toward Jewish people regardless of age, gender or involvement in the conflict has risen in a disturbingly fast manner. But why do some people seem to think that it is legitimate to hate Jews? In the past, some people saw Jews as underhanded conspirators who segregated themselves from the societies they lived in due to widespread anti-Semitic propaganda, such as The Protocols of the Elders of Zion. The sentiment was further fueled with notorious lies like the blood libel, portraying Jews as the veritable embodiment of evil. Today, the conflict between Israelis and Palestinians is the driving force behind this ubiquitous Jewish-hatred, and often used as a cloak to justify violence against ordinary Jews on the streets. Surely political administrations or individuals within a community might make mistakes. However, persecuting a whole community based on the acts of few would be neither Koranic nor moral. The Jewish people are known for their calm and modest demeanor.
   
They are a quiet people that like to occupy themselves with their daily routine and religious practices. Therefore it is even more surprising that such calm and reserved people have been on the receiving end of such persecution throughout the history. Any resentment toward the policies of Israel should be voiced in a civil manner, without putting the blame on the entire community. God prohibits Muslims from such a behavior. In the Koran, God warns believers as such: “O you who have believed, be persistently standing firm for Allah, witnesses in justice, and do not let the hatred of a people prevent you from being just. Be just; that is nearer to righteousness. And fear Allah ; indeed, Allah is Acquainted with what you do” (Koran 5:8). It is most natural for there to be good and bad people in every group, community or nation. Just like there are countless murderers, liars and criminals in Muslim communities, it is natural for Jewish communities to include people whose actions are less than commendable. Yet, it is most absurd and ridiculous to feel antipathy toward a group in its entirety for the actions of a few. Most importantly, it is opposite to the teachings of Koran. According to the Koran, Jews are People of the Book and are to be respected, protected and approached with love. God allows Muslims to bond with them through marriage, which alone explains the extent of friendship and closeness God expects from us to have with them. God also allows us to have social bonds with Jews, to have dinners with them in their homes. God never tells Muslims to hate them, or discriminate against Jews or Christians. God praises Jews in many verses for their devotion and piety and indeed, Jewish people set a great example to Muslims with their unwavering loyalty to the prophet Moses.
All these facts make it clear that there is no basis, either in Islam or in Judaism, that could lead to such friction. Once everyone realizes that God created this world for love and it is against God’s wishes to harbor hostile feelings toward each other, brotherhood and peace will prevail.

2015. január 8., csütörtök

New Year’s resolutions this year?

Are you making some New Year’s resolutions this year? As well as making promises to try better in your personal life, why not think about ways to make a fresh start in the workplace – particularly when it comes to information security?
From a physical point of view, does your business:
  • have locked filing cabinets for documents that include customer information, employee records, financial data, and other sensitive material?
  • use laptop locks that prevent physical theft?
  • use secure, off-site storage for documents that you are legally required to retain?
  • prohibit the use of unsecure recycling bins at employees’ workstations?
  • have secure shredding containers for safely disposing of documents?
  • securely destroy old hard drives once they are no longer needed?
  • have a secured area that can’t be accessed by anyone without a key or security pass?
From a digital point of view, does your business:
  • encrypt smartphones so that data is secured even if the phone is lost and recovered by someone outside the company?
  • regularly update your computer software to ensure that security holes are patched?
  • backup sensitive data to a secure, off-site storage facility?
  • ensure that employees regularly change their passwords?
  • prohibit employees from leaving passwords written on their workstations?
  • limit access to network folders with sensitive information?
  • have anti-malware software installed on all computers?
From a policies and procedures point of view, does your business:
  • have rules regarding proper document management that includes storage and disposal?
  • have rules regarding the removal of equipment, data and documents from the office?
  • have rules regarding proper document management when working remotely?
  • train new employees on information security policies and procedures?
  • provide regular (semi-annual or annual) refresher training on information security policies and procedures for employees?
  • perform information security audits to ensure that employees are following policies and procedures?
  • make adherence to policies and procedures part of employees’ performance review process?
If you’ve answered no to any of the questions in the checklist then there’s definitely room for improvement in your business’ information security practices. The good news is that all of the items featured on the checklist are easily implemented at a minimal cost.
From a physical point of view, does your business:
  • have locked filing cabinets for documents that include customer information, employee records, financial data, and other sensitive material?
  • use laptop locks that prevent physical theft?
  • use secure, off-site storage for documents that you are legally required to retain?
  • prohibit the use of unsecure recycling bins at employees’ workstations?
  • have secure shredding containers for safely disposing of documents?
  • securely destroy old hard drives once they are no longer needed?
  • have a secured area that can’t be accessed by anyone without a key or security pass?
From a digital point of view, does your business:
  • encrypt smartphones so that data is secured even if the phone is lost and recovered by someone outside the company?
  • regularly update your computer software to ensure that security holes are patched?
  • backup sensitive data to a secure, off-site storage facility?
  • ensure that employees regularly change their passwords?
  • prohibit employees from leaving passwords written on their workstations?
  • limit access to network folders with sensitive information?
  • have anti-malware software installed on all computers?
From a policies and procedures point of view, does your business:
  • have rules regarding proper document management that includes storage and disposal?
  • have rules regarding the removal of equipment, data and documents from the office?
  • have rules regarding proper document management when working remotely?
  • train new employees on information security policies and procedures?
  • provide regular (semi-annual or annual) refresher training on information security policies and procedures for employees?
  • perform information security audits to ensure that employees are following policies and procedures?
  • make adherence to policies and procedures part of employees’ performance review process?
If you’ve answered no to any of the questions in the checklist then there’s definitely room for improvement in your business’ information security practices. The good news is that all of the items featured on the checklist are easily implemented at a minimal cost.

- See more at: http://www.shredit.co.uk/en-gb/blog/securing-your-information/december-2014/new-year,-new-start-making-information-security-a#sthash.x5FYwG48.dpuf

pascal

program fibo;
var a,b,c,i:integer;
begin
     a:=1;
     b:=1;
     write(a:8,b:8);
     for i:=1 to 8 do
     begin
       c:=a+b;
       a:=b;
       b:=c;
       write(c:8)
     end;
     readln
end.
-------------------------
program prim;
var i,j,p,n:integer;
begin
   writeln('Meddig irassuk ki a primeket?');
   readln(n);
   for i:=2 to n do
   begin
    p:=0;
    for j:=2 to round(sqrt(i)) do
     if i mod j=0 then p:=1;
    if p=0 then write(i:8);
   end;
   readln
end.
----------------------------
program lnko_s;
var a,b,i,lnko,lkkt,c:integer;
begin
     WriteLn('Kerem a ket szamot!');
     ReadLn(a);
     ReadLn(b);
     if a<b then
            begin
            c:=a;
            a:=b;
            b:=c
            end;
     For i:=2 to a do
      if(a mod i=0) and (b mod i=0) then lnko:=i;
     lkkt:=round(a*b/lnko);
     WriteLn('Az lnko: ', lnko, ' Az lkkt: ', lkkt);
     ReadLn
End.
--------------------------------
 program erasztoteneszi_szita;
const limit=10000;
var t:array [1..limit] of boolean;
    i,j:word;
begin
    for i:=1 to limit do t[i]:=true;
    i:=2;

    while i<=round(sqrt(limit)) do
    begin
     j:=2*i;
     while j<=limit do
      begin
      t[j]:=false;
      inc(j,i);
      end;
     inc(i);
     while not t[i] do
      inc(i);
    end;
    for i:=2 to limit do if t[i] then write(i:5);
    readln
end.
-----------------------------
 

2015. január 3., szombat

Pascal program: Lottószámok

Program Lottosz;
Uses crt;
Type Halmaz=Array[1..90]of boolean;
Var sajath, huzotth, talalath:Halmaz;
 talalatsz,i:byte;
 
Procedure UresHalmaz(var H:Halmaz);
var i:byte;
begin
 for i:=1 to 90 do H[i]:=false;
end;

Procedure Sajatszamok(var sajath:Halmaz);
var  db,szam:byte;
begin
  UresHalmaz(sajath);
  writeln('Adja meg a lotto szamait!');
  db:=1;
  while (db<6) do
   begin
   writeln(db,'. szam: ');
   readln (szam);
   if (szam <1) or (szam>90) then writeln('Rossz szamot adott meg!')
   else begin
            if sajath[szam]=true then writeln('Ez a szam mar szerepelt!')
            else begin
                   sajath[szam]:=true;
                   inc(db);
                 end;            
     end;   
   end;
end;

Procedure Sorsolas(var huzotth:Halmaz);
var db,szam:byte;
begin
 UresHalmaz(huzotth);
 randomize;
 szam:=random(90)+1;
 huzotth[szam]:=true; 
 db:=1;
 while(db<5) do
   begin
  szam:=random(90)+1;
  if huzotth[szam]=false then
    begin
     huzotth[szam]:=true;
     inc(db);
    end;
   end;  
end;

Procedure Talalatok(sajath,huzotth:Halmaz; var talalath:Halmaz);
var i:byte;
begin
 for i:=1 to 90 do talalath[i]:=(sajath[i] and huzotth[i]);
end;

Procedure KiirElemek(H:Halmaz; var elemsz:byte);
var i:byte;
begin
  elemsz:=0;
  for i:=1 to 90 do
  begin
   if H[i]=true then
   begin
    write(i,' ');
    inc(elemsz);
   end;
  end;  
end;
 
Begin
 clrscr;
 writeln('Lottozas');
 writeln();
 Sajatszamok(sajath);
 writeln();
 write('Az On szamai: '); KiirElemek(sajath,i);
 writeln();
 writeln();
 Sorsolas(huzotth);
 write('Eheti nyeroszamaink: '); KiirElemek(huzotth,i);
 writeln();
 writeln();
 Talalatok(sajath, huzotth,talalath );
 write('Az eltalalt szamok: '); KiirElemek(talalath,talalatsz);
 writeln();
 writeln('A talalatok szama: ',talalatsz);
 readln;
End. 



Pascal bitvektoros halmaz ábrázolás példája. Magyar kártya-halmaz típusa.

Unit Halmaz;
(*
   Bitvektoros halmaz br zol s p‚ld ja.
   Magyar k rtya-halmaz tĄpusa.
   Asszoci lt mveletek:      (K‚szs‚g)
   -------------- THalmaz(TKartya) ---------------
   * TeljesPakli                  +
   * UresPakli                    +
   * TeljesPakliE                 +
   * UresPakliE                   +
   * Kozetesz                     +
   * Elvesz                       +
   * BenneVanE                    +
   * Egyesit                      +
   * Kozosek                      +
   * LegjobbLap                   +
   * LegrosszabbLap               +
   * VeletlenLap                  +
   . . . . . .
   * BePakli                      +
   * KiPakli                      +
   * HibasEPakli                  +
   ------------------- TKartya  -------------------
   * Kartya                       +
   * KartyaSzin                   +
   * KartyaFigura                 +
   . . . . . .
   * BeKartya                     +
   * KiKartya                     +
*)
  Interface
    Type
      TFigura = (VII,VIII,IX,X,Also,Felso,Kiraly,Asz);
      TSzin   = (Makk,Piros,Tok,Zold); {N‚vsor-szerinti "er”sorrendben"}
      THalmaz = Record
                  lapok: Array [TSzin,TFigura] of Boolean;
                  siker: Boolean;
                End;
      TKartya = Record szin:TSzin; figura:TFigura End;
    Const
      MaxKartyaDb = (Ord(Zold)+1)*(Ord(Asz));
      SFigura : Array [TFigura] of String[6]=('VII','VIII','IX','X',
                                              'Also','Felso','Kiraly',
                                              'Asz');
      SSzin   : Array [TSzin] of String[5]=('Makk','Piros','Tok','Zold');

    Function KodbolSzin(Const kod:Byte):TSzin;
    {Ef: kod ELEME [0..SZAMOSSAG'TSzin)
     Uf: SORSZAM(KodbolSzin(kod))}
    Function KodbolFigura(Const kod:Byte):TFigura;
    {Ef: kod ELEME [0..SZAMOSSAG'TFigura)
     Uf: SORSZAM(KodbolFigura(kod))}

    Procedure TeljesPakli(Var p:THalmaz);
    {Ef: -
     Uf: MINDEN s:TSzin, MINDEN f:TFigura: p.lapok[s,f] ES
         p.siker}
    Function TeljesPakliE(Const p:THalmaz):Boolean;
    {Ef: -
     Uf: TeljesPakliE(p) <=> MINDEN s:TSzin, MINDEN f:TFigura:
                                                          p.lapok[s,f]}
    Procedure UresPakli(Var p:THalmaz);
    {Ef: -
     Uf: MINDEN s:TSzin, MINDEN f:TFigura: NEM p.lapok[s,f] ES
         p.siker}
    Function UresPakliE(Var p:THalmaz):Boolean;
    {Ef: -
     Uf: UresPakliE(p) <=> MINDEN s:TSzin, MINDEN f:TFigura:
                                                       NEM p.lapok[s,f]}
    Procedure Kozetesz(Var p:THalmaz; Const k:TKartya);
    {Ef: -
     Uf: k=(s,f) ES p.lapok[s,f]}
    Procedure Elvesz(Var p:THalmaz; Const k:TKartya);
    {Ef: k=(s,f) ES p.lapok[s,f]
     Uf: k=(s,f) ES NEM p.lapok[s,f]}
    Function  BenneVanE(Var p:THalmaz; Const k:TKartya):Boolean;
    {Ef: -
     Uf: BenneVanE(p,k) <=> k=(s,f) ES p.lapok[s,f] }
    Procedure Egyesit(Const p1,p2:THalmaz; Var p:THalmaz);
    {Ef: -
     Uf: ...}
    Procedure Kozosek(Const p1,p2:THalmaz; Var p:THalmaz);
    {Ef: -
     Uf: ...}
    Procedure LegjobbLap(Var p:THalmaz; Var k:TKartya);
    {Ef: NEM UresPakliE(p)
     Uf: k=(s,f) ES MINDEN kk:TKartya: kk=(ss,ff) ES
                                       BenneVanE(ss,ff) ES
                                       JobbE(ss,ff),(s,f))}
    Procedure LegrosszabbLap(Var p:THalmaz; Var k:TKartya);
    {Ef: NEM UresPakliE(p)
     Uf: ...}
    Procedure VeletlenLap(Var p:THalmaz; Var k:TKartya);
    {Ef: NEM UresPakliE(p)
     Uf: BenneVan(p,k)}
    Procedure BePakli(Var p:THalmaz);
    {Ef: -
     Uf: ...}
    Procedure KiPakli(Const p:THalmaz);
    {Ef: -
     Uf: ...}
    Function HibasEPakli(Var p:THalmaz):Boolean;
    {Ef: -
     Uf: HibasEPakli=not(p.siker) ES p'.siker }

    Procedure Kartya(Var k:TKartya; Const s:TSzin; Const f:TFigura);
    {Ef: -
     Uf: k=(s,f)}
    Function KartyaSzin(Const k:TKartya):TSzin;
    {Ef: -
     Uf: KartyaSzin(k)=s <=> k=(s,f)}
    Function KartyaFigura(Const k:TKartya):TFigura;
    {Ef: -
     Uf: KartyaFigura(k)=f <=> k=(s,f)}
    Procedure BeKartya(Var k:TKartya);
    {Ef: -
     Uf: ...}
    Procedure KiKartya(Const k:TKartya);
    {Ef: -
     Uf: ...}

  Implementation

    Uses Crt; {az AltRutin.inc kĄv nja meg}
    {$i AltRutin.inc}

    {------------------------ SzĄn ‚s Figura: ------------------------}

    Function KodbolSzin(Const kod:Byte):TSzin;
    {Ef: kod ELEME [0..SZAMOSSAG'TSzin)
     Uf: SORSZAM(KodbolSzin(kod))}
      Var
        s:TSzin;
    Begin {az Ef-t nem ellen”rizzk}
      s:=Makk;
      While Ord(s)<kod do s:=succ(s);
      KodbolSzin:=s
    End{KodBolSzin};

    Function KodbolFigura(Const kod:Byte):TFigura;
    {Ef: kod ELEME [0..SZAMOSSAG'TFigura)
     Uf: SORSZAM(KodbolFigura(kod))}
      Var
        f:TFigura;
    Begin {az Ef-t nem ellen”rizzk}
      f:=VII;
      While Ord(f)<kod do f:=succ(f);
      KodbolFigura:=f
    End{KodBolFigura};

    {---------------------------- Halmaz: ----------------------------}

    Procedure TeljesPakli(Var p:THalmaz);
    {Ef: -
     Uf: MINDEN s:TSzin, MINDEN f:TFigura: p.lapok[s,f]}
      Var
        s:TSzin; f:TFigura;
    Begin
      For s:=Makk to Zold do
      Begin
        For f:=VII to Asz do
        Begin
          p.lapok[s,f]:=True
        End;
      End;
      p.siker:=True
    End;{TeljesPakli}

    Function TeljesPakliE(Const p:THalmaz):Boolean;
    {Ef: -
     Uf: TeljesPakliE(p) <=> MINDEN s:TSzin, MINDEN f:TFigura:
                                                          p.lapok[s,f]}
      Var
        s:TSzin; f:TFigura; db:Byte;
    Begin
     {
      db:=0;
      For s:=Makk to Zold do
      Begin
        For f:=VII to Asz do
        Begin
          If not(p.lapok[s,f]) then Inc(db)
        End;
      End;
      TeljesPakliE:=(db=0)
      }
      s:=Makk; f:=VII;
      while (p.lapok[s,f]) and not((s=Zold) and (f=Asz)) do
       begin
        if f=Asz
         then
          begin
           s:=succ(s);
           f:=VII;
          end
         else f:=succ(f);
       end;
      TeljesPakliE:=p.lapok[s,f];

    End;{TeljesPakliE}

    Procedure UresPakli(Var p:THalmaz);
    {Ef: -
     Uf: MINDEN s:TSzin, MINDEN f:TFigura: NEM p.lapok[s,f]}
      Var
        s:TSzin; f:TFigura;
    Begin
      For s:=Makk to Zold do
      Begin
        For f:=VII to Asz do
        Begin
          p.lapok[s,f]:=False
        End;
      End;
      p.siker:=True
    End;{UresPakli}

    Function UresPakliE(Var p:THalmaz):Boolean;
    {Ef: -
     Uf: UresPakliE(p) <=> MINDEN s:TSzin, MINDEN f:TFigura:
                                                     NEM p.lapok[s,f]}
      Var
        s:TSzin; f:TFigura; db:Byte;
    Begin
      db:=0;
      For s:=Makk to Zold do
      Begin
        For f:=VII to Asz do
        Begin
          If p.lapok[s,f] then Inc(db)
        End;
      End;
      UresPakliE:=db=0
    End;{UresPakliE}

    Procedure Kozetesz(Var p:THalmaz; Const k:TKartya);
    {Ef: -
     Uf: k=(s,f) ES p.lapok[s,f]}
    Begin
      p.lapok[k.szin,k.figura]:=True
    End;{Kozetesz}

    Procedure Elvesz(Var p:THalmaz; Const k:TKartya);
    {Ef: k=(s,f) ES p.lapok[s,f]
     Uf: k=(s,f) ES NEM p.lapok[s,f]}
    Begin
      If not p.lapok[k.szin,k.figura] then {nem teljesl az Ef}
      Begin
        p.siker:=False
      End
        Else
      Begin
        p.lapok[k.szin,k.figura]:=False
      End;
    End;{Elvesz}

    Function  BenneVanE(Var p:THalmaz; Const k:TKartya):Boolean;
    {Ef: -
     Uf: BenneVanE(p,k) <=> k=(s,f) ES p.lapok[s,f] }
    Begin
      BenneVanE:=p.lapok[k.szin,k.figura]
    End;{BenneVanE}

    Procedure Egyesit(Const p1,p2:THalmaz; Var p:THalmaz);
    {Ef: -
     Uf: ...}
     Var
        s:TSzin; f:TFigura; db:Byte;

    Begin
      for s:=Makk to Zold do
       for f:=VII to Asz do p.lapok[s,f]:=p1.lapok[s,f] or p2.lapok[s,f];

    End;{Egyesit}

    Procedure Kozosek(Const p1,p2:THalmaz; Var p:THalmaz);
    {Ef: -
     Uf: ...}
    Var
        s:TSzin; f:TFigura; db:Byte;

    Begin
      for s:=Makk to Zold do
       for f:=VII to Asz do p.lapok[s,f]:=p1.lapok[s,f] and p2.lapok[s,f];
    End;{Kozosek}

    Procedure LegjobbLap(Var p:THalmaz; Var k:TKartya);
    {Makk VII, MAKK VIII, ..., Zold Asz}
    {Ef: NEM UresPakliE(p)
     Uf: k=(s,f) ES MINDEN kk:TKartya: kk=(ss,ff) ES
                                       BenneVanE(ss,ff) ES
                                       JobbE(ss,ff),(s,f))}
      Var
        s:TSzin; f:TFigura;
    Begin
      If UresPakliE(p) then {nem teljesl az Ef}
      Begin
        p.siker:=False
      End
        Else
      Begin
        s:=Makk; f:=VII;
        While ((s<Zold) or ((s=Zold) and (f<Asz))) and
              not p.lapok[s,f] do
        Begin
          If f<Asz then f:=succ(f)
                   else Begin s:=succ(s); f:=VII end;
        End;
        k.szin:=s; k.figura:=f;
      End;
    End;{LegjobbLap}

    Procedure LegrosszabbLap(Var p:THalmaz; Var k:TKartya);
    {Zold Asz, ... , Makk VIII, MAKK VII}
    {Ef: NEM UresPakliE(p)
     Uf: ...}
      Var
        s:TSzin; f:TFigura;
    Begin
      If UresPakliE(p) then {nem teljesl az Ef}
      Begin
        p.siker:=False
      End
        Else
      Begin
        s:=Zold; f:=Asz;
        While ((s>Makk) or ((s=Makk) and (f>VII))) and
              not p.lapok[s,f] do
        Begin
          If f>VII then f:=pred(f)
                   else Begin s:=pred(s); f:=Asz end;
        End;
        k.szin:=s; k.figura:=f;
      End;
    End;{LegrosszabbLap}

    Procedure VeletlenLap(Var p:THalmaz; Var k:TKartya);
    {Ef: NEM UresPakliE(p)
     Uf: BenneVan(p,k)}
      Var
        s:TSzin; f:TFigura;
    Begin
      If UresPakliE(p) then {nem teljesl az Ef}
      Begin
        p.siker:=False
      End
        Else
      Begin
        Repeat
          s:=KodbolSzin(Random(4)); f:=KodbolFigura(Random(8));
        Until p.lapok[s,f];
        k.szin:=s; k.figura:=f
      End;
    End;{VeletlenLap}

    Procedure BePakli(Var p:THalmaz);
    {Ef: ...
     Uf: ...}
    Var V: Char; K: TKartya;
    Begin
     UresPakli(p);
     Repeat
      Writeln('K‚rem adjon meg egy k rty t (szĄn,figura)');
      BeKartya(k);
      If not (BenneVanE(p,k)) then Kozetesz(p,k);
      Writeln('Add meg m‚g k rty t? (i/n)');
      Readln(V);
     Until V='n'
    End;{BePakli}

    Procedure KiPakli(Const p:THalmaz);
    {Ef: -
     Uf: ...}
      Var
        s:TSzin; f:TFigura;
    Begin
      For s:=Makk to Zold do
      Begin
        Write(SSzin[s]:6,':');
        For f:=VII to Asz do
        Begin
          If p.lapok[s,f] then Write(SFigura[f],' ')
        End;
        Writeln;
      End;
    End;{KiPakli}

    Function HibasEPakli(Var p:THalmaz):Boolean;
    {Ef: -
     Uf: HibasEPakli=not(p.siker) ES p'.siker }
    Begin
      HibasEPakli:=not(p.siker);
      p.siker:=True
    End;{HibasEPakli}

    {---------------------------- K rtya: ----------------------------}

    Procedure Kartya(Var k:TKartya; Const s:TSzin; Const f:TFigura);
    {Ef: -
     Uf: k=(s,f)}
    Begin
      k.szin:=s; k.figura:=f
    End;{Kartya}

    Function KartyaSzin(Const k:TKartya):TSzin;
    {Ef: -
     Uf: KartyaSzin(k)=s <=> k=(s,f)}
    Begin
      KartyaSzin:=k.szin
    End;{KartyaSzin}

    Function KartyaFigura(Const k:TKartya):TFigura;
    {Ef: -
     Uf: KartyaFigura(k)=f <=> k=(s,f)}
    Begin
      KartyaFigura:=k.figura
    End;{KartyaFigura}

    Procedure BeKartya(Var k:TKartya);
    {Ef: ... SZIN + ',' FIGURA alakban
     Uf: ...}
      Var
        sk,ss,sf:String;
        s:TSzin; f:TFigura;
        hol:Integer;
    Begin {az Ef-et nem ellen”rizzk}
      Readln(sk); sk:=StringUpCase(sk);
      hol:=Pos(',',sk); ss:=Copy(sk,1,hol-1); sf:=Copy(sk,hol+1,Length(sk));
      {Szin-k˘dol s:}
      s:=Makk;
      While (s<Zold) and (StringUpCase(SSzin[s])<>ss) do s:=succ(s);
      k.szin:=s;
      {Figura-k˘dol s:}
      f:=VII;
      While (f<Asz) and (StringUpCase(SFigura[f])<>sf) do f:=succ(f);
      k.figura:=f;
    End;{BeKartya}

    Procedure KiKartya(Const k:TKartya);
    {Ef: -
     Uf: ...}
    Begin
      Writeln(SSzin[k.szin],' ',SFigura[k.figura]);
    End;{KiKartya}

Begin
End.

2015. január 2., péntek

Egészségesen a futópadon

A futópados edzés évről évre sokak kedvenc sportjává válik, mégis vannak, akik fejében a futópadokról a monotonitás és az unalom jut az eszébe. Szerencsére a valóságban ez nem így van, számos kis praktika van, amellyel izgalmassá tehető a futópados edzés, ráadásul ma már a gyártók is mindent megtesznek azért, hogy a futópadon végzett sport ne csak egy néhány hetes fellángolás, hanem hosszú éveken át végzett, hatékony és szórakoztató mozgásforma legyen. Cikkünkben összeszedjük azokat a praktikákat (és a gyártók legnagyobb dobásait), amelyekkel szórakoztatóvá tehető a futópados edzés. Sokan hajlamosak lebecsülni a gyaloglást (főleg a futópados edzéskor nem jut eszünkbe), pedig, ha jól alkalmazzuk, akkor hatékonyságában nem is igazán marad alul a futáshoz képest. A futópadon végzett gyaloglás közben arányaiban kevesebb időt töltünk el a levegőben (amikor egyik lábuk sem éri a talajt), mint futás közben, ez is növeli hatékonyságát. Ráadásul a gyaloglás sokkal kevésbé terheli meg az ízületeket, mint a futás. Hogyan is néz ki tehát a teljesítménytúrába torkolló gyaloglás a futópadon? Vannak olyan gyártók, akik eleve egy, vagy több túraprogramot is beépítenek a magasabb kategóriás gépekbe. Ha a Te futópadod is tud ilyet, akkor egyszerű dolgod van, csak hagyatkozz a beépített programra. Ha viszont nincs ilyen extrákkal felszerelve a futópadod, akkor a manuális beállításokra kell hagyatkoznod. Állítsd be a futószalag sebességét egy olyan (5-7,5 km/h) sebességre, amiben úgy érzed, hogy hosszabb távon is bírod a gyalogtempót. Ezután kezdj el játszani a futópad dőlésszögével, és körülbelül 4-5 percenként váltogasd. Először elég, ha csak 5 fokos dőlésszögig mész el, de később, ha belejössz, akár a futópad maximális, 10-12 fokos dőlésszögéig is elmehetsz, így idézve fel a leghúzósabb erdei túrák emlékeit. A zene felvidít, megnyugtat, ellazít, bepörget és ritmust ad az életnek – éppen mikor mire van szükség. A zenehallgatás a futópados edzést is feldobja. A csúcsminőségű futópadok rendelkeznek már USB csatlakozóval, így a kedvenc zenéid egyenesen a futópadból is szólhat, de ha más nem, akkor otthon is be tudsz tenni egy zenét magadnak. Ha van kedved, akkor a futópados edzésed jellegéhez választhatod meg a számokat. Bemelegítéshez például jól megy valami könnyed, vidám zene, a gyors tempóhoz valami pörgős dance illik, emelkedőn történő futáshoz betehet egy megrendítő filmzenét, vagy black metált, míg a futópados edzés levezetéséhez jól jöhet egy laza jazz, vagy egy jó kis relaxációs zene. Sokan vannak, akik ha az otthonukban edzenek a futópadon, akkor nagyon könnyen elcsábulnak, és a tervezett edzés idő kb. felénél abbahagyják. Az edzőteremben nem igazán fordul ez elő, de otthon például lehet, hogy valamelyik családtag elkezd kiabálni, hogy ezt azonnal látnunk kell, vagy a hűtőben lapuló túró rudi jelenti a kihívást, netán a szennyest akarjuk valami miatt azonnal bepakolni a mosógépbe. Érdemes futópados edzés közben betenni egy jó filmet (vagy kedvenc sorozatunk idejére időzíteni a sportolást), mert segít lekötni a figyelmet, és nagyon gyorsan elrepül így a futópados edzésre szánt fél-másfél óra. Lehet, hogy nem ez a legizgalmasabb praktika a futópados edzés során, viszont az biztos, hogy az egyik leghasznosabb. Ha tükör mellett, vagy tükörrel szemben végzed a futópados edzést, akkor azzal sokat javíthatsz a futótechnikádon. Igen, lehetséges, és pofonegyszerű. Fogjon a kezébe egy-egy kézisúlyzót, és a futópados edzés közben tartsa őket, vagy pedig végezzen velük erősítő gyakorlatokat gyors gyaloglás, vagy futás közben. A futópados edzés így sokkal hatékonyabb lesz, ráadásul a bicepsz, tricepsz és vállizmokat is intenzíven erősítheti, szálkásíthatja egyúttal. A távgyaloglás még nem terjedt el széles körökben, ez az a versenysport, amikor a sportolók fura csípőmozgással haladnak. Hazánkban Csont Attila többszörös távgyalogló országos bajnok tűzte ki célul, hogy az átlagemberek között is népszerűsítse ezt a nagyon hatékony és ízületkímélő cardio edzést, fitwalk néven. Ez a sport nagyon hatékony, és a futópados edzés is változatosabbá tehető vele. Mivel hatékonyságában sem marad el a futástól, ezért akinek gondjai vannak az ízületeivel, vagy éppen szeretné megelőzni a problémák kialakulását, teljes egészében kiválthatja vele a futást. A távgyaloglás különbözik a sima gyaloglástól, itt nem törik meg a mozgás, hanem a távgyaloglók mintegy átgördülnek a talpukon. Ez, a speciális csípőmunka és az intenzív karmozgás összességében azt eredményezi, hogy a sima gyalogláshoz képest sokkal nagyobb tempóban haladhatunk vele. Érdemes szakembertől elsajátítani a távgyaloglás technikáját, onnantól kezdve pedig nyugodtan égethetjük ezzel a módszerrel is a kalóriákat a futópadon. Egyszerű, de nagyszerű praktika, amellyel érdekesebbé teheti a futópadon végzett edzést. Ha eddig a fal felé nézett a futógép, akkor itt az ideje, hogy megfordítsa – például az ablak irányába. Persze ez attól is függ, hogy merre néz az ablak, mert a szomszéd panelházat nézni nem túl izgalmas. Ha viszont szép tájat, vagy egy parkot látunk, akkor az feldobhatja az egyébként sem unalmas futópados edzést. No, akkor lássunk néhány javasolt edzést futópadra! Persze az itt leírt távok és sebességet csak példák, ezeket nyugodtan változtasd a saját edzettségi szintednek megfelelően. Lényeg, hogy igyekezz változatos programot választani magadnak, hogy ne a monotonitásra, hanem a tempóra figyelj! A legegyszerűbb edzés, javaslom, hogy a kezdők valami ilyesmit próbáljanak ki először! 3-5 perc gyors tempójú séta után 1 km lassabban (6,5-8,5 km/h), majd ízlés szerint 2-6 km az eddiginél gyorsabb tempóban (8,5-11), majd ismét egy lassú kilométer levezetésnek (6,5-8,5) és végül 2-4 perc kellemes séta. Könnyű, regeneráló edzés.
Hill edzés enyhe emelkedőn! Hill tréning 1. (hegyi edzés): Ez az edzés a 10 km-es versenytempódra épít, melyet az enyhe emelkedő tesz nehezebbé. Alapos (15-20 perc) bemelegítés után 3 x 3 perc a 10 km-es versenytempódban, 4%-os emelkedőn, közöttük 3-4 perces nagyon laza kocogás 1%-os emelkedőn; végül levezetésnek 5-8 perc laza kocogás. Ahogy edzettséged javul, növelheted az ismétlések számát max hétig, illetve megpróbálhatod a pihenős kocogások idejét csökkenteni egy perccel. Ha javul a 10 km-es versenytempód, ezt az edzést is az új, gyorsabb tempóban végezd! Csináld heti egyszer ezt az edzést, 6-8 héten keresztül, és figyeld, javulsz-e!
Hill tréning 2.: Ha egy kis lábpörgetésre vágynál, vedd célba az 5 kilis versenytempódat! Bemelegítés; 5 x 90 mp az 5 km-es versenytempódban 4%-os emelkedőn, közöttük 3 perces nagyon laza kocogás 0%-on;levezetés. Az ismétlések számát idővel emelheted, max. tízig. Ha a 4% túl erős, kezdj 3 vagy 3,5%-kalés fokozatosan emeld. Ha már jól megy, a pihenő kocogást vidd le 3-ról 2 percre.
Hill tréning 3.: bemelegjtés; 7 x 45 mp a 3 km-es versenytempódban 4%-os emelkedőn, közöttük 3 perces nagyon laza kocogás 0%-on;levezetés. Az ismétlések számát idővel emelheted, max. húszig. Ha nem tudod a 3 km-es versenytempódat, próbálj az 5 km-es versenytempódnál 10 mp/km-rel gyorsabban futni. Ha igazi hegyi menővé :o) szeretnél válni, végezheted egy héten belül (de pihenőnapokkal elválasztva!) az 1. hill tréninget és a 2. vagy 3. hill tréninget, 6-8 héten át.
Számítsunk rá, hogy a kisebb légellenállás következtében gyorsan felhevül a testünk, így sokkal többet fogunk izzadni, és többet kell frissítenünk is. Ezért indulás előtt még helyezzünk egy törülközőt és a frissítőnket elérhető távolságba, hogy ezekért ne kelljen leszállni a padról. Ha van a teremben ventilátor, próbáljunk annak közelébe helyezkedni. És akkor rajta! Először sétával ismerkedjünk meg a géppel. Fogjuk meg a kapaszkodót, amikor elindul a szalag, és akkor engedjük csak el, ha már biztonságban érezzük magunkat, megtaláltuk az egyensúlyunkat. Próbáljunk elengedett kézzel sétálni, picit engedjük magunkat hátrébb majd előrébb a szalagon, hogy megérezzük a pad hosszát. Próbáljuk ki a sebességét és dőlésszöget állító gombokat. Pár perc séta után váltsunk fel lassú kocogó tempóba.
Hill tréning nagy emelkedőn! Ennél az edzéstípusnál nem a sebesség a lényeg, hiszen a meredek emelkedőkön még lassú tempóban is igen megerőletető a futás. Itt csak arra kell figyelned, hogy egyenletesen, ritmusosan mozogj, és keményen küzdj meg az emelkedővel. Az első néhány edzés alkalmával elsősorban a helyes tílusra figyelj: az erős karmunkára, (kar a testtel párhuzamosan előre-hátra mozog és nem keresztben) és arra, hogy a törzsed a talajhoz (nem az emelkedőhöz!) képest függőleges maradjon a futás során. A tempót úgy válaszd meg, hogy úgy érezd magad, mintha egy kemény résztávos edzésen futnál. Jegyezd meg a sebességet, amivel futottál, hogy a későbbi edzéseken ehhez képest tudd kicsit növelni a tempót. Kezdetben csinálj 7-8 darab 30 másodperces emelkedőfutást, 3 perces pihenőkkel. Később fokozatosan növelheted az adagot, amíg eljutsz max.  20x45mp vagy 15x60mp-ig. Tempófutás emelkedőn. Az eddigi edzések során rövidebb emelkedőfutásokat végeztél nagy ismétlésszámmal. De a futópadon hosszabb, tempófutás jellegű edzés is végezhető, közepes emelkedőn. Próbáld ki a következőket:
(1) 2%-os emelkedőn fuss 3x8 percet a jelenlegi 10 km-es versenytempódban, közte 4-5 perc lassú kocogással pihenésnek.
(2) 2%-os emelkedőn fuss 20 percet a jelenlegi 10 km-es versenytempódnál 6 mp/km-rel lassabb tempóban. Ennek mér igazi tempófutás érzete lesz, és az emelkedő miatt nem fogod könnyűnek érezni a relatíve lassabb tempót! (3) 2%-os emelkedőn fuss 3 (vagy 4)x5 percet a jelenlegi 5 km-es versenytempódban, közte 4 perc lassú kocogással pihenésnek. A fenti három edzésnél idővel felemelheted az emelkedőt 2,5%-ra, és csökkentheted a pihenő kocogás idejét is.
Hegy utáni gyors futás! Dimes-dombos versenyeken sokszor nem is a nagy emelkedő megmászása a legnehezebb, hanem az utána következő 4-500 méter. Mivel az emelkedőn teljsen kihajtottad magad, a következő lapos részen nem marad erőd ahhoz, hogy újra felvedd a rendes versenytempódat, és itt vesztegeted el az értékes perceket. Íme három edzés, ami ezen a problémán segít:
(1) Fuss 90mp-ig a jelenlegi 10 km-es versenytempódban 4%-os emelkedőn; majd rögtön utána 90mp-ig az 5 km-es verseyntempódban 1%-os emelkedőn. Ismételd ezt a hérom perces futást max. hatszor, közötte 3-4 perces pihentető lassú kocogásokkal.
(2) Fuss 3 percig a jelenlegi 10 km-es versenytempódban 1%-os emelkedőn; majd rögtön utána 30 mp-ig nagyon keményen (ahogy csak tudsz) 8%-os emelkedőn, majd 90mp-ig 1%-os emelkedőn újra a versenytempódban. Ismételd ezt az öt perces futást max. négyszer, közötte 4 perces pihentető lassú kocogásokkal.
(3) Fuss 25 percet a jelenlegi 10 km-es versenytempódnál 6 mp/km-rel lassabb tempóban 1%-os emelkedőn, de minden 5. percben egy percre emeld 4%-ra az emelkedőt, és tartsd meg ugyanezt a tempót. Az emelkedős percek után rögtön folytasd tovább a futást még mindig ugyanabban a tempóban, újra csak 1%-on. Hibák amik veszélyessé teszik a futópadot. A bemelegítő, nyújtó gyakorlatok kihagyása. Egyszerűnek tűnik: csak felpattanunk a futópadra, beállítjuk az ellenállást és elkezdünk futni. De ahogy a szabadtéri edzésnél, a futópados tréningnél sem szabad megfeledkeznünk a bemelegítésről! Ha valaha is szédültél futópad edzés után az nagyon valószínű, hogy a levezetés hiánya miatt volt. Ha csak úgy leugrunk a futópadról abban a pillanatban, ahogy teljesítettük az edzésprogramban előírt távot, akkor a vérnyomás, a pulzus túl gyorsan esik vissza, és ez rosszulléthez vezethet. Miután végeztél az edzéssel, iktass be még egy 5-10 perces könnyű sétát, vagy kocogást levezetés gyanánt.  Nem természetes futásmód! Tipikus hiba, hogy az ember úgy érzi, le fog esni a futópadról, ezért aztán olyan mozgással kezd futni, amit egyébként nem tenne a szabadban. Kisebbeket lép, máshogy lép a futópadon, előre dől stb. Próbálj minél természetesebben mozogni a futógépen, ne izgulj nem fogsz leesni róla! Másik elterjedt hiba a túl nagy lépéstávolság. Gyakori, hogy a futópad szalagja okozta bizonytalanságot úgy próbáljuk legyőzni, hogy messze kilépünk sarokkal előre. Ez megakaszthatja a futópad szalagját. Tartsuk a lábainkat a testünk alatt - csak természetesen! A fogantyúról lógni! Gyakran látni az edzőtermekben embereket, akik mintha csak a futópad fogantyújáról lógnának, pedig ez nem csak komikus, de nagyon hátrányos is. Olyan futási testhelyzetet eredményez ugyanis, amely később nyak, váll, hátfájáshoz vezethet. Felegyenesedve, egyenes háttal fussunk, felemelt fejjel! Másrészt a fogantyú azért is veszélyes, mert úgy tűnhet sokkal hosszabban és keményebben tudsz edzeni, holott éppen ellenkezőleg, könnyebbé teszed a gyakorlatot. Próbáld teljesen elfelejteni, hogy a fogantyúk egyáltalán léteznek. Ha egy egész fitnesz magazint képes vagy végigolvasni edzés közben anélkül, hogy egy cseppnyit is izzadnál,  valószínűleg nem dolgozol elég keményen. Bár nem kell minden egyes nap a legnehezebb fokozaton futni, azért néha érdemes meghajtani magunkat a futópadon. Elkerülendő az ilyen helyzetet próbáld ki az intervallum edzést, vagy nézd meg futópadra készített edzésterveinket. Leugrani a mozgó futópadról! A futópadokkal kapcsolatos egyik legveszélyesebb dolog, amikor megpróbálunk a gyorsan mozgó futópadról leugrani. Ha ki kell menned a mosdóba, szükséged van egy törölközőre, vagy innál egy pohár vizet, mindig lassítsd le a futópadot és utána szállj le róla. A legjobb ha úgy kezdesz hozzá az edzéshez, hogy mindenről gondoskodsz, amire csak közben szükséged lehet. Ugyanazon a fokozaton futni az egész edzés alatt! Nem jó ötlet felugrani a futópadra, beállítani egy fokozatot majd másfél óra múlva kikapcsolni és zuhanyozni menni. Ez előbb utóbb sérüléshez vagy ízületi gondokhoz vezet. A futópad edzést pontosan ugyanúgy meg kell tervezni mint bármely más tréninget. Először melegíts be, fokozatosan elmeld a nehézséget, a sebességet, majd kapcsolj edző fokozatra, gyorsíts, iktass be pihenőket, sprinteket stb. A legnehezebb fokozaton futni! Vannak, akik azt gondolják, a kemény edzés azt jelenti, feltekerjük a futópadot a lehető legnehezebb fokozatba és addig futunk, amíg csak bírjuk és még egy kicsit tovább. Ez szinte biztosan sérüléshez vezet! Soha ne használd a legnehezebb, legmeredekebb fokozatot egyhuzamban 5 percnél tovább. Sokkal jobb eredményeket tudsz elérni, sokkal nagyobb teljesítményt tudsz leadni, ha kombinálod az emelkedőket pihenő szakaszokkal. 7 százalékos emelkedőnél meredekebben ne eddz, mert az túlságosan megterheli a hátat, a bokát és a feneket.