Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.04.2014, 22:41   #1
dimka123
Пользователь
 
Регистрация: 25.12.2011
Сообщений: 96
Восклицание Преобразование дроби

Как можно этот код сократить ??
Код:
{преобразование строковой дроби в числовой вид (1/2 --> 0.5)}
function drob(var s: string): double;
var
  a, b, c: integer;
begin
  if s.Split('/').Length > 1 then begin
    if integer.TryParse(s.Split('/')[0], c) then
      a := c
    else begin
      writeln('Error!'); 
    end;
    
    if integer.TryParse(s.Split('/')[1], c) then
      b := c
    else begin
      writeln('Error!'); 
    end;
    result := a / b;
  end else
  if integer.TryParse(s, c) then
    result := c
  else begin
    writeln('Error!'); 
    exit;
  end;
end;
например заполняем массив дробями...
c[1]= .....вводим 1/2 а программа запоминает как 0.5 и т.д
dimka123 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
дроби Alexander1205 Общие вопросы C/C++ 7 10.06.2011 20:40
Период дроби Магистраль Помощь студентам 7 06.04.2009 09:11
преобразование десятичной дроби в обыкновенную и обратно, Delphi ИгорьОК Помощь студентам 4 04.04.2007 21:12