Вопросы с меткой [pascal]

Pascal — императивный язык программирования созданный в 70-х, 80-х годах. При использовании метки по возможности уточняйте современную версию языка Delphi, Free Pascal и PascalABC.NET

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

Pascal, текстовые файлы

Задание выглядит так: Дан текстовый файл f. Подсчитать число вхождений в каждую строку файла сочетаний «wd». Ответ сохранить в файле g в виде: 1 строка: 0 2 строка: 2 3 строка: 1 … Я написал такой ...
Andrey's user avatar
  • 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); // ...
STaiNUm's user avatar
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)...
WYILJACK's user avatar
0 голосов
1 ответ
31 показ

Работа с текстовыми полями Edit1.Text из своих процедур в Lazarus

Хочу сделать функцию очистки текстовых полей, т.к. одно и то же действие предполагается делать при помощи двух кнопок (кнопкой очистить и после сохранения текстового файла) - то это уменьшит размер ...
IronGoose1758's user avatar
-5 голосов
1 ответ
84 показа

Перевод кода из паскаля в с++

Кто может перевести код из Паскаля в с++ Сама задача заключается в том, чтобы упорядочить массив по возрастанию. Помогите, пожалуйста var mass:array [1..100] of real; i, j, n: integer; x: real; ...
Яна's user avatar
  • 13
0 голосов
1 ответ
27 показов

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

Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свойство. Но при попытке ...
EdwardElric's user avatar
-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 ...
Vepa Kurbanklichev's user avatar
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:...
Ilian445's user avatar
0 голосов
1 ответ
26 показов

Два минимальных элемента в строке. Седловые элементы

Pascal(lazarus). Дана задача на седловые элементы( Во 2 примере даны входные данные и в одной строке может быть 2 минимальных элемента. С такими данными, как седловые у меня выводятся только элементы ...
Иван's user avatar
3 голоса
1 ответ
52 показа

Как организовать подсчет итоговых параметров персонажа из экипировки в RPG?

Возможно ли создать метод, автоматически ищущий поле класса по имени этого поля. Делаю RPG. Пример: персонаж одевает вещь, она дает прибавку урона и здоровья(тут все просто), но у другой вещи другой ...
Виталий Пономарёв's user avatar
0 голосов
1 ответ
42 показа

Pascal полноэкранная программа

Есть код программы, которая создаёт арену из символов "*", по границам которой бежит символ "#", до тех пор, пока не нажмём какую-либо клавишу. Как только нажимаем - программа ...
Илья's user avatar
-2 голоса
1 ответ
32 показа

Пишет Встречено 'else', а ожидалось ';'

Пишет Встречено 'else', а ожидалось ';' я только учусь программированию. Можете описать как это исправить простым кодом begin var player := 1; begin var sum1 := 0; var sum2 := 0; var x : integer; var (...
pexikk's user avatar
  • 1
0 голосов
2 ответа
66 показов

Какие есть библиотеки для 2D графики в Delphi?

Хочу написать курсач, надо сделать его на Delphi. Нужно, используя какую-то библиотеку для 2D графики (что-то простое чтобы просто к пикселям на экране обращаться), написать свой рендеринг 3D графики. ...
Егор Трухан's user avatar
0 голосов
0 ответов
23 показа

Lazarus. And в большом условии

Создаю пятнашки на паскаль, язык изучаю недавно Есть данное условие: if(Button1.Top = 0) and (Button1.Left = 112) then begin if((Button2.Top <> 0) and (Button2.Left <> 0)) and ...
NightXFox's user avatar
-3 голоса
1 ответ
33 показа

Pascal полноэкранная программа в терминале [закрыт]

смотрите, есть код программы. Она рисует арену звёздочек и по контуру ходит символ решётка, пока пользователь не нажмёт какую-либо клавишу. Работает не совсем так как мне хотелось бы. Помогите ...
Илья's user avatar
-3 голоса
1 ответ
49 показов

Не получается протабулировать функцию F на интервале Xstart до Xfinish с шагом dX

Задание такое: Мой код ниже(для варианта 21). Компилятор ругается. Не пойму что не так main.p(22,44) Error: Incompatible types: got "Double" expected "ShortInt" main.p(23,17) ...
Кристина's user avatar
0 голосов
2 ответа
29 показов

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

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

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

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

Как удалить из одномерного массива одноразрядные элементы?

задали задание по информатике, битый час ломаю голову. звучит задание так "напишите программу обработки одномерного массива, сформированного из случайных чисел, "выкинув" из него все ...
Кира's user avatar
-2 голоса
1 ответ
69 показов

Pascal Чётные и нечётные количества букв в словах

Помогите дописать код. Не могу никак до конца реализовать. Требуется чтобы программа возвращала три целых числа, количество слов в строке с чётным количеством букв, нечётным и количество слов. Важно ...
Илья's user avatar
0 голосов
1 ответ
55 показов

как повысить качество генератора слов без словаря

Как повысить качество генератора слов без словаря? Имеется код, но он не выдаёт качество как язык английского языка. Как же сделать без словаря понятные слова? Сымитировать, ссимулировать человеческий ...
хоббипрограммист's user avatar
-3 голоса
1 ответ
70 показов

Как записать следующий код Pascal в Python [закрыт]

Какое последнее значение i будет выведено на экран: FOR i=2 TO 40 PRINT b+i, i Пытался записать данный код, но не могу понять причём тут переменная b
VANECK's user avatar
  • 3
-1 голос
1 ответ
41 показ

Почему элемент StringGrid не корректно выводит данные

пишу код на Паскале в Делфи, мне нужно вывести сумму чисел в элемент StringGrid, одна цифра в одну клетку StrintGrid. Сами числа находятся в двумерном массиве, элементы которого я и слагаю. Попытка ...
Incor's user avatar
  • 1
-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); ...
Zahar4ik's user avatar
-6 голосов
1 ответ
221 показ

Задача по программированию. (python, java, pascal) [закрыт]

B. Соки Ограничение времени: 0.25 секунды Ограничение памяти: 64 МБ Настя устраивает вечеринку, на которую она купила A стаканов ананасового сока, B стаканов апельсинового сока и C стаканов яблочного ...
turbokriper9's user avatar
-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 ...
Максим Корж's user avatar
0 голосов
3 ответа
217 показов

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

вот мой код. я не знаю, как обратиться к элементам строкового массива. в первой строке выдает ошибку "ожидался тип". var a: array ['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', ...
kan3k1k3n's user avatar
-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)...
stack's user avatar
  • 1
-1 голос
1 ответ
49 показов

Почему программа во всех процедурах выдает ноль при любых введенных числах?

Программа во всех процедурах выдает ноль при любых введенных числах. Уже всё перепробовала. Что не так? program weather; uses crt; var a:array [1..31] of integer; i,s,t,max,min:integer; ...
Валерия's user avatar
-1 голос
1 ответ
67 показов

Задача на Паскаль, решение дискриминанта

Мне надо решить задачу на Pascal, но у меня выходит ошибка Program kwur; {Имя программы} Uses Crt; {Использование библиотечного модуля CRT} Var a, b, c, d, w, z, x1, x2:Real; {Объявление ...
Мустафа Абакаров's user avatar
0 голосов
0 ответов
50 показов

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

дан массив согласных букв. если число, вводимое с клавиатуры больше, чем согласных в слове, то вывести слова в обратном алфавитном порядке. вот часть кода: const mas1=['б', 'в', 'г', 'д', 'ж', 'з', 'й'...
kan3k1k3n's user avatar
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;"...
Shiro's user avatar
  • 1
-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; ...
user526795's user avatar
0 голосов
1 ответ
56 показов

Требуется удалить заведомо не известное слово (словосочетание) из строки, для использования в txt файла

Существует txt файл, в котором есть строки, например: 1234567 [TAB] Привет, меня зовут Антон! [TAB] 19,06 [TAB] 600,6 8910112 [TAB] Привет, меня зовут Дима! [TAB] 29,24 [TAB] 500 1314151[TAB] Привет, ...
difixon's user avatar
0 голосов
0 ответов
65 показов

Как реализовать координаты в Pascal ABC?

Необходимо ввести точки в массив координатами и вывести их в порядке убывания, создав свой тип данных. При заполнении ячеек использовать длину от 0,0 до точки(по теор. Пифагора) и от точки с ...
Анатолий Плешков's user avatar
0 голосов
1 ответ
33 показа

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

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

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

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

Generic.Collection.Dictionary(K, V)

Где для TDictionary описаны параметры ключа (К) и значения (V) ?
woojin's user avatar
  • 25
-1 голос
1 ответ
90 показов

Lazarus Delphi Pasca Поиск строки в txt файле и вывод в Memo

Делаю проект-справочник OBD2 кодов, необходимо в txt файлах найти строку по номеру кода типа "Pyxxx" где "P" это буквы P,B,C,U; "y" это это число от 0 до 3 включительно; ...
Forester's user avatar
0 голосов
1 ответ
465 показов

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

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

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

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

Как автоматизировать процедуру на Pascal

Есть процедура, которая очень плохо написана: procedure PrintLeftPartOfDiamond(k, n : integer); begin if (k = 1) then begin PrintChars(' ', 2*n + 1); write('*'); end; if (k = 2)...
Илья's user avatar
0 голосов
1 ответ
41 показ

Отрисовать несколько алмазов на Pascal

упражняюсь в простых примерах на паскале, есть рабочий код, который отрисовывает алмаз. Высоту задаёт пользователь: program diamontest; procedure PrintSpaces (count : integer); var i : integer; begin ...
Илья's user avatar
1 голос
0 ответов
51 показ

Отрисовать алмаз на паскале

Всем добрый день. Делаю простые упражнения на паскале, мне удалось вывести алмаз таким образом. Высота его задаётся пользователем. К примеру, если задать число 5, результат будет таким: * * * * * ...
Илья's user avatar
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 ('Ведите ...
Lastik's user avatar
  • 3
1 голос
1 ответ
72 показа

Как сделать анимацию кружка, двигающемуся по Треугольнику Серпинского?

Я написала код, который на форме рисует треугольничек Серпинского в полярной и декартовой системе. Хотела ещё сделать анимацию кругляшка или квадратика, который будет бегать по внешнему треугольничку. ...
rawhu's user avatar
  • 13
0 голосов
2 ответа
77 показов

Даны 2 текстовых файла. Верно ли, что они состоят из одних и тех же строк (но, возможно, строки идут в разном порядке)

Даны 2 текстовых файла. Верно ли, что они состоят из одних и тех же строк (но, возможно, строки идут в разном порядке). Я не понял суть вопроса. Можете объяснить пример. Или любой язык ...
sha-danis's user avatar
0 голосов
2 ответа
82 показа

Не могу понять, в чём проблема в программе на Pascal [закрыт]

По заданию нужно составить процедуру определения максимального значения и его адреса в одномерном массиве. С помощью этой процедуры найти максимальные элементы в строках произвольно заданного ...
Stanislav Zinkin's user avatar
-3 голоса
1 ответ
59 показов

pascal формула 123

как записать эту формулу в паскале ?
TAKEDA's user avatar
  • 1
-4 голоса
1 ответ
48 показов

Помогите, пожалуйста, перевести из Pascal в C++

Const eps = 0.001; Var f0,f1,f2, { члены ряда Фибоначчи } n : word; { номер члена ряда Фибоначчи } V, { текущее значение параметра V } Vold, { предыдущее значение параметра V } V1 : real; { точное ...
Illia's user avatar
  • 1