{========= Programoz s alapjai ======= Nagyz rthelyi - 1994. 11. 17. ======

Minden sz mozott feladat megold s t kl”n lapra Ąrja!
A lap tetej‚re Ąrja fel balra a feladat sz m t, jobbra a nev‚t ‚s tank”r‚t!
Minden lapnak csak az egyik fel‚re Ąrhat.
A megold shoz haszn lhat bels“ elj r sokat ‚s fggv‚nyeket.
Egyik elj r s vagy fggv‚ny sem haszn lhat glob lis v ltoz˘t.

---------------------------------------------------------------------------
< l sd:  V_DEF.pas >
1.A)
        for e1:=1 to 10 do  t1[e1]:=10;
        for l1:=alberlet to foberlet do
          t1[succ(ord(l1))] := 3;
        for e1:=1 to 5 do   writeln(t1[e1]:5);

1.B)
        h1:=[1..5,7,9];  h2:=[4..7,14];
        h3:=h1*h2;
        h1:=[5,7];
        if h1<=h3 then
           for e1:=1 to 30 do
             if e1 in h1 then writeln(e1);

1.C)
        e1:=7; e2:=3;
        s(e1,e2);
        writeln(e1,e2);

1.D)
        e1:=0;
        while not eof do begin
          read(ch1);
          if ch1 in ['0'..'9'] then begin
            e1:=e1+ord(ch1)-ord('0');
            readln
          end;
        end;
        writeln(e1);

     A bemeneti adatok megad s ban:  _  :sz˘k”z         |  :sor eleje,
                                     #  :Łjsor jel      @  :file v‚ge)
     A bemeneti adatok:

       |A_273_4#
       |fg_-49_57_#
       @

1.E)
       for e1:=3 downto 1 do
       with rect[e1] do  begin
         nev[1]:=chr(e1+ord('0'));
         nev[2]:=succ(nev[1]);
         suly:=sqr(e1)-round(sqrt(e1+1));
       end;
       for e1:=1 to 3 do
         if not odd(rect[e1].suly)
         then write(e1:3, rect[e1].nev,' ');
       writeln;

1.F)
       new(m1);  m1^.lanc:=nil;  m1^.kulcs:=5;
       for e1:=1 to 5 do  begin
         m2:=m1;
         new(m3);  m3^:=m2^;  m2^.kulcs:=e1;  m2^.lanc:=m3;
       end;
       m3^.lanc:=m1^.lanc;
       for e1:=1 to 6 do  begin
         write(m1^.kulcs:3);  m1:=m1^.lanc;
       end;
       writeln;

---------------------------------------------------------------------------
2)  Deklar lja azt a    function ReadInt (var f :text) :integer;
    fggv‚nyt, amely a param‚terk‚nt kapott file-b˘l beolvassa
    ‚s visszaadja az els“ ‚rtelmes decim lis eg‚sz ‚rt‚ket,
    az ez el“tt l‚v“ tetsz“leges egy‚b karaktereket  tugorja, ut na
    is tetsz“leges egy‚b karakter lehet! Tudjuk, hogy van legal bb
    egy ilyen sz m a file v‚g‚ig, ‚shogy az ‚rt‚k elf‚r egy integer-ben.
---------------------------------------------------------------------------
3)  Adott nevek ‚s szlet‚si adatok egy sz”veg-file-ja, egy-egy sor nak
    alakja pl:
    Kiss Pista 1980 2 29
    K‚szĄtsen teljes programot, amely a szabv nyos input  llom nyb˘l
    beolvas ilyen adatokat (egy n‚v pontosan 2 sz˘, benne legfeljebb 30
    karakter van), majd szlet‚si d tum szerint n”vekv“ sorrendben kiĄrja
    a szabv nyos outputra. Tudjuk, hogy az adatok elf‚rnek a mem˘ri ban.
    A file-t csak egyszer olvashatja be!
============================= Beugr˘ v‚ge =================================
4)  rjon teljes programot, amely egy text file k”zep‚n l‚v“
    karakterhez tartoz˘ sz˘t kinyomtatja. A file karaktereinek sz m hoz
    a sorv‚ge jeleket nem kell figyelembe venni! A szavakat legal bb
    egy space karakter vagy Łjsor jel v lasztja el egym st˘l!
    Ha a file k”z‚ps“ eleme ‚ppen space, akkor azt kell kinyomtatni.
    Nem ismerjk a szavak max. hossz t, a file-t t”bbsz”r is beolvashatja.

    pl:        Eb cica zsir f l˘ teh‚n <eof>
                            ^
                        ez a k”zepe
    KiĄrja:  zsir f
---------------------------------------------------------------------------
5)  Defini ljon adattĄpust egy bin ris fa elemeihez!
    K‚szĄtsen egy elj r st, amely meghat rozza egy ilyen elemekb“l  ll˘
    bin ris fa leveleinek sz m t ‚s szintjeinek sz m t.
    Lev‚l az a faelem, amelyen nem l˘g tov bbi elem.
---------------------------------------------------------------------------
6)  Adott:  type  tt = array [1..max, 1..max] of real;  {max egy konstans}
    K‚szĄtsen elj r st, amely egy tt tĄpusŁ t”mb sorait Łgy rendezi  t,
    hogy a f“ tl˘ban fentr“l lefel‚ haladva n”vekv“ ‚rt‚kek legyenek,
    illetve jelezze, ha ez nem lehets‚ges!
    V lasszon megfelel“ param‚tereket!