VPF::Задача на массив!!! - Форум программистов

Diego

Дата 4.12.2004, 11:25 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Задать два вещественных массива одинакового размера(не более 10 элементов).
Вывести исходные массивы на экран.
Сформировать новый массив , являющийся суммой квадратов массивов.
Вычислить произведение отриц. элементов каждого массива.

Проблема начинается со слова "Сформировать..."до него я смогу сделать сам!
I NEED YOU HELP!!! smile

heskey

Дата 4.12.2004, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 61
Регистрация: 3.12.2004

Репутация: нет
Всего: нет

var x,y,z:array[1..10] of real;
i:integer;
for i:=1 to 10 do
z[i]:=sqr(x[i])+sqr(y[i]);

я так понимаю это нужно.. smile

Fedor

Дата 4.12.2004, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

Цитата(Diego @ 4.12.2004, 10:25)

Вычислить произведение отриц. элементов каждого массива.

Код


var
 product:real;
....
....
product:=1;
for i:=1 to n do
 if a[i]<0 then product:=product*a[i];
writeln(product);

product:=1;
for i:=1 to n do
 if b[i]<0 then product:=product*b[i];
writeln(product);

--------------------

Мы - Днепряне. Мы всех сильней.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »