Witam. Więc Mam za zadanie zrobić program, który poprosi o podanie długości trzech boków. Później, jeśli obliczy, że da się zrobić z nich trójkąt, to napisze, że się da. Dodatkowo sprawdza, czy powstały trójkąt będzie prostokątny.
Póki co wygląda to tak:
program trojkat;
var
max : integer;
bok2 : integer;
bok3 : integer;
begin
Writeln('podaj dlugosc pierwszego boku');
Readln(max);
Writeln('podaj dlugosc drugiego boku');
Readln(bok2);
Writeln('podaj dlugosc trzeciego boku');
Readln(bok3);
if max<bok2
then max:=bok2;
if max<bok3
then max:=bok3;
if max<(bok2+bok3)
then writeln('z tych bokow mozna zbudowac trojkat')
else writeln('z tych bokow nie mozna zbudowac trojkata');
if sqr(max)<(sqr(bok2)+sqr(bok3))
then writeln('z podanych boków powsatnie trójkąt prostokątny');
Readln;
end.
Jednak wiem, że program nie działa prawidłowo, bo owszem-podmienia wartość maxa na np. bok3, ale bok3 już nie przyjmuje wartości maxa. W związku z tym mam pytanko-da się jakoś podmienić wartości dwóch zmiennych.
Np. Mając Max=3 , bok2=5
Chciałbym je zamienić tak, aby bok2=3 , max=5
Czyli np, podając wartości 1,2,3 chciałbym, aby potem zmieniły się w 3,1,2 jednak nie wiem jak zamienic wartosci dwoch zmiennych naraz.
Jest na to jakiś sposób(oczywiście w tym konkretnym zadaniu)?
Pozdrawiam.
`dodanie znaczników i ``` - @furious programming
