Вопросы с меткой [pascal]
Pascal — императивный язык программирования созданный в 70-х, 80-х годах. При использовании метки по возможности уточняйте современную версию языка Delphi, Free Pascal и PascalABC.NET
932
вопроса
-2
голоса
0
ответов
20
показов
Здраствуйте, помогите пожалуйста с поиском ошибки [закрыт]
Саму задачу прикреплю в виде фото, из-за вставок, которых нету в юникоде:
ну и сам код разумеется:
var
ml: integer;
bal: integer;
n,i: integer;
a: array[1..10000] of integer;
b: array[1.....
-2
голоса
1
ответ
33
показа
Помогите исправить аналог функции Copy на паскале(турбо)
Примечание реализация без дополнительных строк
Вот мой код:
function mycopy(s: string; start: byte; len: byte): string;
var
i: byte;
begin
s:='';
i:=1;
while (start<=length(s)) do begin
...
0
голосов
1
ответ
48
показов
Реализация функции delete, pos, length на Паскале (Турбо)
ВАЖНО!!!
Без использования массива строк, без доп. строки и без использования стандартных функций и процедур обработки строк (и также динамическое выделение памяти бесполезно), также пример функции ...
0
голосов
1
ответ
41
показ
Как реализовать функцию insert на паскаль без использования массива строк и использования доп строки?
я набросал такой код, но у меня индекс выходит за границы , сам код
function myinsert(substring: string;var s: string; start: integer): string;
var
i, l,l1, f: integer;
begin
l := length(substring)...
-1
голос
1
ответ
30
показов
pascalABC.net: При проигрыше, сообщение о том, что вы проиграли выводится два раза
Сделал игру угадай число, и так как в разных местах мне нужно делать одну и ту же проверку, я решил изучить функции и процедуры. Сделал функцию, что если попыток у игрока меньше или равно 0, то пишет ...
0
голосов
1
ответ
15
показов
PascalABCNet, при перезапуске кода функция вызывается два раза
Вчера сделал калькулятор, нажал на кнопку проверить здоровье кода и увидел, что у меня было 64% из-за устаревших конструкций. Я почитай официальную документацию, переписал код. Теперь здоровье кода ...
0
голосов
0
ответов
9
показов
Unit1.guessanumber.inc(77) : Неизвестное имя 'guessanumber_Load'
Что делать с ошибкой постоянно вылезает.
procedure InitializeComponent;
begin
var resources: System.ComponentModel.ComponentResourceManager := new System.ComponentModel....
0
голосов
1
ответ
31
показ
Не работает проверка PascalABCNET
Я сделал выборочный калькулятор, т.е. в котором можно выбрать знак вычисления и числа, и для того чтоб не выдавало ошибку при вводе знака, я решил сделать проверку, которая срабатывает если sign <&...
0
голосов
0
ответов
41
показ
Pascal ABC .NET Ошибка: Unit1.pas(28) : Встречено 'label', а ожидался идентификатор
Постоянно ошибка с меткой.
Unit Unit1;
interface
uses System, System.Drawing, System.Windows.Forms;
type
guessanumber = class(Form)
procedure textBox1_TextChanged(sender: Object; e: ...
0
голосов
0
ответов
112
показов
Как присвоить переменной для вычисления, значение вводимое в поле таблицы?
Есть код программы которая считает общую сумму доходов расходов и прибыль за год:
var
Dohodi:array [1..12] of real;
Rashodi:array [1..12] of real;
Month:integer;
PribilJanDec, ...
0
голосов
1
ответ
183
показа
Почему когда я ввожу в Hour.Text цифру к примеру 1 мне пишет что 1 is an invalid integer?
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
MaskEdit;
type
{ TForm1 }
TForm1 = class(TForm)
MinLable: ...
0
голосов
0
ответов
27
показов
Сtrl+Break не работает
ctrl+break не работает в dosbox
программирую в turbo c++ в dosbox, не могу завершить срочно программу во время выполнения, dosbox не принимает ctrl+break. в keymapper dosbox не знаю как сделать чтобы ...
-5
голосов
1
ответ
101
показ
Нужна помощь с программой на паскале
Можете помочь со строками?
Я написал код который читает строки, содержащие числа, разделенные пробелами, и выводит каждое число на отдельной строке.
Но теперь мне нужно посчитать в строке цифры, ...
-2
голоса
1
ответ
91
показ
математики и программисты нужна помощь в программе на паскале!
Есть задача:
С клавиатуры вводится число a и число b ∈ {1, 2, 3, 4} (именно в этом порядке). Рассмотрим равнобедренный прямо-
угольный треугольник. Если b = 1, то a – периметр; если b = 2, то a – ...
-4
голоса
2
ответа
54
показа
Помогите с маленьким воросом на паскале
uses crt;
var
i, n, x, y, g: integer;
procedure f;
begin
Delay(100);
if i > 9 then i := 0;
TextColor(i+1);
gotoxy(X * 2, y);
write(i);
inc(i);
end;
begin
read(n);
clrscr;
y :...
0
голосов
0
ответов
25
показов
Относительный путь к юниту Turbo Pascal
Как указать в online compiler pascal и или включить юнит Graph?
А также где взять в интернете юнит sysutils?
Какой online compiler pascal поддерживает Graph?
-1
голос
1
ответ
88
показов
Как в Паскале вывести цифры от 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; ...
-2
голоса
1
ответ
40
показов
Помогите разобраться с рекурсией в паскале [дубликат]
function f(n: integer): integer;
begin
if n=0 then f:=1 else f:=f(n-1)*n;
end;
begin
write(f(5));
end.
Я начал изучать изучать функции и наткнулся на рекурсию, можете объяснить как рекурсия ...
0
голосов
0
ответов
41
показ
Почему Паскаль не считывает несколько переменных разных типов данных в одной строке 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
...
-1
голос
1
ответ
46
показов
Помогите с программой на Pascal
Сверху выражение по которому написан код, (f1-f3) - числа Фибоначчи
var
eps: real;
sum: real;
summand: real;
fib, fibPrev, fibPrevPrev: real;
fragment: real;
number: integer;
begin
write('...
-1
голос
1
ответ
82
показа
Найти все числа, кратные q, которые взаимно просты с p и меньше p. на Pascal [закрыт]
Код написал, но он не выводит результат
var i, p, q: integer;
begin
readln(p);
readln(q);
while p <> q do
begin
if p > q then
p := p - q
else
q := q - p;
end;
...
0
голосов
2
ответа
77
показов
Как отключить освещение сцены по умолчанию в PascalABC.NET в библиотеке Graph3D?
Имеется такая простая программа на языке Паскаль в среде PascalABC.Net:
uses Graph3D;
begin
View3D.ShowGridLines := False;
View3D.BackgroundColor := Colors.Black;
Cylinder(0,0,0,5,2,True, Colors....
0
голосов
1
ответ
45
показов
Программа, для обработки двухмерных матриц, Язык - Паскаль
Напишите программу, реализующую обработку двухмерных массивов. Дана матрица размера M x N. В каждом ее столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца....
-5
голосов
1
ответ
63
показа
Программа в Паскаль - Обработка строк
Напишите программу, реализующего обработку строк. Даны строки S и S0.Удалить из строки S первую подстроку, совпадающую с S0.Если совпадающих нет то без изменений S.Язык програмированния - Pascal.
...
0
голосов
1
ответ
37
показов
Pascal-Нет перегруженной подпрограммы с такими типами параметров
помогите пожалуйста, выдает ошибку и не даёт решить пример,помогите пожалуйста!!
program sistema;
var
x, D: real;
begin
write('введите значение x');
read(x);
if x<=0 then D:=cos(3*(x*sqr(x))...
-2
голоса
2
ответа
128
показов
у меня ошибка в паскале вылезает
program tabulation;
const
a = -3; // начальное значение x
b = 3; // конечное значение x
h = 0.3; // шаг
var
x, min_x, min_fi, fi: real;
begin
fi := 0.0;
min_fi := fi(a); // ...
0
голосов
0
ответов
27
показов
Программа завершается раньше времени ,не работает 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
голосов
2
ответа
142
показа
Работа с текстовыми полями Edit1.Text из своих процедур в Lazarus
Хочу сделать функцию очистки текстовых полей, т.к. одно и то же действие предполагается делать при помощи двух кнопок (кнопкой очистить и после сохранения текстового файла) - то это уменьшит размер ...
-5
голосов
1
ответ
99
показов
Перевод кода из паскаля в с++
Кто может перевести код из Паскаля в с++
Сама задача заключается в том, чтобы упорядочить массив по возрастанию. Помогите, пожалуйста
var mass:array [1..100] of real;
i, j, n: integer;
x: real;
...
0
голосов
1
ответ
39
показов
Не могу обратиться к объекту по индексу
Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свойство. Но при попытке ...
-4
голоса
1
ответ
35
показов
Как написать этот код на питоне? Код у меня не работает. Какой из них я должен изменить?
// Pascal
var n:integer;
begin
write('score = '); read(n);
case n of
1..59: writeln(2);
60..69: writeln(3);
70..89: writeln(4);
90..100: writeln(5);
else writeln('The score is ...
0
голосов
1
ответ
61
показ
При изменении значений в 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
голосов
1
ответ
32
показа
Два минимальных элемента в строке. Седловые элементы
Pascal(lazarus). Дана задача на седловые элементы(
Во 2 примере даны входные данные и в одной строке может быть 2 минимальных элемента. С такими данными, как седловые у меня выводятся только элементы ...
3
голоса
1
ответ
59
показов
Как организовать подсчет итоговых параметров персонажа из экипировки в RPG?
Возможно ли создать метод, автоматически ищущий поле класса по имени этого поля. Делаю RPG. Пример: персонаж одевает вещь, она дает прибавку урона и здоровья(тут все просто), но у другой вещи другой ...
0
голосов
1
ответ
52
показа
Pascal полноэкранная программа
Есть код программы, которая создаёт арену из символов "*", по границам которой бежит символ "#", до тех пор, пока не нажмём какую-либо клавишу. Как только нажимаем - программа ...
-2
голоса
1
ответ
36
показов
Пишет Встречено 'else', а ожидалось ';'
Пишет Встречено 'else', а ожидалось ';' я только учусь программированию. Можете описать как это исправить простым кодом
begin
var player := 1;
begin
var sum1 := 0;
var sum2 := 0;
var x : integer;
var (...
0
голосов
2
ответа
112
показов
Какие есть библиотеки для 2D графики в Delphi?
Хочу написать курсач, надо сделать его на Delphi. Нужно, используя какую-то библиотеку для 2D графики (что-то простое чтобы просто к пикселям на экране обращаться), написать свой рендеринг 3D графики. ...
0
голосов
0
ответов
30
показов
Lazarus. And в большом условии
Создаю пятнашки на паскаль, язык изучаю недавно
Есть данное условие:
if(Button1.Top = 0) and (Button1.Left = 112) then begin
if((Button2.Top <> 0) and (Button2.Left <> 0)) and
...
-3
голоса
1
ответ
40
показов
Pascal полноэкранная программа в терминале [закрыт]
смотрите, есть код программы. Она рисует арену звёздочек и по контуру ходит символ решётка, пока пользователь не нажмёт какую-либо клавишу. Работает не совсем так как мне хотелось бы. Помогите ...
-3
голоса
1
ответ
95
показов
Не получается протабулировать функцию F на интервале Xstart до Xfinish с шагом dX
Задание такое:
Мой код ниже(для варианта 21). Компилятор ругается. Не пойму что не так
main.p(22,44) Error: Incompatible types: got "Double" expected
"ShortInt" main.p(23,17) ...
0
голосов
2
ответа
36
показов
Проблема с динамическим массивом в паскале
Дан массив вещественных чисел Х. Записать элементы массива Х в массив Y следующим образом: в начальной части расположить положительные элементы, затем – отрицательные элементы, нулевые элементы не ...
-1
голос
1
ответ
95
показов
Помогите, пожалуйста, исправить ошибку на Pascal
Задание: Описать функцию, возвращающую количество перемен знака в вещественном векторе длины 20. Использовать эту функцию для нахождения всех номеров строк с максимальным числом перемен знака в ...
-1
голос
1
ответ
80
показов
Как удалить из одномерного массива одноразрядные элементы?
задали задание по информатике, битый час ломаю голову. звучит задание так "напишите программу обработки одномерного массива, сформированного из случайных чисел, "выкинув" из него все ...
-2
голоса
1
ответ
162
показа
Pascal Чётные и нечётные количества букв в словах
Помогите дописать код. Не могу никак до конца реализовать. Требуется чтобы программа возвращала три целых числа, количество слов в строке с чётным количеством букв, нечётным и количество слов. Важно ...
0
голосов
1
ответ
60
показов
как повысить качество генератора слов без словаря
Как повысить качество генератора слов без словаря?
Имеется код, но он не выдаёт качество как язык английского языка. Как же сделать без словаря понятные слова? Сымитировать, ссимулировать человеческий ...
-3
голоса
1
ответ
79
показов
Как записать следующий код Pascal в Python [закрыт]
Какое последнее значение i будет выведено на экран:
FOR i=2 TO 40
PRINT b+i, i
Пытался записать данный код, но не могу понять причём тут переменная b
-1
голос
1
ответ
55
показов
Почему элемент StringGrid не корректно выводит данные
пишу код на Паскале в Делфи, мне нужно вывести сумму чисел в элемент StringGrid, одна цифра в одну клетку StrintGrid. Сами числа находятся в двумерном массиве, элементы которого я и слагаю. Попытка ...
-1
голос
1
ответ
155
показов
Как удалить введенную строку
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); ...
-6
голосов
1
ответ
290
показов
Задача по программированию. (python, java, pascal) [закрыт]
B. Соки
Ограничение времени: 0.25 секунды
Ограничение памяти: 64 МБ
Настя устраивает вечеринку, на которую она купила A стаканов ананасового сока, B стаканов апельсинового сока и C стаканов яблочного ...
-5
голосов
1
ответ
124
показа
Перевести код Паскаль в Пайтон [закрыт]
пытался самостоятельно, но увы ничего не получилось. Надеюсь на вашу помощь. Заранее спасибо.
Вот Паскаль код:
a:= 1;
For i := 2 to n do begin
j := i; k := 0; l := 0;
While j mod 2 = 0 do begin
...