Вопросы с меткой [pascalabc.net]
Реализация языка Object Pascal для .NET, ориентированная на обучение современному программированию.
225
вопросов
0
голосов
0
ответов
12
показов
Ошибка времени выполнения: System.ArgumentException: Недопустимый параметр
Хотел сделать игру на подобие Zombie Smasher для курсовой работы, но в процессе игры она вылетает с ошибкой на строке 77 или вообще просто вылетает без ошибки. Не могу понять в чем проблема. Вот код:
...
0
голосов
0
ответов
49
показов
Ошибка "InvalidProgramException: Среда выполнения Common Language Runtime обнаружила недопустимую программу" в Pascal ABC
Хочу сделать простой генерированый чат.
uses crt;
var user: array [1..3] of string = ('user1','user2','user3');
begin
writeln(user[PABCsystem.Random(3).tostring]);
end.
...
0
голосов
0
ответов
22
показа
не понимаю как исправить ошибку: "Ошибка времени выполнения: Попытка считывания за концом текстового файла"
дана следующая задача:
А. Создать файл, содержащий сведения о личной коллекции книголюба. Структура записи - шифр книги, автор, название, год издания, местоположение (номер стеллажа, шкафа и т.д.). ...
-1
голос
1
ответ
33
показа
pascalABC.net: При проигрыше, сообщение о том, что вы проиграли выводится два раза
Сделал игру угадай число, и так как в разных местах мне нужно делать одну и ту же проверку, я решил изучить функции и процедуры. Сделал функцию, что если попыток у игрока меньше или равно 0, то пишет ...
0
голосов
1
ответ
16
показов
PascalABCNet, при перезапуске кода функция вызывается два раза
Вчера сделал калькулятор, нажал на кнопку проверить здоровье кода и увидел, что у меня было 64% из-за устаревших конструкций. Я почитай официальную документацию, переписал код. Теперь здоровье кода ...
0
голосов
1
ответ
31
показ
Не работает проверка PascalABCNET
Я сделал выборочный калькулятор, т.е. в котором можно выбрать знак вычисления и числа, и для того чтоб не выдавало ошибку при вводе знака, я решил сделать проверку, которая срабатывает если sign <&...
0
голосов
1
ответ
18
показов
Ошибка времени выполнения: Индекс находился вне границ массива. Inc(i)
Inc(i) выдаёт мне ошибку о выходе за границы массива, не понимаю что сделать надо
TextGen.pas(23) : Ошибка времени выполнения: Индекс находился вне границ массива.
program TextGenerator;
const
...
0
голосов
0
ответов
33
показа
Как сделать 3D объект прозрачным в PascalAbc.NET в библиотеке Graph3D?
Хочу добавить прозрачности объекту. Пытался играться с разными функциями класса Materials: Diffuse, Specular, Emissive. Передавал им в качестве параметра ARGB функцию с параметром прозрачности ...
-1
голос
1
ответ
97
показов
Как в Паскале вывести цифры от 0 до 9 змейкой?
uses crt;
var
X, i, g, n, y: integer;
procedure f;
begin
Delay(100);
TextColor(x + 1);
gotoxy(x * 2, 1);
write(x);
end;
begin
read(n);
clrscr;
for X:= 0 to 4 do f; ...
0
голосов
1
ответ
61
показ
Не могу запустить программу в PascalABC.Net в Linux MInt
Почему нельзя запустить программу? Установил компилятор как сказано в инструкции, не знаю правильно ли называть это компилятором. Я пользовался этим = это та самая инструкция https://pascalabc.net/...
0
голосов
0
ответов
66
показов
Почему Паскаль не считывает несколько переменных разных типов данных в одной строке read?
program calc;
var a, b: real;
z: char;
begin
readln(a, b);
readln(z);
if z = '+' then
writeln('a + b = ', a + b)
else
if z = '-' then
writeln('a - b = ', a - b)
else
...
0
голосов
2
ответа
93
показа
Как отключить освещение сцены по умолчанию в PascalABC.NET в библиотеке Graph3D?
Имеется такая простая программа на языке Паскаль в среде PascalABC.Net:
uses Graph3D;
begin
View3D.ShowGridLines := False;
View3D.BackgroundColor := Colors.Black;
Cylinder(0,0,0,5,2,True, Colors....
0
голосов
0
ответов
33
показа
Программа завершается раньше времени ,не работает dispose паскаль
uses
Crt;
type
Node = record
valuev:real;
next:^Node;
prev:^Node;
end;
var
header:^Node;
NewNode:^Node;
curNode:^Node;
command:integer;
procedure Create_List(List:^Node)...
0
голосов
1
ответ
46
показов
Не могу обратиться к объекту по индексу
Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свойство. Но при попытке ...
0
голосов
1
ответ
73
показа
При изменении значений в pascal программа перестаёт работать
Есть код
program qqq;
const n=10;
var a:array[4..n] of integer;
k, i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(6)+4;
write(a[i], ' ');
end;
writeln;
k:=0;
for i:...
0
голосов
0
ответов
54
показа
Тонкости разработки изометрических игр
Полазив в гугле и немного по стэку, так и не нашёл внятно изложенных способов создания изометрии. А те что есть, просто обрываются на пoлycлoвe. Единственное, что более менее внятно объяснено это ...
0
голосов
0
ответов
30
показов
что значит ошибка времени выполнения: Индекс находится вне границ массива
Задание звучало так: Найти наибольшее количество подряд идущих цифр. Я написал такую программу, но ничего не работает из-за этой ошибка и главное не понятно почему.
0
голосов
2
ответа
36
показов
Проблема с динамическим массивом в паскале
Дан массив вещественных чисел Х. Записать элементы массива Х в массив Y следующим образом: в начальной части расположить положительные элементы, затем – отрицательные элементы, нулевые элементы не ...
-1
голос
1
ответ
127
показов
Помогите, пожалуйста, исправить ошибку на Pascal
Задание: Описать функцию, возвращающую количество перемен знака в вещественном векторе длины 20. Использовать эту функцию для нахождения всех номеров строк с максимальным числом перемен знака в ...
0
голосов
1
ответ
25
показов
как увеличить число, факториал которого мы находим
есть задание
число, факториал которого мы находим, увеличивается каждый раз на 2. как это реализовать в паскале?
вот код:
const n = 3;
const f = 6;
var a, sin_a, sin_a1: real;
factorial,factorial1: ...
-1
голос
1
ответ
225
показов
Как удалить введенную строку
var s,t:string;
var k: integer;
begin
readln(s);
readln(t);
for var i:=1 to length(s) do
begin
k:=pos(t,s); ...
0
голосов
3
ответа
352
показа
вывести на экран в алфавитном порядке все слова строки, в которых есть четыре подряд идущие согласные буквы
вот мой код. я не знаю, как обратиться к элементам строкового массива. в первой строке выдает ошибку "ожидался тип".
var a: array ['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', ...
-2
голоса
1
ответ
52
показа
Помогите переписать программу с basic на pascal
Я совсем не знаком с бейсиком, помогите переписать программу построения графика функции y = sin (x) * x.
Rem График функции
CLS
Screen 9
Color 2
h = .1
xnach = -5 : xkon = 5
n = INT((xkon – xnach) / h)...
-6
голосов
1
ответ
33
показа
Встречено 'else', а ожидался оператор(52 строчка)
program gfg;
const n = 10;
type
mas = array[1..n] of integer;
var a:mas;
procedure vib(var z:mas);
var
max, id_max, i, j,c,o,p: integer;
begin
o:= 0;
p:= 1;
writeln('изначальный');
for i := ...
0
голосов
1
ответ
53
показа
Qsot выдает переполнение стека [PascalABC.NET]
Программа для быстрой сортировки на Паскале выдает переполнение стека на любом массиве, я понимаю, что проблема в рекурсии, но где именно - не понимаю.
const
n = 10;
type
arr = array[1..n] ...
0
голосов
0
ответов
167
показов
Pascal ABC NET , исправьте пожалуйста код
Unit Unit1;
interface
uses System, System.Windows.Forms;
type
Form1 = class(Form)
procedure button1_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
internal
{$resource ...
0
голосов
2
ответа
310
показов
Как проверить, что число не существует в какой то системе счисления?
C клавиатуры вводится число. Вывести все системы счисления, в
которых данное число не существует.
Как такое решать?
0
голосов
1
ответ
96
показов
Как удалить заданное число, через тип данных integer и real?
вот попалась такая задачка: Дано целое число N(>0). Вводится цифра A(0<=A<=9). Вывести число, которое получится путем удаления всех вхождений заданной цифры A из десятичной записи члена N (...
0
голосов
1
ответ
944
показа
не пойму как сделать задание с елочкой. паскаль
У меня не получается понять задание:
Пользователь вводит число N>0. Программа печатает N строк, содержащих символ "*", расположенные таким образом, чтобы результат был похож на на елочку:...
0
голосов
1
ответ
702
показа
Какая сложность у сортировки подсчетом?
Всем привет! Подскажите пожалуйста какая сложность у сортировки подсчетом?
Имеется ввиду метод сортировки в котором используется вспомогательный массив, который заполняется нулями.
Сколько будет ...
-1
голос
1
ответ
46
показов
Ошибка времени выполнения: Индекс находится вне границ массива
Написал программу но почему то выдаёт ошибку: "Ошибка времени выполнения: Индекс находился вне границ массива."
program DZ;
var D: string;
q, h, p, r: integer;
l: real;
const ...
0
голосов
1
ответ
97
показов
Как подключить библиотеку AForge.NET в PascalABC.NET?
Я хочу попробовать сделать фото с камеры моего компьютера, для этого я установил библиотеку AForge.NET, в установщике ничего не изменял, всё по умолчанию. Как подключить её к программе на PascalABC....
0
голосов
0
ответов
133
показа
Как мне подключить модуль и использовать namespaces, class?
Не спрашивайте у меня зачем мне это надо 😁.
Создаю так значит проект на PascalABC.NET Form.
В основном pas файле у меня так примерно выглядит код:
uses Unit1;
{$reference Extensions.dll}
begin
...
0
голосов
1
ответ
198
показов
Как посчитать количество произведенных сравнений элементов массива в PascalABC?
"Программа для поиска заданного элемента в массиве"
Суть:
Заданный элемент для поиска вводить с клавиатуры.
Массив заполнять с клавиатуры.
В результате выполнения программы вывести на экран:
...
1
голос
1
ответ
82
показа
Не понимаю как исправить. Ошибка времени выполнения: Индекс находился вне границ массива
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 :...
1
голос
0
ответов
285
показов
Как перенастроить компиляцию pascal в VScode на Ubuntu
Суть проблемы: VScode компилирует фалы .pas как надо, но запустить пытается .exe файл через mono.
Команда, которую использует VScode: fpc "/home/kado/Документы/VSprojects/main.pas" &&...
-1
голос
1
ответ
606
показов
Не существует подходящей функции преобразования в "const char*" [закрыт]
Начал переписывать задачу с PascalABC на C++ и столкнулся с ошибкой "не существует подходящей функции преобразования из "std::basic_string<char, std::char_traits, std::allocator>" ...
0
голосов
0
ответов
87
показов
Перевод с PascalABC на C++
Искал замены некоторым функциям из PascalABC довольно долго, но так и не нашёл. Проблема в функциях copy, pos и delete. Чем можно их заменить?
for i := 1 to m do
begin
readln(s);
name[i] :=...
0
голосов
1
ответ
153
показа
Ошибка: "Нет перегруженной подпрограммы с такими типами параметров" код не работает, в чем проблема?
program Hello;
var
a, x, b, y :real;
begin
writeln('Введите b Переменную');
readln(b);
writeln('Введите y Переменную');
readln(y);
x:=(b*(sqrt(b+y)-(sin(b)/cos(b))/(y+1)));
a:=((exp(ln(...
0
голосов
0
ответов
37
показов
Математический биллиард на Pascal
Недавно дали задание написать на PascalABC программу, реализующую решение логической задачи на переливание между сосудами методом математического биллиарда. Долго мучался, ничего не вышло.
Знает кто-...
-1
голос
2
ответа
16
показов
Почему вместо строкового значения выдаётся цифра и как сделать правильно?
type grupp2021=record
gruppa:integer;
end;
var
a:array [1..15] of grupp2021;
b:string;
i,n:integer;
begin
readln(n);
for i:= 1 to n do
begin
a[i].gruppa:=1+random(5);
case a[i].gruppa of
1:b:='...
0
голосов
1
ответ
394
показа
Как преобразовать данные из текстового документа в массив
var
a:text;
s:string;
b:array of string;
begin
en3 := Encoding.GetEncoding(65001);
assign(a, 'C:\Users\Новый текстовый документ.txt');
//пусть предложение будет следующим: Найти ...
-3
голоса
1
ответ
194
показа
Извлечение корня n-ой степени в обход натурального логарифма
Имеется некоторое число x и степенной корень у. Нужно извлечь корень без использования натурального логарифма (Exp(Ln(X) / 3) и пр.). Желательно на Pascal, либо Delphi.
2
голоса
1
ответ
59
показов
Не работает программа вычисления значения интеграла по формуле трапеции
было дано задание вычислить значение интеграла при помощи цикла с параметром, но программа на Pascal почему-то выдаёт неверный результат (0.11(6) вместо 0.183), ошибку у себя найти не могу. Был бы ...
0
голосов
2
ответа
176
показов
Как из строки с наименованием цвета (например clGold) получить RGB-составляющие цвета
Если мою просьбу изложить коротко, без предисловия, то нужно из строки с наименованием цвета (например clGold) получить RGB-составляющие цвета.
А если не кратко, то...
Pascal ABC.NET
В справке (...
0
голосов
2
ответа
581
показ
Как записать условие в программе? [закрыт]
"Исходная строка содержит десять единиц и три двойки, других цифр нет, ТОЧНЫЙ ПОРЯДОК РАСПОЛОЖЕНИЯ ЕДИНИЦ И ДВОЕК НЕИЗВЕСТЕН."
Подскажите пожалуйста, как можно записать условие, что точный ...
-1
голос
1
ответ
26
показов
PascalABC ошибка [закрыт]
Пишу chat bot, PascalABC ошибка ошибка времени выполнения входная строка имела неверный формат помогите пожалуйста
0
голосов
1
ответ
100
показов
Почему мне выдаёт "Program1.pas(10) : Встречено 'else', а ожидался оператор" в моей программе?
Program PerevodChisla;
procedure Dec2Bin(var decim : integer; binar: string);
begin
readln(Decim);
if decim > 0 then
begin
if Decim mod 2 = 0 then
binar := Binar + '0';...
0
голосов
0
ответов
81
показ
Ничья крестики-нолики
PascalABC.Net
Каждая клетка это Label, которая имеет свой номер, и при вводе значений в TextBox заменяет его (Label) на крестик либо нолик. Варианты победы прописаны, а вот как сделать ничью???
...
0
голосов
1
ответ
93
показа
Как сделать, чтобы при вводе значения его нельзя было изменить?
Есть поле состоящее из Label, при вводе значения в TextBox оно переносится в определенный Label и заменяет его(вместо цифры крестик или нолик). Как сделать так, чтобы при вводе значения (допустим в ...