Pascal - Największa liczba w tablicy dwuwymiarowej.

[Rexlu 170]

Witam, przyszło mi się zetknąć z Pascalem i niestety nie potrafię sobie poradzić.

 

Z podanej tablicy dwuwymiarowej o n elementów które podaje inny program.

 

1. Muszę znaleźć największa liczbę a następnie wypisać jej położenie (lx,ly,px,py). 

 

for i:=1 to n do

for j:=1 to n do

if (tab[i,j]>max) then max:=tab[i,j]

lx:=i;

ly:=j;

px:=i;

py:=j;

 

Problem w tym że to nie wynajduje największej liczby zapisanej w tablicy dwuwymiarowej, tylko wyszukuje ostatnią wartość w tej tablicy. Czy w tablicy 10x10 są liczby i on zamiast szukać liczby to po prostu wypisuje 10,10,10,10 bo są to ostatnie wiersze i kolumny tablicy.

 

Any idea ? Dalsza część zadania po rozwiązaniu tego problemu

 

[darasz89 190]

musisz użyć begin i end; przy warunku if ... then

http://turbo-pascal.4coders.info/kurs-instrukcja-zlozona.html

zawsze gdy masz do wykonania w pętli / warunku więcej niż 1 instrukcje używasz begin i end;, a pomiędzy nimi instrukcje

for i:=1 to n do
 for j:=1 to n do
  if (tab[i,j]>max) then
  begin
   max:=tab[i,j];
   lx:=i;
   ly:=j;
   px:=i;
   py:=j;
  end;

Edytowane 19 Marca 2013 przez darasz89

[Rexlu 170]

Faktycznie działa Dzięki. Resztę zapytam się na pm

Edytowane 19 Marca 2013 przez Rexlu

[darasz89 190]

odpisałem na PW

BTW strasznie namieszane to jest

Edytowane 19 Marca 2013 przez darasz89