Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Лучик
0 / 0 / 0
Регистрация: 26.10.2009
Сообщений: 4
1

суммы положительных элементов векторов

25.11.2009, 20:37. Просмотров 944. Ответов 2
Метки нет (Все метки)

Даны два вектора R(8), F(10). Найти значение S=X1³+X2³+Y1³+Y2³, где X1, X2 – суммы положительных элементов векторов R и F
Y1,Y2 – количество нулевых элементов векторов R и F соответственно. Записать на языке Паскаль Основную программу и подпрограмму.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2009, 20:37
Ответы с готовыми решениями:

Сформировать третий вектор из нечетных элементов первого вектора и положительных элементов обоих векторов
Дан целочисленный вектора A(n) и целочисленный вектор B(m). Сформировать третий...

Процедура поиска модуля суммы отрицательных элементов матрицы и суммы положительных
Написать две процедуры 1) поиск модуля суммы отрицательных элементов матрицы...

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

Используя нетипизированный параметр в подпрограмме, подсчитать суммы нечетных элементов векторов из 5 и 9 компонентов
Помогите, пожалуйста, написать программу. Используя нетипизированный параметр в...

Вычислить суммы положительных элементов массивов
а) вычислить суммы положительных элементов массивов X(n), Y(m), Z(k). б)...

2
Лучик
0 / 0 / 0
Регистрация: 26.10.2009
Сообщений: 4
07.12.2009, 15:20  [ТС] 2
Мне никто даже не ответил
0
Puporev
Модератор
55045 / 42318 / 29224
Регистрация: 18.05.2008
Сообщений: 100,003
07.12.2009, 16:55 3
Лучший ответ Сообщение было отмечено Лучик как решение

Решение

Вот программа, думаю разберетесь, все по заданию.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
uses crt;
type mas=array[1..10] of integer;
procedure Vvod(var v:mas;x:byte;c:char);
var i:byte;
begin
writeln('Введите ',x,' элементов массива ',c);
for i:=1 to x do
 begin
  write('el[',i,']=');
  readln(v[i]);
 end;
clrscr;
end;
procedure Vyvod(var v:mas;x:byte;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to x do
write(v[i],' ');
writeln;
writeln;
end;
function Summ(v:mas;x:byte):integer;
var i:byte;
    s:integer;
begin
s:=0;
for i:=1 to x do
if v[i]>0 then s:=s+v[i];
Summ:=s;
end;
function Kol(v:mas;x:byte):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to x do
if v[i]=0 then k:=k+1;
Kol:=k;
end;
var r,f:mas;
    x1,x2,y1,y2,s:longint;
begin
clrscr;
Vvod(r,8,'R');
Vvod(f,10,'F');
Vyvod(r,8,'R');
x1:=Summ(r,8);y1:=Kol(r,8);
writeln('Сумма положительных Х1=',x1);
writeln('Количество нулевых  Y1=',y1);
writeln;
Vyvod(f,10,'F');
x2:=Summ(f,10);y2:=Kol(f,10);
writeln('Сумма положительных Х2=',x2);
writeln('Количество нулевых  Y2=',y2);
writeln;
writeln('S=',x1*x1*x1+x2*x2*x2+y1*y1*y1+y2*y2*y2);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2009, 16:55

Вычисление суммы положительных элементов каждой строки матрицы
Использование суб-функцию для вычисления суммы положительных элементов каждой...

Расчет суммы положительных элементов строки двумерного массива
написать программу для расчета суммы положительных элементов строки двумерного...

Вычислить в линейном числовом массиве суммы положительных и отрицательных элементов
Вычислить в линейном числовом массиве суммы положительных и отрицательных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru