{======= Programoz s ====== P˘tz rthelyi - 1995. 12. 13. ==== Pz951213.txt

>>> V-DEF.pas <<<

A)  -------------------------------------------------------
    l1:=foberlet;  l2:=kastely;
    e1:=ord(l2);
    s(e1,ord(l1));
    writeln (e1:3, ord(l2):3);
B)  -------------------------------------------------------
    write(' ');  ch1:=chr(succ(ord(succ('0'))));
    e1:=0;
    for ch2:=ch1 to '5' do  e1:=pred(e1-1)+1;
    writeln(e1);
C)  -------------------------------------------------------
    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_#
   @

D)  -------------------------------------------------------
    for e1:=1 to 3 do
    begin  t1[e1]:=e1;  t1[2*e1]:=-e1;  end;
    t1[5]:=0;
    for e1:=1 to 6 do
      for e2:=1 to 6-e1 do
        if t1[e2]>t1[e2+1] then
        begin e3:=t1[e2];  t1[e2]:=t1[e2+1];
              t1[e2+1]:=e3;
        end;
    for e1:=1 to 6 do write(t1[e1],' ');
    writeln;
E)  -------------------------------------------------------
    h1:=[20,15..18,2];    h2:=[4..9,13..16,22];
    h1:=h1-h2;
    for e2:=1 to 30 do
      if e2 in h1 then write (e2 :3);
    writeln;
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. Feladat ------------------------------------------------------ 3 pont

  K‚szĄtsen val˘s --> val˘s fggv‚nyt, amely az orig˘b˘l x,y koordin t ival
  adott pontba hŁzott egyenesnek az Y (!!!) tengely pozitĄv sz r val
  bez rt sz”g‚t meghat rozza, b rmely x,y ‚rt‚kp rra.
  A sz”g legyen helyes a -pi ... pi (pi=3.14159...) tartom nyban!

3. Feladat ------------------------------------------------------ 3 pont

  K‚szĄtsen teljes programot, amely egy eg‚szekb˘l  ll˘ file-r˘l
  meg llapĄtja ‚s a szabv nyos kimenetre kiĄrja, hogy rendezett-e,
  ‚s ha igen, akkor cs”kken“, vagy n”vekv“ sorrendben.
  A file-t csak egyszer olvashatja v‚gig.

============================== BEUR• VGE ==============================
4. Feladat ------------------------------------------------------ 1.5 pont

  Tudjuk, hogy a soronk‚nt 40 karakteres nevekb“l  ll˘, hosszŁ file-ban
  kev‚s kl”nb”z“ n‚v fordul el“. A kl”nb”z“ adatok elf‚rnek a mem˘ri ban.
  K‚szĄtsen programot, amely kiĄrja a szabv nyos outputra, hogy
  mely ‚rt‚k h nyszor fordult el“! A file-t csak egyszer olvashatja v‚gig.

5. Feladat ------------------------------------------------------ 1.5 pont

  Egy bin ris fa a k”vetkez“ elemekb“l  ll:
  type  mut = ^elem;
        elem = record  kulcs :real;   bal, jobb :mut;  end;
  K‚szĄtsen fggv‚nyt, mely meg llapĄtja, egy adott bin ris fa
  rendezett-e, ‚s ha igen, akkor balr˘l jobbra n”vekv“, vagy cs”kken“
  sorrendben-e.

6. Feladat ------------------------------------------------------ 1 pont

  K‚szĄtsen programot, amely az adatok v‚g‚ig beolvasott eg‚sz sz mokat
  2, 3, 4, ... 10 alapŁ sz mrendszerben kiĄrja pontosan az itt megadott
  alakban!  P‚ld ul ha a beolvasott sz m 24 ‚s 12, a kimenet:

  24 = 11000:2 = 220:3 = 120:4 = 44:5 = 40:6 = 33:7 = 30:8 = 26:9 = 24:10
  12 = 1100:2 = 110:3 = 30:4 = 22:5 = 20:6 = 15:7 = 14:8 = 13:9 = 12:10