Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Очень важно! выручайте!

Автор: Гость_student 11.11.2005, 13:37

Ребята сегодня надо работу сдать! помогите кто нить решить....

Вводятся числитель и знаменатель дроби. Вывести: знак, целую часть, сокращенные числитель и знаменатель.

нужен код программы для Borland Delphi 7 на Object Pascal smile

выручайте!

Автор: dilshat 11.11.2005, 14:07

используй оператор mod и все получится

Автор: sergejzr 11.11.2005, 14:10

Перенесено в центр помощи.
Гость_student впредь домашку сюда smile

Автор: St. Andrew 11.11.2005, 15:29

Стыдно за свою малограмотность, но object pascal сильно вообще отличается от обычного? Если нет-то задача решается за пять минуток. Оператор сравнения и , как заметил dilshat, оператор mod решают первые два вопроса. А далее - я бы определил наибольший общий делитель в отдельную процедуру и сократил бы на него оба числа.
Если совсем не получается, могу написать на обычном Паскале или на Си. Нужно?

Автор: Rick 11.11.2005, 18:16

Паскаль

Код


uses crt;
var a1,a2,chel,i:integer;
begin
clrscr;
write('write first number ');
readln(a1);
write('write second number ');
readln(a2);
chel:=a1 div a2;
writeln(chel);
a1:=a1-a2*chel;
if a1<>0 then begin
 for i:=2 to a1 do begin
 if (a1 mod i=0) and (a2 mod i=0) then begin
 a1:=round(a1/i); a2:=round(a2/i);
 i:=1;
 end;
 end;
end;
writeln(a1,' ',a2);
readln;
end.

М	Пожалуйста используйтне правильную подсветку кода! У нас есть Дельфи/Паскаль

Автор: St. Andrew 11.11.2005, 21:22

Си (часть задания, где нужно сократить числитель и знаменатель)

Код


#include <iostream.h>
int nod(int a,int b) //НОД
{
    int c=a,d=1,e=b;
    if(a>b) 
    {
        c=b;
        e=a;
    }
    for(int i=1;i<=c;i++)
    {
        if((c%i==0) && (e%i==0))
            d=i;
    }
    return d;
}

void main(void)
{
    int chisl, znam, x;
    //............
    //используем ф-ию
    x=nod(chisl,znam);
    chisl/=x;
    znam/=x;
    //............
    //вывод и т.д.
}

Автор: darkart 12.11.2005, 00:46

Для Delphi-консоли:

Код


program NOD;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  m,n:integer;{m-числитель, n-знаменатель}
procedure fNod(var x,y:integer);
{процедура находит НОД и преобразуют дробь}
var
  i:integer;
begin
  i:=x;
  while (x mod i<>0) or (y mod i<>0) do {выход при max i, которое подходит}
     dec(i);
  x:=x div i;
  y:=y div i;
end;
begin
  writeln('Please enter m:');
  readln(m);
  writeln('Please enter n:');
  repeat
    readln(n);
    if n=0 then writeln('Error: Invalid data. Please reenter n');
  until n<>0;
  if m*n>0 then write('+'){вывод знака}
  else
    if m*n<>0 then write('-');
  m:=abs(m);
  n:=abs(n);
  write(m div n,' ');{вывод целой части}
  m:=m mod n;
  if m<>0 then{вывод дробной части, если она есть}
  begin
    fNod(m,n);
    writeln(m,'/',n);
  end
  else writeln;
  readln;
end.

Автор: St. Andrew 12.11.2005, 01:50

darkart, а в Делфи консоль эквивалентна обычному Турбо Паскалю? В Делфи почти не работал, поэтому любопытно узнать!

Автор: darkart 12.11.2005, 10:01

Цитата

а в Делфи консоль эквивалентна обычному Турбо Паскалю?

Да.Синтаксис практически эквивалентный.