23-02-2008.txt

------------------//Definiowanie i wy�wietalnie zmiennych.



program Untitled;
Uses CRT,DOS; //dodawanie bibliotek

var
zmienna1:integer; //liczba calkowita

begin
zmienna1:=10;
write('zmienna1 jest roowna: ',zmienna1);
readln; //ten crap wczytuje (i zatrzymuje program)
end.





------------------// wczytywanie zmiennych



var
zmienna1, zmienna2:integer;

begin
write('prosze wpisac zmienna 1');
read(zmienna1);				//wczytuje
write('prosze wpisac zmienna 2');
read(zmienna2);
end.


var
zmienna1,zmienna2:integer;

begin
write('prosze wpisac zmienna 1: ');
read(zmienna1);
write('prosze wpisac zmienna 2: ');
read(zmienna2);
write('wpisales: ',zmienna1,' i ',zmienna2);
read;
end.




------------------//kalkulator




program Untitled;
Uses CRT,DOS;

var
zmienna1,zmienna2,wynik:real;

begin
writeln('wpisz zmienna 1: ');
   readln(zmienna1);

writeln('wpisz zmienna 2: ');
   readln(zmienna2);

wynik:=zmienna1+zmienna2;
   writeln('wynik dodawania = ',wynik:10:2);

wynik:=zmienna1-zmienna2;
   writeln('wynik odejmowania = ',wynik:10:2);

wynik:=zmienna1*zmienna2;
   writeln('wynik mnozenia = ',wynik:10:2);

wynik:=zmienna1/zmienna2;
   writeln('wynik dzielenia = ',wynik:10:2);

readln;
end.




------------------//pola kola i prostopadloscianu





program Untitled;
Uses CRT,DOS;

var
r,a,b,c,wynik:real;

begin
writeln('KOLO');

writeln('wpisz promien kola: ');
   readln(r);

wynik:=Pi*r*r;
   writeln('pole kola = ',wynik:5:1);

writeln;
writeln('PROSTOPADLOSCIAN');

writeln('wpisz dlugosc boku a: ');
   readln(a);

writeln('wpisz dlugosc boku b: ');
   readln(b);

writeln('wpisz dlugosc boku c: ');
   readln(c);

wynik:=2*(a*b+a*c+b*c);
   writeln('pole prostopadloscianu = ',wynik:5:1);

readln;
end.




-----------------------//kalkulator z warunkiem if
program Untitled;
Uses CRT,DOS;

var
zmienna1,zmienna2,wynik:real;

begin
writeln('wpisz zmienna 1: ');
   readln(zmienna1);

writeln('wpisz zmienna 2: ');
   readln(zmienna2);

wynik:=zmienna1+zmienna2;
   writeln('wynik dodawania = ',wynik:10:2);

wynik:=zmienna1-zmienna2;
   writeln('wynik odejmowania = ',wynik:10:2);

wynik:=zmienna1*zmienna2;
   writeln('wynik mnozenia = ',wynik:10:2);

IF zmienna2=0 THEN
   begin
        writeln('nie dziali sie przez 0 noobie');
   end

ELSE

   begin
        wynik:=zmienna1/zmienna2;
           writeln('wynik dzielenia = ',wynik:10:2);
   end;

readln;

end.