Обыкновенные дроби.

@Юляшко · Регистрация: 02.03.2010

Студворк — интернет-сервис помощи студентам

Даны две дроби A/B и C/D (A, B, C, D – натуральные числа). Составить программу вычитания этих дробей. Результат должен быть несократимой дробью.

@Delphin_KKC · 12.03.2010, 17:40

Для этого нужны алгоритмы нахождения:
*наименьшего общего кратного - для вычисления знаменателя
*наибольшего общего делителя - для сокращения получившейся дроби
тогда:
x:=НОК(B,D);
y:=A*x/B-C*x/D;
z:=НОД(x,y);
x:=x/z;
y:=y/z;

Алгоритмы эти, помнится мне, где-то уже обсуждались на форуме.

@Юляшко · 15.03.2010, 18:08 **[ТС]**

эм...я не где не нашла....и как мне нужно написать программу?

@Delphin_KKC · 15.03.2010, 21:58

Найти НОК (наименьшее общее кратное) двух натуральных чисел
Пупорев писал программу. Вас должны интересовать две функции из неё:

Pascal
1
2
3
4
5
6
7
8
9
function NOD(x,y:integer):integer;//рекурсивная функция нахождения НОД
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
 
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y; 
end;

@Юляшко · 16.03.2010, 16:39 **[ТС]**

спасибо большое!!!

Добавлено через 11 минут
а дальше че писать то, чтоб программа подчитовала дробь?

@Юляшко · 20.03.2010, 17:53 **[ТС]**

Даны две дроби A/B и C/D (A, B, C, D – натуральные числа). Составить программу вычитания этих дробей. Результат должен быть несократимой дробью.

Pascal
1
2
3
4
5
6
7
8
9
function NOD(x,y:integer):integer;//рекурсивная функция нахождения НОД
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
 
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y; 
end;

а дальше что делать???

@Puporev · 20.03.2010, 18:38

Так попробуйте.

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
uses crt;
type
Natur = 1..high(longInt);{натуральные числа типа longint}
{нахождение НОД}
function Nod(a,b:Natur):Natur;
begin
if a<>0 then Nod:=Nod(b mod a,a)
else Nod:=b;
end;
var a,b,c,d,f,k:Natur;
    e:integer;
begin
clrscr;
writeln('Введите числители и знаменатели двух дробей ');
writeln(' Первая дробь:');
write('  числитель=');readln(a);
write('  знаменатель=');readln(b);
writeln(' Вторая дробь:');
write('  числитель=');readln(c);
write('  знаменатель=');readln(d);
clrscr;
e:=a*d-c*b;
f:=b*d;
k:=Nod(abs(e),f);
e:=e div k;
f:=f div k;
write(a,'/',b,' - ',c,'/',d,' = ',e,'/',f);
readln
end.

@Юляшко · 21.03.2010, 10:59 **[ТС]**

почему он пишет мне " неизвестный индификатор high" а когда вписываю его в var он пишет "ожидалось константное вырожение"?

@Puporev · 21.03.2010, 11:21

Юляшко, У Вас видимо паскаль АВС, а он тупой и не понимает это, попробуйте написать
Natur = 1..maxInt;если и это не поймет то
Natur = 1..2147483647;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Юляшко 2 / 2 / 1 Регистрация: 02.03.2010 Сообщений: 95

	Обыкновенные дроби. 10.03.2010, 18:19. Показов 12473. Ответов 8 Метки нет (Все метки) Даны две дроби A/B и C/D (A, B, C, D – натуральные числа). Составить программу вычитания этих дробей. Результат должен быть несократимой дробью. 0

@Delphin_KKC UNIX-way 712 / 495 / 49 Регистрация: 15.01.2009 Сообщений: 1,720
	12.03.2010, 17:40
	Для этого нужны алгоритмы нахождения: наименьшего общего кратного - для вычисления знаменателя наибольшего общего делителя - для сокращения получившейся дроби тогда: x:=НОК(B,D); y:=Ax/B-Cx/D; z:=НОД(x,y); x:=x/z; y:=y/z; Алгоритмы эти, помнится мне, где-то уже обсуждались на форуме. 0

@Юляшко 2 / 2 / 1 Регистрация: 02.03.2010 Сообщений: 95
	15.03.2010, 18:08 [ТС]
	эм...я не где не нашла....и как мне нужно написать программу? 0

@Юляшко 2 / 2 / 1 Регистрация: 02.03.2010 Сообщений: 95
	16.03.2010, 16:39 [ТС]
	спасибо большое!!! Добавлено через 11 минут а дальше че писать то, чтоб программа подчитовала дробь? 0

@Юляшко 2 / 2 / 1 Регистрация: 02.03.2010 Сообщений: 95
	21.03.2010, 10:59 [ТС]
	почему он пишет мне " неизвестный индификатор high" а когда вписываю его в var он пишет "ожидалось константное вырожение"? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	21.03.2010, 11:21
	Юляшко, У Вас видимо паскаль АВС, а он тупой и не понимает это, попробуйте написать Natur = 1..maxInt;если и это не поймет то Natur = 1..2147483647; 0