PDA

Visualizza la versione completa : Vettori


pakylory
11-01-2003, 11:34
Salve,
Ho, in pascal, un vettore bidimensionale somma1[i,1] con 1<=i<=100
In una procedura, ora, dovrei cercare il valore pi grande e quello immediatamente successivo (il secondo) contenuto in somma1[i,1]!!!!
Qualcuno sa aiutarmi??? Non so come fare!!!
Grazie
:ciauz: :ciauz:

pakylory
11-01-2003, 13:31
:cry:
Io da ieri sto :dh: :dh:

Michele Facchin
11-01-2003, 15:35
Spiega meglio il problema che non ho capito ;)

m@ximo
11-01-2003, 17:11
Vedi se questo programmino va bene:




program massimo;
uses crt;

type matrice = array[1..100,1..1] of integer;

var n,i:integer;
m:matrice;

procedure massimo(v:matrice; k:integer);
var max,max1,i:integer;
begin
max:=v[1,1];
max:=0;
for i:=2 to k do
begin
if v[i,1] > max then
begin
max1:=max;
max:=v[i,1];
end
else
begin
if v[i,1] > max1 then
max1:=v[i,1];
end;
end;
writeln;
write('L''elemento pi grande : ',max);
writeln;
write('Quello successivo : ',max1);
end;

begin
repeat
clrscr;
write('Inserisci la cardinalit del vettore: ');
readln(n);
until (n > 1) or (n < 100);
writeln('Inseriamo gli elementi nel vettore: ');
for i:=1 to n do
begin
write('Inserisci elemento ',i,': ');
readln(m[i,1]);
end;
massimo(m,n);
readln;
end.



Spero che sia questa la soluzione al tuo problema, facci sapere

Max

:ciauz:

pakylory
11-01-2003, 17:32
:metallica :mavieni: :metallica :mavieni:
grazie mille...!!!!
:ciauz: :ciauz:

Loading