9 голосов
Принятый

Сравнение производительности штатных компиляторов Delphi, pascalABC.net и C++

Похоже, такие желания появляются у каждого третьего студента :) По крайней мере, у нас часто возникают схожие студенческие задачи, особенно, если приходят студенты с мехмата или ВИТ и желают ...
Viktor Tomilov's user avatar
6 голосов
Принятый

Циклы for ... in

for i in range(1,n): for j in range(i+1,n+1): print(j)
Akina's user avatar
  • 31.8k
4 голоса

Не находится пробел в строке

Вы перепутали порядок аргументов: Function pos(Substr : String; S : String) : Byte; Должно быть так: var a:string;x:byte; begin a:='123 333'; writeln(a); x:=pos(' ', a); writeln(x); end....
vp_arth's user avatar
  • 27.2k
4 голоса

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

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

Попадание точки на внутреннюю границу?

Итак, формулирую условие задачи. На координатной оси с центром в точке (0, 0) задана окружность радиуса R. Внутри окружности находится прямоугольник с координатами диагонали Rect = ((Left, Top), (...
Anton Shchyrov's user avatar
4 голоса
Принятый

Составить программу, которая определяет, является ли четырёхугольник с вершинами в точках (x1,y1), (x2,y2), (x3,y3) и (x4,y4) ромбом

Как известно, векторное произведение векторов, лежащих на параллельных прямых(или коллинеарных) равно нулю, соответственно Вам необходимо проверить векторные произведения векторов, образуемых ...
Stranger in the Q's user avatar
4 голоса

Извлечение корня n-ой степени в обход натурального логарифма

Для вычисления корня y-й степени из X можно использовать алгоритм Ньютона. Задать начальное приближение- например, r0 = 1. Посчитать очередное приближение на основе предыдущего (r{i} означает ...
MBo's user avatar
  • 53.8k
3 голоса
Принятый

pascal abc сортировка

Судя по коду, вы пишите на PascalABC.NET… Тогда вот так: procedure Sort(var a : array of Integer); begin for var i := 1 to a.Length-1 do for var j := a.Length-1 downto i do if A[j - 1] &...
Jurii's user avatar
  • 119
3 голоса

Сравнение производительности штатных компиляторов Delphi, pascalABC.net и C++

Выберите характерные тестовые задачи и опишите их алгоритмы, выделите типовые показатели производительности (ТПП) алгоритмов. Закодируйте алгоритмы на всех интересующих языках, в том числе обеспечьте ...
Eugene Bartosh's user avatar
3 голоса
Принятый

Помогите изменить вывод ответа

Предполагаю, что решение должно выглядеть как-то так: procedure confrac(n: double); Var a, x, eps : double; begin eps := 0.000001; write('['); a := floor(n); x := n - a; write(a, '; '); ...
vp_arth's user avatar
  • 27.2k
3 голоса

Как побороть ошибку "Ожидалось имя процедуры или функции"?

Почти во всех языках программирования нельзя опускать знак умножения. А в приведённом коде на его месте даже пробелов нет. Во всех местах, где подразумевается умножение, должен стоять символ *. ...
Qwertiy's user avatar
  • 124k
3 голоса
Принятый

Проверить попадание случайных и заданых пользователем точек в окружность?

Создай процедуру, в нее вынеси весь код проверки точки. Параметром для процедуры будет введенная точка. Далее сделай бесконечный цикл while true do, в его теле считывай ввод пользователя и вызывай ...
Profesor08's user avatar
  • 1,275
3 голоса
Принятый

Помогите найти неявную ошибку

У вас либо непонимание метода пузырька, либо опечатки. Первая: for i2 := 1 to pi - i2 do Очень странная конструкция. Вам же второй цикл надо проводить так: for i2 := 1 to pi - i do Вторая: ...
Viktor Tomilov's user avatar
3 голоса
Принятый

Чем различаются параметры (в процедурах и функциях) с var и без var?

В справке написано (Parameters: Value and Variable Parameters): Most parameters are either value parameters (the default) or variable (var) parameters. Value parameters are passed by value, while ...
Kromster's user avatar
  • 13.8k
3 голоса
Принятый

Некорректно работает проверка

Во-первых, у вас стоит условие n < 1 И n > 23. Такое в принципе невозможно - нужно использовать ИЛИ, т.е. or вместо and. Во-вторых, тело программы, которое должно выполняться при верном условии ...
Vladimir Afanasyev's user avatar
3 голоса
Принятый

Не работает неранество в pascal

"Оно" как раз работает! Именно так, как написано - все три проверки у тебя независимые, а поскольку в каждом прямоугольном треугольнике есть два острых угла, то сначала определяется, что ...
Эникейщик's user avatar
3 голоса

Не существует подходящей функции преобразования в "const char*"

atoi нужна C-строка. Можно atoi(str2.substr(1, str2.find(' ') - 1).c_str()) Только вот у вас atoi вызывается с тремя параметрами, в то время как это функция от одного аргумента, и возвращаемое ею ...
Harry's user avatar
  • 222k
2 голоса
Принятый

Pascal ABC (while(a / 10) error)

Как то у вас из контекста вырвано… Если хотите, можете разобрать число на цифры математическими операциями: begin var N := 987654; var a : array of integer; SetLength(a, N.ToString....
Jurii's user avatar
  • 119
2 голоса

Сравнение производительности штатных компиляторов Delphi, pascalABC.net и C++

Насчёт производительности в расчётах. Пишу на Delphi научные программы (выч.гидродинамика) уже лет 15. До этого были Fortran, PL\1. Знаю, что сейчас считается хорошим тоном плюнуть в сторону Delphi, и ...
Владимир Прокофьев's user avatar
2 голоса
Принятый

Ошибка компилятора

Протестировал на версии 3.3.0.1590. Получил ошибку Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :'System.Exception: System.NullReferenceException: Ссылка на объект не указывает на экземпляр ...
Viktor Tomilov's user avatar
2 голоса
Принятый

Выкидывает из скомпилированного файла (Pascal)

Тогда уж так: var a, b, c: integer; function NOD(a, b:integer):integer; // Универсальная функция нахождения наибольшего общего делителя, можно упростить, поскольку проверка на 0 идёт в теле ...
Viktor Tomilov's user avatar
2 голоса
Принятый

Указание первоначального адреса элемента массива

Тебе необходим массив записей, который будет хранить: 1) индекс числа до сортировки 2) само число Структура выглядит так: Type YourType=record number:indeger; indexPrev:byte; end; Type ...
Санаев's user avatar
  • 1,875
2 голоса
Принятый

Pascal ABC.NET. Встречено '.', а ожидалось ';'

В данном случае ошибка в описании процедур: procedure Main; procedure ASugar; procedure ACream; procedure Final; не хватает ключевого слова forward procedure Main; forward; procedure ASugar; ...
Grundy's user avatar
  • 81.6k
2 голоса
Принятый

Ошибка "встречено 'else', а ожидался оператор"

Простые условия должны записываться в виде if .. then одна строчка кода else одна строчка кода Если же вам нужно выполнить несколько строк или блоков кода по условию, то следует обернуть их в ...
Kromster's user avatar
  • 13.8k
2 голоса

OpenGL - Как отобразить текстуру так, чтобы её размер в окне был таким же как и реальный размер

Решил вот так: glOrtho(0, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, 0, -1, 1);
Kolya Tkach's user avatar
2 голоса
Принятый

Ошибка : Встречено ';', а ожидалось ')'

При вызове процедур и функций, аргументы разделяются запятой: FOR k := 1 TO Length(arg) DO arg[k] := Decrypt(arg[k], 2);
Ainar-G's user avatar
  • 16k

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