Оформить процедуру и функцию

@Кристинка · Регистрация: 23.12.2009

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

заданы векторы R[i](i=1,...,15) и T[n](n=1,...,12)
Элементы которых вычисляются по формулам :
T[i]= Lg((i/i+7.7)*(-1)^i);
T[n]=Lg((n/n+4.2)*(-1)^n);
из отрицательных элементов векторов R и Т образуйте два новых вектора R1 и Т1 и найдите в каждом минимальный элемент. Оформите процедурой формирование массива, функцией - поиск минимального элемента в массиве.

@Puporev · 24.03.2010, 14:24

В формулах видимо скобки неверно расставлены, ибо так как написано, то для нечетных i,n логарифм не определен.

Добавлено через 14 минут
Думаю нужно так.

Pascal

uses crt;
type mas=array[1..15] of real;
function F(x:byte;t:real):real;
begin
if x mod 2=0 then F:=ln(x/(x+t))/ln(10)
else F:=-ln(x/(x+t))/ln(10);
end;
procedure Form(var v:mas;x:byte;t:real;c:char);
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to x do
 begin
  v[i]:=F(i,t);
  write(v[i]:5:1);
 end;
writeln;
writeln;
end;
procedure New(v:mas;x:byte;var v1:mas;var y:byte;c:string);
var i:byte;
begin
y:=0;
for i:=1 to x do
if v[i]<0 then
 begin
  y:=y+1;
  v1[y]:=v[i];
 end;
writeln('Вектор ',c);
for i:=1 to y do
write(v1[i]:5:1);
writeln;
writeln;
end;
var r,t,r1,t1:mas;
    nr,nt:byte;
begin
clrscr;
Form(r,15,7.7,'R');
New(r,15,r1,nr,'R1');
Form(t,12,4.2,'T');
New(t,12,t1,nt,'T1');
readln
end.

@Кристинка · 24.03.2010, 18:08 **[ТС]**

Puporev, спасибо большое.

@Кристинка 0 / 0 / 0 Регистрация: 23.12.2009 Сообщений: 36
		1
	Оформить процедуру и функцию 23.03.2010, 22:20. Показов 987. Ответов 2 Метки нет (Все метки) заданы векторы R[i](i=1,...,15) и T[n](n=1,...,12) Элементы которых вычисляются по формулам : T[i]= Lg((i/i+7.7)(-1)^i); T[n]=Lg((n/n+4.2)(-1)^n); из отрицательных элементов векторов R и Т образуйте два новых вектора R1 и Т1 и найдите в каждом минимальный элемент. Оформите процедурой формирование массива, функцией - поиск минимального элемента в массиве. 0

@Кристинка 0 / 0 / 0 Регистрация: 23.12.2009 Сообщений: 36
	24.03.2010, 18:08 [ТС]	3
	Puporev, спасибо большое. 0

Опции темы

Оформить процедуру и функцию

Решение