Question

1. Napisz program który posortuje trzy podane przez użytkownika liczby od najmniejszej do największej i wypisze na ekranie.

2.Napisz program, który przy użyciu procedury będzie wyświetlał wizytówki zgodne z danymi wprowadzonymi przez użytkownika. (imię, nazwisko, adres, telefon, numer lokalu)

3.Napisz program zawierający funkcję podnoszącą liczbę podaną przez użytkownika do potęgi trzeciej.

Programy muszą być wykonane w turbo pascalu i mają działać!!

Answer 1

Uses crt;

var
a,b,c:real;

procedure sortowanie(a,b,c:real);
var zamien:real;

begin
clrscr;

write('podaj 1 liczbe: '); readln(a);
write('podaj 2 liczbe: '); readln(b);
write('podaj 3 liczbe: '); readln(c);

if (a>b) then
begin
zamien:=a;
a:=b;
b:=zamien;
end;

if (b>c) then
begin
zamien:=b;
b:=c;
c:=zamien;
end;

if (a>b) then
begin
zamien:=a;
a:=b;
b:=zamien;
end;

writeln;
write('Posortowane liczby: ',a:1:0);
write(' ',b:1:0);
write(' ',c:1:0);
readkey;
end;


procedure wizytowka();

var dane:record
imie:string;
nazwisko:string;
adres:ansistring;
telefon:string;
numer_lok:word;
end;

begin

clrscr;

with dane do
begin

write('imie: '); readln(imie);
write('nazwisko: '); readln(nazwisko);
write('adres: '); readln(adres);
write('telefon: '); readln(telefon);
write('nr. lokalu: '); readln(numer_lok);

end;

writeln;
writeln;
writeln('Press enter...');
readln;

clrscr;

with dane do
begin

writeln('imie: ',imie);
writeln('nazwisko: ',nazwisko);
writeln('adres: ',adres);
writeln('telefon: ',telefon);
writeln('nr. lokalu: ',numer_lok);

end;

readkey;

end;

function szescian(a:real) : real;

begin

clrscr;

write('Podaj liczbe: ');
readln(a);

if a>=0 then
begin
szescian:=a*a*a;
writeln;
write('Liczba ',a:2:0,' do potegi trzeciej: ',szescian:2:0);
end

else begin writeln; write('Liczba ',a,' jest liczba ujemna!!!'); end;

readkey;

end;

begin

sortowanie(a,b,c);
wizytowka();
szescian(a);


end.