фот сама:
Код
function shot: longint;
var i,p:integer;
t,tmp,uron:real;
s,a,b,c:^integer;
begin
a:=0;
b:=0;
c:=0;
p:=0;
getmem(s,100);
getmem(a,2);
getmem(b,2);
getmem(c,2);
for i:= 1 to 40 do
begin
p:=random(3);
case p of
1: a^:=a^+random(10);
2: b^:=b^+random(30);
3: c^:=c^+random(15);
end;
s^:=3*a^+2*b^+c^;
shot:=trunc(0.7*s^);
p:=0;
end;
freemem(s,100);
freemem(a,2);
freemem(b,2);
freemem(c,2);
end;
var i,p:integer;
t,tmp,uron:real;
s,a,b,c:^integer;
begin
a:=0;
b:=0;
c:=0;
p:=0;
getmem(s,100);
getmem(a,2);
getmem(b,2);
getmem(c,2);
for i:= 1 to 40 do
begin
p:=random(3);
case p of
1: a^:=a^+random(10);
2: b^:=b^+random(30);
3: c^:=c^+random(15);
end;
s^:=3*a^+2*b^+c^;
shot:=trunc(0.7*s^);
p:=0;
end;
freemem(s,100);
freemem(a,2);
freemem(b,2);
freemem(c,2);
end;
???
Сообщение отредактировано: volvo -