Maturita PVY - 18. Pascal

<< 17.Základy programování | Témata PVY | 19.Delphi >>

18. Pascal

• Pascal - vlastnosti,struktura programu, typy dat, způsob deklarace dat
• programové struktury - vstup a výstup dat, syntaxe podmínek a cyklů
• Práce se soubory - deklarace, připojení, vytvoření, čtení a zápis
• Příklad programu - sestavení jednoduchého programu v Pascalu

Pascal Vlastnosti vznik v 70. letech na technická univerzitě Curychu pro výuku programování strukturovaného programování přesná deklarace dat, přehledný zápis Struktura programu příkazy odděleny středníkem na samostatných řádcích odsazení (indentace) příkazů podle zanoření v programové struktuře Deklarační část hlavička, deklarace typů, konstant, proměnných, procedur a funkcí Hlavní program programové struktury - seskupení příkazů, větvení, cykly ...

type evidence = record
                 begin
                  jmeno  : string[20];
                  vek    : integer;
                  vydelek: real;
                 end;
var zamestnanci: array[1..200] of evidence;
    k,n,i      : integer
    soubor     : text;

Programové struktury

• Vstup a výstup dat
  • využití systémových procedur pro čtení read() a pro výpis write()
  • načtení hodnoty do proměnné cislo
    • write('Zadej hodnotu cisla : ') ;readln('cislo')
  • výpis výsledku součtu čísel v proměnných a,b
    • writeln('Soucet cisel ',a,' + ',b,' = ',a+b)
• Syntaxe podmínek

if cislo < 0
  then write('Chyba!');

if cislo < 0
  then write('Chyba!')
  else write(cislo);

if (a > 5) and (a < 10)
  then write('Spravne zadani')

• Syntaxe cyklů

    for i:=1 to 100 do
     begin
       příkaz_cyklu;
       příkaz_cyklu;
     end;

    while i > 0 do
      begin
        příkaz_cyklu;
        příkaz_cyklu;
      end;

    repeat;
      příkaz_cyklu;
      příkaz_cyklu;
    until konec = 'k';

Práce se soubory

• Deklarace a připojení
  • var <Název proměnné> : File of Integer ; {ciselny soubor}
    • var <Název proměnné> : Text ; {textovy soubor}
  • assign (<Jméno proměnné> , <Jméno souboru> );
    • assign (Soubor , 'C:\Text.txt');
• Vytvoření/přepis souboru

  • rewrite ( <Jméno proměnné> );

• Čtení souboru

  • reset ( <Jméno proměnné> );

• Připojení na konec souboru

  • append ( <Jméno proměnné> );

• Uzavření souboru

  • close ( <Jméno proměnné> );