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

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

Фильтрация
Сортировка
Метки
-7 голосов
1 ответ
76 показов

Программа для поиска среднее арифметического числа [закрыт]

необходимо написать функцию которая будет парсить арифмет число введеных переменных a и b и в зависимости от этого числа выдавать ответ Код языка не важен(но желательно чтобы пользователь смог открыть ...
1 голос
1 ответ
800 показов

Расположить строки матрицы в порядке возрастания характеристик

Дана целочисленная матрица. Характеристика строки матрицы определяется суммой её чётных элементов. Расположить строки матрицы в порядке возрастания характеристик. Вот мой код, не понимаю где ошибка и ...
-1 голос
0 ответов
18 показов

Реализация GnomeSort на паскаль

Не выводится отсортированный вектор. Думаю проблема в том , что программа уходит в вечный цикл .Код: procedure GnomeSort(var arr: array of Integer); var index, tmp, n: Integer; begin n := Length(...
-5 голосов
1 ответ
101 показ

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

Можете помочь со строками? Я написал код который читает строки, содержащие числа, разделенные пробелами, и выводит каждое число на отдельной строке. Но теперь мне нужно посчитать в строке цифры, ...
0 голосов
1 ответ
52 показа

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

ВАЖНО!!! Без использования массива строк, без доп. строки и без использования стандартных функций и процедур обработки строк (и также динамическое выделение памяти бесполезно), также пример функции ...
-2 голоса
1 ответ
34 показа

Помогите исправить аналог функции 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 ответ
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 ответов
48 показов

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: ...
1 голос
1 ответ
869 показов

Lazarus: Работа со сканером Штрих-Кода, принимать данные с COM-порта

Lazarus. Задача №1: Написать программу с помощью которой можно будет определить повторяющиеся дисконтные карты. Процесс: Пользователь берёт стопку карт и последовательно их сканирует. Задача программы ...
0 голосов
0 ответов
112 показов

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

Есть код программы которая считает общую сумму доходов расходов и прибыль за год: var Dohodi:array [1..12] of real; Rashodi:array [1..12] of real; Month:integer; PribilJanDec, ...
0 голосов
1 ответ
185 показов

Почему когда я ввожу в 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 голосов
2 ответа
927 показов

Вывести элементы матрицы по диагоналям

Вводится размерность матрицы(от 1 до 100). Вводится сама матрица. Вывести в строку элементы по диагоналям слева направо, снизу вверх. Пример: 5 //ввод размера матрицы 1 3 6 10 15 2 5 9 14 ...
0 голосов
0 ответов
28 показов

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

ctrl+break не работает в dosbox программирую в turbo c++ в dosbox, не могу завершить срочно программу во время выполнения, dosbox не принимает ctrl+break. в keymapper dosbox не знаю как сделать чтобы ...
-2 голоса
1 ответ
91 показ

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

Есть задача: С клавиатуры вводится число a и число b ∈ {1, 2, 3, 4} (именно в этом порядке). Рассмотрим равнобедренный прямо- угольный треугольник. Если b = 1, то a – периметр; если b = 2, то a – ...
0 голосов
1 ответ
34 показа

Вопрос касаемо строки из языка паскаль

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;"...
-4 голоса
2 ответа
55 показов

Помогите с маленьким воросом на паскале

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 :...
-1 голос
1 ответ
93 показа

Как в Паскале вывести цифры от 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; ...
0 голосов
0 ответов
26 показов

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

Как указать в online compiler pascal и или включить юнит Graph? А также где взять в интернете юнит sysutils? Какой online compiler pascal поддерживает Graph?
-5 голосов
1 ответ
63 показа

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

Напишите программу, реализующего обработку строк. Даны строки S и S0.Удалить из строки S первую подстроку, совпадающую с S0.Если совпадающих нет то без изменений S.Язык програмированния - Pascal. ...
0 голосов
4 ответа
10k показов

Как установить Turbo Pascal на Linux?

Пытался установить TP7 на школьный Линукс. Сразу же скачал эмулятор dosbox. Если скачиваешь *.exe. Wine грузит его и грузит, но в конце концов он просто прекращает загрузку dosbox'а. Скачивал архивы ...
0 голосов
1 ответ
2k показов

Метод Рунге-Кутта 4 порядка на паскале

Не могу сделать, чтобы задавать начальное условие y(x0)=1, если быть точнее, то не получается сделать ввод х0. Если кто может, исправьте, пожалуйста. var k1,k2,k3,k4,x,y: array [0..100000] of real; ...
-2 голоса
1 ответ
41 показ

Помогите разобраться с рекурсией в паскале [дубликат]

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 голосов
1 ответ
2k показов

Выяснить, делятся ли два натуральных числа нацело (Pascal)

Есть задачка: Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число. При решении этой задачи нельзя пользоваться условной ...
0 голосов
0 ответов
45 показов

Почему Паскаль не считывает несколько переменных разных типов данных в одной строке 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 ответ
84 показа

Найти все числа, кратные 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; ...
-1 голос
1 ответ
895 показов

Как запустить модуль путем создания 2 файла в Паскале?

Составить библиотеку алгоритмов для обработки произвольных числовых матриц (тип real): определить строку с наибольшим (наименьшим) произведением положительных элементов определить столбец с ...
0 голосов
2 ответа
165 показов

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

Хочу сделать функцию очистки текстовых полей, т.к. одно и то же действие предполагается делать при помощи двух кнопок (кнопкой очистить и после сохранения текстового файла) - то это уменьшит размер ...
0 голосов
2 ответа
2k показов

Контроль ввода данных пользователем

Доброй ночи. Работаю с PascalABC.Net. Интересует контроль ввода данных пользователем (так, чтоб можно было вводить лишь число, а при вводе не числа, а любого символа выдавало сообщение "Введено не ...
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. В каждом ее столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца....
0 голосов
1 ответ
39 показов

Pascal-Нет перегруженной подпрограммы с такими типами параметров

помогите пожалуйста, выдает ошибку и не даёт решить пример,помогите пожалуйста!! program sistema; var x, D: real; begin write('введите значение x'); read(x); if x<=0 then D:=cos(3*(x*sqr(x))...
-2 голоса
2 ответа
141 показ

у меня ошибка в паскале вылезает

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); // ...
3 голоса
3 ответа
5k показов

Pascal на Ubuntu

Как компилировать Pascal и в чем лучше писать на Ubuntu? Желательно что-нибудь минималистичное
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)...
-5 голосов
1 ответ
100 показов

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

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

Как проверить символ строки цифра или буква?

Есть строка требуется разделить на два массива. Один массив цифр а второй - букв. С распределением то я разберусь а вот как проверить символ строки цифра или буква? Может что то типа isDigit(ch) или ...
0 голосов
1 ответ
42 показа

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

Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свойство. Но при попытке ...
-4 голоса
2 ответа
1k показов

Перевод из Pascal в C#

var n, m, i, j, k, l, min, d, max: integer; x, y: array [1..10] of integer; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); read(n,m); read(k); ...
0 голосов
1 ответ
49 показов

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

Программа для быстрой сортировки на Паскале выдает переполнение стека на любом массиве, я понимаю, что проблема в рекурсии, но где именно - не понимаю. const n = 10; type arr = array[1..n] ...
-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 ответ
64 показа

При изменении значений в 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 ответ
61 показ

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

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

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

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

Размер переменных типа boolean и byte

Как следует из названия переменной типа byte, её размер равен одному байту. И, действительно, sizeof(byte); Вернёт 1. Но и sizeof(boolean); также возвращает 1, хотя, теоретически, boolean хранит ...