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

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

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

Здраствуйте, помогите пожалуйста с поиском ошибки [закрыт]

Саму задачу прикреплю в виде фото, из-за вставок, которых нету в юникоде: ну и сам код разумеется: var ml: integer; bal: integer; n,i: integer; a: array[1..10000] of integer; b: array[1.....
Криштиану Масса's user avatar
-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 ...
Криштиану Масса's user avatar
0 голосов
1 ответ
48 показов

Реализация функции delete, pos, length на Паскале (Турбо)

ВАЖНО!!! Без использования массива строк, без доп. строки и без использования стандартных функций и процедур обработки строк (и также динамическое выделение памяти бесполезно), также пример функции ...
Криштиану Масса's user avatar
0 голосов
1 ответ
41 показ

Как реализовать функцию insert на паскаль без использования массива строк и использования доп строки?

я набросал такой код, но у меня индекс выходит за границы , сам код function myinsert(substring: string;var s: string; start: integer): string; var i, l,l1, f: integer; begin l := length(substring)...
Криштиану Масса's user avatar
-1 голос
1 ответ
30 показов

pascalABC.net: При проигрыше, сообщение о том, что вы проиграли выводится два раза

Сделал игру угадай число, и так как в разных местах мне нужно делать одну и ту же проверку, я решил изучить функции и процедуры. Сделал функцию, что если попыток у игрока меньше или равно 0, то пишет ...
Nqweqweqwe's user avatar
0 голосов
1 ответ
15 показов

PascalABCNet, при перезапуске кода функция вызывается два раза

Вчера сделал калькулятор, нажал на кнопку проверить здоровье кода и увидел, что у меня было 64% из-за устаревших конструкций. Я почитай официальную документацию, переписал код. Теперь здоровье кода ...
Nqweqweqwe's user avatar
0 голосов
0 ответов
9 показов

Unit1.guessanumber.inc(77) : Неизвестное имя 'guessanumber_Load'

Что делать с ошибкой постоянно вылезает. procedure InitializeComponent; begin var resources: System.ComponentModel.ComponentResourceManager := new System.ComponentModel....
AstroPowerX's user avatar
0 голосов
1 ответ
31 показ

Не работает проверка PascalABCNET

Я сделал выборочный калькулятор, т.е. в котором можно выбрать знак вычисления и числа, и для того чтоб не выдавало ошибку при вводе знака, я решил сделать проверку, которая срабатывает если sign <&...
Nqweqweqwe's user avatar
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: ...
AstroPowerX's user avatar
0 голосов
0 ответов
112 показов

Как присвоить переменной для вычисления, значение вводимое в поле таблицы?

Есть код программы которая считает общую сумму доходов расходов и прибыль за год: var Dohodi:array [1..12] of real; Rashodi:array [1..12] of real; Month:integer; PribilJanDec, ...
Lcfr's user avatar
  • 13
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: ...
Lucifer04's user avatar
0 голосов
0 ответов
27 показов

Сtrl+Break не работает

ctrl+break не работает в dosbox программирую в turbo c++ в dosbox, не могу завершить срочно программу во время выполнения, dosbox не принимает ctrl+break. в keymapper dosbox не знаю как сделать чтобы ...
хоббипрограммист's user avatar
-5 голосов
1 ответ
101 показ

Нужна помощь с программой на паскале

Можете помочь со строками? Я написал код который читает строки, содержащие числа, разделенные пробелами, и выводит каждое число на отдельной строке. Но теперь мне нужно посчитать в строке цифры, ...
Lcfr's user avatar
  • 13
-2 голоса
1 ответ
91 показ

математики и программисты нужна помощь в программе на паскале!

Есть задача: С клавиатуры вводится число a и число b ∈ {1, 2, 3, 4} (именно в этом порядке). Рассмотрим равнобедренный прямо- угольный треугольник. Если b = 1, то a – периметр; если b = 2, то a – ...
Palindrom's user avatar
-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 :...
Lic's user avatar
  • 1
0 голосов
0 ответов
25 показов

Относительный путь к юниту Turbo Pascal

Как указать в online compiler pascal и или включить юнит Graph? А также где взять в интернете юнит sysutils? Какой online compiler pascal поддерживает Graph?
хоббипрограммист's user avatar
-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; ...
Lucifer04's user avatar
-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. Я начал изучать изучать функции и наткнулся на рекурсию, можете объяснить как рекурсия ...
Lic's user avatar
  • 1
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 ...
User's user avatar
  • 1
-1 голос
1 ответ
46 показов

Помогите с программой на Pascal

Сверху выражение по которому написан код, (f1-f3) - числа Фибоначчи var eps: real; sum: real; summand: real; fib, fibPrev, fibPrevPrev: real; fragment: real; number: integer; begin write('...
Lucifer04's user avatar
-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; ...
Lucifer04's user avatar
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....
ArtemLP's user avatar
  • 320
0 голосов
1 ответ
45 показов

Программа, для обработки двухмерных матриц, Язык - Паскаль

Напишите программу, реализующую обработку двухмерных массивов. Дана матрица размера M x N. В каждом ее столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца....
SkyDis's user avatar
  • 1
-5 голосов
1 ответ
63 показа

Программа в Паскаль - Обработка строк

Напишите программу, реализующего обработку строк. Даны строки S и S0.Удалить из строки S первую подстроку, совпадающую с S0.Если совпадающих нет то без изменений S.Язык програмированния - Pascal. ...
SkyDis's user avatar
  • 1
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))...
Виктор Радостный's user avatar
-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); // ...
STaiNUm's user avatar
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)...
WYILJACK's user avatar
0 голосов
2 ответа
142 показа

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 ответ
40 показов

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

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

Не получается протабулировать функцию 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 ответа
36 показов

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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