Kurs języka pascal

Instrukcja warunkowa umożliwia nam kontrolę nad wykonaniem poszczególnych fragmentów kodu. Sprawdza podany warunek i w przypadku jego spełnienia wykonuje podane instrukcje.

Ogólnie można zapisać:

 if  warunek  then

  begin

    instrukcja_1;

    instrukcja_2;

    ....

    instrukcaj_n;

  end;

       lub

 if  warunek  then

  begin

    instrukcja_1;

    instrukcja_2;

    ....

    instrukcaj_n;

  end

else instrukcja_alternatywna;

Jak zauważyłeś w drugim przypadku pod słowie end nie ma średnika ani kropki. Po prostu przed słowem else nie stawia się średnika.

Może przejedzmy do przykładu. W dziale zaczynamy bawiliśmy się niektórymi funkcjami matematycznymi. Dziwiłeś się pewnie, dlaczego nie użyliśmy również dzielenia. Powód jest prosty nie potrafiliśmy zrobić zabezpieczenia w przypadku gdy użytkownik wpisałby zero. W takim przypadku program by się wysypał. Zróbmy więc teraz dzielenie dwóch liczb:

program Dzielenie;

var
  liczba1, liczba2, wynik :real;
  begin
    write('podaj dzielna: ');
    readln(liczba1);
    write('podaj dzielnik: ');
   readln(liczba2);
   if (liczba2 = 0) then
     writeln('pamietaj cholero nie dziel przez zero.')
   else
   begin
      wynik :=liczba1/liczba2;
      write('iloraz podanych liczb wynosi: ');
     writeln(wynik);
   end;

  readln;

end.

Zapewne doszedłeś do wniosku, że ze wynik który przedstawił nam komputer nie jest zbyt czytelny.

Zamiast   writeln(wynik);   wpisz  writeln(wynik:12:4);

Zapis ten mówi komputerowi ze ma zapisać liczbę w polu 12-znakowym z 4 miejscami po przecinku.

Może podam jeszcze jeden przykład:

program wiek;

var
  lata :integer;
begin
  writeln('podaj swój wiek: ');
  readln(lata);
  if (lata>=18) then
    writeln('jests juz dorosly')
  else
    writeln('dowodu to ty jeszcze nie dostaniesz');
  readln;

end.

Myślę, że zrozumiałeś do czego służy instrukcja  warunkowa if then

Teraz napisze o operatorach logicznych. Są one bardzo przydatne w instrukcjach  warunkowych oraz w pętlach