10. Vstupy a výstupy

vstup....... read

výstup..... write

10.1 Vstup

10.1.1 Příklad:

program iokody.pas

program opisuje na výstup kódy vstupujících znaků

program je třeba násilně ukončit CTRL-Break

program KodyZnaku;

var C : Char;

begin

     Write ( 'Vypisuje kódy vstupujících znaků. ' );

     Write ( 'Nutno ukončit [Ctrl][Break]... ' );

     while True do

              begin

                 Read ( C );

                 Write ( C, ' (', Ord(C), ')' );

              end;

end.

Enter má kód 13, linefeed má kód 10.

10.1.2 příkaz Readln

dokud čtení není na znaku "konec řádku", čte se dál

v okamžiku načtení znaku "konec řádku" se čtení zastaví

10.1.2.1 příklad

vstup: 1 2 3enter4 5

read (I); readln; read (J);

v I je uloženo 1, v J je uloženo 4

10.1.2.2 příklad 

vstup viz. výše

readln (I, J);

read (K);

pak I=1, J=2, K=4

10.1.3 příklad

{Vzorový příklad pro Readln a Writeln.}

{ Pro Windows: }

{ uses WinCrt; }

var

    s : String;

begin

    Write('Vložte řádek textu: ');

    Readln(s);

    Writeln('Napsal jste: ',s);

    Writeln('Stiskněte <Enter> pro konec');

    Readln;

end.

10.2 Výstup

write, writeln - to už znáš!

10.2.1 Ukázkový program - pseudografika

program sestaví jednoduchý sloupcový graf

program SloupcovyGraf;

const MaxPocet = 12;

         VyskaGrafu = 10;

         Symbol = 'X';

         Prazdno = ' ';

var    Hodnoty : array [1..MaxPocet] of Real;

         VelikostDilku, Maximum, Mez : Real;

         Radek, Sloupec : Integer;

begin

         {načtení hodnot}

         Writeln ( 'Sloupcový graf' );

         Writeln ( 'Zadejte ', MaxPocet, ' hodnot' );

         for Sloupec := 1 to MaxPocet do

             begin

                 Write ( Sloupec:2, ': ' );

                 Readln ( Hodnoty[Sloupec] );

             end;

            {stanovení měřítka}

            Maximum := Hodnoty[1];

            for Sloupec := 2 to MaxPocet do

                if Hodnoty[Sloupec] > Maximum then

                    Maximum := Hodnoty[Sloupec];

                    VelikostDilku := Maximum / VyskaGrafu;

                    {vykreslení grafu - postupujeme po řádcích}

                    for Radek := VyskaGrafu downto 1 do

                             begin

                                Mez := ( Radek - 0.5 ) * VelikostDilku;

                                for Sloupec := 1 to MaxPocet do

                                      if Hodnoty[Sloupec] >= Mez then

                                         Write ( Symbol )

                                      else

                                         Write ( Prazdno );

                                         Writeln;

                               end;

end.