Вопросы с меткой [pascal]
Pascal — императивный язык программирования созданный в 70-х, 80-х годах. При использовании метки по возможности уточняйте современную версию языка Delphi, Free Pascal и PascalABC.NET
911
вопросов
-2
голоса
0
ответов
24
показа
Pascal, текстовые файлы
Задание выглядит так:
Дан текстовый файл f. Подсчитать число вхождений в каждую строку файла
сочетаний «wd». Ответ сохранить в файле g в виде:
1 строка: 0
2 строка: 2
3 строка: 1
…
Я написал такой ...
-2
голоса
2
ответа
42
показа
у меня ошибка в паскале вылезает
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
ответов
15
показов
Программа завершается раньше времени ,не работает 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
ответ
31
показ
Работа с текстовыми полями Edit1.Text из своих процедур в Lazarus
Хочу сделать функцию очистки текстовых полей, т.к. одно и то же действие предполагается делать при помощи двух кнопок (кнопкой очистить и после сохранения текстового файла) - то это уменьшит размер ...
-5
голосов
1
ответ
84
показа
Перевод кода из паскаля в с++
Кто может перевести код из Паскаля в с++
Сама задача заключается в том, чтобы упорядочить массив по возрастанию. Помогите, пожалуйста
var mass:array [1..100] of real;
i, j, n: integer;
x: real;
...
0
голосов
1
ответ
27
показов
Не могу обратиться к объекту по индексу
Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свойство. Но при попытке ...
-4
голоса
1
ответ
29
показов
Как написать этот код на питоне? Код у меня не работает. Какой из них я должен изменить?
// 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
ответ
39
показов
При изменении значений в 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
ответ
26
показов
Два минимальных элемента в строке. Седловые элементы
Pascal(lazarus). Дана задача на седловые элементы(
Во 2 примере даны входные данные и в одной строке может быть 2 минимальных элемента. С такими данными, как седловые у меня выводятся только элементы ...
3
голоса
1
ответ
52
показа
Как организовать подсчет итоговых параметров персонажа из экипировки в RPG?
Возможно ли создать метод, автоматически ищущий поле класса по имени этого поля. Делаю RPG. Пример: персонаж одевает вещь, она дает прибавку урона и здоровья(тут все просто), но у другой вещи другой ...
0
голосов
1
ответ
42
показа
Pascal полноэкранная программа
Есть код программы, которая создаёт арену из символов "*", по границам которой бежит символ "#", до тех пор, пока не нажмём какую-либо клавишу. Как только нажимаем - программа ...
-2
голоса
1
ответ
32
показа
Пишет Встречено 'else', а ожидалось ';'
Пишет Встречено 'else', а ожидалось ';' я только учусь программированию. Можете описать как это исправить простым кодом
begin
var player := 1;
begin
var sum1 := 0;
var sum2 := 0;
var x : integer;
var (...
0
голосов
2
ответа
66
показов
Какие есть библиотеки для 2D графики в Delphi?
Хочу написать курсач, надо сделать его на Delphi. Нужно, используя какую-то библиотеку для 2D графики (что-то простое чтобы просто к пикселям на экране обращаться), написать свой рендеринг 3D графики. ...
0
голосов
0
ответов
23
показа
Lazarus. And в большом условии
Создаю пятнашки на паскаль, язык изучаю недавно
Есть данное условие:
if(Button1.Top = 0) and (Button1.Left = 112) then begin
if((Button2.Top <> 0) and (Button2.Left <> 0)) and
...
-3
голоса
1
ответ
33
показа
Pascal полноэкранная программа в терминале [закрыт]
смотрите, есть код программы. Она рисует арену звёздочек и по контуру ходит символ решётка, пока пользователь не нажмёт какую-либо клавишу. Работает не совсем так как мне хотелось бы. Помогите ...
-3
голоса
1
ответ
49
показов
Не получается протабулировать функцию F на интервале Xstart до Xfinish с шагом dX
Задание такое:
Мой код ниже(для варианта 21). Компилятор ругается. Не пойму что не так
main.p(22,44) Error: Incompatible types: got "Double" expected
"ShortInt" main.p(23,17) ...
0
голосов
2
ответа
29
показов
Проблема с динамическим массивом в паскале
Дан массив вещественных чисел Х. Записать элементы массива Х в массив Y следующим образом: в начальной части расположить положительные элементы, затем – отрицательные элементы, нулевые элементы не ...
-1
голос
1
ответ
47
показов
Помогите, пожалуйста, исправить ошибку на Pascal
Задание: Описать функцию, возвращающую количество перемен знака в вещественном векторе длины 20. Использовать эту функцию для нахождения всех номеров строк с максимальным числом перемен знака в ...
-1
голос
1
ответ
25
показов
Как удалить из одномерного массива одноразрядные элементы?
задали задание по информатике, битый час ломаю голову. звучит задание так "напишите программу обработки одномерного массива, сформированного из случайных чисел, "выкинув" из него все ...
-2
голоса
1
ответ
69
показов
Pascal Чётные и нечётные количества букв в словах
Помогите дописать код. Не могу никак до конца реализовать. Требуется чтобы программа возвращала три целых числа, количество слов в строке с чётным количеством букв, нечётным и количество слов. Важно ...
0
голосов
1
ответ
55
показов
как повысить качество генератора слов без словаря
Как повысить качество генератора слов без словаря?
Имеется код, но он не выдаёт качество как язык английского языка. Как же сделать без словаря понятные слова? Сымитировать, ссимулировать человеческий ...
-3
голоса
1
ответ
70
показов
Как записать следующий код Pascal в Python [закрыт]
Какое последнее значение i будет выведено на экран:
FOR i=2 TO 40
PRINT b+i, i
Пытался записать данный код, но не могу понять причём тут переменная b
-1
голос
1
ответ
41
показ
Почему элемент StringGrid не корректно выводит данные
пишу код на Паскале в Делфи, мне нужно вывести сумму чисел в элемент StringGrid, одна цифра в одну клетку StrintGrid. Сами числа находятся в двумерном массиве, элементы которого я и слагаю. Попытка ...
-1
голос
1
ответ
43
показа
Как удалить введенную строку
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
ответ
221
показ
Задача по программированию. (python, java, pascal) [закрыт]
B. Соки
Ограничение времени: 0.25 секунды
Ограничение памяти: 64 МБ
Настя устраивает вечеринку, на которую она купила A стаканов ананасового сока, B стаканов апельсинового сока и C стаканов яблочного ...
-5
голосов
1
ответ
112
показов
Перевести код Паскаль в Пайтон [закрыт]
пытался самостоятельно, но увы ничего не получилось. Надеюсь на вашу помощь. Заранее спасибо.
Вот Паскаль код:
a:= 1;
For i := 2 to n do begin
j := i; k := 0; l := 0;
While j mod 2 = 0 do begin
...
0
голосов
3
ответа
217
показов
вывести на экран в алфавитном порядке все слова строки, в которых есть четыре подряд идущие согласные буквы
вот мой код. я не знаю, как обратиться к элементам строкового массива. в первой строке выдает ошибку "ожидался тип".
var a: array ['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', ...
-2
голоса
1
ответ
35
показов
Помогите переписать программу с basic на pascal
Я совсем не знаком с бейсиком, помогите переписать программу построения графика функции y = sin (x) * x.
Rem График функции
CLS
Screen 9
Color 2
h = .1
xnach = -5 : xkon = 5
n = INT((xkon – xnach) / h)...
-1
голос
1
ответ
49
показов
Почему программа во всех процедурах выдает ноль при любых введенных числах?
Программа во всех процедурах выдает ноль при любых введенных числах. Уже всё перепробовала. Что не так?
program weather;
uses crt;
var
a:array [1..31] of integer;
i,s,t,max,min:integer;
...
-1
голос
1
ответ
67
показов
Задача на Паскаль, решение дискриминанта
Мне надо решить задачу на Pascal, но у меня выходит ошибка
Program kwur; {Имя программы}
Uses Crt; {Использование библиотечного модуля CRT}
Var a, b, c, d, w, z, x1, x2:Real; {Объявление ...
0
голосов
0
ответов
50
показов
вывести слова в обратном алфавитном порядке
дан массив согласных букв. если число, вводимое с клавиатуры больше, чем согласных в слове, то вывести слова в обратном алфавитном порядке. вот часть кода:
const mas1=['б', 'в', 'г', 'д', 'ж', 'з', 'й'...
0
голосов
1
ответ
28
показов
Вопрос касаемо строки из языка паскаль
for i:= to n do
begin
a[i]:= randon(100)-50;
if (a[i]or (a[i]30) a[i]:=0;
write(a[i],' ');
end;
(это учебное задание)
я хочу разобраться со строкой "if (a[i]or (a[i]30) a[i]:=0;"...
-1
голос
2
ответа
37
показов
Можете объяснить что делает Inc
Я понимаю что inc это прибавление (+1), но что оно делает в этой программе:
var
A, B : array [1..30] of integer;
s, d : integer;
begin
for s := 1 to 30 do
begin
A[s]:= random(167)-99;
...
0
голосов
1
ответ
56
показов
Требуется удалить заведомо не известное слово (словосочетание) из строки, для использования в txt файла
Существует txt файл, в котором есть строки, например:
1234567 [TAB] Привет, меня зовут Антон! [TAB] 19,06 [TAB] 600,6
8910112 [TAB] Привет, меня зовут Дима! [TAB] 29,24 [TAB] 500
1314151[TAB] Привет, ...
0
голосов
0
ответов
65
показов
Как реализовать координаты в Pascal ABC?
Необходимо ввести точки в массив координатами и вывести их в порядке убывания, создав свой тип данных. При заполнении ячеек использовать длину от 0,0 до точки(по теор. Пифагора) и от точки с ...
0
голосов
1
ответ
33
показа
Qsot выдает переполнение стека [PascalABC.NET]
Программа для быстрой сортировки на Паскале выдает переполнение стека на любом массиве, я понимаю, что проблема в рекурсии, но где именно - не понимаю.
const
n = 10;
type
arr = array[1..n] ...
0
голосов
2
ответа
162
показа
Как проверить, что число не существует в какой то системе счисления?
C клавиатуры вводится число. Вывести все системы счисления, в
которых данное число не существует.
Как такое решать?
0
голосов
1
ответ
42
показа
Generic.Collection.Dictionary(K, V)
Где для TDictionary описаны параметры ключа (К) и значения (V) ?
-1
голос
1
ответ
90
показов
Lazarus Delphi Pasca Поиск строки в txt файле и вывод в Memo
Делаю проект-справочник OBD2 кодов, необходимо в txt файлах найти строку по номеру кода типа "Pyxxx" где "P" это буквы P,B,C,U; "y" это это число от 0 до 3 включительно; ...
0
голосов
1
ответ
465
показов
не пойму как сделать задание с елочкой. паскаль
У меня не получается понять задание:
Пользователь вводит число N>0. Программа печатает N строк, содержащих символ "*", расположенные таким образом, чтобы результат был похож на на елочку:...
-1
голос
1
ответ
33
показа
Ошибка времени выполнения: Индекс находится вне границ массива
Написал программу но почему то выдаёт ошибку: "Ошибка времени выполнения: Индекс находился вне границ массива."
program DZ;
var D: string;
q, h, p, r: integer;
l: real;
const ...
0
голосов
1
ответ
41
показ
Как автоматизировать процедуру на Pascal
Есть процедура, которая очень плохо написана:
procedure PrintLeftPartOfDiamond(k, n : integer);
begin
if (k = 1) then
begin
PrintChars(' ', 2*n + 1);
write('*');
end;
if (k = 2)...
0
голосов
1
ответ
41
показ
Отрисовать несколько алмазов на Pascal
упражняюсь в простых примерах на паскале, есть рабочий код, который отрисовывает алмаз. Высоту задаёт пользователь:
program diamontest;
procedure PrintSpaces (count : integer);
var i : integer;
begin
...
1
голос
0
ответов
51
показ
Отрисовать алмаз на паскале
Всем добрый день. Делаю простые упражнения на паскале, мне удалось вывести алмаз таким образом. Высота его задаётся пользователем. К примеру, если задать число 5, результат будет таким:
*
* *
* *
...
0
голосов
1
ответ
33
показа
Встречено else, а ожидался оператор. В чем проблема? [закрыт]
var a,b,c: integer;
begin
Write('Ведите день недели:');
read (a);
if ((a>=1) and (a<=5)) then
write ('Ведите время:');
else
if ((a<1) or (a>5)) then
write ('Ведите ...
1
голос
1
ответ
72
показа
Как сделать анимацию кружка, двигающемуся по Треугольнику Серпинского?
Я написала код, который на форме рисует треугольничек Серпинского в полярной и декартовой системе. Хотела ещё сделать анимацию кругляшка или квадратика, который будет бегать по внешнему треугольничку. ...
0
голосов
2
ответа
77
показов
Даны 2 текстовых файла. Верно ли, что они состоят из одних и тех же строк (но, возможно, строки идут в разном порядке)
Даны 2 текстовых файла. Верно ли, что они состоят из одних и тех же строк (но, возможно, строки идут в разном порядке).
Я не понял суть вопроса. Можете объяснить пример. Или любой язык ...
0
голосов
2
ответа
82
показа
Не могу понять, в чём проблема в программе на Pascal [закрыт]
По заданию нужно составить процедуру определения максимального значения и его адреса в одномерном массиве. С помощью этой процедуры найти максимальные элементы в строках произвольно заданного ...
-3
голоса
1
ответ
59
показов
pascal формула 123
как записать эту формулу в паскале ?
-4
голоса
1
ответ
48
показов
Помогите, пожалуйста, перевести из Pascal в C++
Const eps = 0.001;
Var f0,f1,f2, { члены ряда Фибоначчи }
n : word; { номер члена ряда Фибоначчи }
V, { текущее значение параметра V }
Vold, { предыдущее значение параметра V }
V1 : real; { точное ...