3 / 3 / 0
Регистрация: 28.10.2012
Сообщений: 17
1

Поменять местами большой элемент с маленьким и найти произведение всех элементов массива

30.10.2012, 21:31. Показов 745. Ответов 12
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Поменять местами большой элемент с маленьким и найти произведение всех элементов массива
0
30.10.2012, 21:31
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.10.2012, 21:31
Ответы с готовыми решениями:

Поменять местами самый большой элемент с самым маленьким.
Нужно решить задачу по паскалю... задача звучит так: Дана последовательность х1,х2,…,хn. Поменять местами самый большой элемент с самым...

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

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

12
19 / 18 / 7
Регистрация: 30.09.2012
Сообщений: 35
30.10.2012, 23:42 2
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
74
75
76
77
78
79
80
81
82
83
84
85
86
var masm:array[1..4] of integer;
   s,iint,r1,r2 ,a,b,c,d,w,w1: integer;
   b1,b2,p : Boolean;
begin
      iint := 1;
      repeat
 
      iint := iint + 1;
      ReadLn(masm[1],masm[2],masm[3],masm[4]);
 
      until iint = 2;
      writeLn(a,b,c,d);
      s := a*b*c*d;
      WriteLn(s);
 a := masm[1];
b := masm[2];
c := masm[3];
d := masm[4];
WriteLn(ord(masm[1]));
WriteLn(ord(masm[2]));
WriteLn(ord(masm[3]));
WriteLn(ord(masm[4]));
ReadLn;
repeat
if (masm[1]<masm[2]) and (masm[1]<masm[3])and(masm[1]<masm[4])  then
b1 := True
else if  (masm[1]>masm[2])and(masm[1]>masm[3]) and (masm[1]>masm[4]) then
b2 := True else break;
If b1 = true then  masm[1] := r1 else
if b2 = true then
   masm[1] := r2 else break;
   p := True;
until p = true;
 
 
 
repeat
if (masm[2]<masm[1]) and (masm[2]<masm[3])and(masm[2]<masm[4]) then
b1 := True
else if (masm[2]>masm[1]) and (masm[2]>masm[3])and(masm[2]>masm[4])  then
b2 := True else break;
If b1 = true then masm[2] := r1 else
if b2 = true then
   masm[2] := r2 else break;
 
   p := True;
until p = True;;
 
repeat
if (masm[3]<masm[1]) and (masm[3]<masm[2])and(masm[3]<masm[4])  then
b1 := True
else if (masm[3]>masm[1]) and (masm[3]>masm[2])and(masm[3]>masm[4])  then
b2 := True else break;
If b1 = true then masm[3] := r1 else
   if b2 = true then
   masm[3] := r2 else break;
   p := True;
until p = True;;
 
repeat
if (masm[4]<masm[1]) and (masm[4]<masm[2])and(masm[4]<masm[3])  then
b1 := True
else if (masm[4]>masm[1]) and (masm[4]>masm[2])and(masm[4]>masm[3])  then
b2 := True else break;
If b1 = true then masm[4] := r1 else
   if b2 = true then
   masm[4] := r2 else break;
   p := True;
until p = True;;
repeat
if (b1 = False) and (b2 = False) then break else
 
s := a*b*c*d;
writeLn('Otvet',s);
ReadLn;
WriteLn('min',ord(r1),'max ',ord(r2));
WriteLn('min := big,big := min');
r1 := w;
r2 := w1;
r1 := w1;
r2 := w;
WriteLn(r2,r1);
until (b1 = true) and (b2 = true);
WriteLn('end');
ReadLn;
end.
Только произведение массивов.В нахождении наименьшего и наибольшего(только моя задумка написанная на бумаге)...надеюсь...ошибка не существенная).
1
 Аватар для Amator
1047 / 381 / 15
Регистрация: 11.11.2008
Сообщений: 3,155
30.10.2012, 23:46 3

Не по теме:

Не понял автора предыдущего сообщения, код при запуске выдал что то не понятное


Размер массива и тип элементов любой?
0
19 / 18 / 7
Регистрация: 30.09.2012
Сообщений: 35
30.10.2012, 23:53 4
Выдал в конце ответ, произведения массивов.Можно немного видоизменить программу для понятности.Напр. добавить для себя writeLn('Введите число') или убрать не нужные writeLn.
К тому же я написа что это задумка написанная мной и содержит ошибку в сравнении массивов.
Возможно эту задачу можно решить другим способом без сравнения массивов,но как?
-Я не знаю.Сравнение массивов это стандартный способ(на сколько я знаю)решения данных задач,но применение массивов(я составлял схему работы программы) для меня кажется более правельным.
0
148 / 111 / 83
Регистрация: 09.09.2011
Сообщений: 274
30.10.2012, 23:54 5
господи, зачем все так усложнено? какие то прерывания циклов, переменныe логический все делается просто в данном примере.

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
var a:array [1..100] of integer;
      i,n,max,min,k,nmax,nmin:integer;
      pro:longint;
begin
write('N=');
readln(n);
for i:=1 to n do                      /*Заполняем массив*/
 begin
  write('A[',i,']=');
  readln(a[i]);
 end;
 
max:=a[1];
min:=a[1];
pro:=1;
for i:=1 to n do               
 begin
  pro:=pro*a[i];             /*Находим произведение*/
  if a[i]>max then 
   begin
     max:=a[i];
     nmax:=i;                 /*Нашли номер максимального*/
   end;
  if a[i]<min then
   begin
     min:=a[i];
     nmin:=i;                   /*Нашли номер минимального*/
   end;
 end;
 
k:=a[nmax];                   /*Меняем местами*/
a[nmax]:=a[nmin];
a[nmin]:=k;
 
for i:=1 to n do
 write(a[i],' ');
 
readln
end.
0
 Аватар для Amator
1047 / 381 / 15
Регистрация: 11.11.2008
Сообщений: 3,155
30.10.2012, 23:58 6
Вот мой код
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program swap_proizv;
 
var
  a: array [1..10] of real;
  p, proizv: real;
  i, maxi, mini: integer;
 
begin
  writeln('Vvedite massiv');
  for i := 1 to 10 do readln(a[i]);
  maxi := 1;
  mini := 1;
  for i := 2 to 10 do if (a[i] > a[maxi]) then maxi := i;
  for i := 2 to 10 do if (a[i] < a[mini]) then mini := i;
  p := a[mini];
  a[mini] := a[maxi];
  a[maxi] := p;
  proizv := 1;
  for i := 1 to 10 do proizv := proizv * a[i];
  writeln('Proizvedenie ravno', proizv);
  readln;
end.
1
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
30.10.2012, 23:59 7
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
const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,min,max,tmp,imn,imx: integer;
  p: longint;
begin
  write('Введите размер массива n: ');
  readln(n);
  p:=1;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    p:=p*a[i];
    write(a[i]:4);
  end;
  writeln;
 
  writeln('Произведение элементов массива = ',p);
 
  imn:=1; imx:=1;
  for i:=2 to n do
    if a[i]>a[imx] then
      imx:=i
        else 
          if a[i]<a[imn] then
            imn:=i;
  tmp:=a[imx];
  a[imx]:=a[imn];
  a[imn]:=tmp;
  writeln('Преобразованный массив:');
    for i:=1 to n do write(a[i]:4);
  readln;
end.
0
 Аватар для Amator
1047 / 381 / 15
Регистрация: 11.11.2008
Сообщений: 3,155
30.10.2012, 23:59 8
Pascal
1
2
3
4
5
6
readln(n);
for i:=1 to n do                      /*Заполняем массив*/
 begin
  write('A[',i,']=');
  readln(a[i]);
 end;
@stimo15, a если ввести n>100, что тогда будет?
0
3 / 3 / 0
Регистрация: 28.10.2012
Сообщений: 17
31.10.2012, 00:00  [ТС] 9
Размер массива от 1 до 10
0
148 / 111 / 83
Регистрация: 09.09.2011
Сообщений: 274
31.10.2012, 14:06 10
Цитата Сообщение от Amator Посмотреть сообщение
Pascal
1
2
3
4
5
6
readln(n);
for i:=1 to n do                      /*Заполняем массив*/
 begin
  write('A[',i,']=');
  readln(a[i]);
 end;
@stimo15, a если ввести n>100, что тогда будет?
размер от 1 до 10, такие дела!
0
 Аватар для Amator
1047 / 381 / 15
Регистрация: 11.11.2008
Сообщений: 3,155
31.10.2012, 16:03 11
Цитата Сообщение от stimo15 Посмотреть сообщение
размер от 1 до 10, такие дела!
Я говорю не о конкретной задаче. Я говорю для общего случая - если допустим пользователь введет n>100? Array index is out of bounds?
0
148 / 111 / 83
Регистрация: 09.09.2011
Сообщений: 274
31.10.2012, 19:42 12
Цитата Сообщение от Amator Посмотреть сообщение
Я говорю не о конкретной задаче. Я говорю для общего случая - если допустим пользователь введет n>100? Array index is out of bounds?
Я не пойму чего вы от меня хотите?
0
 Аватар для Amator
1047 / 381 / 15
Регистрация: 11.11.2008
Сообщений: 3,155
31.10.2012, 19:48 13
Я говорю о заполнении массива. При n>100 куда цикл будет считывать данные для ячеек 101, 102 и т.д.?
0
31.10.2012, 19:48
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
31.10.2012, 19:48
Помогаю со студенческими работами здесь

В матрице найти самый большой элемент и вычислить суммы всех элементов столбца и всех элементов строки
помогите сделать программу!!!!!

В массиве из 10 элементов найти наименьший элемент и поменять его местами с последним элементом массива
В массиве из 10 элементов найти наименьший элемент и поменять его местами с последним элементом массива. Как тут вывести ответ на лейбл? ...

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

Найти произведение всех нечётных элементов массива (или максимальный отрицательный элемент)
Дан массив из n элементов. Если самый большой элемент превосходит самый маленький более чем в два раза, то найдите произведение всех...

Поменять местами самый первый элемент массива и самый большой
Вводится какой-нибудь массив, поменять местами самый первый элемент массива и самый большой


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ключевые слова Python
hw_wired 15.02.2025
Ключевые слова в Python - это специальные зарезервированные слова, которые имеют особое значение и функции в языке. В настоящее время Python включает 35 ключевых слов и 4 мягких ключевых слова. Эти. . .
Отличия изменяемых и неизменяемых типов в Python
hw_wired 15.02.2025
В Python существует принципиальное различие между изменяемыми (mutable) и неизменяемыми (immutable) типами данных, которое оказывает существенное влияние на работу программ. Это различие часто. . .
Python: сравнение списков и кортежей
hw_wired 15.02.2025
В Python последовательности являются одними из самых важных и часто используемых типов данных. Они позволяют хранить упорядоченные наборы элементов, к которым можно обращаться по индексу. Среди всех. . .
Как скачивать файлы с URL с помощью Python
hw_wired 15.02.2025
Для скачивания файлов Python предлагает как встроенные средства, так и сторонние библиотеки. Встроенный модуль urllib из стандартной библиотеки обеспечивает базовую функциональность для работы с URL. . .
Использование SQLAlchemy в Python
hw_wired 15.02.2025
SQLAlchemy - мощная библиотека для работы с базами данных в Python, которая предоставляет полноценный набор средств для объектно-реляционного отображения (ORM) и обширные возможности для работы с. . .
Взаимодействие с REST API в Python
hw_wired 15.02.2025
В современном мире разработки программного обеспечения REST API стал неотъемлемой частью архитектуры веб-приложений. API (Application Programming Interface) - это набор правил и протоколов,. . .
Разделение строк в Python
hw_wired 15.02.2025
Python предлагает богатый набор возможностей для работы со строками, и среди них разделение строк занимает особое место. Этот процесс позволяет разбивать текст на отдельные компоненты, что критично. . .
Объединение строк в Python
hw_wired 15.02.2025
При работе с текстовыми данными в Python нередко возникает необходимость объединять несколько строк в одну. Это может потребоваться при форматировании вывода, обработке текстовых файлов или создании. . .
Лучшие игровые движки на Python
hw_wired 15.02.2025
В последнее время разработка игр стала одним из самых популярных направлений программирования, и Python не остался в стороне от этого тренда. Несмотря на то, что Python обычно не ассоциируется с. . .
Декоратор jit в Python
hw_wired 15.02.2025
Если вы достаточно долго изучаете программы и пакеты на Python для машинного обучения, то наверняка замечали, что паттерн "JIT-декоратор" довольно популярен. Этот подход позволяет превратить обычные. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru