co nei tak z tym programem ? (pascal)

Vein [ Sannin ]

co nei tak z tym programem ? (pascal)

co jest nie tak z tym programem ? wypisuje glupoty a zadanie jest takie:
wczytac do tablicy M x N liczb, znajdz max sume elementow wycinka ktorego wielkosc podawana jest z klawiatury(kwadrat)
czyli:
deklarujemy tablice, nastepnie wypelniamy tablice liczbami, pozniej tworzymy "kwadrat" poruszajacy sie po tej tablicy i porównujący sumy liczb znajdujacych sie w jego obrębie z poprzednią sumą i znajduje najwyższą sumę:
dzieki za pomoc, juz sam znalazlem :P



program tablice_sr_odchylenie;
uses crt;
var t:array[1..100,1..100] of integer;
max,sum:real;
x,y,i,j,w,z,g,h,p,q,k:byte;
begin
clrscr;
‹tworzenie tablicy›
writeln('podaj wymiary tablicy XxY (max 100x100)');
readln(x);
readln(y);
if (x>100) or (y>100) then halt;
writeln('podaj wymiary kwadratu do liczenia max sumy');
readln(k);
if (k>x) or (k>y) then halt;
clrscr;
‹pobieranie danych do tablicy›
for i:=1 to y do
begin
writeln('rzad',i);
for j:=1 to x do
begin
writeln('kolumna',j);
readln(t[i,j]);
end;
clrscr;
end;
i:=0;
j:=0;
max:=1;
g:=x-k+1;
h:=y-k+1;
for p:=1 to g do
begin
w:=p+k-1;
for q:=1 to h do
begin
z:=q+k-1;
for i:=p to w do
begin
for j:=q to z do
begin
sum:=sum+(t[j,i]);
end;
end;
if sum>max then
begin
max:=sum;
sum:=0;
end
else
sum:=0;
end;
end;
Writeln('max suma wynosi: ',max:0:2);
repeat until keypressed;
end.


dzieki za pomoc, juz sam znalazlem :P

Wypowiedź została zmodyfikowana przez jej autora [2005-11-07 11:20:31]