Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
-LEX-
0 / 0 / 3
Регистрация: 24.08.2012
Сообщений: 76
#1

Вычислить суммы положительных элементов массивов - Pascal

05.10.2015, 16:17. Просмотров 218. Ответов 1
Метки нет (Все метки)

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

Реализовать программу с использованием процедур, и функций.
http://www.cyberforum.ru/pascal/thread1636474.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.10.2015, 16:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить суммы положительных элементов массивов (Pascal):

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

Вычислить функцию L=2.7d-0.33sinb+e-c, где а,в,с- суммы элементов массивов Х, У, Z, соответственно, не премод
Вычислить функцию L=3.8d-0.66sinb+e-c, где а,в,с- суммы элементов массивов Х,...

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

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

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

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
06.10.2015, 13:21 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

какой паскаль? ваш умеет в динамические массивы?

Добавлено через 11 минут
Если таки умеет
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
type
    TArray = Array Of Double;
procedure PrintArray(const ar: TArray; const c: Char);
var
    i: Word;
begin
    Write(c, ':');
    for i := 0 to Length(ar) - 1 do
        Write(' ', ar[i]:0:2);
    WriteLn;
end;
procedure GenerateArray(var ar: TArray; const c: Char);
var
    i, n: Byte;
begin
    repeat
        Write('Input length of ', c, '(1..255): ');
        ReadLn(n);
    until (n > 0);
    SetLength(ar, n);
    for i := 0 to Length(ar) - 1 do
        ar[i] := Random * 50 - 25;
    PrintArray(ar, c);
end;
 
function SumPositiveInArray(const ar: TArray): Double;
var
    Result: Double;
    i: Byte;
begin
    Result := 0;
    for i := 0 to Length(ar) - 1 do
        if (ar[i] > 0)
        then
            Result := Result + ar[i];
    SumPositiveInArray := Result;
end;
procedure CopyPositiveToArray(const a, b: TArray; var c: TArray);
var
    i: Word;
begin
    SetLength(c, 0);
    for i := 0 to Length(a) - 1 do
        if (a[i] > 0)
        then
        begin
            SetLength(c, Length(c) + 1);
            c[Length(c) - 1] := a[i];
        end;
    for i := 0 to Length(b) - 1 do
        if (b[i] > 0)
        then
        begin
            SetLength(c, Length(c) + 1);
            c[Length(c) - 1] := b[i];
        end;
    WriteLn('Z array length: ', Length(c)); WriteLn;
    PrintArray(c, 'Z');
end;
var
    x, y, z: TArray;
begin
    Randomize;
    GenerateArray(x, 'X');
    GenerateArray(y, 'Y');
    GenerateArray(z, 'Z');
    WriteLn;
    WriteLn('Sum X=', SumPositiveInArray(x):0:2);
    WriteLn('Sum Y=', SumPositiveInArray(y):0:2);
    WriteLn('Sum Z=', SumPositiveInArray(z):0:2);
    WriteLn;
    CopyPositiveToArray(x, y, z);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2015, 13:21
Привет! Вот еще темы с решениями:

Найти произведение суммы четных и суммы нечетных элементов массивов
Здравствуйте. Прошу помощи в решении данной задачи, пытался сам ее сделать,но...

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

Среднее арифмет. положительных элементов трех массивов
Дано массивы А(10), В(8), С(6) Найти среднее арифметическое положительных...

суммы положительных элементов векторов
Даны два вектора R(8), F(10). Найти значение S=X1³+X2³+Y1³+Y2³, где X1, X2 –...


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

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

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