Programy

IF (jestliže pak, jinak)

program kvadraticka_rovnice;

uses crt;

var A,B,C,X1,X2,D:real;

begin
  clrscr;
  writeln('Zadej hodnotu A,B,C');
  readln(A,B,C);
  D:=b*b-4*a*c;
  if D>=0
   begin
    X1:=(-B + sqrt(D))/(2*A);
    X2:=(-B - sqrt(D))/(2*A);
    writeln ('Koreny jsou realne');
    writeln ('X1=',X1:10);
    writeln ('X2=',X2:10);
   end  
  else
 writeln ('Rovnica nema riesenie v R');
 readln;
end.

IF, THEN (jestliže platí, proveď...)

program delitelnost_tremi_a_ctyrmi;

uses crt;

var A:integer;

begin
  clrscr;
  writeln('Zadej hodnotu A');
  readln(A);
  if (A mod 3 = 0) and (A mod 4 = 0) then 
  writeln ('Cislo',A,'je delitelne tremi i ctyrmi');
  else
  writeln (A,'není delitelne tremi a ctyrmi');
  readln;
end.


 

For (proveď n-krát)

Program mala_abeceda;
{Vypíše všechny malé znaky od a do z}
uses crt;

var
 znak:char;
begin
 clrscr;
 for znak:='a' to 'z' do
 write(znak);
end.
 

Program faktorial;

{ Program pro výpočet n! }
var n,i:integer;
      x:real;
begin
  write('hodnota n<34: ');readln(n);
  if (n>-1) and (n<34) then begin
  x:=1;
      for i:=2 to n do x := x*i;
          writeln;
          writeln(n,'! = ',x:0:0)
      end
      else begin
          writeln;
      writeln('Zadani mimo povoleny interval')
      end;
end.

Program faktorial2; 
var i, y, n, x :integer; 
Begin 
  writeln('Program na vypocet faktorialu:'); 
  writeln; 
  writeln('Zadej prirozene cislo'); 
  readln(x); 
  n:=1; 
  y:=1; 
  for i:=1 to x do begin y:=y*n; 
  n:=n+1; 
  end; 
  writeln('Faktorial cisla ',x,': (',x,'!) = ',y); 
  readln; 
end.

While, Do (opakuj,¨ dokud plati podminka)

Program ciferny_soucet;
{Program vypíše ciferný součet zadaného čísla}
var
 x,y:integer;

begin
 y:=0;
 write('Zadejte cislo: ');
 readln(x);
 if x<0 then x:=-x;
 while x<>0 do
 begin
  y:=y + x mod 10;
  x:=y div 10;
 end;
 writeln('Ciferny soucet cisla je: ', y);
end.

Repeat, Until (opakuj do splnění podmínky)

Program objem;
{Program načítá a násobí hodnoty tak dlouho, dokud platí podmínka, že číslo je v rozmezí 
1-20.}
var
 x,y:integer;

begin
 write('Napiste cislo od jedne do dvaceti: ');
 repeat
 write('Vloz hodnotu: ');
 ReadLn(x);
 y:=x*x*x; 
 writeln('Objem krychle o strane, kterou jsi zadal, je: ',y);
 until (x >= 0) and (x <= 21);
 writeln('Císlo, ktere jsi zadal,neni v rozsahu 1-20. Program se ukonci po stisku enteru.');
 readln;
end.