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

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

Фильтрация
Сортировка
Метки
0 голосов
2 ответа
36 показов

Как отключить освещение сцены по умолчанию в PascalABC.NET в библиотеке Graph3D?

Имеется такая простая программа на языке Паскаль в среде PascalABC.Net: uses Graph3D; begin View3D.ShowGridLines := False; View3D.BackgroundColor := Colors.Black; Cylinder(0,0,0,5,2,True, Colors....
ArtemLP's user avatar
  • 300
0 голосов
0 ответов
22 показа

Программа завершается раньше времени ,не работает 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)...
WYILJACK's user avatar
0 голосов
1 ответ
28 показов

Не могу обратиться к объекту по индексу

Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свойство. Но при попытке ...
EdwardElric's user avatar
0 голосов
1 ответ
45 показов

При изменении значений в 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:...
Ilian445's user avatar
0 голосов
0 ответов
47 показов

Тонкости разработки изометрических игр

Полазив в гугле и немного по стэку, так и не нашёл внятно изложенных способов создания изометрии. А те что есть, просто обрываются на пoлycлoвe. Единственное, что более менее внятно объяснено это ...
user409986's user avatar
0 голосов
0 ответов
27 показов

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

Задание звучало так: Найти наибольшее количество подряд идущих цифр. Я написал такую программу, но ничего не работает из-за этой ошибка и главное не понятно почему.
IGI's user avatar
  • 1
0 голосов
2 ответа
31 показ

Проблема с динамическим массивом в паскале

Дан массив вещественных чисел Х. Записать элементы массива Х в массив Y следующим образом: в начальной части расположить положительные элементы, затем – отрицательные элементы, нулевые элементы не ...
Knopi Cat's user avatar
-1 голос
1 ответ
49 показов

Помогите, пожалуйста, исправить ошибку на Pascal

Задание: Описать функцию, возвращающую количество перемен знака в вещественном векторе длины 20. Использовать эту функцию для нахождения всех номеров строк с максимальным числом перемен знака в ...
Doshi's user avatar
  • 11
0 голосов
1 ответ
22 показа

как увеличить число, факториал которого мы находим

есть задание число, факториал которого мы находим, увеличивается каждый раз на 2. как это реализовать в паскале? вот код: const n = 3; const f = 6; var a, sin_a, sin_a1: real; factorial,factorial1: ...
kan3k1k3n's user avatar
-1 голос
1 ответ
52 показа

Как удалить введенную строку

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); ...
Zahar4ik's user avatar
0 голосов
3 ответа
246 показов

вывести на экран в алфавитном порядке все слова строки, в которых есть четыре подряд идущие согласные буквы

вот мой код. я не знаю, как обратиться к элементам строкового массива. в первой строке выдает ошибку "ожидался тип". var a: array ['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', ...
kan3k1k3n's user avatar
-2 голоса
1 ответ
38 показов

Помогите переписать программу с basic на pascal

Я совсем не знаком с бейсиком, помогите переписать программу построения графика функции y = sin (x) * x. Rem График функции CLS Screen 9 Color 2 h = .1 xnach = -5 : xkon = 5 n = INT((xkon – xnach) / h)...
stack's user avatar
  • 1
0 голосов
0 ответов
54 показа

вывести слова в обратном алфавитном порядке

дан массив согласных букв. если число, вводимое с клавиатуры больше, чем согласных в слове, то вывести слова в обратном алфавитном порядке. вот часть кода: const mas1=['б', 'в', 'г', 'д', 'ж', 'з', 'й'...
kan3k1k3n's user avatar
-6 голосов
1 ответ
31 показ

Встречено '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 := ...
user527227's user avatar
0 голосов
1 ответ
38 показов

Qsot выдает переполнение стека [PascalABC.NET]

Программа для быстрой сортировки на Паскале выдает переполнение стека на любом массиве, я понимаю, что проблема в рекурсии, но где именно - не понимаю. const n = 10; type arr = array[1..n] ...
hyperoman's user avatar
0 голосов
0 ответов
93 показа

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 ...
Раненая Утка's user avatar
0 голосов
2 ответа
191 показ

Как проверить, что число не существует в какой то системе счисления?

C клавиатуры вводится число. Вывести все системы счисления, в которых данное число не существует. Как такое решать?
KaneJons's user avatar
0 голосов
1 ответ
34 показа

Как удалить заданное число, через тип данных integer и real?

вот попалась такая задачка: Дано целое число N(>0). Вводится цифра A(0<=A<=9). Вывести число, которое получится путем удаления всех вхождений заданной цифры A из десятичной записи члена N (...
KaneJons's user avatar
0 голосов
1 ответ
511 показов

не пойму как сделать задание с елочкой. паскаль

У меня не получается понять задание: Пользователь вводит число N>0. Программа печатает N строк, содержащих символ "*", расположенные таким образом, чтобы результат был похож на на елочку:...
KaneJons's user avatar
0 голосов
1 ответ
283 показа

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

Всем привет! Подскажите пожалуйста какая сложность у сортировки подсчетом? Имеется ввиду метод сортировки в котором используется вспомогательный массив, который заполняется нулями. Сколько будет ...
Pahomka's user avatar
  • 51
-1 голос
1 ответ
34 показа

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

Написал программу но почему то выдаёт ошибку: "Ошибка времени выполнения: Индекс находился вне границ массива." program DZ; var D: string; q, h, p, r: integer; l: real; const ...
Jaks's user avatar
  • 1
0 голосов
1 ответ
64 показа

Как подключить библиотеку AForge.NET в PascalABC.NET?

Я хочу попробовать сделать фото с камеры моего компьютера, для этого я установил библиотеку AForge.NET, в установщике ничего не изменял, всё по умолчанию. Как подключить её к программе на PascalABC....
TimKostenok's user avatar
0 голосов
0 ответов
83 показа

Как мне подключить модуль и использовать namespaces, class?

Не спрашивайте у меня зачем мне это надо 😁. Создаю так значит проект на PascalABC.NET Form. В основном pas файле у меня так примерно выглядит код: uses Unit1; {$reference Extensions.dll} begin ...
Exspress's user avatar
0 голосов
1 ответ
131 показ

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

"Программа для поиска заданного элемента в массиве" Суть: Заданный элемент для поиска вводить с клавиатуры. Массив заполнять с клавиатуры. В результате выполнения программы вывести на экран: ...
Максим Воеков's user avatar
1 голос
1 ответ
47 показов

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

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 ответов
186 показов

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

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

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

Начал переписывать задачу с PascalABC на C++ и столкнулся с ошибкой "не существует подходящей функции преобразования из "std::basic_string<char, std::char_traits, std::allocator>" ...
VenDeks's user avatar
0 голосов
0 ответов
45 показов

Перевод с PascalABC на C++

Искал замены некоторым функциям из PascalABC довольно долго, но так и не нашёл. Проблема в функциях copy, pos и delete. Чем можно их заменить? for i := 1 to m do begin readln(s); name[i] :=...
VenDeks's user avatar
0 голосов
1 ответ
112 показов

Ошибка: "Нет перегруженной подпрограммы с такими типами параметров" код не работает, в чем проблема?

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(...
VOID's user avatar
  • 1
0 голосов
0 ответов
34 показа

Математический биллиард на Pascal

Недавно дали задание написать на PascalABC программу, реализующую решение логической задачи на переливание между сосудами методом математического биллиарда. Долго мучался, ничего не вышло. Знает кто-...
Max XMDE Erdenko's user avatar
-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:='...
LlI_Chich's user avatar
0 голосов
1 ответ
232 показа

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

var a:text; s:string; b:array of string; begin en3 := Encoding.GetEncoding(65001); assign(a, 'C:\Users\Новый текстовый документ.txt'); //пусть предложение будет следующим: Найти ...
LlI_Chich's user avatar
-3 голоса
1 ответ
148 показов

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

Имеется некоторое число x и степенной корень у. Нужно извлечь корень без использования натурального логарифма (Exp(Ln(X) / 3) и пр.). Желательно на Pascal, либо Delphi.
Earl's user avatar
  • 1
2 голоса
1 ответ
57 показов

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

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

Как из строки с наименованием цвета (например clGold) получить RGB-составляющие цвета

Если мою просьбу изложить коротко, без предисловия, то нужно из строки с наименованием цвета (например clGold) получить RGB-составляющие цвета. А если не кратко, то... Pascal ABC.NET В справке (...
Виктор Пелих's user avatar
0 голосов
2 ответа
429 показов

Как записать условие в программе? [закрыт]

"Исходная строка содержит десять единиц и три двойки, других цифр нет, ТОЧНЫЙ ПОРЯДОК РАСПОЛОЖЕНИЯ ЕДИНИЦ И ДВОЕК НЕИЗВЕСТЕН." Подскажите пожалуйста, как можно записать условие, что точный ...
m1staken's user avatar
-1 голос
1 ответ
23 показа

PascalABC ошибка [закрыт]

Пишу chat bot, PascalABC ошибка ошибка времени выполнения входная строка имела неверный формат помогите пожалуйста
MIfIX World's user avatar
0 голосов
1 ответ
85 показов

Почему мне выдаёт "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';...
kwokka's user avatar
  • 3
0 голосов
0 ответов
69 показов

Ничья крестики-нолики

PascalABC.Net Каждая клетка это Label, которая имеет свой номер, и при вводе значений в TextBox заменяет его (Label) на крестик либо нолик. Варианты победы прописаны, а вот как сделать ничью??? ...
Sapiens's user avatar
0 голосов
1 ответ
59 показов

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

Есть поле состоящее из Label, при вводе значения в TextBox оно переносится в определенный Label и заменяет его(вместо цифры крестик или нолик). Как сделать так, чтобы при вводе значения (допустим в ...
Sapiens's user avatar
0 голосов
1 ответ
103 показа

Вывод чисел с пробелом в качестве разделителя разрядов в Pascal ABC

Осваиваем с ребенком Pascal ABC. Уважаемое сообщество. Подскажите, пожалуйста, как осуществить вывод чисел с пробелом в качестве разделителя разрядов. То есть, число 123456789 вывести так: 123 456 789
Виктор Пелих's user avatar
0 голосов
1 ответ
988 показов

Pascal ABC. Встречено '=', а ожидалось ';' [закрыт]

program PR3; const a=1.5; p=3.14; var a,x,y: real; begin writeln('Введите x: '); read(x); if x<1.3 then begin y=p*sqr(x)-7/sqr(x); {Здесь ошибка} writeln('y= ', y); if x=...
Элендер's user avatar
1 голос
2 ответа
90 показов

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

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

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

Нужно найти количество элементов равных минимальному. Выводит неправильное количество 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
0 голосов
1 ответ
72 показа

Найти число которое встречается больше всего раз

Нужно найти число которое встречается больше всего раз. Выводит 3 вместо 5. 4 4 5 3 1 5 3 2 5 5 Чаще встречается число: 3 var sq:=SeqRandomInteger(10,0,5); sq.Println; print('Чаще ...
user414104's user avatar
-1 голос
1 ответ
225 показов

Найти количество соседних элементов, сумма и произведение которых чётны, но не кратны 4

Пользователь вводит последовательность из 10 целых чисел. Сохранить их в массив. Найти количество соседних элементов, сумма и произведение которых чётны, но не кратны 4. Вывести эти пары и их ...
user414104's user avatar
0 голосов
2 ответа
219 показов

Не работает код на паскале

var n, c, i, x: integer; begin readln(n); c := 0; for i := 1 to n do readln(x); if ((x >= 100) and (x <= 999) and (x div 100 = 3) and (x mod 5 = 0)) then c := c + 1; writeln(c); end....
Максим Филимонов's user avatar
1 голос
2 ответа
208 показов

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

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

как преобразовать sort из c++ в паскаль?

у меня есть код на с++, его нужно в точности сделать таким же на паскале, но не получается отсортировать как в с++ сам код с++ #include<iostream> #include<algorithm> #include&...
PavelP's user avatar
  • 15
-2 голоса
1 ответ
1k показов

"Ошибка времени выполнения", как исправить? [закрыт]

program Zadanie; const filename = 'dat.txt'; var f: Text; // Файловая переменная. i: integer; // Переменная для хранения значения количества подсчитываемых элементов. a: real; // ...
나안도naando's user avatar