Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/82: Рейтинг темы: голосов - 82, средняя оценка - 4.95
4 / 4 / 1
Регистрация: 15.04.2009
Сообщений: 63
1

Составить программу сокращения дроби

15.04.2009, 13:00. Показов 15412. Ответов 4
Метки нет (Все метки)

Здраствуйте! Прошу помощ! Программу надо написать в паскале....
12.Составить программу сокращения дроби , где M и N натуральные числа...
Я просо уже весь мозг переломал... инете, перепробывал много чего но не получается...
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2009, 13:00
Ответы с готовыми решениями:

Составить программу сокращения дроби
Здравствуйте! Помогите пожалуйста! Программу надо написать в паскале.... Составить программу...

Процедура сокращения дроби
Помогите, пожалуйста, составить программу. Пусть процедура Socr (a,b,p,q) от целых параметров...

Составить программу, сокращающую обыкновенные дроби
1.Составить программу, сокращающую обыкновенные дроби. 2.Создайте двумерный массив целых чисел....

Составить программу, сокращающую обыкновенные дроби
1.Составить программу, сокращающую обыкновенные дроби. 2.Бизнесмен взял ссуду m тысяч рублей в...

4
57 / 57 / 36
Регистрация: 17.03.2009
Сообщений: 105
15.04.2009, 14:29 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
Program Zadacha;
uses crt;
var
 i,m,n,c,j:integer;
 socr:boolean;
 
begin
 clrscr;
 c:=0;
 socr:=true;
 write('Vvedite cheslitel : ');readln(n);
 write('Vvedite znamenatel: ');readln(m);
 if m>0 then begin
 j:=n;
 writeln('Drob: ',n,'/',m);
 write('Rezultat: ');
 c:=n div m;
 n:=n-m*c;
 if n>1 then begin
    while socr do begin
       socr:=false;
       for i:=2 to n do begin
      if (n mod i=0) and (m mod i=0) then begin
         n:=n div i;
         m:=m div i;
         socr:=true;
      end;
       end;
    end;
 end;
 if j<>n then begin
    if c>0 then begin
       write(c,' celih ');
       if n>0 then write(n,'/',m);
    end else if n>0 then write(n,'/',m) else write(0);
 end else writeln('Drob ne socrashaetsya');
 end else writeln('Znamenatel ne moget bit raven 0!');
 readkey;
end.
0
4 / 4 / 1
Регистрация: 15.04.2009
Сообщений: 63
15.04.2009, 14:31  [ТС] 3
Спасибо за старания, но есть один минус мне нужно было её решить с помощью процедуры или фукции
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
15.04.2009, 14:34 4
ГОРАЗДО проще так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program socr;
uses crt;
var n,m,d:integer;
 
function NOD(n,m:integer):integer;
begin
 while n<>m do if m>n then m:=m-n else n:=n-m;
 nod:=m;
end;
 
begin
 clrscr;
 write('N M -> ');
 readln(n,m);
 d:=nod(n,m);
 n:=n div d;
 m:=m div d;
 
 writeln(n,'/',m);
 readln;
end.
2
4 / 4 / 1
Регистрация: 15.04.2009
Сообщений: 63
15.04.2009, 14:41  [ТС] 5
Спасибо болшое!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2009, 14:41

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

Составить программу для деления дроби на дробь
Помогите плз: Даны две дроби A/B и C/D (А, В, С, D — натуральные числа). Составить программу для...

Важно. Составить программу деления дроби на дробь
Составить программу деления дроби на дробь.(см. вложение)

Составить программу сокращения дроби, числитель которой равен Р, а знаменатель Q
с использованием процедуры нахождения наибольшего общего делителя

Создайте программу сокращения дроби M/N, где М, N — натуральные числа
Помогите решить пожалуйста эту задачу в Pascal ABC Создайте программу сокращения дроби M/N, где М,...


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

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

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