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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
stepansiy
0 / 0 / 0
Регистрация: 06.01.2012
Сообщений: 17
#1

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

06.01.2012, 12:34. Просмотров 408. Ответов 8
Метки нет (Все метки)

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.
 Комментарий модератора 
Используйте теги форматирования кода!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2012, 12:34     Нужно превести задачу с Delphi на С++
Посмотрите здесь:

Нужно разобрать задачу - C++
#include &quot;stdafx.h&quot; #include &quot;chess.h&quot; using namespace std; horse targetHorse;// переменная, хранящая координаты цели - той точки,...

Нужно скорректировать задачу со структурами - C++
Я определила структуру «студент», поля структуры: ФИО, массив элементов структуры «дисциплина» (не менее 4-х элементов, результаты сдачи...

Нужно сдать задачу в одно действие - C++
Задача: Лиса Алиса и кот Базилио (Время: 1 сек. Память: 16 Мб Сложность: 22%) Лиса Алиса и кот Базилио вырастили денежное дерево....

пожалуйста нужно решить задачу на массивы по С!!! - C++
Дана целочисленная прямоугольная матрица. определить: 1) количество столбцов, содержащих хотябы один нудевой элемент 2)номер строки в...

Нужно исправить задачу вычисления суммы - C++
Вычислить сумму. s=1/(2+3)+2/(3+4)+..+10/(11+12) через цикл for Вот что получилось.

Помогите развязать задачу очень нужно на С++ - C++
Задан массив чисел. Если есть элемент равен а, то результат равен сумме элементов, которые идут после а, в противном случае результатом...

Нужно сделать алгоритм, решающий задачу за время н - C++
Всем привет! Есть задача: Исходные данные В первой строке записано целое число N — количество бильярдных шаров (1 ≤ N ≤ 100000). В...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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
1175 / 531 / 20
Регистрация: 01.07.2009
Сообщений: 3,517
06.01.2012, 14:33     Нужно превести задачу с Delphi на С++ #4
А Вы проверяли то вариант на делфи рабочий?
stepansiy
0 / 0 / 0
Регистрация: 06.01.2012
Сообщений: 17
06.01.2012, 14:38  [ТС]     Нужно превести задачу с Delphi на С++ #5
да проверял, у меня всё работало отлично
Петррр
5943 / 3380 / 336
Регистрация: 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
1175 / 531 / 20
Регистрация: 01.07.2009
Сообщений: 3,517
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++
Program vvv; const e=0.0001; var x0,xn,y0,h,x,y,k5,k1,k2,k3,k4,a,b,r:real; n,i:integer; function F(x,y:real):real; ...

Нужно сделать по заданию задачу, выдает ошибку при компилировании - C++
Создать класс для работы сo строками. Разработать элементы класса: a. Поля: • * указатель на char - хранит адрес динамически выделенной...

Нужно исправить задачу с шаблоном (найти корень каждого числа массива) - C++
задача состоит в том, чтобы найти корень каждого числа массива. Вводим 2 массива по отдельности. Первый массив должен быть int, второй...

Мне нужно решить задачу на прологе.. хn,уn. Выяснить, найдуться ли среди точек с координатами (х1,у1)...( - C++
Мне нужно решить задачу на прологе: Даны целые числа х1,у1, х2,у2, ... хn,уn. Выяснить, найдуться ли среди точек с координатами...


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

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

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