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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Дан массив размера N. Возвести в квадрат все его локальные миниму-мы (то есть числа, меньшие своих соседей) http://www.cyberforum.ru/cpp-beginners/thread423311.html
Задачу на массив оформить с помощью лямда выражений. Элементы массива получить с помощью Random. На С++
C++ Даны строки S, S1 и S2. Заменить в строке S все вхождения строки S1 на строку S2. Задачу на массив оформить с помощью лямда выражений. Элементы массива получить с помощью Random. На С++. http://www.cyberforum.ru/cpp-beginners/thread423305.html
C++ С помощью typedef определите типы: unsigned char, константный
ПОМОГИТЕ ПОЖАЛУЙСТА! Пробовал, не получается С помощью typedef определите типы: unsigned char, константный unsigned char, указатель на целое, указатель на указатель на символ, указатель на массив символов, массив из 7 указателей на целое, указатель на массив из 7 указателей на целое и массив из 8 массивов из 7 указателей на целое.
C++ Определить индексы всех седловых точек матрицы
Для заданной матризы размером (N x M)определить индексы всех ее седловых точек.
C++ условие с char http://www.cyberforum.ru/cpp-beginners/thread423298.html
если введен символ а должна выводиться одна строка, если введен символ в должна выводиться другая строка, у меня выводится все в любом случае, нипойму почему. #include "std_lib_facilities.h" int main() { char letter = ' '; cout <<"\nPress letter (a or b ): "; cin >>letter; if (letter = 'a') {
C++ странное поведение ifstream::open() Добрый день уважаемые форумчане! Подскажите, если не сложно, в чем проблема/ошибка? Есть две разные реализации одного метода: /* bool pelengSetting::getDataFromFile(string path) { string tempPath; char str; ifstream file; lengthData = getMinFileLength(path) / sizeof(short); подробнее

Показать сообщение отдельно
stepansiy
0 / 0 / 0
Регистрация: 06.01.2012
Сообщений: 17

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

06.01.2012, 12:34. Просмотров 414. Ответов 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.
 Комментарий модератора 
Используйте теги форматирования кода!
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru