Kezdőoldal » Számítástechnika » Programozás » 217-es hibakóddal folyton...

Da0630 kérdése:

217-es hibakóddal folyton kilép! Ez miért van? Meg lehet ezt csinálni máshogy is?

Figyelt kérdés

Program:


program beolvasas;

Uses SysUtils;

var f:text;

g:real;

s,st:string;

c,er:real;

n,i,m,o,j:byte;

e:array [1..300] of string;

cs:array [1..300] of string;

h:array [1..5] of integer;

d:array [1..5] of integer;

v:array [1..5] of integer;

k:array [1..5] of real;

begin

assign(f,'esemeny.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,e[i]);

end;

close(f);

i:=0;

writeln(e[1]);

writeln(e[2]);

assign(f,'csapat.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,cs[i]);

end;

close(f);

i:=0;

writeln(cs[1]);

writeln(cs[2]);

assign(f,'h.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,st);

h[i]:=StrToInt(st);

end;

close(f);

i:=0;

writeln(h[1]);

writeln(h[2]);

assign(f,'d.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,st);

d[i]:=StrToInt(st);

end;

close(f);

i:=0;

writeln(d[1]);

writeln(d[2]);

assign(f,'v.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,st);

v[i]:=StrToInt(st);

end;

close(f);

writeln(v[1]);

writeln(v[2]);

{for m:=1 to i do

begin

k[1]:=h[m];

k[2]:=d[m];

k[3]:=v[m];

writeln('');

writeln(k[1]);

writeln(k[2]);

writeln(k[3]);

for i:=1 to 2 do

begin

for j:=i+1 to 3 do

begin

if k[j]<k[i] then

begin

n:=k[i];

k[i]:=k[j];

k[j]:=n;

end;

end;

end;

for j:=1 to 3 do

begin

write(k[j],' ');

end;

writeln('');

er:=k[2]/k[1];

writeln(er);

end; }

readln;

end.


Ez egy olyan program, amely beolvassa a csapatok nevét, számát, és a különböző végkifejletek esélyeit. Az lenne a feladat, hogy a 2. legkisebb esélyt(egy csapaton belül) elosszuk a legesélyesebbel.

Pl. 251-es A csapat esély: győzelem:2, döntetlen: 4, vereség: 8,

-> 4/2 azaz 2


2013. jan. 4. 15:19
1 2
 11/13 A kérdező kommentje:

Milyen programmal futtattad a videóban?

Amúgy sikerült megoldanom! :D

Real típusra állítottam a törtek tömbjét és az Uses SysUtils valamint a d[i]:=StrToInt(st) sort kivettem és a

readln(f,st)-t áttírtam readln(f,h-ra,d-re vagy v-re[i])

Így működik! :D



program beolvasas;

var f:text;

s,st:string;

n:real;

i,m,j:byte;

e:array [1..300] of string;

cs:array [1..300] of string;

h:array [1..5] of real;

d:array [1..5] of real;

v:array [1..5] of real;

k:array [1..5] of real;

begin

assign(f,'esemeny.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,e[i]);

end;

close(f);

i:=0;

writeln(e[1]);

writeln(e[2]);

assign(f,'csapat.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,cs[i]);

end;

close(f);

i:=0;

writeln(cs[1]);

writeln(cs[2]);

assign(f,'h.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,h[i]);

end;

close(f);

i:=0;

writeln(h[1]);

writeln(h[2]);

assign(f,'d.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,d[i]);

end;

close(f);

i:=0;

writeln(d[1]);

writeln(d[2]);

assign(f,'v.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,v[i]);

end;

close(f);

writeln(v[1]);

writeln(v[2]);

for m:=1 to i do

begin

k[1]:=h[m];

k[2]:=d[m];

k[3]:=v[m];

writeln('');

writeln(k[1]);

writeln(k[2]);

writeln(k[3]);

for i:=1 to 2 do

begin

for j:=i+1 to 3 do

begin

if k[j]<k[i] then

begin

n:=k[i];

k[i]:=k[j];

k[j]:=n;

end;

end;

end;

for j:=1 to 3 do

begin

write(k[j],' ');

end;

writeln('');

writeln(k[2]/k[1]);

end;

readln;

end.

2013. jan. 5. 14:16
 12/13 ejbenjaro ***** válasza:
Gratulálok! A videóban látható program a Geany. Működik Windows alatt is, de a Free Pascalt kicsit trükkös beállítani hozzá, persze nem lehetetlen. Ha jól emlékszem a Free Pascalnak benne kell lenni a PATH-ban, és akkor a Geany magától megtalálja és fordít vele.
2013. jan. 5. 15:09
Hasznos számodra ez a válasz?
 13/13 A kérdező kommentje:
Köszi! Sok hasznosat tanultam tőled! :D
2013. jan. 5. 21:15
1 2

Kapcsolódó kérdések:




Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!