| N | AZ ÉRETTSÉGI TÉTELEKET NE ITT KERESD, MERT ITT NINCSENEK. NEM IS VOLTAK, NEM IS LESZNEK. | N |
-
#17836
Ezt a programot esetleg valaki megtudná nézni, hogy mi a baj vele Delphiben?
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type Rec = record
egesz : integer;
logik : boolean;
valos : real;
end;
t_Rec = array [1..20] of Rec;
var
f:file of Rec;
rr:integer;
n:integer;
nev:string;
function An ( n : integer ):real;
begin
An:=exp(n*ln(1+1/n));
end;
procedure beolvas(var x:t_Rec; var k:integer);
var n:byte;
begin
n:=1;
repeat
with x[n] do
begin
egesz:=n;
logik:=true;
valos:=An(n);
end;
inc(n);
until n=10;
end;
procedure fileba(var x:t_rec; var k:integer);
var n:byte;
begin
rewrite(f);
for n:=1 to k do write(f, x[n]);
close(f);
end;
begin
rr:=10;
for n:=1 to rr do
begin
Writeln(An(n):3:0);
end;
nev:='c:\majomember.dat';
assign(f,nev);
beolvas(Rec,rr);
fileba(Rec, rr);
end.