PDA

Visualizza la versione completa : [PASCAL]Calcolare il numero pių piccolo


zacca94
30-09-2009, 22:40
Esercizio scolastico: Dati 4 numeri inseriti in input, visualizzare quello pių piccolo, ricorda che i numeri possono essere pure uguali.

Avevo pensato di fare con degli if... ma quanti ne dovrei fare :/ Altre soluzioni?

oregon
30-09-2009, 23:02
Dipende se i 4 numeri sono memorizzati in un vettore ... allora serve un ciclo e una if ...

zacca94
30-09-2009, 23:13
Program PIU_PICCOLO;
Uses Crt;
var a,b,c,d:integer;
f:boolean;

begin
readln(a,b,c,d);

if a < b then
if a <> b then
if a < c then
if a <> c then
if a < d then
if a <> d then
write('Il 1° numero inserito č il pių piccolo');

if b < a then
if b <> a then
if b < c then
if b <> c then
if b < d then
if b <> d then
write('Il 2° numero inserito č il pių piccolo');

if c < a then
if c <> a then
if c < b then
if c <> b then
if c < d then
if c <> d then
write('Il 3° numero inserito č il pių piccolo');

if d < a then
if d <> a then
if d < b then
if d <> b then
if d < c then
if d <> c then
write('Il 4° numero inserito č il pių piccolo');

readln;
end.

Cosė va bene?
O si potrebbe migliorare ?

king64
01-10-2009, 09:10
Come suggeriva oregon, qualcosa di questo tipo:


var a[1..4] of integer;
var i,max:integer;

begin
' leggi i valori
for i:=1 TO 4 do
readln(a[i]);
max:=a[1];
' effettua il confronto
for i:= 2 TO 4 do
begin
if max< a[i] then
max:=a[i];
end;
Writeln(max);
end.


Saluti :ciauz:

Loading