Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 15

Образовать новый массив Q(N) путем умножения элементов массива P(N) на число

30.03.2012, 00:23. Показов 1842. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
ребята помогите пожалуйста с массивом! Горю!!
Даны массивы P(N) и R(N). Образовать новый массив Q(N) путем умножения элементов массива P(N) на порядковый номер минимального элемента массива R(N).Заранее благодарен.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.03.2012, 00:23
Ответы с готовыми решениями:

Массивы. Образовать новый массив путем умножения элементов массива А на минимальный элемент массива B
Даны массивы A(N) и B(N). Образовать новый массив C(N) путем умножения элементов массива A(N) на минимальный элемент массива B(N). В новом...

Образовать массив B (N, M) путем деления элементов массива A (N, M) на сумму его положительных элементов
помогите пожалуйста... Дан двумерный массив A(N,M). образовать массив B(N,M) путем деления элементов массива A(N,M) на сумму его...

Изменить исходный массив путем умножения элементов с нечетными индексами на число k
Не могу понять, как работать с подпрограммами в Бейсике? Задача: Даны два одномерных массива из N элементов каждый. Написать программу...

9
 Аватар для Kill100
434 / 299 / 82
Регистрация: 11.12.2010
Сообщений: 1,209
30.03.2012, 00:31
FARADEL,
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
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            int[,] A = new int[8, 10]; //в принципе его потом надо считать с экрана :)
            bool[] B = new bool[8];
 
            for (int i = 0; i < A.GetLength(0); i++)
            {
                string[] str = Console.ReadLine().Split(new char[] { ' ', '\n', '\t' }, StringSplitOptions.RemoveEmptyEntries);
                for (int j = 0; j < A.GetLength(1) - 1; j++)
                    A[i, j] = Convert.ToInt32(str[j]);
            }
 
            for (int i = 0; i < A.GetLength(0); i++)
                for (int j = 0; j < A.GetLength(1) - 1; j++)
                    if (A[i, j] > A[i, j + 1])
                        B[i] = true;
                    else
                    {
                        B[i] = false;
                        break;
                    };
            for (int i = 0; i < B.Length; i++)
                Console.Write(B[i] + " ");
            Console.ReadKey();
        }
    }
}
Кирилл С,
Массивы двумерные или одномерные?
Минимум надо искать самому или можно использовать встроенные функции в C#?

Не по теме:

Создай другую тему а то в чужой теме NO GOOD. Один вопрос - 1 тема по правилам :)

Миниатюры
Образовать новый массив Q(N) путем умножения элементов массива P(N) на число  
1
 Аватар для buntar
543 / 544 / 181
Регистрация: 16.03.2012
Сообщений: 1,160
Записей в блоге: 2
30.03.2012, 11:23
прога была написана для двух одномерных массивов размерностью [8].
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
namespace KirrilSarr
{
    class Program
    {
        static void Main(string[] args)
        {
            int n = 8;
            int [] P =new int [n];
            int [] R = new int [n];
 
            Console.WriteLine("Введите элементы массива P[]:");
            for (int i=0; i<n; i++)
                P [i] = Convert.ToInt32(Console.ReadLine());
 
            Console.WriteLine("Введите элементы массива R[]:");
            for (int i=0; i<n; i++)
                R [i] = Convert.ToInt32(Console.ReadLine());
 
            int num=0;
            int min = R[0];
 
            for (int i=0; i<n; i++)
            {
                if (min>R[i])
                {min=R[i];
                 num = i;}
            }
 
            Console.WriteLine("Минимальный елемент массива R[] = {0}", min);
            Console.WriteLine("Индекс минимального элемента массива R[] = {0}", num+1);
            
            int [] Q= new int [n];
            Console.WriteLine("Масив R[]: ");
            for (int i=0; i<n; i++)
            {
                Q[i] = P[i] * (num+1);
                Console.Write(Q[i]+" ");
            }
            Console.ReadLine();
        }
    }
}
Миниатюры
Образовать новый массив Q(N) путем умножения элементов массива P(N) на число  
0
 Аватар для Kill100
434 / 299 / 82
Регистрация: 11.12.2010
Сообщений: 1,209
30.03.2012, 11:37
Кирилл С,
Как то странно модератор сообщение перенес в реале код такой
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
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace ConsoleApplication1
{
    class Program
    {
        static Int32 MinIndex(Int32[] R)
        {
            Int32 Min = R[0], MinIndex = 0;
            for (Int32 i = 0; i < R.Length; i++)
            {
                if (Min > R[i])
                {
                    Min = R[i];
                    MinIndex = i;
                }
            }
            return MinIndex;
        }
 
        static void Print(Int32[] Mass)
        {
            for (Int32 i = 0; i < Mass.Length; i++)
            {
                Console.Write("{0} ", Mass[i]);//выводим на экран
            }
            Console.WriteLine();//просто переход на новую строку
        }
 
        static void Main(string[] args)
        {
            Console.WriteLine("Введите N:");
            Int32 N = Convert.ToInt32(Console.ReadLine());
            Int32[]
                R = new Int32[N],//Здесь ищем минимальный номер
                P = new Int32[N],
                Q = new Int32[N];//Новый
            Random rand = new Random();//генератор псевдо случайных чисел
 
            for (Int32 i = 0; i < Q.Length; i++)
            {
                R[i] = rand.Next(0, 100) - 50; //Случайное число от -50 до кажется 49....
                P[i] = rand.Next(0, 100) - 50;
            }
 
            Int32 minIndex = MinIndex(R);//ищем минимальный индекс
 
            for (Int32 i = 0; i < Q.Length; i++)
            {
                Q[i] = P[i] * minIndex;//умножаем индекс на массив и ложим в новый
            };
 
            Console.WriteLine("Минимальный индекс: {0}", minIndex);
            Console.WriteLine("R:");
            Print(R);
            Console.WriteLine("P:");
            Print(P);
            Console.WriteLine("Q:");
            Print(Q);
            Console.ReadLine();
        }
    }
}
1
 Аватар для andrew_w2k
341 / 341 / 90
Регистрация: 04.03.2010
Сообщений: 648
30.03.2012, 12:21
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
using System;
using System.Linq;
 
namespace ConsoleApplication9
{
    class Program
    {
        static void Main(string[] args)
        {
            Random rnd = new Random();
            double[] arrayP = Enumerable.Repeat(0, 10).Select(x => Math.Round(rnd.Next(-10, 10) * rnd.NextDouble(), 2)).ToArray();
            double[] arrayR = Enumerable.Repeat(0, 10).Select(x => Math.Round(rnd.Next(-10, 10) * rnd.NextDouble(), 2)).ToArray();
            Console.WriteLine(string.Join(" ", arrayP));
            Console.WriteLine(string.Join(" ", arrayR));
 
            int idMinOfR = Array.IndexOf(arrayR,arrayR.Min());
            Console.WriteLine("index of min element = " + idMinOfR);
 
            Console.WriteLine(string.Join(" ", arrayP.Select(x => x * idMinOfR)));
 
            Console.ReadKey();
        }
    }
}
1
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 15
08.04.2012, 19:44  [ТС]
спасибо что помогли ребята!, но не подходит! мне нужно составить программу в в pascal ABC! а это по всей видимости с++
вот образец похожей программы:какое точно задание не помню но пишется программа вот так>
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
Program z10;
var P;R; array[1..100] of real;
i;n;k1;k2:integer;
Begin
writeln('Введи n');
read(n); K1:=0; K2:=0; writeln ('Введи массив P');
for i:=1 to n do read p[i];
writeln ('Введи массив R');
for for i:=1 to n do read (r[i]);
for i:=1 to n do ;
 begin 
if P[i] then K1:= K1+1;
if R[i]=0 then K2:= K2+1;
end;
if K1>K2 then 
for i:=1 to n do
begin 
if P[i]>0 then P[i]:=exp(e*ln(P[i]));
if R[i]>0 then P[i]:exp(3*ln(B[i]));
end;
writeln('K1=',K1:5);
writeln ('K2',K2:5);
writeln ('Массив P');
for i:=1 to n do writeln (P[i]:10:3);
writeln ('Массив R');
for i:=1 to n do writeln (B[i]:10:3);
end.
Мое задание Даны массивы P(N) и R(N). Образовать новый массив Q(N) путем умножения элементов массива P(N) на порядковый номер минимального элемента массива R(N)
Я новичек в этом деле , в школе информатики не было а в вуз на те(
0
 Аватар для Kill100
434 / 299 / 82
Регистрация: 11.12.2010
Сообщений: 1,209
08.04.2012, 19:56
Кирилл С,
Так ты сам написал вопрос в раздел C# мы тебе на C# и написали
Насчет ABC не знаю я вобще о нём 2 раз слышу но просто на паскале могу написать если надо.
0
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 15
08.04.2012, 20:01  [ТС]
я вроде бы в pascal ABC писал извини что время потратили, ты в таком примерно типе можешь как вверху образец??
0
 Аватар для Kill100
434 / 299 / 82
Регистрация: 11.12.2010
Сообщений: 1,209
08.04.2012, 20:57
Как то так код не идеален так как паскаль открывал последний раз года полтора назад
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
program Project2;
function MinIndex(MASS: array of integer; N:integer):integer;
    var   Min, minind, I:integer;
    begin
        Min :=MASS[0];
        minind:=0;
              for I := 0 to N do
                if(MASS[I]<Min)then
                  begin
                    Min:=MASS[I];
                    minind:=I;
                  end;
        MinIndex:=minind;
    end;
var n,I, MinInd : integer;  {*Длинна массива*}
var P: array [0..100]of integer;
var R: array [0..100]of integer;
var Q: array [0..100]of integer;
begin
    write('Введите длинну: ');
    readln(n);
n:=n-1;
        writeln('Введите P(n): ');
      for I := 0 to n do
         readln(P[I]);
                 writeln('Введите R(n): ');
      for I := 0 to n do
         readln(R[I]);
     MinInd:= MinIndex(R,n);
      for I := 0 to n do
         Q[I]:=P[I]*MinInd;
         writeln('MinIndex: ',MinInd);
     writeln('P(n): ');
      for I := 0 to n do
         write(' ',Q[I]);
 
readln;
end.
1
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 15
08.04.2012, 21:12  [ТС]
спасибо тебе огромное за помощь !!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.04.2012, 21:12
Помогаю со студенческими работами здесь

Образовать новый массив z (z1, z2, …, z5), элементы которого – суммы пяти последовательных элементов массива y. Печатать z.
Дан одномерный массив y (y1, y2, …, y25). Образовать новый массив z (z1, z2, …, z5), элементы которого – суммы пяти последовательных...

Получить 2 массив путем умножения элементов первого массива к частному максимального и среднего арифметического числа
1-ый массив в нем считается максимальный элемент среднего арифметического числа получить второй массив путем умножения элементов первого...

Дан массив a[n,m]. Получить новый массив путем деления всех элементов исходного массива на элемент, наименьший по модулю
Дан массив a. Получить новый массив путем деления всех элементов исходного массива на элемент, наименьший по модулю. Элементы исходного...

Задан массив. Получить из него новый массив путем деления элементов каждой из строк первого массива на элемент этой строки
Задан массив А. Получить из него новый массив путем деления элементов каждой из строк первого массива на элемент этой строки, стоящий по...

Сформировать новый массив путем перевода элементов начального массива в десятичную систему
Здравствуйте, у меня есть такое задание: Дан массив что складывается из чисел двоичной системы счисления . Сформировать новый массив...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru