Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Реализация кода С++ в Pascal  (Прочитано 10554 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Дарья94
Новенький

ru
Offline Offline

« : 12-04-2013 19:19 » 

Код: (C++)
#include<istream>
#include<iostream>
using namespace std;

void main()
{
        setlocale(LC_ALL, "Russian");
        char osmass[4][30];
        int vremPr[4]={0,0,0,0};
        int tipOS,kolich,a,sum;
        int porydok[4]={1,2,3,4}, prior[5]= {0,0,0,0,-100};
        for(int i=0,n=0;i<4;i++,n=0)
        {
                for(;n<30;n++)
                {
                        osmass[i][n]='_';
                }
               
        }

        do{
        cout<<"Выберите тип ОС \n"<<"1 - Последовательное выполнение процессов \n"<<"2 - Паралельное выполнение\n";
        cin>>tipOS;
        if(tipOS!=1 && tipOS!=2){cout<<"Вы ввели неправильное значение!!!\n";}else{break;}
        }while(2);
        do{
        cout<<"Задайте колли чество прецессов (не более 4)\n";
        cin>>kolich;
        if(kolich<1 || kolich>4){cout<<"Введено не правильное значение\n";}
        else{break;}
        }while (2);
        do{    
        cout<<"Укажите время выполнения каждого процесса(в сумме не более 30)\n";
        for(int i=1;i<=kolich;i++)
        {
                cout<<"Процесс   "<<i<<endl;
                cin>>vremPr[i-1];
                cout<<endl;

        }
         sum=vremPr[0]+vremPr[1]+vremPr[2]+vremPr[3];
         if(sum>30){cout<<"Сумма больше 30\n";}else{break;}
        }while(2);
        do{
        cout<<"Указать приоритеты выполнения процессов? 1 - да / 2 - нет\n";
                cin>>a;
                if(a==1 || a==2){break;}else{cout<<"Введено не правильное значение\n";}
        }while(2);
                if(a==1)
                {
                        cout<<"Задайте приоритеты выполнения \n";
                        for(int i=1;i<=kolich;i++)
                        {
                                cout<<"Процесс "<<i<<endl;
                                cin>>prior[i-1];
                                cout<<endl;
                        }
                }

       
       
        int zap[4]={0,0,0,0};
        for(int i=0,n=0;i<kolich;i++,n=0)
        {
                for(;n<kolich-1;n++)
                {
                        if(prior[n]<prior[n+1])
                        {
                                int prom=prior[n];
                                prior[n]=prior[n+1];
                                prior[n+1]=prom;
                                prom=porydok[n];
                                porydok[n]=porydok[n+1];
                                porydok[n+1]=prom;
                        }
                }
        }




        switch (tipOS)
        {
       

        case 1:
                for(int i=0,n=0,e=0;i<kolich;i++,n=0)
        {
                for(;n<vremPr[porydok[i]-1];n++,e++)
                {
                        osmass[porydok[i]-1][e]='/';
                }
        }

                cout<<"          ";
                for(int n=0;n<sum;n++)
                {
                        cout<<n+1<<" ";
                }
                cout<<endl;
                for(int i=0,n=0;i<kolich;i++,n=0)
        {
                cout<<"Процесс "<<i+1<<" ";
                for(;n<sum;n++)
                {
                        if(n+1>9)
                        {
                                cout<<osmass[i][n]<<"  ";
                        }
                        else{
                        cout<<osmass[i][n]<<" ";
                        }
                }
                cout<<endl;
        }break;



        case 2:
       

                for(int i=0,n=0,e=0;e<sum;i++)
        {
                if(i>kolich-1){i=0;}
               
               

                if(prior[i]>prior[i+1] && prior[i]!=prior[i-1])
                {
                        for(int eh=0;eh<vremPr[porydok[i]-1];n++,e++,eh++)
                {
                        if(zap[porydok[i]-1]==vremPr[porydok[i]-1]){break;}
                        osmass[porydok[i]-1][n]='/';
                        zap[porydok[i]-1]++;
                }
                       
                }else
                {
               
                        for(int t=0;t<2;t++,n++,e++)
                        {


                                if(e==sum){break;}
                                do{

                                        if(zap[porydok[i]-1]==vremPr[porydok[i]-1]){i++;t=0;}
                                if(i>kolich-1){i=0;}
                                }while (zap[porydok[i]-1]==vremPr[porydok[i]-1]);
                               

                               
                                osmass[porydok[i]-1][n]='/';
                                zap[porydok[i]-1]++;
                        }
                       
                }
        }




        cout<<"          ";
                for(int n=0;n<sum;n++)
                {
                        cout<<n+1<<" ";
                }
                cout<<endl;
                for(int i=0,n=0;i<kolich;i++,n=0)
        {
                cout<<"Процесс "<<i+1<<" ";
                for(;n<sum;n++)
                {
                        if(n+1>9)
                        {
                                cout<<osmass[i][n]<<"  ";
                        }
                        else{
                        cout<<osmass[i][n]<<" ";
                        }
                }
                cout<<endl;
        }
        break;

       
        }
}
Записан
Вад
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #1 : 12-04-2013 19:48 » 

Дарья94, очевидно, это реализация кода на C++. А что не так с Pascal?
Записан
Sla
Модератор

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 12-04-2013 20:01 » 

Вад, не... ну ты что? не понимаешь?
Тебе дали команду - перевести код в Pascal. Вот ты  не понятный... Что за вопросы.

зы... не троньте меня - я злой, потому что трезвый.
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Джон
просто
Администратор

de
Offline Offline
Пол: Мужской

« Ответ #3 : 12-04-2013 20:15 » 

А вопрос, я думаю, так надо понимать (иначе не интересно):

 Дарья94 хочет чтобы этот код в Паскале работал. Это круто!!!

зы меня можете трогать, я добрый - потому что НЕтрезвый. Улыбаюсь
« Последнее редактирование: 13-04-2013 07:11 от Sla » Записан

Я вам что? Дурак? По выходным и праздникам на работе работать. По выходным и праздникам я работаю дома.
"Just because the language allows you to do something does not mean that it’s the correct thing to do." Trey Nash
"Physics is like sex: sure, it may give some practical results, but that's not why we do it." Richard P. Feynman
"All science is either physics or stamp collecting." Ernest Rutherford
"Wer will, findet Wege, wer nicht will, findet Gründe."
Дарья94
Новенький

ru
Offline Offline

« Ответ #4 : 12-04-2013 20:30 » 

ладно, понятно, спасибо, ребят
Записан
Sla
Модератор

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 12-04-2013 20:31 » 

ладно, понятно, спасибо, ребят
Что понятно? Мы сами до сих пор в шоке... Нам-то не понятно.
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Джон
просто
Администратор

de
Offline Offline
Пол: Мужской

« Ответ #6 : 12-04-2013 20:33 » 

Дарья94, не за что, всегда рады помочь нуждающимся в помощи. С праздником!


« Последнее редактирование: 13-04-2013 07:09 от Sla » Записан

Я вам что? Дурак? По выходным и праздникам на работе работать. По выходным и праздникам я работаю дома.
"Just because the language allows you to do something does not mean that it’s the correct thing to do." Trey Nash
"Physics is like sex: sure, it may give some practical results, but that's not why we do it." Richard P. Feynman
"All science is either physics or stamp collecting." Ernest Rutherford
"Wer will, findet Wege, wer nicht will, findet Gründe."
Oldy
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #7 : 16-04-2013 06:44 » 

Там (в Паскале) все просто, если конечно речь о BP7. Сомпилировать модуль до объектного файла ".obj" Си-шным компилятором, включить модуль в программу $L MyObj.obg, объявить входящие в модуль функции как external и вызывать их по мере необходимости.
Записан

С уважением, Oldy.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines