Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 03.06.2013
Сообщений: 91
1

Как отсортировать массив дробей

03.12.2013, 19:41. Просмотров 999. Ответов 1
Метки нет (Все метки)


Даны дроби P1/Q1, P2/Q2, ... , Pn/Qn (Pi, Qi - натуральные).
Составить программу, которая приводит эти дроби
к общему знаменателю и упорядочивает их по возрастанию.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.12.2013, 19:41
Ответы с готовыми решениями:

Как представить массив состоящий из дробей ?
и потом нужно максимальную дробь найти в этом массиве

Отсортировать список рациональных дробей, заданных в виде a/b
Отсортируйте список рациональных дробей, заданных в виде a/b. ВХОДНЫЕ ДАННЫЕ Программа получает...

Отсортировать массив по убыванию, затем добавить недостающий элемент и отсортировать массив по возрастанию
2) В массиве a ...a встречаются по одному разу все целые числа от 0 до n, кроме одного. За n...

Как отсортировать массив
Вот есть такая сортировка на плюсах void sort(Cpro *p, int N) { int i, k=1; Cpro q; while...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Заблокирован
03.12.2013, 20:55 2
Visual Basic
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
Option Explicit
Type PQ 'дробь
  p As Long 'числитель
  q As Long 'знаменатель
End Type
 
Sub SeRvErKrAuCh()
Const n As Long = 5 'к-во дробей
Dim a(1 To n) As PQ 'массив дробей
Dim i As Long, j As Long, Res As Long
Randomize
Debug.Print "Исходные дроби-"
For i = 1 To n 'заполнение
  a(i).p = Int(Rnd * 5) + 1 'числителей
  a(i).q = Int(Rnd * 5) + 6 'знаменателей
  Debug.Print a(i).p & "/" & a(i).q,
Next i
Debug.Print
Res = a(1).q 'ищем наименьший общий знаменатель
For i = 2 To UBound(a)
  Res = nok(Res, a(i).q)
Next i
For i = 1 To UBound(a) 'и приводим дроби к нему
  a(i).p = a(i).p * Res / a(i).q
  a(i).q = Res
Next i
For i = 1 To UBound(a) - 1 'сортируем
  For j = UBound(a) To i + 1 Step -1
    If a(i).p > a(j).p Then
      Res = a(i).p
      a(i).p = a(j).p
      a(j).p = Res
    End If
  Next j
Next i
Debug.Print "Отсортированные дроби-"
For i = 1 To UBound(a)
  Debug.Print a(i).p & "/" & a(i).q,
Next i
Debug.Print
End Sub
 
Function nok(ByVal a As Long, ByVal b As Long) As Long
    nok = (a * b) / nod(a, b)
End Function
 
Function nod(ByVal a As Long, ByVal b As Long) As Long
   While a > 0 And b > 0
     If a >= b Then a = a Mod b Else b = b Mod a
   Wend
   nod = a + b
End Function
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2013, 20:55

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Как отсортировать массив?
Помогите пожалуста очень срочно надо. у меня не получается(( вот прога, тока мне еще надо...

Как отсортировать массив?
Добрый день. Как стандартными средствами отсортировать вектор из целых чисел?

Как отсортировать массив
Можете пожалуйста помочь насчет джавки. 1.Как посчитать байт-кодов строки, которые находятся на...

Как отсортировать массив?
задание Есть массив: $arr = array( // id parent_id text array(1, 0, 'text_1'),...


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

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

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