Вопросы с меткой [pascalabc.net]
Реализация языка Object Pascal для .NET, ориентированная на обучение современному программированию.
215
вопросов
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....
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)...
0
голосов
1
ответ
28
показов
Не могу обратиться к объекту по индексу
Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свойство. Но при попытке ...
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:...
0
голосов
0
ответов
47
показов
Тонкости разработки изометрических игр
Полазив в гугле и немного по стэку, так и не нашёл внятно изложенных способов создания изометрии. А те что есть, просто обрываются на пoлycлoвe. Единственное, что более менее внятно объяснено это ...
0
голосов
0
ответов
27
показов
что значит ошибка времени выполнения: Индекс находится вне границ массива
Задание звучало так: Найти наибольшее количество подряд идущих цифр. Я написал такую программу, но ничего не работает из-за этой ошибка и главное не понятно почему.
0
голосов
2
ответа
31
показ
Проблема с динамическим массивом в паскале
Дан массив вещественных чисел Х. Записать элементы массива Х в массив Y следующим образом: в начальной части расположить положительные элементы, затем – отрицательные элементы, нулевые элементы не ...
-1
голос
1
ответ
49
показов
Помогите, пожалуйста, исправить ошибку на Pascal
Задание: Описать функцию, возвращающую количество перемен знака в вещественном векторе длины 20. Использовать эту функцию для нахождения всех номеров строк с максимальным числом перемен знака в ...
0
голосов
1
ответ
22
показа
как увеличить число, факториал которого мы находим
есть задание
число, факториал которого мы находим, увеличивается каждый раз на 2. как это реализовать в паскале?
вот код:
const n = 3;
const f = 6;
var a, sin_a, sin_a1: real;
factorial,factorial1: ...
-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); ...
0
голосов
3
ответа
246
показов
вывести на экран в алфавитном порядке все слова строки, в которых есть четыре подряд идущие согласные буквы
вот мой код. я не знаю, как обратиться к элементам строкового массива. в первой строке выдает ошибку "ожидался тип".
var a: array ['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', ...
-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)...
0
голосов
0
ответов
54
показа
вывести слова в обратном алфавитном порядке
дан массив согласных букв. если число, вводимое с клавиатуры больше, чем согласных в слове, то вывести слова в обратном алфавитном порядке. вот часть кода:
const mas1=['б', 'в', 'г', 'д', 'ж', 'з', 'й'...
-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 := ...
0
голосов
1
ответ
38
показов
Qsot выдает переполнение стека [PascalABC.NET]
Программа для быстрой сортировки на Паскале выдает переполнение стека на любом массиве, я понимаю, что проблема в рекурсии, но где именно - не понимаю.
const
n = 10;
type
arr = array[1..n] ...
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 ...
0
голосов
2
ответа
191
показ
Как проверить, что число не существует в какой то системе счисления?
C клавиатуры вводится число. Вывести все системы счисления, в
которых данное число не существует.
Как такое решать?
0
голосов
1
ответ
34
показа
Как удалить заданное число, через тип данных integer и real?
вот попалась такая задачка: Дано целое число N(>0). Вводится цифра A(0<=A<=9). Вывести число, которое получится путем удаления всех вхождений заданной цифры A из десятичной записи члена N (...
0
голосов
1
ответ
511
показов
не пойму как сделать задание с елочкой. паскаль
У меня не получается понять задание:
Пользователь вводит число N>0. Программа печатает N строк, содержащих символ "*", расположенные таким образом, чтобы результат был похож на на елочку:...
0
голосов
1
ответ
283
показа
Какая сложность у сортировки подсчетом?
Всем привет! Подскажите пожалуйста какая сложность у сортировки подсчетом?
Имеется ввиду метод сортировки в котором используется вспомогательный массив, который заполняется нулями.
Сколько будет ...
-1
голос
1
ответ
34
показа
Ошибка времени выполнения: Индекс находится вне границ массива
Написал программу но почему то выдаёт ошибку: "Ошибка времени выполнения: Индекс находился вне границ массива."
program DZ;
var D: string;
q, h, p, r: integer;
l: real;
const ...
0
голосов
1
ответ
64
показа
Как подключить библиотеку AForge.NET в PascalABC.NET?
Я хочу попробовать сделать фото с камеры моего компьютера, для этого я установил библиотеку AForge.NET, в установщике ничего не изменял, всё по умолчанию. Как подключить её к программе на PascalABC....
0
голосов
0
ответов
83
показа
Как мне подключить модуль и использовать namespaces, class?
Не спрашивайте у меня зачем мне это надо 😁.
Создаю так значит проект на PascalABC.NET Form.
В основном pas файле у меня так примерно выглядит код:
uses Unit1;
{$reference Extensions.dll}
begin
...
0
голосов
1
ответ
131
показ
Как посчитать количество произведенных сравнений элементов массива в PascalABC?
"Программа для поиска заданного элемента в массиве"
Суть:
Заданный элемент для поиска вводить с клавиатуры.
Массив заполнять с клавиатуры.
В результате выполнения программы вывести на экран:
...
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 :...
1
голос
0
ответов
186
показов
Как перенастроить компиляцию pascal в VScode на Ubuntu
Суть проблемы: VScode компилирует фалы .pas как надо, но запустить пытается .exe файл через mono.
Команда, которую использует VScode: fpc "/home/kado/Документы/VSprojects/main.pas" &&...
-1
голос
1
ответ
521
показ
Не существует подходящей функции преобразования в "const char*" [закрыт]
Начал переписывать задачу с PascalABC на C++ и столкнулся с ошибкой "не существует подходящей функции преобразования из "std::basic_string<char, std::char_traits, std::allocator>" ...
0
голосов
0
ответов
45
показов
Перевод с PascalABC на C++
Искал замены некоторым функциям из PascalABC довольно долго, но так и не нашёл. Проблема в функциях copy, pos и delete. Чем можно их заменить?
for i := 1 to m do
begin
readln(s);
name[i] :=...
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(...
0
голосов
0
ответов
34
показа
Математический биллиард на 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
ответ
232
показа
Как преобразовать данные из текстового документа в массив
var
a:text;
s:string;
b:array of string;
begin
en3 := Encoding.GetEncoding(65001);
assign(a, 'C:\Users\Новый текстовый документ.txt');
//пусть предложение будет следующим: Найти ...
-3
голоса
1
ответ
148
показов
Извлечение корня n-ой степени в обход натурального логарифма
Имеется некоторое число x и степенной корень у. Нужно извлечь корень без использования натурального логарифма (Exp(Ln(X) / 3) и пр.). Желательно на Pascal, либо Delphi.
2
голоса
1
ответ
57
показов
Не работает программа вычисления значения интеграла по формуле трапеции
было дано задание вычислить значение интеграла при помощи цикла с параметром, но программа на Pascal почему-то выдаёт неверный результат (0.11(6) вместо 0.183), ошибку у себя найти не могу. Был бы ...
0
голосов
2
ответа
92
показа
Как из строки с наименованием цвета (например clGold) получить RGB-составляющие цвета
Если мою просьбу изложить коротко, без предисловия, то нужно из строки с наименованием цвета (например clGold) получить RGB-составляющие цвета.
А если не кратко, то...
Pascal ABC.NET
В справке (...
0
голосов
2
ответа
429
показов
Как записать условие в программе? [закрыт]
"Исходная строка содержит десять единиц и три двойки, других цифр нет, ТОЧНЫЙ ПОРЯДОК РАСПОЛОЖЕНИЯ ЕДИНИЦ И ДВОЕК НЕИЗВЕСТЕН."
Подскажите пожалуйста, как можно записать условие, что точный ...
-1
голос
1
ответ
23
показа
PascalABC ошибка [закрыт]
Пишу chat bot, PascalABC ошибка ошибка времени выполнения входная строка имела неверный формат помогите пожалуйста
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';...
0
голосов
0
ответов
69
показов
Ничья крестики-нолики
PascalABC.Net
Каждая клетка это Label, которая имеет свой номер, и при вводе значений в TextBox заменяет его (Label) на крестик либо нолик. Варианты победы прописаны, а вот как сделать ничью???
...
0
голосов
1
ответ
59
показов
Как сделать, чтобы при вводе значения его нельзя было изменить?
Есть поле состоящее из Label, при вводе значения в TextBox оно переносится в определенный Label и заменяет его(вместо цифры крестик или нолик). Как сделать так, чтобы при вводе значения (допустим в ...
0
голосов
1
ответ
103
показа
Вывод чисел с пробелом в качестве разделителя разрядов в Pascal ABC
Осваиваем с ребенком Pascal ABC.
Уважаемое сообщество.
Подскажите, пожалуйста, как осуществить вывод чисел с пробелом в качестве разделителя разрядов.
То есть, число 123456789 вывести так: 123 456 789
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=...
1
голос
2
ответа
90
показов
Pascal. Поиск минимального элемента дерева и его уровня
Почему в процедуре Minimums не происходит вход в цикл поиска минимального элемента(min) и его уровня (g)? И как это исправить?
const Max=10;
type
MyElement = ^PElement;
Pelement = record
number: ...
2
голоса
1
ответ
762
показа
Как найти количество минимальных элементов в массиве?
Нужно найти количество элементов равных минимальному. Выводит неправильное количество
var
s, i: integer;
A: array [1..5] of integer;
min := 367131;
begin
randomize;
for i := 1 to 5 do
...
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('Чаще ...
-1
голос
1
ответ
225
показов
Найти количество соседних элементов, сумма и произведение которых чётны, но не кратны 4
Пользователь вводит последовательность из 10 целых чисел. Сохранить их в массив.
Найти количество соседних элементов, сумма и произведение которых чётны, но не кратны 4. Вывести эти пары и их ...
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....
1
голос
2
ответа
208
показов
Как ускорить работу исполнителя чертёжник в Pascal ABC
Осваиваем с ребенком Pascal ABC (школьный курс информатики - 6 класс).
Написали программку, которая рисует некий орнамент из квадратиков.
Рисование одного квадратика оформили как процедуру.
Рисование ...
-1
голос
1
ответ
54
показа
как преобразовать sort из c++ в паскаль?
у меня есть код на с++, его нужно в точности сделать таким же на паскале, но не получается отсортировать
как в с++
сам код с++
#include<iostream>
#include<algorithm>
#include&...
-2
голоса
1
ответ
1k
показов
"Ошибка времени выполнения", как исправить? [закрыт]
program Zadanie;
const
filename = 'dat.txt';
var
f: Text; // Файловая переменная.
i: integer; // Переменная для хранения значения количества подсчитываемых элементов.
a: real; // ...