Популярные ответы с меткой

12 голосов

Как наиболее эффективно представить код Pascal на C++?

http://ideone.com/yFmnDU #include <cstdio> #include <iostream> using namespace std; #define var int #define begin { #define end ;} #define readln [](var&a, var&b, var&c, var&...
Qwertiy's user avatar
  • 122k
9 голосов
Принятый

Подскажите несколько несложных алгоритмов хэширования строк

Пожалуйста, открываем исходники класса java.lang.String, находим там метод hashCode: public int hashCode() { int h = hash; if (h == 0 && value.length > 0) { char val[] = ...
Artem's user avatar
  • 14.9k
7 голосов

Как задать массив от -100 до 100? числа должны идти по порядку, без рандома

Паскаль позволяет указывать диапазон индексов для массива, поэтому можно сделать так: A : array [-100..100] of integer И заполнить в простом цикле: For i:=-100 to 100 do a[i] := i; Рабочий ...
Grundy's user avatar
  • 80.9k
6 голосов

Сортировки, реализация на dotNet

Самая большая проблема вашего вопроса в том, что вы почему-то постеснялись показать свой код. Обсуждение кода без кода - вещь довольно бессмысленная. Поэтому вкратце: Сразу на трех алгоритмах - ...
DreamChild's user avatar
  • 36.2k
6 голосов
Принятый

Изменять контролы в динамически создаваемом фрейме delphi

Несмотря на то, что подход в ответах Pavel Helmer и Igor имеет место быть, я бы рекомендовал использовать его только для простейших случаев, когда нужно однократно поменять 1-2 свойства в целевом ...
kami's user avatar
  • 2,605
6 голосов
Принятый

Перевести код с Паскаля на VBA

Окей, вы привели ваш код, это уже хорошо. Смотрите, современные императивные языки все очень похожи друг на друга, поэтому переводить можно практически построчно. Попробуем? Читайте комментарии, они ...
VladD's user avatar
  • 206k
6 голосов
Принятый

Циклы for ... in

for i in range(1,n): for j in range(i+1,n+1): print(j)
Akina's user avatar
  • 31.2k
5 голосов
Принятый

Как перейти на следующий элемент внешнего цикла?

Самый простой вариант: завести флаг (булевую переменную), и устанавливать его, если элемент найден, в начале каждой итерации внешнего цикла сбрасывать: for i := 0 to length(ar_mas) do begin flag :...
Flowneee's user avatar
  • 3,789
5 голосов
Принятый

Java и Pascal. Цикл while и repeat ... until

Разница есть. В цикле while условие проверяется до выполнения тела цикла, а в цикле repeat после. В Java этих операторов нет по той простой причине, что в основу Java положен C-подобный (а не Pascal-...
avp's user avatar
  • 45.8k
5 голосов

Не работает простейший код паскаль

a=3200000+231435*x-380000*x; x=x+1; В этих строках должно быть := вместо =. uses Crt; А эту лучше вообще выкинуть. Вот тебе 23: https://ideone.com/PDvB7A
Qwertiy's user avatar
  • 122k
5 голосов

Перечисление как индекс для массива

Альтернативный вариант, для коллекции - эмуляция массива с помощью структуры. type TMyArr<T> = record private FValues : array[0..3] of T; procedure setValue( c:char; ...
teran's user avatar
  • 29.1k
5 голосов
Принятый

Перевод кода с циклом из Pascal в Python

Ваша проблема в том, что в пайтоне range исключает последний индекс: n = int(input()) c = 0 for n10 in range (0, n // 10 + 1): for n5 in range (0, n // 5 + 1): for n2 in range (0, n // 2 +...
Ainar-G's user avatar
  • 16k
5 голосов
Принятый

Нужно ли использовать begin чтобы сработало else?

Если действие после then одно, то можно и без begin .. end его записать. begin .. end в условиях, обычно используется для предотвращения ошибок в логике и формирования правильной структуры нескольких ...
Kromster's user avatar
  • 13.7k
5 голосов
Принятый

Почему скорость сортировки данных упорядоченных по убыванию и возрастанию практически одинаковая?

Хм... Вот только что было Сортировка кучей - не адаптивная (как и сортировка выбором, как и быстрая). Её скорость мало зависит от упорядоченности данных При построении кучи - при придании массиву ...
MBo's user avatar
  • 51.7k
4 голоса
Принятый

Преобразование из префиксной записи в инфиксную

Очевидный честный алгоритм — распарсить польскую запись в дерево. Имея дерево, можно рекурсивно строить любые формы записи (а также оптимизировать, компилировать и выполнять, что угодно). Для записи ...
VladD's user avatar
  • 206k
4 голоса

Взаимодействие div и mod

div и mod - это такие же математические операторы, как +, -, * и т. д. Попробуйте вместо операторов div и mod представить какие-нибудь другие математические операторы, например, + и -, и всё сразу ...
fori1ton's user avatar
  • 23.4k
4 голоса
Принятый

Ошибка "Ссылка на объект не указывает на экземпляр объекта"

Вы выделили память только под первое измерение, надо так же выделять под второе program One; var n: integer; a: array of array of integer; i, j: integer; begin read(n); SetLength(a, n); /...
Grundy's user avatar
  • 80.9k
4 голоса
Принятый

Никогда не выполняется блок else

Правильно отформатированный код - это, конечно, хорошо, однако Паскаль при определении вложенности операторов ориентируется только на ключевые слова: Если вы пишете оператор else, он считается ...
Risto's user avatar
  • 2,057
4 голоса

Как наиболее эффективно представить код Pascal на C++?

int k, l, m, n; cin >> k >> l >> m >> n; cout << "поля "<< (k^l^m^n&1 ? "разных цветов":"одного цвета")<<endl; Мне так больше нравится :)
pavel's user avatar
  • 9,844
4 голоса

Как найти натуральные трехзначные числа согласно условию задачи?

Не стоит решать задачу в лоб. Стоит немного подумать и применить математику. Нам известно, что первая цифра числа в три раза меньше последней. Значит она не может превышать 3. Последняя цифра это ...
Mike's user avatar
  • 44.1k
4 голоса
Принятый

Не изменяется указатель в Delphi

Все логично. ToDel := root^.right; копирует указатель из right в ToDel. Указатель в root и не должен поменяться. Если вам нужно поменять root, делайте так: ToDel := root^.right; root^.right := ToDel^....
kot-da-vinci's user avatar
  • 3,610
4 голоса

Pascal writeln Задом наперед

добавляй c к Своей строке и выводи Строку после цикла: var s:string; s = c + s;
santavital's user avatar
  • 1,812
4 голоса

Java и Pascal. Цикл while и repeat ... until

Разница существенна - цикл с пост-условием (repeat .. until) в любом случае выполнится как минимум 1 раз, вне зависимости от того, какое условие выхода заложено в цикл. Безусловно, этого же эффекта ...
kami's user avatar
  • 2,605
4 голоса
Принятый

Почему при дробных значениях алгоритм не работает?

Проблема в том, что числа представлены в двоичном виде. Десятичное значение 0,1 не может быть представлено в двоичном виде конечной дробью, оно равно 0,0001100110011...2 или 0,0(0011)2 в стандартной ...
Mark Shevchenko's user avatar
4 голоса
Принятый

Программа на C++ работает правильно, а на Pascal нет

Потому что в С++ int обычно не меньше 32 бит (вряд ли вы 16 бит найдёте), а в Паскале integer именно 16 бит. Вместо него следует использовать LongInt или int64/QWord Из-за возникновения переполнения ...
pavel's user avatar
  • 9,844
4 голоса
Принятый

Перечисление как индекс для массива

Не думаю, что это получится, поскольку буквы не идут по порядку. Я догадываюсь, зачем это вам :), но увы. Если это необходимо для построения дерева, можно пользоваться таким перечислением: type ...
Viktor Tomilov's user avatar
4 голоса
Принятый

Pascal. Ввод информации в массив и вывод через процедуры

У вас tAuto определен раньше, чем tOption, поменяйте их местами. Далее, в цикле for j := 1 to 3 do begin Writeln('Введите номер: '); readln(auto.Options[i].ID); Writeln('Введите название опции: ')...
Viktor Tomilov's user avatar
4 голоса

Ошибка времени выполнения: Индекс находился вне границ массива

Динамические массивы нумеруются с нуля. Цикл for var i:=1 to N do begin должен выглядеть хотя бы так for var i:=0 to N-1 do begin А вообще стоит оперировать такими функциями работы с массивами, ...
Viktor Tomilov's user avatar

Допускаются только превышающие минимальную длину ответы с наивысшим рейтингом, не являющиеся общими