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

Нужно превести задачу с Delphi на С++ - C++

Восстановить пароль Регистрация
 
stepansiy
0 / 0 / 0
Регистрация: 06.01.2012
Сообщений: 17
06.01.2012, 12:34     Нужно превести задачу с Delphi на С++ #1
Delphi
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
const
n=10;
type
Segments=record
a,b:Integer;
end;
var
ArrayOfSegments:array[1..n] of Segments;
i,j,count,Point,MaxPos:Byte;
Begin
//Создаем отрезки
For i:=1 to n do
                begin
                ArrayOfSegments[i].a:=random(n);
                ArrayOfSegments[i].b :=random(n+1+ArrayOfSegments[i].a)+ArrayOfSegments[i].a;
                End;
//Проверяем вхождение точки в каждый отрезок
For i:=1 to n do
                begin
                For j:=1 to n do
                               Begin
                               if i In [ArrayOfSegments[j].a,ArrayOfSegments[j].b] then
                               inc(count);
                               End;
                if MaxPos<count then
                                    begin
                                    MaxPos:=count;
                                    Point:=i;
                                    end;
                count:=0;
                end;
writeln(#13,'Точка-',Point);
End.
 Комментарий модератора 
Используйте теги форматирования кода!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
silent_1991
06.01.2012, 13:00
  #2

Не по теме:

Цитата Сообщение от stepansiy Посмотреть сообщение
Нужно
Ну так переводите.

stepansiy
0 / 0 / 0
Регистрация: 06.01.2012
Сообщений: 17
06.01.2012, 13:34  [ТС]     Нужно превести задачу с Delphi на С++ #3
Код
#include "stdafx.h"
const n=10;
type
Segments=record
int a,b
ArrayOfSegments:array[1..n] of Segments;
i,j,count,Point,MaxPos:Byte;
{
For i:=1 to n do
{
                ArrayOfSegments[i].a:=random(n);
                ArrayOfSegments[i].b :=random(n+1+ArrayOfSegments[i].a)+ArrayOfSegments[i].a;
}
For i:=1 to n do
{
                For j:=1 to n do
				{
                               if i In [ArrayOfSegments[j].a,ArrayOfSegments[j].b] then
                               inc(count);
}
if MaxPos<count {                                  
                                    MaxPos:=count;
                                    Point:=i;
}
                count:=0;
                }
printf(#13,'Òî÷êà ',Point);
End.
 Комментарий модератора 
Используйте теги форматирования кода!


покуда получилось так, дальше не понимаю, что нужно исправить, что бы программа нормальна работала
Gepar
 Аватар для Gepar
1173 / 529 / 20
Регистрация: 01.07.2009
Сообщений: 3,512
06.01.2012, 14:33     Нужно превести задачу с Delphi на С++ #4
А Вы проверяли то вариант на делфи рабочий?
stepansiy
0 / 0 / 0
Регистрация: 06.01.2012
Сообщений: 17
06.01.2012, 14:38  [ТС]     Нужно превести задачу с Delphi на С++ #5
да проверял, у меня всё работало отлично
Петррр
 Аватар для Петррр
5917 / 3354 / 333
Регистрация: 28.10.2010
Сообщений: 5,926
06.01.2012, 15:10     Нужно превести задачу с Delphi на С++ #6
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
#include <iostream>
#include <cstdlib>
#include <ctime>
 
const int n = 10;
 
struct Segments
{
    int a;
    int b;
};
 
int main()
{
    Segments ArrayOfSegments[n];
    char i, j, count = 0, Point = 0, MaxPos = 0;
    srand(time(NULL));
    for(i = 0; i < n; i++)
    {
        ArrayOfSegments[i].a = rand() % n;
        ArrayOfSegments[i].b = rand() % (n + 1 + ArrayOfSegments[i].a) + ArrayOfSegments[i].a;
    }
    for(i = 0; i < n; i++)
    {
        for(j = 0; j < n; j++)
        {
            if (i == ArrayOfSegments[j].a || i == ArrayOfSegments[j].b)
                count++;
        }
        if (MaxPos < count)
        {
            MaxPos = count;
            Point = i;
        }
        count = 0;
    }
    std::cout << "Point - " << (int)Point << std::endl;
    return 0;
}
stepansiy
0 / 0 / 0
Регистрация: 06.01.2012
Сообщений: 17
06.01.2012, 15:19  [ТС]     Нужно превести задачу с Delphi на С++ #7
у меня почему-то выдаёт ошибку

Код
[CPP][/CPP]
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
[CODE][QUOTE]// 111.cpp : Defines the entry point for the console application.
//
 
#include "stdafx.h"
#include <iostream>
#include <cstdlib>
#include <ctime>
 
const int n = 10;
 
struct Segments
{
    int a;
    int b;
};
 
int main()
{
    Segments ArrayOfSegments[n];
    char i, j, count = 0, Point = 0, MaxPos = 0;
    srand(time(NULL));
    for(i = 0; i < n; i++)
    {
        ArrayOfSegments[i].a = rand() % n;
        ArrayOfSegments[i].b = rand() % (n + 1 + ArrayOfSegments[i].a) + ArrayOfSegments[i].a;
    }
    for(i = 0; i < n; i++)
    {
        for(j = 0; j < n; j++)
        {
            if (i == ArrayOfSegments[j].a || i == ArrayOfSegments[j].b)
                count++;
        }
        if (MaxPos < count)
        {
            MaxPos = count;
            Point = i;
        }
        count = 0;
    }
    std::cout << "Point - " << (int)Point << std::endl;
    return 0;
}[/QUOTE][/CODE]
Добавлено через 2 минуты
ну вобщем тут у меня в #include "stdafx.h" строке выдаётся ошибка

Добавлено через 1 минуту
c:\работа\оаип\си++ висуал\vc98\include\ios(9) : fatal error C1083: Cannot open include file: 'streambuf': No such file or directory вот такая ошибка вылетает
Gepar
 Аватар для Gepar
1173 / 529 / 20
Регистрация: 01.07.2009
Сообщений: 3,512
06.01.2012, 17:39     Нужно превести задачу с Delphi на С++ #8
Цитата Сообщение от stepansiy Посмотреть сообщение
ну вобщем тут у меня в #include "stdafx.h" строке выдаётся ошибка
Ну так не подключайте её У меня и без неё компилируется и пишет что ответ 6 (или это -6), не знаю что и как должно считать, но то что компилируется нормально это факт.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.01.2012, 19:37     Нужно превести задачу с Delphi на С++
Еще ссылки по теме:

ребят нужно написать задачу на С ++ C++
Нужно скорректировать задачу со структурами C++

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

Или воспользуйтесь поиском по форуму:
stepansiy
0 / 0 / 0
Регистрация: 06.01.2012
Сообщений: 17
06.01.2012, 19:37  [ТС]     Нужно превести задачу с Delphi на С++ #9
ну тогда большое спасибо за помощь, очень признателен)
Yandex
Объявления
06.01.2012, 19:37     Нужно превести задачу с Delphi на С++
Ответ Создать тему
Опции темы

Текущее время: 02:05. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru