Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 21.04.2019
Сообщений: 6

В одномерном массиве, состоящем из n вещественных элементов, вычислить;

20.09.2019, 14:10. Показов 1263. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1. В одномерном массиве, состоящем из n вещественных элементов, вычислить;
1) сумму положительных элементов массива;
2) произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами.
Упорядочить элементы массива по убыванию.

2. В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) произведение положительных элементов массива;
2) сумму элементов массива, расположенных до минимального элемента.

Упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы, стоящие на нечетных местах.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.09.2019, 14:10
Ответы с готовыми решениями:

В одномерном массиве, состоящем из n вещественных элементов, вычислить;
Произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами. Упорядочить элементы...

В одномерном массиве состоящем из n вещественных элементов
Ребят есть код программы: uses crt; const n=10; var m:arrayof integer; i,j,k,min:integer; begin clrscr; ...

В одномерном массиве, состоящем из n целых элементов, вычислить номер максимального элемента массива
В одномерном массиве, состоящем из n целых элементов, вычислить 1) номер максимального элемента массива; 2) произведение элементов...

1
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 22
20.09.2019, 17:36
Решение первой задачи:
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
{$reference NETSquirrel.dll}
uses NETSquirrel.Utils;
 
const
  ErrorMessage = 'The input error was encountered. The non-filled array will be returned.';
  
begin
  var count := 1;
  try
    count := Abs(BaseTypesUtils.ReadInt('Array length:'));
  except
    on Exception do
      'Invalid length.'.PrintLine();
  end;
  
  // Обработчик ошибки использован для того, чтобы в случае неверного ввода программа не упала.
  var a := ArraysUtils.ReadDoubleArray(count, procedure(error) -> ErrorMessage.PrintLine());
  'Sum: '.Print();
  a.Where(x -> x > 0).Sum().PrintLine();
  
  var a2 := a.Select(x -> Abs(x)).ToArray();
  var (i, j) := (a2.IndexMin(), a2.IndexMax());
  
  'Multiplication result: '.Print();
  a.Select((x, index) -> index.IsBetween(i, j) ? x : 1).Aggregate((a, b) -> a * b)
    .PrintLine();
  
  'Sort result: '.Print();
  a.OrderBy().PrintLine();
end.
Использована NETSquirrel.

Кликните здесь для просмотра всего текста
Пример написан с целью демонстрации использования библиотеки.


При неверном вводе будет возвращён массив указанной длины, содержащий 0-и. Также, хочется заметить, что при вводе массива подсказка отображается при вводе каждого элемента. Данное решение на C# (с мелкими поправками) также будет работать.

C#
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
74
75
76
using NETSquirrel.Extensions;
using NETSquirrel.Utils;
using System;
using System.Linq;
 
namespace Test
{
    internal static class Program
    {
        public static int MinIndex<T>(this T[] array) where T: IComparable<T>
        {
            if (array is null)
                throw new ArgumentNullException(nameof(array));
            if (array.Length == 1)
                return 0;
 
            int j = 0;
            T min = array[0];
            for (int i = 1; i < array.Length; i++)
                if (array[i].CompareTo(min) < 0)
                {
                    j = i;
                    min = array[i];
                }
 
            return j;
        }
 
        public static int MaxIndex<T>(this T[] array) where T : IComparable<T>
        {
            if (array is null)
                throw new ArgumentNullException(nameof(array));
            if (array.Length == 1)
                return 0;
 
            int j = 0;
            T max = array[0];
            for (int i = 1; i < array.Length; i++)
                if (array[i].CompareTo(max) > 0)
                {
                    j = i;
                    max = array[i];
                }
 
            return j;
        }
 
        private static void Main(string[] args)
        {
            const string errorMessage = "The input error was encountered. The non-filled array will be returned.";
            int count = 1;
            try
            {
                count = Math.Abs(BaseTypesUtils.ReadInt("Array's length:"));
            }
            catch (Exception)
            {
                "Invalid length.".PrintLine();
            }
 
            double[] a = ArraysUtils.ReadDoubleArray(count, error => errorMessage.PrintLine());
            "Sum: ".Print();
            a.Where(x -> x > 0).Sum().PrintLine();
 
            double[] a2 = a.Select(x => Math.Abs(x)).ToArray();
            (int i, int j) = (a2.MinIndex(), a2.MaxIndex());
 
            "Multiplication result: ".Print();
            a.Select((x, index) => index.IsBetween(i, j) ? x : 1).Aggregate((first, last) => first * last)
              .PrintLine();
 
            "Sort result: ".Print();
            a.OrderBy().PrintLine();
        }
    }
}
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.09.2019, 17:36
Помогаю со студенческими работами здесь

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
в одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) Максимальный по модулю элемент массива 2) Сумму элементов...

В одномерном массиве, состоящем из N вещественных элементов, вычислить
В одномерном массиве, состоящем из N вещественных элементов, вычислить: 1) количество элементов массива, равных 0; 2) сумму элементов...

в одномерном массиве состоящем из n вещественных элементов вычислить.
1. Количество элементов массива равных нулю 2. Сумму элементов массива, расположенных после минимального элемента. Упорядочить элементы...

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. В одномерном массиве, состоящем из n вещественных элемен- тов, вычислить: 1) сумму отрицательных элементов массива; 2)...

В одномерном массиве, состоящем из n вещественных элементов, вычислить
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1.Максимальный элемент массива. 2. Сумму элементов массива,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru