Форум программистов, компьютерный форум CyberForum.ru

Работа с дробями - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Всё ли я правильно делаю ? http://www.cyberforum.ru/cpp-beginners/thread284260.html
Сегодня, считай, первый день как начал изучать С++. В качестве компиляции использую Microsoft Visual C++ 2010 Express. И хочу узнать Ваше мнение насчёт моего подхода к компиляции программ. 1) настукиваю исходный код в Notepad++; 2) затем в Вижуале: Файл -> Создать -> Проект из существующего кода; 3) запускается мастер, выбираю место хранения будущего проекта (Мои документы\c++ projects), его...
C++ Дана строка слов, разделенных пробелами и запятыми. Подсчитайте количество слов в строке и сформируйте новую строку из самых длинных слов подстрок Дана строка слов, разделенных пробелами и запятыми. Подсчитайте количество слов в строке и сформируйте новую строку из самых длинных слов подстрок.(заключенных между запятыми). Помогите пожалуйста сделать. http://www.cyberforum.ru/cpp-beginners/thread284259.html
C++ максимальный элемент матрицы
сам массив для матрицы в заголовочном файле объявляю так: int **matrix; конструктор такой: Matrix::Matrix() { srand((unsigned)time(NULL)); dimension = 5; matrix = new int*; for (int i = 0; i < dimension; i++) { matrix = new int;
Компилятор под Eclipse. C++
Скачал Eclipse c оффа, поставил. Скачал MinGW, поставил. Не пашет. Нету binary и не компилирует. Что делать? Помогите пожалуйста)
C++ C++. Работа с файлом http://www.cyberforum.ru/cpp-beginners/thread284218.html
Всем привет!!Написала код!!Нужно чтобы текст из файла переводился в Морзе!По отдельности они работают!А как соединить не знаю(((Помогите пожалуйста !!Желательно с комментариями))) Вот код!!! # include <fstream> #include <string> #include <iostream> #include <stdio.h> #include <ctype.h>
C++ Компилятор под Eclipse. Скачал Eclipse c оффа, поставил. Скачал MinGW, поставил. Не пашет. Нету binary и не компилирует. Что делать? Помогите пожалуйста) подробнее

Показать сообщение отдельно
robar
Сообщений: n/a
27.04.2011, 11:48     Работа с дробями
Создать программу в виде учебника, раздел дроби, провести тестирования по теме.

Код
program s1;
uses crt;
Var   a,b,f:word;
st:string;
Function HOD(a,b:word):word;
var i,c:word;
begin
Hod:=1;
If a<b then begin
       c:=a;
    a:=b;
    B:=c;  end;
for i:=1 to a div 2 do begin
      If (a mod i=0) and(b mod i=0) then Hod:=i;
    end

        end;
procedure drob(s:string;var a,b:word);
var I,d:integer;
c,t:string;
 begin
 i:=1;
    while s[i]<>'/' do inc(i);
 d:=length(s)-i;
 c:=copy(s,1,i-1);
 t:=copy(s,i+1,d);
 val(c,a,d);
 val(t,b,d);
end;
begin

readln(st);
drob(st,a,b);
f:=Hod(a,b);
A:=a div f;
b:=b div f;
write(a,'/',b);

readln;
end.
Код перевода дроби в несократимую

Код
program hhh;
uses ctr;
var
 a,b,c      :longint:
 a2, b1     :longint:    
 a2, b2     :longint:
 nok        :longint:
procedure Nod {процедура находит НОД чисел a и d}
              {a,b,c - глобальные параметры     }
begin
  if b>a then begin {высчитываем наибольшее число и записываем его в
                   переменную a, наименьшее - в d}
    c:=a;
    a:=b;
    b:=c;
   end;
   while a mod b <> 0 do begin
      c:=b;
      b:=a mod d;
      a:=c;
   end;
end;

begin
  GlrScr;
  Write('Введите числитель 1ой дроби:>'>;Reedln(a1);
  Write('Введите числитель 1ой дроби:>'>;Reedln(b1);
  Write('Введите числитель 2ой дроби:>'>;Reedln(a2);
  Write('Введите знаменатель 2ой дроби:>'>;Reedln(d2);

if (b1=0) or (d2=0) then begin {проверка на правильность ввода чисел}
  Writeln('ошибка!! Знаменатель не должен равнятся нулю.');
  Readkey;
  Halt(1);
end;
Write(a1,'/',b1,'+',a2,'/',b2,'=');

if (a1=0) or (a2=0) then begin {если числитель одной из дробей равен нулю,
          то мы пропускаем пункт сложения дробей}

  if a1=0 then begin 
    a:=a2;b:=b2;
    a1:=a2;nok:=b2;
  end
  else begin
    a:=a1;b:=b1;
    nok:=b1;
  end;
end
else begin 
  a:=b1; d:=b2;
  Nod; {находим НОД и записываем его в переменную b}
 
  nok:b1*b2 div b; {наховим НОК знаменателей 2х дробей (d1 и b2)}
  a1:=a1*nok div b1; {умножаем числитель первой дроби на дополнительный 
                      множетель}
  a2:=a2*nok div b2; {умножаем числитель второй дроби на дополнительный 
                      множетель}
  a1:=a1+a2; {складываем дроби : числитель полученной дроби - a1, знаменатель 
              требуемой дроби -nok}

  a:=a1; b:=nok;
 end;

 Nod;   {сокращаем полученную дробь до несократимой дроби}
 Write (a1 div b);    {выводим на экран полученый результат}
 if nok div b<>1 then Writeln('/',nok div b);
 writeln;
 Redkey; 
END.
И сложение дробей. Что дальше делать не понимаю. Прога вроде должна быть больше и как это все соеденить. Кто знает или у кого есть идеи пишите.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 21:40. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru