217-es hibakóddal folyton kilép! Ez miért van? Meg lehet ezt csinálni máshogy is?
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
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.
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
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!