Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Eldon1
0 / 0 / 0
Регистрация: 22.03.2014
Сообщений: 2
#1

Перевести алгоритм с C++ на delphi7 пожалуйста, это задача о выборе заявок - Delphi

23.05.2015, 13:53. Просмотров 507. Ответов 0
Метки нет (Все метки)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#include "StdAfx.h"
#include <iostream>
#include <vector>
#include <algorithm>
#include <fstream>
 
using namespace std;
 
struct claim {
double begin;
double end;
int audit;
bool operator < (const claim & val) const {return begin < val.begin;}
};
 
typedef vector<claim> listClaim;
typedef listClaim::iterator itrClaim;
,
void print(listClaim &val) {
int count=1;
for(itrClaim i=val.begin(); i != val.end(); ++i) {
cout « count++ « ". " « i->begin « "-" « i->end « " Аудитория:" « i->audit « endl;
}
}
 
int assignment(listClaim &val) {
listClaim room;
itrClaim itr;
for(itrClaim i=val.begin(); i != val.end(); ++i) {
itr=room.begin();
while((itr != room.end()) && (i->begin < itr->end)) ++itr;
if (itr != room.end()) {
i->audit = itr->audit;
*itr = *i;
}
else {
i->audit=room.size()+1;
room.push_back(*i);
}
}
 
return room.size();
}
 
int main() {
setlocale(LC_ALL,"russian");
int num;
 
listClaim arr;
claim temp;
int i=0,ok;
cout«"Считывание из файла 1, ввод матрицы смежности вручную 2"«endl;
cin»ok;
if (ok==1){
//из файла
ifstream fin("input.txt");
fin»num;
while (i<num){
cout « "Заявка # " « i+1 «endl;
cout «"Начало заявки: ";
fin »temp.begin;
cout«temp.begin«endl;
cout « "Конец заявки: ";
fin »temp.end;
cout«temp.end«endl;
temp.audit=-1;
if (temp.begin<temp.end) {
i++;
arr.push_back(temp);
}
else cout « "Неправильно введено время заявки. Введите ешё раз\n";
}
fin.close();
}else{
//вручную
cout « "Введите количество заявок: ";
cin »num;
while (i<num)
{
cout « "Заявка # " « i+1 «endl;
cout «"Начало заявки: ";
cin »temp.begin;
cout « "Конец заявки: ";
cin »temp.end;
temp.audit=-1;
if (temp.begin < temp.end) {
i++;
arr.push_back(temp);
}
else cout « "Неправильно введено время заявки. Введите ешё раз\n";
}
}
sort(arr.begin(), arr.end());
cout « "Запрос на обшее количество аудиторий:" « assignment(arr) « endl;
print(arr);
system("pause");
return 0;
}

http://www.cyberforum.ru/delphi-beginners/thread290192.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2015, 13:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести алгоритм с C++ на delphi7 пожалуйста, это задача о выборе заявок (Delphi):

Задача о выборе заявок
Есть классическая постановка Задачи о выборе мах количества заявок Даны n...

Циклический алгоритм. Пожалуйста подскажите как это сделать
Циклический алгоритм. 1. Составить и отладить процедуру вычисления заданной...

Изменить видимость формы (перевести код с Delphi7 на C++)
на дельфи Form2.Show; Form1.Hide; как сделать такой же переход на С++

Накопление партии заявок / Сбор заявок (Hold, batch-unbatch)
Необходимо собрать 10 деталей, и отправить их на дальнейшую операцию. Каким...

Получение заявок на общий ящик Outlook, разбор заявок участниками
Добрый день. Имеется общий ящик Outlook, он подключен как дополнительный...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2015, 13:53
Привет! Вот еще темы с решениями:

Вычисление интенсивности поступления заявок - среднего чила заявок, поступающих в единицу времени
Есть задача: Рассмотрим следующую модель системы массового обслуживания с...

Подскажите, пожалуйста! Simulnk выдает, вот это. Как это исправить?
Подскажите, пожалуйста! Simulnk выдает, вот это. Как это исправить? Заранее...

подскажите , пожалуйста, Отрезок [-pi/2,pi/2] это просто длина? чет я не понимаю куда это в код пихать
Постройте таблицу и вычислите сумму значений функции y=f(x) при 0.5&lt;y&lt;1.5 при...

Как работать с LPCWSTR? Как перевести char в это? И что это вообще такое?
Как работать с LPCWSTR? Как перевести char в это? И что это вообще такое?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru