Вопросы с меткой [pascalabc.net]

Реализация языка Object Pascal для .NET, ориентированная на обучение современному программированию.

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

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

В очередной раз очередной студент с горящими глазами объявил, что "всё, что у нас написано на Delphi - медленно и безобразно и, если мы уж не хотим перейти на C++, то почему бы не перейти на pascalABC....
Alexey Kozlov's user avatar
4 голоса
1 ответ
5k показов

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

program One; var n: integer; a: array of array of integer; i, j: integer; begin read(n); SetLength(a, n); for i := 1 to n do for j := 1 to n do read(a[i, j]); end. Почему ...
user avatar
3 голоса
2 ответа
294 показа

сколько раз подряд встречается символ в массиве

Дан массив символов,надо напечатать символ и сколько раз подряд он встретился. Например: aaaaaaabbbbbbcccccdaaa. a 7 b 6 c 5 d 1 a 3 Вот моя программа, но она зацикливается. type mas=array[1..100]...
Julia Ponomareva's user avatar
3 голоса
1 ответ
703 показа

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

Код: program NESCAFE_Automat; {$mode objfpc} {$H+} uses CRT; procedure Main; procedure ASugar; procedure ACream; procedure Final; var cofe: string[12]; sugar: integer; cream: integer; a: ...
DirBeer's user avatar
  • 33
2 голоса
2 ответа
156 показов

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

Есть алгоритм, он вычитывает попадает точка в окружность, на границу внешнюю/внутреннею или в фигуру внутри окружности. Но столкнулся с такой проблемой, он не корректно отображает информацию насчет ...
Mr.Flatman's user avatar
2 голоса
1 ответ
73 показа

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

Вот программа, её задача - сортировать строки по алфавиту, но она их не сортирует. Помогите найти, в чём погрешность. const pi = 5; type ar = array[1..5]of string; function bool(s001, s002: ...
Atom's user avatar
  • 169
2 голоса
1 ответ
109 показов

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

Суть вопроса в том, есть задача, попадание точки в окружность, есть массив который рандомно заполняется 15ю координатами, и условие проверяет попадают ли точки в окружность и т.д. Но хотелось бы ...
Mr.Flatman's user avatar
2 голоса
1 ответ
2k показов

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

Пишу программу на pascal abc. Язык вижу впервые, знаю ++ и в целом все написал, но вот сортировка пузыриком не идет у меня... var a: array of integer; //Массив типа [Int] r: integer; // Для ...
goga's user avatar
  • 111
2 голоса
1 ответ
310 показов

Как оптимизировать код вычисления дат?

Задали задачу: Дата некоторого дня характеризуется тремя натуральными числами: g(год), m(порядковый номер месяца) и n(число). По заданным g, n и m определить: а) Дату предыдущего дня; б) Дату ...
deyver's user avatar
  • 21
2 голоса
1 ответ
59 показов

Не работает программа вычисления значения интеграла по формуле трапеции

было дано задание вычислить значение интеграла при помощи цикла с параметром, но программа на Pascal почему-то выдаёт неверный результат (0.11(6) вместо 0.183), ошибку у себя найти не могу. Был бы ...
Егор Соколов's user avatar
2 голоса
1 ответ
1k показов

Как найти количество минимальных элементов в массиве?

Нужно найти количество элементов равных минимальному. Выводит неправильное количество var s, i: integer; A: array [1..5] of integer; min := 367131; begin randomize; for i := 1 to 5 do ...
Nikita's user avatar
  • 27
2 голоса
1 ответ
283 показа

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

Ошибка лежит в этих двух строчках(полный код представлен ниже) exptab[i]:= (45 * exptab[i-1]) mod 257; logtab[exptab[i]]:= i; Я так понимаю, что pascalabc представляет как exptab[i] будет равен ...
d4cen's user avatar
  • 23
2 голоса
1 ответ
61 показ

Как программно запустить программу и отправить ей команду

С#/PascalABC.NET - Как программно запустить стороннюю консольную программу и отправить ей команду так, чтобы она не закрывалась, а оставалась открытой и её главное окно не отображалось? Я пробовал ...
Николай Ткаченко's user avatar
2 голоса
1 ответ
120 показов

Оптимальность кода

Можно ли лучше написать этот код? begin ReadArrString(ReadlnInteger('N:')).Select(x -> x.Chars[1] + '').Aggregate((a, b) -> a + b).JoinIntoString('').Println(); end. Задача: Дана ...
Vladislav Moldovan's user avatar
1 голос
1 ответ
330 показов

Циклы for ... in

Решал задачку ЕГЭ,на питоне.Дан код из Паскаля: for i := 1 to N-1 do for j := i+1 to N do writeln(j); Пытался сделать такое на Питоне ,только траблы в том,что не получается сделать,чтобы ...
Mini Skill's user avatar
1 голос
1 ответ
370 показов

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

Помогите пожалуйста решить данную задачу на Паскале. Ну или можно и на js. Мой код (Pascal ABC): program romb; uses crt, graphwpf; var x1,x2,x3,x4,y1,y2,y3,y4, scale, cx, cy: integer; a,b,c,d: real;...
rovi ibragimov's user avatar
1 голос
1 ответ
44 показа

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

var a: string; x: byte; begin a := '123 333'; writeln(a); x := pos(a, ' '); write(x); end. Программа выводит 0, что значит, что в строке a пробела нет, хотя он присутствует. В чем ошибка?
Brain Arsonist's user avatar
1 голос
1 ответ
52 показа

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

var x,y:integer; begin readln(x); readln(y); if (x=90) or (y=90) or (180-(x+y)=90) then writeln('прямоугольный'); if (x>90) or (y>90) or (180-(x+y)>90) and (180-(x+y)<>90) and (x<&...
LOka's user avatar
  • 13
1 голос
1 ответ
551 показ

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

объясните пожалуйста понятным языком, чем различаются параметры (в процедурах и функциях) с var и без var?
Atom's user avatar
  • 169
1 голос
1 ответ
82 показа

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

Для лабы задание я решил а вот вывод правильно оформить не получается, помогите пожалуйста вывод должен получится таким: [1;1,4,4] Количество элементов вывода может изменятся в этом то и моя основная ...
Arbron's user avatar
  • 41
1 голос
2 ответа
110 показов

Pascal. Поиск минимального элемента дерева и его уровня

Почему в процедуре Minimums не происходит вход в цикл поиска минимального элемента(min) и его уровня (g)? И как это исправить? const Max=10; type MyElement = ^PElement; Pelement = record number: ...
FatalP's user avatar
  • 124
1 голос
1 ответ
1k показов

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

Не могу понять, что не так(строка с ошибкой указана) {––––– Зашифровка одного символа –––––} function Encrypt(arg: char; CKey: integer): char; var x: integer; begin x := Ord(arg) + CKey; if x &...
Влад's user avatar
1 голос
1 ответ
94 показа

Инверсия промежутка в массиве

На досуге познаю Pascal, и делаю разные манипуляции с массивами. Итак, в голову пришла идея сделать инверсию элементов (ОТ и ДО (элементы выбираются с клавиатуры)), делаю это все через процедуру ...
user avatar
1 голос
1 ответ
45 показов

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

Был дан массив из 3-х разрядных числа,необходимо было найти суммы цифр каждого числа и выстроить их по убыванию с указанием их первоначальных адресов. pascal, program lab19_1; const n = 10; var ...
mex111's user avatar
  • 47
1 голос
1 ответ
553 показа

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

Почему не компилируется нормально следующая программа? uses LinkedList; begin var L := new TLinkedList<integer>(); end. , где LinkedList: ///Классы связных списков. unit LinkedList; type ...
Vladislav Moldovan's user avatar
1 голос
2 ответа
167 показов

Переменная double в Windows Forms Pascal ABC

Пишу программу по расчету BMI на формах, ранее написал в консольном виде. Код: uses crt; var m:integer; var h,r:double; begin writeln('Вас приветствует программа по расчету BMI(Расчет индека массы ...
Ruslan K.'s user avatar
1 голос
2 ответа
251 показ

Запись текста в файл в дизайнере форм

Ребят, хотел переделать код. Вместо &File.AppendAllText хотел сделать добавление текста в файл через Append, Reset и т.д. Подскажите, что я не так добавил? Ошибка: Ссылка на объект не указывает ...
Sin2p's user avatar
  • 59
1 голос
2 ответа
264 показа

Как ускорить работу исполнителя чертёжник в Pascal ABC

Осваиваем с ребенком Pascal ABC (школьный курс информатики - 6 класс). Написали программку, которая рисует некий орнамент из квадратиков. Рисование одного квадратика оформили как процедуру. Рисование ...
Виктор Пелих's user avatar
1 голос
1 ответ
31 показ

Не работает repeat...until

У меня в коде есть цикл repeat..until. Есть логическая переменная и переменная с ответом юзера. Проблема в том, что при введении любого ответа, кроме "да" (т.е. m := false), у меня происходит ...
EvilBDSM's user avatar
  • 111
1 голос
1 ответ
21 показ

не могу вычесть из счетчика 1

помогите, плиз. хочу написать простенькую "игру", где каждые 0.5 сек. с рандомными координатами появляется объект, пользователь должен его "удалить" с помощью ПКМ, но, если на экране 10 объектов, то ...
ksilusm's user avatar
  • 13
1 голос
1 ответ
590 показов

Не получается заменить элементы ниже главной диагонали

Мне нужно заменить элементы ниже главной диагонали в матрице А. Я написал код, но он не совсем правильно работает. Он заменил элементы под диагональю слева, а нужно справо =( Ввод: Введите число ...
dbUser11's user avatar
  • 278
1 голос
1 ответ
22 показа

Проблема с организацией вывода элементов массива

Мне нужно заполнить вектор ГПСЧ. Я это сделал. Далее нужно Вывести элементы массива в таком порядке: a1,a10,a2,a11...a9,a18 Код, который я написал, находит только первые два элемента в том порядке, ...
dbUser11's user avatar
  • 278
1 голос
2 ответа
91 показ

Индекс находился вне границ массива. Укажите ошибку

Проблема указана в коде, помогите исправить procedure PutInQue(var Que: string; arg: char); begin Que := Que + arg; { добавляем в конец строки } end; { Выбор из очереди Que элемента в параметр arg }...
Atom's user avatar
  • 169
1 голос
1 ответ
150 показов

Не получается создать файл записей

Пытаюсь создать типизированный файл из записей, но тут выскакивает ошибка: records.pas(9):Типизированый файл не может содержать элементы такого типа Ранее этот же код запускался в turbopascal'е и ...
Ben Nevis's user avatar
  • 125
1 голос
3 ответа
2k показов

Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти это число - Pascal ABC

Написать программу на Паскале: Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти это число. Дело в том,что моя программа работает только в pascal.net, а в ...
Artem ABC's user avatar
1 голос
1 ответ
228 показов

Обработка файла - LINQ

Задача: LinqObj6°. Исходная последовательность содержит сведения о клиентах фитнес-центра. Каждый элемент последовательности включает следующие целочисленные поля: <Код клиента> <...
Vladislav Moldovan's user avatar
1 голос
1 ответ
4k показов

Ошибка времени выполнения: Входная строка имела неверный формат

const n = 5; var f: text; r: array[1..n] of real; begin assign(f, 'input.txt'); reset(f); var i: integer := 1; var min: real := 0; while not eof(f) do begin var a: string := ''; ...
HolyPr1esT's user avatar
1 голос
1 ответ
83 показа

Ввод "Всё ли верно введено" и в случае ошибки переход для исправления

Как сделать, чтобы после ввода данных в матрицу, программа спрашивала всё ли верно введено и в случае если нет, то предлагала выбрать в какой именно строке и дала возможность исправить эту ошибку в ...
Sergey M's user avatar
1 голос
1 ответ
121 показ

Контроль ввода данных и readln

Доброй ночи. Работаю в PascalABC.Net. Долго возился с контролем ввода и в итоге сделал его, однако считывает он теперь лишь переменную s и соот-но решение не дает, однако, если поставить за ним " ...
Sergey M's user avatar
1 голос
1 ответ
227 показов

Определение принадлежности точки выделенной области

Вроде все правильно, но ошибка все равно выходит. Заранее спасибо. Вот сам код : uses crt; var Xa,Xb,Xc,Ya,Yb,Yc,x,y:integer; ab,bc,ac,s1,s2,p1,p2,ax,xc:real; begin read(Xa,Xb,Xc,Ya,Yb,...
Сергей Чижов's user avatar
1 голос
1 ответ
1k показов

PascalABC.NET FormsABC: Изменение текста TextField

Я не знаю, как поменять значение текста в TextField. Вот весь код программы: uses FormsABC; const m_pi = 3.141592; var header := new TextLabel('Рассчет'); b1 := new FlowBreak(64); field := ...
Craftist's user avatar
1 голос
2 ответа
2k показов

Про­вести ча­стот­ный ана­лиз тек­ста: подсчет количества букв

На вход в про­грам­му по­да­ет­ся текст, со­сто­я­щий из про­пис­ных букв рус­ско­го и ан­глий­ско­го ал­фа­ви­та. между сло­ва­ми ста­вит­ся один про­бел, ввод тек­ста за­кан­чи­ва­ет­ся точ­кой. (...
mango44's user avatar
  • 183
1 голос
1 ответ
62 показа

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

var f: text; schet, max: integer; s: string; begin assign(f, '24 варианты 1-4.txt'); reset(f); max := 0; begin readln(f, s); schet := 1; for var i :...
Ратмир's user avatar
1 голос
0 ответов
243 показа

Как перенастроить компиляцию pascal в VScode на Ubuntu

Суть проблемы: VScode компилирует фалы .pas как надо, но запустить пытается .exe файл через mono. Команда, которую использует VScode: fpc "/home/kado/Документы/VSprojects/main.pas" &&...
Zaard's user avatar
  • 129
1 голос
1 ответ
223 показа

Работа с массивом в pascal.abc

Задача следующая: Заполнить массив 100 случайными целыми числами от 1 до 10 И дальше нужно выполнить ещё 3 условия: заполнить так, чтобы всех элементов было поровну Найти самую длинную цепочку чётных ...
SkreedX's user avatar
  • 11
1 голос
1 ответ
34 показа

Процедура возвращает пустую матрицу

Есть модуль с процедурами. Функция MultXSq работает странно. Внутри процедуры сохраняет значения в итоговую матрицу, есть вывод внутри и все хорошо. Но по запросу вывода этой самой матрицы с ...
GrayMyDay's user avatar
1 голос
1 ответ
37 показов

Почему при компиляции программы выходят ошибки StackOverflow и то, что индекс находится за границей массива?

Пишу программу, имплементацию этой игры (https://www.lemoda.net/javascript/flood-it/index.html), но у я никак не могу понять, где именно у меня ошибка. Unhandled Exception: System....
weyitef459's user avatar
1 голос
1 ответ
2k показов

Ошибка: нет индексного свойства по умолчанию для типа char

Не могу понять в чём проблема(строка указана) var i: char; j: integer; s: string; x: boolean; begin writeln('Введите строку:'); readln(s); for i := char[33] to char[255] do{Тут пишет:...
Влад's user avatar
1 голос
1 ответ
152 показа

Как исправить ошибку пишет, что 'Встречено else, а ожидалось ;'? [закрыт]

Помогите, пожалуйста, пишет, что 'Встречено else, а ожидалось ;' Program GO; var a,b: integer; w: string; begin repeat writeln('Введите x'); readln(a); writeln('Введите y'); readln(...
Влад's user avatar
1 голос
1 ответ
487 показов

Как убрать изображение PascalABC.net

Допустим, я вывожу изображение так: uses GraphABC; begin (New Picture('Картинка.jpg')).Draw(0,0); end. Как его потом убрать? Или заменить?
Денис Шагалов's user avatar