[pascal] pomoc w napisaniu (poprawieniu) programu do wyszukiwania najmniejszego elmentu

[Jyna 0]

Bardzo prosze o pomoc w napisaniu programu w pascal-u. Program ma wyznaczać najmniejszy element. Program napisałam niby działa ale zawsze wypisuje zero bez wzgledu na to jakie sa liczby podane zawsze wypisuje zero. Może ogolnie mam zły pomysł na to bo zasugerowałam sie innym programem ktory szukał najwiekszej liczby w wierszu. Bardzo prosze o pomoc i jakieś sugestie bo mnie juz brakuje pomysłow co z tym zrobić ...

 

 

 

 

uses

SysUtils;

CONST

nmin=20;

mmin=400 ;

TYPE

Dane = ARRAY [1..mmin, 1..nmin] of INTEGER ;

VAR

i,j,n,nn,min,c:INTEGER;

T : DANE;

BEGIN

Writeln('podaj n');

Readln(n);

Writeln ('Podaj kolumne w ktorej ma byc znaleziony minimalny element');

Readln(nn);

Writeln;

FOR i:=1 TO n DO

FOR j:=1 TO n DO

 

BEGIN

Write ('wiersz = ',i,' kolumna = ',j,' T[',i,',',j,'] = ');

Readln (T[i,j]);

END;

FOR j:=n TO 1 DO

 

BEGIN

IF j=nn THEN

 

BEGIN

min:=T[1,j];

Writeln;

FOR i:=n TO 2 DO

 

BEGIN

c:=T[i,j];

IF c<min THEN

min:=C;

END;

END;

END;

Writeln;

Writeln(' Minimalny element w kolumnie ' ,nn,'wynosi' ,min);

Readln;

END.

 

[Gość Clamoor]

po 1 uzywaj znacznika

[code]

wtedy kod wygląda lepiej ;-)

 

2 nie rozumiem ideii tej drugiej pętli ...

    FOR j:=n TO 1 DO
    BEGIN
    Writeln('j: ', j,'  nn',nn);
        IF j=nn THEN
        BEGIN
        Writeln('test: ', j);
            min:=T[1,j];
            Writeln;
            FOR i:=n TO 2 DO
            BEGIN
                c:=T[i,j];
                IF c<min THEN min:=C;
            END;
        END;
    END;

 

zamien na

 

min:=T[1,nn];
    FOR i:=2 TO n DO
    BEGIN
        IF T[i,nn] < min THEN min := T[i,nn];
    END;

 

i imho działa

 

całosc w załączniku

a.txt

Edytowane 4 Czerwiec 2009 przez Clamoor

[Jyna 0]

 

Wielkie dzięki za pomoc