Помощь - Поиск - Пользователи - Календарь
Полная версия: Значения функции на отрезке и сравнение векторов
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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, долго будем одно и то же спрашивать? Поиск -> "Табулирование" сделать тебе что, религия не позволяет? mad.gif
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: да искал я поиском извиняйте не нашел.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.