Cvičení 6: Základy programování v Pascalu, úvod do prostředí Delphi, základní útvary

1  Základy programování v Pascalu

Základní struktura

program jmeno;
uses SysUtils;  //pouzite knihovny
var
  a:integer;    //a je celociselna promenna
  b,c:real;     //b,c jsou realne promenne

// deklarace funkci a procedur

begin
//telo programu
end.

Výpis a načtení proměnných

write(' ahoj svete ');
writeln('vypis na novy radek');

// do proměnné a se uloží zadané číslo
write(' zadej cislo: ');
readln(a);    

Základní struktury

1. Celočíselné

   byte	0..255	8 b
   word	0..65535	16b
   shortint	-128..127	8 b
   integer	-32768..32767	16b
   longint	-2147483647..2147483647	32 b
2. Desetinné real, single, double, extended, comp
3. Znakové

   char	jeden znak
   string	255 znaků
   pchar	max. 65535
4. Logické
   boolean - nabývá hodnot true nebo false

Základní příkazy - for, if, repeat, while

Příkaz for

for i:=0 to n do
  begin
    prikaz1;
    prikaz2;
    ...
  end;

soucet:=0;
for i:=0 to 10 do
  soucet:=soucet + i;

Příkaz if

if podminka then 
  begin
    prikaz1;
    prikaz2;
    ...
  end
else
  begin
    prikaz1;
    prikaz2;
    ...
  end;

writeln('zadej cislo');
readln(cislo);
if cislo > 0 then 
  writeln('cislo je kladne')
else 
  writeln('cislo je zaporne nebo nula');

Příkaz while - do

while podminka do
  begin
    prikaz1;
    prikaz2;
    ...
  end;

i := 1;
while i<11 do
  begin
    writeln(i);
    i:=i+1;
  end;

Příkaz repeat - until

repeat
  prikaz1;
  prikaz2;
  ...
until podminka;

i:=1;
repeat
  writeln(i);
  i:=i+1;
until i>10;

Procedury a funkce

function název(predane promenne:typ):navratovy typ;
function Secti(a,b:integer):integer;      
// funkce secte dve cela cisla a vrati cele cislo


procedure název(predane promenne: typ);
procedure Nacti(c,d:real);    //procedura nacte dve realna cisla

function Secti(a,b:integer):integer; 
var c:integer;
begin
  c:=1;
  Secti := a + b + c;
end;

vysledek:=Secti(3,2);

program Funkce;
uses
  SysUtils;
var x,y,vysledek1,vysledek2,k:integer;

function Secti(a,b:integer):integer;
begin
  Secti := a+b;
end;

function Odecti(a,b:integer):integer;
begin
  Odecti := a-b;
end;

begin
  write(' zadej dve cisla ');
  readln(x, y);
  vysledek1 := Secti(x,y);
  writeln(' soucet je ', vysledek1);
  vysledek2 := Odecti(x,y);
  writeln(' rozdil je ', vysledek2);
  readln(k);
end.

2  Úvod do Delphi

3  Kreslení základních útvarů do Canvas a Image

1. Canvas = plátno
   Properties - Color, Caption, OnPaint - kresli a Enter
   Nastavení typu čáry pro kreslení perem Pen:
   • barva Canvas.Pen.Color := 80;
   • šířka Canvas.Pen.Width := 2;
   • styl Canvas.Pen.Style := psDot; dalši jsou psDash, psSolid, ...
2. Základní útvary
   1. úsečka
      - Canvas.MoveTo(a,b); ... počáteční bod
      - Canvas.LineTo(c,d); ... koncový bod
   2. Obdélník
      - Canvas.Rectangle(a, b, c, d);
   3. Elipsa
      - Canvas.Ellipse(a,b, c, d); ... elipsa vepsaná obdélníku s rohy a, b a c, d.
   4. Lomená čára
      - Canvas.Polyline([Point(a,b), Point(c,d), Point(e, f)]);
   - nevýhoda Canvas - po překrytí jiným oknem obrázek mizí, proto je lepší kresli do Image
3. Image = obrázek
   - najdeme jej v záložce Aditional
   - nastavíme u něj OnClick - procedura Kresli
   - všechny funkce mají stejnou syntaxi jako u Canvas, jen se předepíše Image
   Tedy Image1.Canvas.Rectangle(a, b, c, d);