Forum Programmazione

[hiras]

Caricati due vettori, calcolare il prodotto scalare (sapendo che è la somma di tutti i prodotti dei valori di indice uguale: v[i]*w[i] + v[i+1]*w[i+1] ... ).

Questo è un esercizio basato sugli array paralleli. Il ritardo nel postare l’esercizio è stato dovuto al fatto che ho dovuto imparare a caricare due vettori… che poi alla fine è risultato abbastanza semplice.

Code: Select all

program prodotto_scalare;

uses crt;
const max=4;

type
vettore= array[1..max] of integer;
var
v,v1:vettore;

procedure caricamento;

var i:integer;

begin
  for i:=1 to max do
   begin
     clrscr;
     writeln('inserisci il ',i,'ø numero del 1ø vettore'); {vettore principale}
     readln(v[i]);
     writeln('inserisci il ',i,'ø numero del 2ø vettore'); {vettore parallelo}
     readln(v1[i]);
   end;
end;

procedure calcolo;

var a,i,tot:integer;

begin
tot:=0;
  for i:=1 to max do
   begin
    a:=v[i]*v1[i]; {moltiplico i valori di indice uguale}
    tot:=tot+a;    {sommo i prodotti}
    end;
    writeln('il prodotto scalare e'' ',tot);
    readln;
   end;


begin
clrscr;
caricamento;
calcolo;
end.

cosa ne pensi?

[Fabriz]

Bene!


a è inutile, puoi fare direttamente tot:= tot + v[i]*w[i];


ora stessa roba solo che devi creare una procedura che carichi automaticamente un vettore.


Ps: sai usare i parametri formali e attuali? Intendo: sai creare procedure con passaggio di varibili per valore od indirizzo?

[hiras]

ora stessa roba solo che devi creare una procedura che carichi automaticamente un vettore.


Ps: sai usare i parametri formali e attuali? Intendo: sai creare procedure con passaggio di varibili per valore od indirizzo?

non so cosa siano..

potresti postare un esempio?

[Fabriz]

Code: Select all

procedure potenza(x:integer);
begin
       ....
       x:=1000*... ;
       ....
end;
//main
begin
       ....
       potenza(a);
       ....
end.


[hiras]

Code: Select all

procedure potenza(x:integer);
begin
       ....
       x:=1000*... ;
       ....
end;
//main
begin
       ....
       potenza(a);
       ....
end.


no mi dispiace non ho capito..

[Fabriz]

fa nulla. Quelle le imparerai dopo.

[hiras]

nel mentre cosa facciamo??

nuova guida o altri esercizi???

[Fabriz]

caricati automaticamente(random) due vettori, confrontare i valori divisibili per 5 del primo vettore con gli elementi di posto disari del secondo(ovvero: conforontare il primo valore div per 5 del primo vettore con tutti gli elementi di posto dispari, poi passare al secondo div per 5 e conforntarlo cno tutti i valori di posto dispari e così via...). Una volta trovati due elementi simili comunicare i due indici dei valori dei due vettori. contare i valori simili in una variabile contatore.


Spero di essere stato chiaro

[hiras]

l'esercizio è chiaro. l'unica cosa è che devo vedere come caricare un vettore con random. fatto quello passerò allo sviluppo dell'es.

ot piacere di averti risentito e anche se in ritardo buon natale

[Fabriz]

buon natale anche a te

Code: Select all

randomize;
...
for i:=1 to n do v[i]:=random(100);
...


[hiras]

Code: Select all

randomize;
...
for i:=1 to n do v[i]:=random(100);
...


ok da domani mi metto sotto. grazie

[Fabriz]

ok da domani mi metto sotto. grazie

...penso che sei mesi bastino per quel programmino....


(chissa che fine hai fatto...)