Проверьте правильность написанной функции

@Mxi · Регистрация: 13.12.2009

Author24 — интернет-сервис помощи студентам

Проверьте правильность написанной функции. пожаалуйста!

Pascal

program pr1;
function Q(x:array of real;k:real):real;
var i,r:integer;
begin
write('vvedite k');
Q:=x[1]/k;
for i:=2 to k do
begin
re[i]:=x[i]/(k*i)
if r[i]<Q then Q:=r[i]
end;
end;
function V(x:array of real;):real;
var i,r:integer;
begin
V:=x[1]-Q;
for i:=2 to k do
begin
r[i]:=(x[i]-Q(x,k))/(i)
if r[i]<V then V:=r[i]
end;
end;
var r,v:real;
begin
write('vvedite k');
readln(k);
for i:= 1 to k do
read(x[i]);
r:=Q(x,k);
write(r);
v:=V(x,i);
write(v);
readkey;
end.

@tyz · 16.12.2009, 17:45

В чем вообще смысл задачи???
Да и здесь помоему не RE а R в 9-ой строке

Pascal

1	re[i]:=x[i]/(k*i)

Pascal

1	r[i]:=x[i]/(k*i)

@Mxi · 16.12.2009, 19:46 **[ТС]**

да R,спс)
Смысл задачи таков:написать подходящую функцию для R и V
R = min (x1/k; x2/(2k); x3/(3k) ....)
V= min ((x1-r)/1; (x2-r)/2; (x3-r)/3 .....)

@Mxi 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 23
	16.12.2009, 19:46 [ТС]	3
	да R,спс) Смысл задачи таков:написать подходящую функцию для R и V R = min (x1/k; x2/(2k); x3/(3k) ....) V= min ((x1-r)/1; (x2-r)/2; (x3-r)/3 .....) 0