[PASCAL] Operazioni su matrici

[angie ;o)]

Ciao a tutti,
ho un problema.. Sono ormai 3 mesi che sto lavorando su un problema di matematica da fare nel linguaggio Turbo Pascal ma mi sono bloccata a un punto.
Il testo del problema parla delle assegnazioni e consiste:
1. Caricare una matrice n*n
2. Cercare il numero minore di ogni riga
3. Sottrarlo alla matrice originaria e visualizzare la nuova matrice
fin qui tutto ok
4. Vedere se all'interno di TUTTE le colonne c'è almeno uno zero (ho chiamato la procedura, che DOVREBBE fare questo, ricerca)
Qui mi sono bloccata e sono ormai 3 mesi che mi scervello quindi stanotte ho pensato a voi!
Non è che per favore potreste darmi una mano?? Vi inserisco il programma fatto da me..
Grazie in anticipo.. Ciao ciao

Ecco il programma:
program matrici;
uses crt;
const n=10;
m=10;
type vett=array[1..n,1..m]of integer;
vett1=array[1..n]of integer;
var i,j,l,d,min,sott,x,w:integer;
v,v1:vett;
v2:vett1;

procedure intestazione;
begin
gotoxy (30,1);
writeln ('RICERCA OPERATIVA');
writeln;
end;

procedure carica_matrice;
begin
write('Nø dei lavori ');
readln(l);
write('Nø delle ditte ');
readln(d);
for i:=1 to l do
for j:=1 to d do
begin
write(j,'ø numero ', i,'ø riga ');
readln(v[i,j]);
end;
end;

procedure visualizza;
begin
clrscr;
gotoxy (25,1);
writeln ('ASSEGNAZIONE DEI LAVORI');
for i:=1 to l do
begin
writeln;
for j:=1 to d do
begin
write(v[i,j]:4);
end;
end;
readln;
end;

procedure visualizza1;
begin
for i:=1 to l do
begin
writeln;
for j:=1 to d do
begin
write(v1[i,j]:4);
end;
end;
readln;
end;

procedure sottrazione (var a:integer);
begin
for i:=1 to l do
for j:=1 to d do
begin
v1[i,j]:=v[i,j]-v2[i];
end;
visualizza1;
end;

procedure minimo;
var a:integer;
begin
writeln;
x:=1;
for i:=1 to l do
begin
a:=v[i,x];
for j:=1 to (d-1) do
begin
if a>v[i,j+1]
then
begin
a:=v[i,j+1];
end;
v2[i]:=a;
end;
write ('Numero minore della ',i,'ø riga ',a);
readln;
end;
sottrazione (a);
end;

procedure avanti;
begin
writeln ('C''è 1 zero per colonna');
readln;
end;

procedure indietro;
begin
writeln ('Non c''è 1 zero per colonna');
readln;
end;

procedure ricerca;
var trovato:boolean;
conta:integer;
begin
conta:=0;
for j:=1 to d do
trovato:=false;
i:=0;
repeat
i:=i+1;
if v1[i,j]=0
then
begin
trovato:=true;
conta:=conta+1;
end;
until (i=1) or (trovato);
if conta=d
then
avanti
else
indietro;
end;

procedure cerchia;
begin
end;
begin
clrscr;
intestazione;
carica_matrice;
visualizza;
minimo;
ricerca;
end.


Ps. scusatemi se ve l'ho messo qui ma non conosco altri modi

[mondobimbi]

ti dico come lo farei io:
potresti moltiplicare ciascun elemento di ogni colonna e verificare se il prodotto è zero per tutte le colonne.
ciao
sergio

[angie ;o)]

Eh ma io non lo so fare in pascal, capisci??
Dai, aiutatemi per favore! Ciao ciao e grazie

[mondobimbi]

prova questo spunto

program matrix;

const 
  n = 3;
type
  matrice = array[1 .. n, 1 .. n] of integer;
var
  m : matrice;
  i, j : integer;
  pi, pj : integer;

begin
  
  for i := 1 to n do
    for j := 1 to n do
    m [i, j] := i * j;    // tanto per mettere qualcosa
  for i := 1 to n do
    m[i,1] := 0;

// verifica che tutte le colonne contengano almeno uno zero
  pi := 1;
  pj := 0;
    
  for j := 1 to n do
  begin
    for i := 1 to n do
    pi := pi * m[i,j];
    pj := pj + pi;
  end;

  if (pj = 0) then
    writeln('ok')
  else
    writeln('no');
    
end. 

ciao
sergio

[angie ;o)]

Funziona.. Adesso devo continuare il programma e dovrei, sulla carta, cerchiare un solo zero per riga e per colonna e poi memorizzare la posizione per poi contrassegnare la riga e la colonna in cui si trova lo zero cerchiato con un asterisco..
Ciao, grazie intanto e alla prossima