Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
ktotonokto
3 / 3 / 1
Регистрация: 22.10.2013
Сообщений: 16
#1

Из диапазона [p,q] найти все правильные несократимые дроби - Turbo Pascal

30.12.2013, 03:18. Просмотров 461. Ответов 2
Метки нет (Все метки)

Одногруппник попросил помочь, но тут ужас просто...

Задача: Из диапазона [p,q] найти все правильные несократимые дроби.
Подпрограмма: НОД.

Решение вроде есть, но нужно сделать так, чтобы диапазон вводился с клавиатуры:

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
  uses crt;
  const n=10;
  type
  frac=record
 
  p,q:1..n;
  end;
  function Nod(m,n:byte):byte;
begin
  while m<>n do
  if m>n then m:=m-n else n:=n-m;
  Nod:=m;
end;
  var m:array[1..(n*n+n) div 2] of frac;
      k,i,j:byte;
      x:frac;
begin
  clrscr;
  k:=0;
  for i:=1 to n do
    for j:=1 to n do
      if(i<j)and (Nod(j,i)=1)then begin
        k:=k+1;
        m[k].p:=i;
        m[k].q:=j;
      end;
  for i:=1 to k-1 do
    for j:=i+1 to k do
      if m[i].p/m[i].q> m[j].p/m[j].q then begin
        x:=m[i];
        m[i]:=m[j];
        m[j]:=x;
      end;
  for i:=1 to k do
    write(m[i].p,'/',m[i].q,' ');
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.12.2013, 03:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Из диапазона [p,q] найти все правильные несократимые дроби (Turbo Pascal):

Найти все правильные несократимые дроби для двух чисел
Даны два числа N и M (0\leq M&lt;N\leq 100). Задача состоит в том, чтобы найти все...

Найти все простые несократимые дроби, заключены между 0 и 1
Помогите решить в паскале задачу: Найти все простые несократимые...

Найти для натур. N находит все обыкновенные несократимые дроби со знаменателем не превосходящим N
Всем доброго вечера!!!! Задачка такая: Составить программу, которая для...

Найти несократимые дроби
Заданы натуральные числа a, b, c, d, e, f, g, h. Найти несократимые дроби,...

Вывести в порядке возрастания все обыкновенные несократимые дроби
91. Вывести в порядке возрастания все обыкновенные несократимые дроби, ...

Написать в порядке возрастания все простые несократимые дроби от 0 до 1, знаменатель которых не превышает 7
Написать в порядке возрастания все простые несократимые дроби от 0 до 1,...

2
Новичок
Модератор
1482 / 949 / 457
Регистрация: 17.07.2012
Сообщений: 4,888
Завершенные тесты: 3
31.12.2013, 22:15 #2
Цитата Сообщение от ktotonokto Посмотреть сообщение
Из диапазона [p,q]
Не пойму условие,p и q-целые что ли?Или p и q-рациональные?
0
GreenForest
50 / 42 / 24
Регистрация: 05.12.2013
Сообщений: 275
31.12.2013, 23:23 #3
Цитата Сообщение от ktotonokto Посмотреть сообщение
p,q:1..n;
тогда вот эта строчка не нужна, и нужно прописать ввод этих двух переменных.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.12.2013, 23:23
Привет! Вот еще темы с решениями:

Напечатать все простые несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7, в порядке возрастания.
Напечатать все простые несократимые дроби, заключенные между 0 и 1, знаменатели...

Задача несократимые дроби
На вход программы подаются два числа N и M (1&lt;=M&lt;N&lt;=200). Ваша задача состоит в...

Найти все числа диапазона, кратные 3
Найдите все натуральные числа от 1 до 1000, кратные 3, с использованием...

Вывести все четные и нечетные числа из диапазона диапазона от А до В включительно
Помогите решить: Вывести все четные и нечетные числа из диапазона от А до В...


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

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

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