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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2018, 01:05   #1
Марат121
Новичок
Джуниор
 
Регистрация: 21.03.2018
Сообщений: 5
По умолчанию можете перевести прогу с с++ на Free Паскаль?

Код:
#include <fstream>
#include <string>
#include <vector>
#include <algorithm>
 
using namespace std;
 
int main()
{
    ifstream in("INPUT.TXT");
    ofstream out("OUTPUT.TXT");
    string str,Astr,Bstr;
    getline(in,str);
    in.close();
    unsigned int pos=str.find('/',0);
    Astr=str.substr(0,pos);
    Bstr=str.substr(pos+1);
    unsigned int A,B;
    A=atoi(Astr.c_str());
    B=atoi(Bstr.c_str());
    vector<unsigned int> mods,nums;
    out<<A/B;
    if(A=A%B)
    {
        out<<".";
        while((find(mods.begin(),mods.end(),A)==mods.end())&&A)
        {
            mods.push_back(A);
            A*=10;
            nums.push_back(A/B);
            A=A%B;
        }
        for(unsigned int i=0;i<nums.size();i++)
        {
            if(A==mods[i])out<<"(";
            out<<nums[i];
        }
        if(A)out<<")";
    }
    out<<endl;
    out.close();
    return 0;
}
Марат121 вне форума Ответить с цитированием
Старый 21.03.2018, 01:17   #2
Марат121
Новичок
Джуниор
 
Регистрация: 21.03.2018
Сообщений: 5
По умолчанию

Free Pascal
Марат121 вне форума Ответить с цитированием
Старый 01.06.2018, 10:46   #3
D1973
Пользователь
 
Регистрация: 04.04.2018
Сообщений: 28
По умолчанию

А не проще задание озвучить?
D1973 вне форума Ответить с цитированием
Старый 01.06.2018, 12:41   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от D1973 Посмотреть сообщение
А не проще задание озвучить?
похоже - вот тут задание - http://www.programmersforum.ru/showthread.php?t=318287
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
можете перевести прогу с паскаля на си Александр121 Помощь студентам 1 20.09.2017 16:20
Можете перевести с паскаля на C++ dimadobry Помощь студентам 0 14.03.2017 14:04
Нужно перевести прогу с Фортрана на Паскаль! Segger Помощь студентам 0 01.12.2010 07:27