Программа завершается раньше времени ,не работает 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); var flag…
Вопросы по тегу: pascalabc.net
- 0 ▲0 ответ.
- 0 ▲1 ответ.
Не могу обратиться к объекту по индексу
Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свой…
- 0 ▲1 ответ.
При изменении значений в 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 …
- 0 ▲0 ответ.
Тонкости разработки изометрических игр
Полазив в гугле и немного по стэку, так и не нашёл внятно изложенных способов создания изометрии. А те что есть, просто обрываются на пoлycлoвe. Единственное, что более менее внят…
- 0 ▲0 ответ.
что значит ошибка времени выполнения: Индекс находится вне границ массива
Задание звучало так: Найти наибольшее количество подряд идущих цифр. Я написал такую программу, но ничего не работает из-за этой ошибка и главное не понятно почему.
- 1 ▲0 ответ.
Модификация алгоритма сортировки методом вставок
Подскажите, пожалуйста, каким образом, а точнее как реализовать модификацию алгоритма сортировки методом вставки (сортировка по невозрастанию) на PascalABC.NET. Код процедуры: p:=…
- 0 ▲1 ответ.
Ошибка в простой задаче: пишет ожидался оператор, а встретил else
Pascal. Ошибка в простой задаче: пишет ожидался оператор, а встретил else. program MaxIn_3; var x, y, z, res: real; begin writeln('Введите целые числа: X, Y, Z'); readln(x, y, z);…
- 0 ▲2 ответ.
Определить наибольший элемент в каждой строке матрицы
Долго проболел, не ходил в универ, задали: Определить наибольший элемент в каждой строке матрицы A[B,C], где B<=10, C<=15. Можете объяснить, что тут вообще надо сделать?
- 0 ▲1 ответ.
Что значит ошибка: "Значение было недопустимо малым или недопустимо большим для Int32"?
Имеем программу: var a, b: real; function dg0(a, b : real) : real; var dg : real; f, r : longint; begin r := 1; repeat a := a * b; f := trunc(a); dg := dg + f * r; until a - trunc…