Сложение двух дробей (перевести код с Pascal)

@joundlevel · Регистрация: 05.12.2013

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

Здравствуйте!Ребят,скажите,кто-нибудь может,пожалуйста, помочь с переводом Паскаль программы на Яву?
Буду очень благодарен!

Спасибо!

@parsila · 10.02.2014, 23:01

Именно перевод программы? Некоторым проще с нуля написать на Яве, чем переводить с Паскаля.

@joundlevel · 10.02.2014, 23:51 **[ТС]**

Мне для реферата просто надо,реалезация на разных языках так сказать,в паскале программа есть,а вот на яве как то затрудняюсь сделать,пока что малавато опыта.(говорить нет уже тоже поздно)

@tankomaz · 11.02.2014, 00:12

код то где? выкладывайте - чем сможем, тем поможем

@joundlevel · 11.02.2014, 00:52 **[ТС]**

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
program drobi;
uses crt;
var m,n,m1,n1:word;
NOD,NOK,k,k1,co,co1,otv:integer;
x,y,e,f:integer;
i,c,j:integer;
socr:boolean;
begin
clrscr;
  writeln('     Slozenije');
  writeln('VVedite pervuju drobj');
  readln;
  writeln('cislitelj/znamenatelj');
 
 
  read(k);
  writeln('-');
  read(m);
 
  writeln('VVedite vtoruju drobj');
  writeln('cislitelj/znamenatelj');
  read(k1);
  writeln('-');
  read(n);
 
   x:=m div n;
   y:=n div m;
 
  m1:=m;
  n1:=n;
 
  while m<>n do begin
   if m>n then m:=m-n
          else n:=n-m
                 end;
  NOK:=m;
 { writeln('NOK=',nok);}
 
  NOD:=(m1*n1) div NOK;
 { writeln('NOD=',NOD);
  readln;}
 
  e:=nod div m1;
  F:=nod div n1;
 
if NOD=n1 then begin otv:=(y*k)+k1 end else
if NOK=1 then begin otv:=(k*n1)+(k1*m1) end else
if m mod n=0 then begin co1:=x*k1 ;otv:=co1+k end;
if NOD>m+n then begin co1:=e*k;co:=f*k1;otv:=co+co1 end;
 
 writeln('----------------------');
 write('Otvet= ',k,'/',m1,' + ',k1,'/',n1,' = ',otv,'/',NOD);
 
c:=0;
socr:=true;
 
 if NOD>0 then begin
 j:=otv;
 
 write(' => ');
 c:=otv div NOD;
 otv:=otv-NOD*c;
 if otv>1 then begin
    while socr do begin
       socr:=false;
       for i:=2 to n do begin
      if (otv mod i=0) and (NOD mod i=0) then begin
         otv:=otv div i;
         NOD:=NOD div i;
         socr:=true;
      end;
       end;
    end;
 end;
 if j<>otv then begin
    if c>0 then begin
       write(c,' ');
       if otv>0 then write(otv,'/',NOD);
    end else if otv>0 then write(otv,'/',NOD) else write(0);
 end else write('Drobj ne sokrasjaetsja ');
 end;
 readkey;
 
 readln;
end.

@tankomaz · 11.02.2014, 02:56

А как задание звучит?

@joundlevel · 11.02.2014, 16:20 **[ТС]**

Это сложение двух дробей,программа находит общий знаменатель(если надо),складывает,а потом сокращает ответ,находит целую часть и т.п. (опять же,если необходимо)

Добавлено через 11 часов 20 минут
help pleeease

@RomanovD · 11.02.2014, 21:00

сейчас поправлю код

Добавлено через 5 минут

Java
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
public class Fraction
{
    public static void reduceFraction(int numerator , int denominator) {
        int i = 2;
        int maxDivisor  = numerator <= denominator ? numerator : denominator;
        while ( maxDivisor >= i) {
            if (numerator % i == 0 && denominator % i == 0) {
                numerator /= i;
                denominator /= i;
                continue;
            }
            i++;
        }
        System.out.print("" + numerator + " / " + denominator);
    }
 
    public static void main(String[] args) {
        int a, b, c, d;  // a/b + c/d
        a = 500;
        b = 750;
        c = 1680;
        d = 2640;
        int numerator = a*d+c*b;
        int denominator = b*d;
        System.out.print("" + a + " / " + b + " + " + c + " / " + d);
        System.out.print(" = " + numerator + " / " + denominator + " = ");
        reduceFraction(numerator, denumerator);
    }
}

@joundlevel · 12.02.2014, 01:54 **[ТС]**

У меня почему то подчёркивает denumerator в 27ой строке и не запускает ничего

Добавлено через 3 минуты
Сам понял,слово неправельно написанно просто

Добавлено через 41 минуту
Спасибо огромное за прогу!
А как ещё её дописать,чтобы целую часть при необходимости вынимала?

@tankomaz · 12.02.2014, 02:11

if (a % b == 0) ...

@RomanovD · 12.02.2014, 07:56

в методе дописать вместо

Java
1
System.out.print("" + numerator + " / " + denominator);

Java
1
System.out.print("" + numerator / denominator + " " + numerator % denominator + " / " + denominator);

@joundlevel · 13.02.2014, 14:46 **[ТС]**

Java
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
import java.util.Scanner;
 
public class Fraction
{
    public static void reduceFraction(int numerator , int denominator) {
        int i = 2;
        int maxDivisor  = numerator <= denominator ? numerator : denominator;
        while ( maxDivisor >= i) {
            if (numerator % i == 0 && denominator % i == 0) {
                numerator /= i;
                denominator /= i;
                continue;
            }
            i++;
        }
        if (numerator > denominator)
        {
            System.out.print("= " + numerator / denominator + " " + numerator %            denominator + "/" + denominator);
            }
        else {
            System.out.print("=" + numerator + "/" + denominator);
            }
    }
    
    public static void main(String[] args) {
        Scanner input = new Scanner(System.in);
        int a, b, c, d;
        
        System.out.println("         Сложение");
        System.out.println("-------------------------------");
        System.out.println("          первая дробь");
        System.out.println("числитель:");
        a = input.nextInt();
        System.out.println(" знаменатель:");
        b = input.nextInt();
        
        System.out.println("            Вторая дробь");
        System.out.println(" числитель:");
        c = input.nextInt();
        System.out.println("знаменатель:");
        d = input.nextInt();
        int numerator = a*d+c*b;
        int denominator = b*d;
        
        System.out.print("Ответ: " + a + "/" + b + " + " + c + "/" + d);
       
 
        reduceFraction(numerator, denominator);
    }
}

Я вот так вот подправил прогу.
Что надо дописать и куда,чтобы после ответа выходил вопрос-Хотите повторить?(да,нет).Если пишешь да,то он заново начинает-Первая дробь,введите числитель......Если пишешь нет-то он пишет спасибо за работу!
Я уже всё переискал,ничего подобного не нашёл

@RomanovD · 13.02.2014, 15:07

Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
do {
            Scanner input = new Scanner(System.in);
            int a, b, c, d;
            System.out.println("         Сложение");
            System.out.println("-------------------------------");
            System.out.println("          Первая дробь");
            System.out.println("числитель:");
            a = input.nextInt();
            System.out.println("знаменатель:");
            b = input.nextInt();
            System.out.println("          Вторая дробь");
            System.out.println("числитель:");
            c = input.nextInt();
            System.out.println("знаменатель:");
            d = input.nextInt();
            int numerator = a*d+c*b;
            int denominator = b*d;
            System.out.print("Ответ: " + a + "/" + b + " + " + c + "/" + d);
            reduceFraction(numerator, denominator);
            System.out.println("\nrepeat Yes/No?");
} while (new Scanner(System.in).nextLine().toLowerCase().equals("yes"));

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@joundlevel 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 39

	Сложение двух дробей (перевести код с Pascal) 10.02.2014, 21:50. Показов 3411. Ответов 12 Метки нет (Все метки) Здравствуйте!Ребят,скажите,кто-нибудь может,пожалуйста, помочь с переводом Паскаль программы на Яву? Буду очень благодарен! Спасибо! 0

@parsila 5 / 5 / 3 Регистрация: 08.04.2013 Сообщений: 30
	10.02.2014, 23:01
	Именно перевод программы? Некоторым проще с нуля написать на Яве, чем переводить с Паскаля. 0

@joundlevel 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 39
	10.02.2014, 23:51 [ТС]
	Мне для реферата просто надо,реалезация на разных языках так сказать,в паскале программа есть,а вот на яве как то затрудняюсь сделать,пока что малавато опыта.(говорить нет уже тоже поздно) 0

@tankomaz ɐwʎ ɔ vǝmоɔ dиw ɐʚонɔ 443 / 442 / 100 Регистрация: 14.10.2012 Сообщений: 1,146 Записей в блоге: 9
	11.02.2014, 00:12
	код то где? выкладывайте - чем сможем, тем поможем 0

@tankomaz ɐwʎ ɔ vǝmоɔ dиw ɐʚонɔ 443 / 442 / 100 Регистрация: 14.10.2012 Сообщений: 1,146 Записей в блоге: 9
	11.02.2014, 02:56
	А как задание звучит? 0

@joundlevel 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 39
	11.02.2014, 16:20 [ТС]
	Это сложение двух дробей,программа находит общий знаменатель(если надо),складывает,а потом сокращает ответ,находит целую часть и т.п. (опять же,если необходимо) Добавлено через 11 часов 20 минут help pleeease 0

@joundlevel 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 39
	12.02.2014, 01:54 [ТС]
	У меня почему то подчёркивает denumerator в 27ой строке и не запускает ничего Добавлено через 3 минуты Сам понял,слово неправельно написанно просто Добавлено через 41 минуту Спасибо огромное за прогу! А как ещё её дописать,чтобы целую часть при необходимости вынимала? 0

@tankomaz ɐwʎ ɔ vǝmоɔ dиw ɐʚонɔ 443 / 442 / 100 Регистрация: 14.10.2012 Сообщений: 1,146 Записей в блоге: 9
	12.02.2014, 02:11
	if (a % b == 0) ... 0

Сложение двух дробей (перевести код с Pascal)

Решение

Решение