PDA

Visualizza la versione completa : [turbo pascal] ordinare in modo decrescente(o crescente ) tre numeri.


ascatem
09-10-2003, 17:21
Program prova;
uses crt;
var a,b,c,x:integer;

begin
clrscr;
writeln('inserire i valori a, b, c e il programma li ordinerà in ordine decrescente');
readln(a,b,c);
if c > b
then
begin;
x:=b;
b:=c;
c:=x;
end
else
if b > a
then
begin
x:=a;
a:=b;
b:=x;
end
else
if (a>b) and (b>c)
then
writeln(' ',a,' ',b,' ',c,' ')
else
if c > b
then
begin;
x:=b;
b:=c;
c:=x;
end
else
if b > a
then
begin
x:=a;
a:=b;
b:=x;
writeln(' ',a,' ',b,' ',c,' ')
end;
readln;
end.



io l'ho fatto così, ma non funziona!!! e poi dovrei inserire una condizione che mi dica se possono essere lati di un triangolo. :(


chiunque possa darmi una mano...

ascatem
09-10-2003, 18:00
:cry:

maurizio.r57
09-10-2003, 19:16
..Era da parecchio che non usavo il Turbo Pascal..
cmq eccoti accontentato:

CODE:
_______________________________

program prova;
uses crt;
var
a,b,c,x:integer;
begin
clrscr;
writeln('Inserisci i valori A,B,C da ordinare in ordine decrescente');
readln(a,b,c);
if(a<b)
then
begin
x:=b;
b:=a;
a:=x;
end;
if(c>b) and (c>a)
then writeln(c,' ',a,' ',b)
else
if(c>b)
then writeln(a,' ',c,' ',b)
else writeln(a,' ',b,' ',c);

writeln('Batti un tasto per uscire');
repeat until keypressed
end.

ascatem
09-10-2003, 21:08
grazie:D

LeleFT
09-10-2003, 21:39
Devi anche controllare se possono essere i lati di un triangolo?
Ecco il codice:



if ((a < (b+c)) and (b < (a+c)) and (c < (a+b)) then
println('Sono i lati di un triangolo');
else
println('Non possono essere i lati di un triangolo');


Dalla regola: un lato di un triangolo è sempre minore della somma degli altri due.


Ciao.

Loading