Сформировать две новые последовательности х и у в соответствии со следующим правилом

@Sp1nker · Регистрация: 24.01.2013

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

Даны три числовые последовательности a, b и с. Сформировать две новые последовательности х и у в соответствии со следую-щим правилом

Kodzaev · 27.01.2013, 19:35

Pascal

Type
  mas=Array[1..100] of Real;
  
Procedure Output(x: mas; t: Integer);
var i: Integer;
begin
  For i:=1 to t do
  Write(x[i]:7:2);
  Writeln;
end;
 
Var
  a,b,c,x,y: mas;
  i,n: Integer;
BEGIN
Write('Введите N: ');
Readln(n);
Randomize;
For i:=1 to n do
begin
  a[i]:=10*Random-3;
  b[i]:=10*Random-3;
  c[i]:=10*Random-3;
  x[i]:=Sqrt(Abs(a[i]*b[i]));
  y[i]:=Sqrt(Abs(b[i]*c[i]));
end;
Writeln('Последовательность A: ');
Output(a,n);
Writeln('Последовательность B: ');
Output(b,n);
Writeln('Последовательность C: ');
Output(c,n);
Writeln('Последовательность X: ');
Output(x,n);
Writeln('Последовательность Y: ');
Output(y,n);
Readln
END.

@Sp1nker 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 40
		1
	Сформировать две новые последовательности х и у в соответствии со следующим правилом 27.01.2013, 19:02. Показов 1702. Ответов 1 Метки нет (Все метки) Даны три числовые последовательности a, b и с. Сформировать две новые последовательности х и у в соответствии со следую-щим правилом Миниатюры 0

	27.01.2013, 19:35

Сформировать две новые последовательности х и у в соответствии со следующим правилом

Решение