Skip to main content
Stack Overflow на русском

Вопросы с меткой [pascal]

Pascal — императивный язык программирования созданный в 70-х, 80-х годах. При использовании метки по возможности уточняйте современную версию языка Delphi, Free Pascal и PascalABC.NET

Фильтрация
Сортировка
Метки
1 голос
1 ответ
74 показа

На данный момент выдает две ошибки: unit2.pas(38,59) Error: Type identifier expected unit2.pas(38,59) Error: Syntax error, ";" expected but "ARRAY" found Пробовал так же ...
F1Prrrufe's user avatar
3 голоса
0 ответов
101 показ

Код должен выполнить синтаксический анализ определения и объявления записи на языке Pascal. Если вы допускаете ошибки в записи по одной за раз, все работает корректно, но если вы допускаете несколько ...
0 голосов
0 ответов
69 показов

В С++ при копировании объекта в функцию используется конструктор копирования, с помощью него создается копия объекта внутри функции. Как происходит передача объекта в функцию или процедуру в Lazarus?
zurn's user avatar
  • 430
0 голосов
1 ответ
61 показ

Program pr1; type arsen = class n: integer; a: array of array of integer; m: integer; function f1(): integer; begin write('n = '); readLn(n); write('m = '); readLn(m); ...
Арсен's user avatar
0 голосов
2 ответа
284 показа

Есть у меня вот этот FreePascal: И я в нём периодически пишу программы. И вот такая проблема - некоторые коды я беру с других источников, чтобы потестить, а они довольно длинные, например: {Программа ...
0 голосов
1 ответ
36 показов

Свойственно имею программу по мз (код под примерами запуска, т.к. он большой), первым делом инициализирую мз, потом просматриваю все записи (рис 1) на данный момент все хорошо, потом использую либо ...
0 голосов
1 ответ
222 показа

У меня есть обработчик, в котором я сравниваю длину слово полученную от пользователя и сравниваю с числом, который так же ввел пользователь в InputCountFromUser и если они совпадают я ввожу слово в ...
AslanPAPA's user avatar
  • 525
-2 голоса
1 ответ
71 показ

Примечание реализация без дополнительных строк Вот мой код: function mycopy(s: string; start: byte; len: byte): string; var i: byte; begin s:=''; i:=1; while (start<=length(s)) do begin ...
0 голосов
1 ответ
173 показа

ВАЖНО!!! Без использования массива строк, без доп. строки и без использования стандартных функций и процедур обработки строк (и также динамическое выделение памяти бесполезно), также пример функции ...
0 голосов
1 ответ
101 показ

я набросал такой код, но у меня индекс выходит за границы , сам код function myinsert(substring: string;var s: string; start: integer): string; var i, l,l1, f: integer; begin l := length(substring)...
-1 голос
1 ответ
49 показов

Сделал игру угадай число, и так как в разных местах мне нужно делать одну и ту же проверку, я решил изучить функции и процедуры. Сделал функцию, что если попыток у игрока меньше или равно 0, то пишет ...
Nqweqweqwe's user avatar
0 голосов
1 ответ
30 показов

Вчера сделал калькулятор, нажал на кнопку проверить здоровье кода и увидел, что у меня было 64% из-за устаревших конструкций. Я почитай официальную документацию, переписал код. Теперь здоровье кода ...
Nqweqweqwe's user avatar
0 голосов
1 ответ
55 показов

Я сделал выборочный калькулятор, т.е. в котором можно выбрать знак вычисления и числа, и для того чтоб не выдавало ошибку при вводе знака, я решил сделать проверку, которая срабатывает если sign <&...
Nqweqweqwe's user avatar
0 голосов
0 ответов
412 показов

Постоянно ошибка с меткой. Unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type guessanumber = class(Form) procedure textBox1_TextChanged(sender: Object; e: ...
AstroPowerX's user avatar
0 голосов
0 ответов
149 показов

Есть код программы которая считает общую сумму доходов расходов и прибыль за год: var Dohodi:array [1..12] of real; Rashodi:array [1..12] of real; Month:integer; PribilJanDec, ...
Lcfr's user avatar
  • 23

15 30 50 на странице
1
2 3 4 5
...
63

AltStyle によって変換されたページ (->オリジナル) /