Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 27.07.2015, 10:19   #1 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию Задача о дробях

Получил на днях такое вот послание в ЛС от одного (точнее, одной) из постоянных участников форума:

Цитата:
Здравствуйте! Подскажите пожалуйста, как сделать её нужно?? Может литература есть хорошая и понятная по таким задачам, где входные и выходные файлы? (если что, то я на free pascal решаю)
(Время: 1 сек. Память: 16 Мб)
Требуется получить точное значение частного А/В для двух натуральных чисел A и B.
В единственной строке входного файла INPUT.TXT записано частное двух натуральных чисел, не превышающих 1000. Числа разделены символом «/» без лишних пробелов.
В выходной файл OUTPUT.TXT нужно вывести точное значение A/B без лишних точек, нулей и пробелов. В случае присутствия бесконечной записи числа следует вывести период в скобках.
Например, неправильно выведены числа: 08.92, 3.20, 120.6(6), 0.(33), 5.(0), 2. , .3, 0.33(03) .

Их следует выводить как 8.92, 3.2, 120.(6), 0.(3), 5, 2, 0.3, 0.3(30) .
Вообще-то я всегда прошу не ломиться с подобными просьбами в личку, а все задания выкладывать на форум. Но задачка интересная, поэтому взялся. Любопытно, что поиск в Сети практически ничего не дал: всякие умные дяди очень любят объяснять детям, как это решать "в столбик", а вот расписать алгоритм программы - ни! Правда, на одном форуме два СИ-шника пытались написать такую программу, но получилось сыро и глючно, в общем - не понравилось. Поэтому решал "из первых принципов".
Правда, попытки вести диалог с заказчицей через ЛС натолкнулись на гробовое молчание последней, что меня несколько рассердило, а потому я счёл возможным посвоевольничать: входной файл (как и выходной, естественно) может содержать не одну, а сколько угодно строк с дробями. Правила:
1. Записи дробей должны начинаться с крайней левой позиции, т.е. пробелов впереди быть не должно.
2. Каждая дробь располагается на своей отдельной строке.
3. Пустые строки не допускаются.
4. После введения последней дроби НЕ СЛЕДУЕТ переводить строку.
Адресация файлов может быть, естественно, изменена.
Вроде всё. Вот программа:
Код:
Var
 nom,den,d,m,Q:Word;
 n,j,p:Byte;
 f_in,f_ou:Text;
 Rem:Array[1..100] of Word;
 Fig:Array[1..100] of Byte;
 S_in,nom_st,den_st,S,St:String;
 Code:Integer;

Function Test_Rem(R:Word; k:Byte):Byte;
var
 b:Boolean;
 i:Byte;
begin
 b:=false;
 i:=0;
 repeat
  Inc(i);
  if i<=k then if Rem[i]=R then b:=true;
 until b or (i=k+1);
 if b then Test_Rem:=i else Test_Rem:=0;
end;

Begin
 Assign(f_in,'D:\Input.txt');
 Reset(f_in);
 Assign(f_ou,'D:\Output.txt');
 Rewrite(f_ou);
 Repeat
  Readln(f_in,S_in);
  p:=0;
  repeat
   Inc(p);
  until S_in[p]='/';
  nom_st:=Copy(S_in,1,p-1);
  den_st:=Copy(S_in,p+1,Length(S_in)-p);
  Val(nom_st,nom,Code);
  Val(den_st,den,Code);
  n:=1;
  S:='';
  Str((Nom div Den),St);
  S:=S+St;
  if (Nom mod den)>0 then
   begin
    S:=S+'.';
    m:=(Nom mod Den);
    Rem[1]:=m;
    repeat
     Inc(n);
     d:=m*10 div Den;
     m:=m*10 mod Den;
     Q:=Test_Rem(m,n-1);
     if (m>0) and (Q=0) then
      begin
       Rem[n]:=m;
       Fig[n]:=d
      end;
    until (m=0) or (Q>0);
    Rem[n]:=m;
    Fig[n]:=d;
    if m=0 then
     begin
      for j:=2 to n do
       begin
        Str(Fig[j],St);
        S:=S+St;
       end
     end
    else
     begin
      for j:=2 to Q do
       begin
        Str(Fig[j],St);
        S:=S+St;
       end;
      S:=S+'(';
      for j:=Q+1 to n do
       begin
        Str(Fig[j],St);
        S:=S+St;
       end;
      S:=S+')';
     end;
   end;
  Writeln(f_ou,S);
 Until EoF(f_in);
 Close(f_in);
 Close(f_ou);
End.
А вот результат:
Миниатюры
me01.jpg  
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
DiM (27.07.2015), Счастье (27.07.2015)

Старый 27.07.2015, 10:19
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Внимательно прочитайте содержимое этих тем

Задача на С++
Задача
Задача с if
Задача C++
Задача на C#
Задача по С + +

Старый 27.07.2015, 10:45   #2 (permalink)
DDREDD
Member
 
Регистрация: 15.10.2010
Сообщений: 9,758
Записей в дневнике: 1
Сказал(а) спасибо: 27
Поблагодарили 45 раз(а) в 8 сообщениях
Репутация: 50447
По умолчанию

Владимир, вот каждый раз ловлю себя на мысли что не та у вас аватарка, не та!!!
Надо что-то типа этого
978094065.jpg
__________________
Там, откуда я родом, безумцы правят народом...
DDREDD на форуме   Ответить с цитированием
Старый 27.07.2015, 10:50   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от DDREDD Посмотреть сообщение
Владимир, вот каждый раз ловлю себя на мысли что не та у вас аватарка, не та!!! Надо что-то типа этого
Не, Сань, - я старый ленивый ретроград ископаемый!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 27.07.2015, 12:10   #4 (permalink)
DiM
Участник
 
Аватар для DiM
 
Регистрация: 16.03.2008
Адрес: Москва
Сообщений: 14,925
Записей в дневнике: 3
Сказал(а) спасибо: 978
Поблагодарили 250 раз(а) в 114 сообщениях
Репутация: 36930
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Получил на днях такое вот послание в ЛС от одного (точнее, одной) из постоянных участников форума
Альтруист, фанат и интеллектуал. Автарка вполне отражает, так как сейчас такой набор качеств вымирает как динозавры когда то.
Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Правда, попытки вести диалог с заказчицей через ЛС натолкнулись на гробовое молчание последний, что меня несколько рассердило
Да она в танке сто пудово, Анджелка сейчас на высадку готовится и следит за статой! А недавно еще чистку кадров в клане устроила, что отголоски к нам на форум докатились, поцик весь заплаканый прибежал в танковую тему среди ночи и стал сетовать на свою несчастную судьбу которая для него приняла облик нашей железной леди
__________________
DiM вне форума   Ответить с цитированием
Старый 27.07.2015, 19:05   #5 (permalink)
Счастье
Потомственная Землянка
 
Аватар для Счастье
 
Регистрация: 01.12.2012
Адрес: Актау
Сообщений: 4,867
Записей в дневнике: 18
Сказал(а) спасибо: 1,188
Поблагодарили 657 раз(а) в 187 сообщениях
Репутация: 72003
По умолчанию

Точно, такую аватарку надо)))
__________________
Потому что на Луну не хватило б чугуну.
Счастье вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 20:03.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.