Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Qwe4334535
0 / 0 / 6
Регистрация: 10.12.2015
Сообщений: 27
#1

Найти частное от деления номеров минимального и максимального элементов в массивах С (13) и Т (12) - PascalABC.NET

18.04.2016, 22:17. Просмотров 258. Ответов 8
Метки нет (Все метки)

Найти частное от деления номеров минимального и максимального элементов в массивах С (13) и Т (12).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2016, 22:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти частное от деления номеров минимального и максимального элементов в массивах С (13) и Т (12) (PascalABC.NET):

Найти частное от деления максимального и минимального элементов двумерного массива
Двумерный массив: Найти частное от деления максимального и минимального...

Вычислить среднее геометрическое номеров максимального и минимального элементов массива С(12)
Помогите написать программу для Вычисления среднего геометрического номеров...

Найти частное от деления произведения элементов
Вот есть задача: дан массив А(20). Найти частное от деления произведения...

Найти сумму максимального и минимального элементов
1. Дан одномерный числовой массив.Найти сумму максимального и минимального...

Найти номера максимального и минимального элементов матрицы
Дана матрица, нужно найти номера максимального и минимального элементов (сами...

Найти произведение минимального и максимального элементов массива
Создать массив с элементами akn=n f (k) + sin (k) g (n), где k,n=1,2,3,4;...

8
Chilipalmer777
14 / 14 / 11
Регистрация: 20.03.2016
Сообщений: 168
19.04.2016, 00:45 #2
Qwe4334535, свой код покажи.
Что не получилось - минимум или максимум найти?
Или не знаешь как частное определить?(гугл вроде работает)
0
Cyber_Monster_
128 / 116 / 150
Регистрация: 22.03.2016
Сообщений: 475
19.04.2016, 01:28 #3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Внимание: Работоспособность программы не проверялась! Возможны дефекты!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  c,t: array of integer;
  cmi: integer:= 0;
  tma: integer:= 0;
begin
  c:= new integer[13];
  t:= new integer[12];
  for var i:integer:=0 to c.Length-1 do
    c[i]:=Random(20);
  for var i:integer:=0 to t.Length-1 do
    t[i]:=Random(20);
  for var i:integer:=1 to c.Length-1 do
    if c[i]<c[cmi] then cmi:= i;
  for var i:integer:=1 to t.Length-1 do
    if t[i]>t[tma] then tma:= i;
  Writeln(cmi/tma);
end.
0
Chilipalmer777
14 / 14 / 11
Регистрация: 20.03.2016
Сообщений: 168
24.04.2016, 02:06 #4
Cyber_Monster_, если считать что минимум и максимум нужно искать не в каждом из массивов, а соответственно Min() в С и Max() в Т, то можно было и проще написать:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// Найти частное от деления номеров минимального и максимального элементов в массивах С (13) и Т (12).
//
// (c) ChiliPalmer777
//
var
  c, t : array of integer;
 
begin
 
  c := ArrRandomInteger(13, 0, 100);
  t := ArrRandomInteger(12, 0, 100);
 
  write(' Частное = ');
 
  if t.IndexMax<>0 then writeln(c.IndexMin/t.IndexMax)
   else writeln(' Индекс максимального элемента массива Т равен нулю! ');
  
end.
p.s. А если в каждом из массивов, то добавится чуток кода.
0
Cyber_Monster_
128 / 116 / 150
Регистрация: 22.03.2016
Сообщений: 475
24.04.2016, 13:37 #5
Цитата Сообщение от Chilipalmer777 Посмотреть сообщение
если считать что минимум и максимум нужно искать не в каждом из массивов, а соответственно Min() в С и Max() в Т
Chilipalmer777, Я так и сделал. Смотрите код.

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  c,t: array of integer;
  cmi: integer:= 0;
  tma: integer:= 0;
begin
  c:= new integer[13];
  t:= new integer[12];
  for var i:integer:=0 to c.Length-1 do
    c[i]:=Random(20);
  for var i:integer:=0 to t.Length-1 do
    t[i]:=Random(20);
  cmi:= c[0];
  tma:= t[0];
  for var i:integer:=1 to c.Length-1 do
    if c[i]<c[cmi] then cmi:= i;
  for var i:integer:=1 to t.Length-1 do
    if t[i]>t[tma] then tma:= i;
  Writeln(cmi/tma);
end.
Добавлено через 1 минуту
Это наверное так прикольно, поднимать тему, на которую дали ответ 5 дней назад
0
Chilipalmer777
14 / 14 / 11
Регистрация: 20.03.2016
Сообщений: 168
25.04.2016, 02:20 #6
Cyber_Monster_, учитывая, что мы в ветке .NET зачем всё это вычислять кучей циклов, тратить ресурсы и время, если есть "встроенные" методы и свойства, которые дадут нужный результат за одно действие(в моём коде строки 15-16) ?

п.с. Кстати, у меня к вам вопрос - если tma в вашем коде будет равен нулю, какой результат увидит пользователь?(и как он догадается - что это означает)

п.с.2. А поднимать тему стоит - вдруг это кому-то будет полезно...
0
capricornus CF
25.04.2016, 07:23
  #7

Не по теме:

Цитата Сообщение от Chilipalmer777 Посмотреть сообщение
мы в ветке .NET зачем всё это вычислять кучей циклов, тратить ресурсы и время, если есть "встроенные" методы и свойства
А вы спросите у ТС, пойдет ему такое решение, или преподаватель работает на pabcnet только из за простоты установки , но по конспектам классического Паскаля.

0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25616 / 17169 / 6827
Регистрация: 22.10.2011
Сообщений: 30,364
Записей в блоге: 6
25.04.2016, 11:42 #8
Цитата Сообщение от capricornus CF Посмотреть сообщение
А вы спросите у ТС, пойдет ему такое решение
А это не наши проблемы. Решение должно быть правильным, красивым и изящным, а не таким, чтобы оно устроило преподавателя, закостеневшего еще во времена Турбо-Паскаля. Раздел называется PABC.NET, решение приводится с использованием возможностей данного компилятора, в чем проблема? Кстати, в TP нет и array of integer, чего бы еще и от него не отказаться, вдруг преподаватель не осилит это? А вдруг преподаватель не любит циклы for? А вдруг... Ну, в общем, идея должна быть понятна...
0
capricornus CF
25.04.2016, 12:11     Найти частное от деления номеров минимального и максимального элементов в массивах С (13) и Т (12)
  #9

Не по теме:

volvo, идея понятна и принимаема мной. Как минимум, теория предполагает и историю. И я за то, чтобы ученик понимал, в какой программе и что он делает. И даже хорошо, когда на одну и ту же задачу есть код простой и средствами PABC.net, сам этими дарами пользуюсь, но только когда есть такое решение, а не упрек/намек.

Цитата Сообщение от volvo Посмотреть сообщение
Кстати, в TP нет и array of integer
как нет? вы имеете ввиду объявление массивов без указания границ?

0
25.04.2016, 12:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2016, 12:11
Привет! Вот еще темы с ответами:

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

Найти среднее арифметическое минимального и максимального элементов массива
Задан одномерный массив А. Найти среднее арифметическое минимального и...

Найти среднее арифметическое максимального и минимального по модулю элементов матрицы
Найти среднее арифметическое максимального и минимального по модулю элементов...

Дан одномерный числовой массив. Найти сумму максимального и минимального элементов
Дан одномерный числовой массив.Найти сумму максимального и минимального...


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

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

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