Pascal - Procedury i funkcje

Zamiana liczb

Zamiana liczb
Pascal - Procedury i funkcje

Program: zamieniający dwie liczby miejscami.

Po wcześniejszym podaniu przez użytkownika.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program procedura3;
uses crt;
var x,y:real;
procedure zamien(var x,y:real);
var z:real;
begin
     z:=x;
     x:=y;
     y:=z;
end;
begin
clrscr;
       write('Podaj liczbe x: ');
       readln(x);
       write('Podaj liczbe y: ');
       readln(y);
clrscr;
       writeln('Podano liczbe x: ',x:2:2);
       writeln('Podano liczbe y: ',y:2:2);
writeln;
zamien(x,y);
            writeln('Po zamianie x: ',x:2:2);
            writeln('Po zamianie y: ',y:2:2);
            readkey;
end.