☰

» »

Napaka

Napaka

tadej123321 ::

Pozdravljeni! Dela majhen programček v Turbo Pascalu 7.0, in naletim na majhno oviro. Rad bi ga naredil z uporabo podprogramov, a mi javlja napako, tako da če mi zna kdo povedati, kje je težava, bi bil zelo zelo vesel (sploh, če bo odgovor hiter):

program seminarska;
var ime_otroka,tmp_otroka:array [1..20] of string;
    startno_mesto:array[1..20] of integer;
    i,j:integer;

procedure branje_imen (var i:integer);
var ime_otroka,tmp_otroka: array [1..20]of string; j:integer;
begin
     randomize;
     i:=0;

     repeat
     inc(i);
     write(i,') ime: ');
     readln(ime_otroka[i]);
     until (i>=20)or not(ime_otroka[i]<>'')or not(ime_otroka[i]<>' ');
end;

begin
     branje_imen;
     writeln(i);
     readln;

end.


P.S: nekatere odvečne spremenljivke so tu tudi zapisane, ker jih bom kasneje rabil.

tadej123321 ::

Ok, zdej mi je mal ratal popravt, a sedaj je pa problem čist na začetku procedure, kjer definiram ime_otroka

program seminarska;
var ime_otroka,tmp_otroka:array [1..20] of string;
    startno_mesto:array[1..20] of integer;
    i,j,st:integer;

procedure branje_imen (var i,st:integer; ime_otroka:array [1..20] of string);
var tmp_otroka: array [1..20]of string;
  j:integer;
begin
     randomize;
     i:=0;

     repeat
     inc(i);
     write(i,') ime: ');
     readln(ime_otroka[i]);
     st:=i;
     until (i>=20)or not(ime_otroka[i]<>'')or not(ime_otroka[i]<>' ');

end;


begin
     branje_imen(i,st,ime_otroka);
     writeln(i);

     for i:=1 to  st do writeln(ime_otroka[i]);
     readln;

end.


A zna kdo pomagat?

Senitel ::

Kakšen je sploh opis napake, ki ti jo javi prevajalnik?

tadej123321 ::

Pri spodnji kodi mi ne javlja napeke, vendar če vpišem točno 20 učencev, program kar preskoči nadaljevanje programa, pa čeprav so readln kasneje dodani, poleg tega pa na koncu ne izpiše imen.

program seminarska;
var ime_otroka,tmp_otroka:array [1..20] of string;
    startno_mesto:array[1..20] of integer;
    i,j,st:integer;

procedure branje_imen (var i,st:integer; ime_otroka:array  of string);
var tmp_otroka: array [1..20]of string;
  j:integer;
begin
     i:=0;
     repeat
           inc(i);
           write(i,') ime: ');
           readln(ime_otroka[i]);
           st:=i;
     until (i>=20)or not(ime_otroka[i]<>'')or not(ime_otroka[i]<>' ');
     readln;
end;


begin
     branje_imen(i,st,ime_otroka);
     writeln(i);
     for i:=1 to  st do writeln(ime_otroka[i]);
     readln;

end.

Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

[Delphi] Pomoč pri reševanju naloge ! Nujno :/

Oddelek: Programiranje		161761 (1351) Suly
»

Šah [Pacsal]

Oddelek: Programiranje		152212 (1815) NeOman
»

[Turbo Pascal] Pomoč...

Oddelek: Programiranje		131458 (1360) Grey
»

Naloga iz Pascala

Oddelek: Programiranje		5890 (824) Vesoljc
»

sortiranje neznano dolge datoteke v pascalu

Oddelek: Programiranje		101037 (952) mmisv

Več podobnih tem