09-03-2008.txt

// procedura

program Untitled;

uses CRT, DOS;
Procedure nazwa;
begin

     gotoXY (25,5);
     writeln('napis');

end;

Procedure nazwa2;
begin

     gotoXY (25,15);
     writeln('napis2');

end;

begin
     nazwa;
     writeln;
     nazwa2;
     readln;
end.


// procedura z wprowadzaniem zmiennych i dzialaniem

program Untitled;

uses CRT, DOS;

var
a,b:integer;

Procedure dodaj(x,y:integer);

var
wynik:integer;

begin
     wynik:=a+b;
     writeln(wynik);
end;
begin
     writeln('wprowadz a');
     readln(a);
     writeln('wprowadz b');
     readln(b);
      writeln;
      write('wynik = ');
     dodaj(a,b);
     readln;
end.


//funkcja

program Untitled;

uses CRT, DOS;

var
a,b:integer;



Function dodaj(a,b:integer):integer;
var
wynik:integer;
begin
writeln('a:');
readln(a);
writeln('b:');
readln(b);
dodaj:=a+b
end;
begin
write(dodaj(a,b));
readln;



// randomowe liczby z warunkiem + pelta

program Untitled;

uses CRT, DOS;

var
a,b,c,d:integer;
p:char;

Begin
REPEAT
Randomize;

a:=random(100);
b:=random(100);
c:=a*b  ;

writeln('liczba a: ',a,' liczba b: ',b);
writeln('podaj wynik');
readln(d);

IF c=d then
writeln('wynik dobry')
  else
  writeln('naucz sie liczyc');
  writeln;
  writeln('czy chcesz jeszcze zgadywac? t lub n');
  readln(p);



      UNTIL  p<>'t';
end.