Значения функции на отрезке и сравнение векторов Опции

[titanik]

Наведите на правильный путь решения задач:

1. Напечатать таблицу значений функции y=sin(sqr(x)-0,5) на отрезке [-П,П] c шагом 0,1П
2. Даны вещественные векторы Х и У размером 10. Вывести на печать тот вектор длина которого больше.

Заранее спасибо.

[Ozzя]

Код

...
x:=-pi;
while x<=pi do
begin
y:=sin(sqr(x)-0,5);
writeln('y= ', y:16:4);
x:=x+pi/10;
end;
...

[volvo]

titanik, долго будем одно и то же спрашивать? Поиск -> "Табулирование" сделать тебе что, религия не позволяет?

[Ozzя]

2-я

Код

...
sum1:=0;
sum2:=0;
for i:=1 to 10 do
begin
sum1:=sum1+sqr(vect1[i]);
sum2:=sum2+sqr(vect2[i]);
end;
sum1:=sqrt(sum1);
sum2:=sqrt(sum2);
if sum1>sum2 then
{ 1-й больше}
else
{ 2-й больше}
...

[titanik]

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

То volvo: да искал я поиском извиняйте не нашел.