Počet čísel v poli – Delphi – Fórum – Programujte.com

Zdravím, dokázal by mi někdo poradit jak mám v poli 

 procedure novysal;
var i,j: byte;
begin
    for i:=1 to r do
    begin
        for j:=1 to s do
            begin
                if (i=1) and (j=1) then zahlavi;
                if j=1 then write(i:3,'r');
                if a[i,j] = 0 then write('x':4);
                if a[i,j] = 1 then write('o':4);
                
                
            end;
        writeln;
    end;        
end;

Zjistit, kolik je tam těch koleček? Zkoušel jsem to takhle:

procedure volnamista;
var i,j : byte;
    a : integer;  
begin
     volnamista:=0;
   for r:=1 to 10 do
      for s:=1 to 8 do
        if a[i,j]=1 then
        begin
          volnamista:=volnamista+1;
   writeln('Pocet volnych mist je: ',volnamista);
   
                       
                            end;

Ale nejede to a nevím vůbec co s tím :-(
 

#1 TomasekTom

já už si pascal moc nepamatuju ale ....
v tom prvním algoritmu díky řádku if (i=1) and (j=1) then zahlavi; ti hned při prvním kroku chod algoritmu skočí někam na "Zahlavi" a dál už nepojede. a protože varianta (i=1) and (j=1) nastane vždy tak ti algoritmus nepojede nikdy :) zkus ten řádek vyhodit a uvidíš co se stane...

#2 JerryM
problém je jinde máš smyčky for r a s ale indexuješ [I,J]

#1 TomasekTom
"Nejede to" protože tam máš totální chaos.

V globálních proměnných r a s jsou zřejmě uloženy rozměry toho sálu a v první proceduře novysal je máš správně použité. Ve druhé proceduře volnamista je ale nahrazuješ konstantami 10 a 8 a proměnné r a s používáš jako řídící v cyklu. Testuješ ale pole s indexy i a j, které mají zřejmě nulové hodnoty.

Takže použij stejný postup jako v první proceduře. Navíc to je celkově divné, do názvu procedury (pokud vím) nelze ukládat hodnoty a vypisuješ počet volných míst pokaždé, když nějaké najdeš - nestačilo by to jen jednou na konci hledání? Jde to vůbec zkompilovat? Chybí tam minimálně jedno end. 

procedure volnamista;
var i,j : byte;
    a : integer; 
    volnych : integer; 
begin
   volnych:=0;
   for i:=1 to r do
      for j:=1 to s do
        if a[i,j]=1 then
          volnych:=volnych+1;
   writeln('Pocet volnych mist je: ',volnamista);
end;

#4 JoDiK
oprava posledního řádku:

writeln('Pocet volnych mist je: ',volnych);
 

#1 TomasekTom

no našel jsem ještě 1 vadu v původním příspěvku - v podstatě by to nemělo jít ani přeložit pro nesoulad typů v proceduře Volnamista:

v proceduře NovySal používáš pole "a" - pravděpodobně globální pole a v proceduře Volnamista si definuješ ve var lokální proměnou a jako integer, navíc v této proceduře nevidím definici volnamista - tedy pokud to není globální proměnná a ještě ti to koliduje s názvem procedury.

Zdá se mi to jako by to bylo zkopírováno z jiného jazyka asi C/C++, kde volnamista není procedura, ale funkce a název funkce se používá pro návratovou hodnotu, ale ani tam bych to takto nepoužil kvůli pravděpodobnosti rekurzivního volání při volnamista := volnamista+1;.