Вопросы с меткой [pascal]
Pascal — императивный язык программирования созданный в 70-х, 80-х годах. При использовании метки по возможности уточняйте современную версию языка Delphi, Free Pascal и PascalABC.NET
875
вопросов
1
голос
0
ответов
19
показов
Составить программу вычисления числа размещений из N элементов по M, без использования готовых функций
Нужно использовать строковый тип данных(числа перевести в строку), т.к. числовой тип не сможет решить задачу при N>10000 и M>100 это будет выход из границ. Либо другим способом чтобы n и m при ...
-2
голоса
1
ответ
14
показов
Встречено "else", а ожидался оператор. 22 строка
unit labs;
interface
uses crt;
procedure lb;
procedure lb2;
procedure lb3;
implementation
procedure lb1;
var p,x:real;
begin
textbackground(white);
textcolor(black);
clrscr;
writeln('Введите значение ...
0
голосов
1
ответ
12
показов
Как посчитать количество произведенных сравнений элементов массива в PascalABC?
"Программа для поиска заданного элемента в массиве"
Суть:
Заданный элемент для поиска вводить с клавиатуры.
Массив заполнять с клавиатуры.
В результате выполнения программы вывести на экран:
...
0
голосов
0
ответов
15
показов
как исправить в паскале System.IO.FileNotFoundException: Файл 'C:\PABCWork.NET\graph.lin' не найден
Когда я запускаю следующий код:
program pr8_3; {пошук ушир }
uses crt;
type
PtrVer = ^TVer; {тип покажчика на вершину графу }
TVer = record {тип вершини графу }
vertex:array[1..50]of PtrVer;{масив ...
-3
голоса
0
ответов
34
показа
Правила расчета контрольной суммы СНИЛС, перевод алгоритма С++ на Pascal
Допустимые символы - цифры, пробел, дефис.
Проверяется на валидность контрольным числом.
СНИЛС имеет вид "XXX-XXX-XXX YY", где XXX-XXX-XXX - номер, а YY - контрольное число.
Проверка ...
-3
голоса
0
ответов
19
показов
Cчитать 2 координаты и вывести расстояние между ними
Задача программы считать 2 координаты и вывести расстояние между ними.
Я понимаю что например если пример будет 1,1 1,3, то у меня координата х получится 0, и корень не получится извлечь а надо будет ...
-3
голоса
2
ответа
41
показ
Что делает Ord?
Есть код:
var
i: integer; // объявляем
begin
n := 0; // объявляем в 10 системе
for i := 1 to Length(s) do //цикл Length(s) определяет текущую длину строки
if s[i] in ['0'..'7'] // от 0 до 7 могу ...
-2
голоса
0
ответов
19
показов
Написать программу на PascalABC
Весь год мы программировали на си, и вот под конец года дали такое. Как это сделать на Паскале я не могу понять.
Правила расчета контрольной суммы СНИЛС
Допустимые символы - цифры, пробел, дефис.
...
-3
голоса
1
ответ
53
показа
Помогите перевести код из Pascal на С++
Необходимо перевести код из Pascal на C++
uses math;
function f(n:longint):longint;
begin
if n=0 then f:=1
else f:=f(n div 10)*(n mod 10)
end;
var n,m,p:longint;
begin
readln(n);
m:=f(n);
p :=...
-4
голоса
0
ответов
12
показов
PascalABC.net проблема с массивом
program zalupa;
begin
var zalupen:array[1..100] of integer;
var i, b, c:integer;
c:=3;
randomize;
for i:=1 to 100 do
zalupen[i]:=random(10);
for i:=1 to 100 do write (zalupen[i],' ');
var zalupenx3:...
-3
голоса
0
ответов
12
показов
Найти произведение элементов массива С[24], с m1 по m2, заполненного случайными числ из интервала [+2, +10]. (Значен m1 и m2, ввод. с клавиатур m2>m1
Найти произведение элементов массива С[24], с m1 по m2,
-4
голоса
0
ответов
38
показов
Помогите пожалуйста перевести с Pascal на С#
procedure TForm1.Button1Click(Sender: TObject);
var okl,zrp,ndb:double;
begin
if not TryStrToFloat(Edit1.Text,okl)or(okl<=0)then
begin
ShowMessage('Неверно введен оклад');
Edit1.Clear;
...
0
голосов
1
ответ
17
показов
Не выводит результат Lazarus
В Lazarus при нажатии зеленой кнопочки 'play' не появляеться консоль с результатом.
Это случилось после перехода с виндовс на линукс.
Советы из гугла не помогают ( пробовал на двух языках ).
0
голосов
1
ответ
122
показа
Мне необходимоСоставить программу для обработки массива из 12 вещественных чисел. и вывести нечетные числа, но выдает ошибку: тип real к integer
Program Massiv1;
Uses Crt;
var k:array[1..12] of real;
i,c:integer;
begin
clrscr;
write('Введите элементы массива k:');
c:=0;
for i:=1 to 12 do
begin
readln(k[i]);
if (k[i] mod 2=0) then Inc(c);...
0
голосов
0
ответов
26
показов
Массивы и индексы
Как получить значения из двух массивов по одному индексу?.
Допустим есть 2 списка.
a:=[10,9];;b:=[8,7];;
нужно получить разбиения 10 по 8 и 9 по 7 слагаемых.
gap> f2:=function(n)
> local a,b,i,j,...
0
голосов
0
ответов
19
показов
Переписывание полей класса в Pascal
В ABCObjects я не нашёл класс кнопки и решил написать свою реализацию:
type
ButtonWithImage = class
private
x, y: integer;
pic: PictureABC;
public
constructor ...
-1
голос
1
ответ
31
показ
Не работает код программы pascal, которая должна решать квадратные уравнения
Задача: Написать программу, которая решает квадратные уравнения(изучаем Паскаль в рамках школьной программы).
Пишу такой код:
program X;
var a, b, c: integer;
var D: integer;
var x, x1, x2: real;...
1
голос
1
ответ
21
показ
Сдвиг влево в цикле
Написал простую програмку для теста, когда увидел что у меня в другой программе идут неправильные данные.
В ней сначала действия идут без цикла, а потом повторяется то же самое, но в цикле. Второй ...
-4
голоса
1
ответ
37
показов
Программа на Pascal [закрыт]
срочно, помогите пожалуйста, нужно написать программу на паскаль, которая по данной стороне равностороннего треугольника расчитывает площадь, высоту, радиус вписанной и выписанной окружности.
0
голосов
0
ответов
23
показа
Как соединить три одномерных массива в один?
Как соединить три одномерных массива в один, при этом без упорядочивания их элементов по возрастанию?
К примеру, из массивов[1,3]; [2,5]; [4;9] должно получится [1,3,2,5,4,9]
0
голосов
0
ответов
19
показов
Ошибка: Индекс находился вне границ массива
Имеется задача: ввёдённый пользователем массив разделить на три других, в которых числа сгруппированы согласно их остатку от деления на 3, а потом эти три массива соединить в один.
if M[i] mod 3 = 0 ...
-1
голос
2
ответа
30
показов
Переставить элементы массива
Может кто-то подсказать фрагмент кода с перестановкой элементов массива или хотя бы объяснить по какой логике переставляются элементы массива.
Дан массив z1,z2,…,z3n. Построить новый массив с ...
-3
голоса
2
ответа
53
показа
В чем ошибка в функции ? любое целое число считает простым и вместо произведения первых n простых чисел выдает 0
function Simple(x: integer): boolean;
var
i: integer;
begin
for i := 2 to x div 2 do
if x mod i = 0 then
begin
result := false;
exit
end;...
0
голосов
2
ответа
36
показов
Нельзя преобразовать тип real к integer с функцией синуса
Условие задачи: Определить количество тех членов последовательности
Ak=SIN(K`2+C), K=1,2,….,10, которые удовлетворяют условию 0≤AK≤1/2.
var
K : array [1..10] of real;
C : real;
...
0
голосов
1
ответ
30
показов
Ошибка: "Нет перегруженной подпрограммы с такими типами параметров" код не работает, в чем проблема?
program Hello;
var
a, x, b, y :real;
begin
writeln('Введите b Переменную');
readln(b);
writeln('Введите y Переменную');
readln(y);
x:=(b*(sqrt(b+y)-(sin(b)/cos(b))/(y+1)));
a:=((exp(ln(...
0
голосов
0
ответов
25
показов
Математический биллиард на Pascal
Недавно дали задание написать на PascalABC программу, реализующую решение логической задачи на переливание между сосудами методом математического биллиарда. Долго мучался, ничего не вышло.
Знает кто-...
-6
голосов
1
ответ
27
показов
Переведите пожалуйста код с pascal на Python [закрыт]
var i,j,m,n:longint;
begin
for j:=100000000 to 300000000 do begin
i:=j;
m:=0;
n:=0;
while i mod 2 = 0 do begin
i:=i div 2;
m:=m+1;
end;
if (m mod 2 = 0) and (m>0) ...
-2
голоса
1
ответ
42
показа
Кто может объяснить в чем есть ошибка, не компилируется код [закрыт]
Дано натуральное n > 0. Найти произведение первых n простых чисел.
Подсказка: используйте булевскую функцию для проверки,
является число простым числом или нет.(Массивы использовать нельзя)ю
var
...
0
голосов
1
ответ
69
показов
Как преобразовать данные из текстового документа в массив
var
a:text;
s:string;
b:array of string;
begin
en3 := Encoding.GetEncoding(65001);
assign(a, 'C:\Users\Новый текстовый документ.txt');
//пусть предложение будет следующим: Найти ...
0
голосов
1
ответ
15
показов
Программа переходит в рекурсию,но не могу выявить где
Выводит:(Среднее значение компани third ,> среднего значения) происходит бесконечно
Документ:
first 10 1
second 200 5
third 1000 15введите сюда код
Код:
var
i,p,u,sum,num,midle1,midle2:integer;
a:...
0
голосов
1
ответ
23
показа
Как добавить элемент scrollbar win32 API Delphi7
Как добавить элемент scrollbar win32 API Delphi7. Мне необходимо добавить три scrollbar min=0 max=255 у каждого. И чтоб при передвижении ползунка менялись значения в соответствующих edit
program ...
0
голосов
1
ответ
207
показов
Помогите пожалуйста перевести код с pascal на python [закрыт]
Это код на pascal:
program ChckMonoton;
var
s: string;
function FuncIsCorrect(s: string): boolean; // функция, проверяющая правильность записи заданной в векторном виде БФ
var i, n: byte;
begin
...
-1
голос
1
ответ
42
показа
Все ли правильно Я сделал? [закрыт]
Все ли правильно Я сделал ?
ТЗ
Создает массив из не более чем 100 целых чисел
Вводит с клавиатуры n целых чисел
Выводит на экран введённые с клавиатуры числа
Увеличивает в 3 раза значения каждого ...
0
голосов
0
ответов
214
показов
Как перевести код из Pascal в С++
Это код с алгоритмом на бинарное дерево, который я собираюсь переписать на С++. Проблема заключается в нескольких незнакомых мне вещей. Мне не понятны те строчки кода, которые я отметил комментарием {...
0
голосов
0
ответов
37
показов
Проблема с задачей на паскале
У меня возник вопрос к задаче
Условие:Декодирование методом контроля четности. Вводится k – число символов в блоке и последовательность двоичных символов, длина которой кратна k. Если кратность ...
-1
голос
2
ответа
88
показов
Помогите с кодом на паскале
Есть задача
Декодирование путем повторения символов. Вводится m – нечетное число, задающее кратность повторения, а также последовательность двоичных символов, длина которой кратна m. Если кратность ...
-3
голоса
1
ответ
77
показов
Извлечение корня n-ой степени в обход натурального логарифма
Имеется некоторое число x и степенной корень у. Нужно извлечь корень без использования натурального логарифма (Exp(Ln(X) / 3) и пр.). Желательно на Pascal, либо Delphi.
2
голоса
1
ответ
33
показа
Не работает программа вычисления значения интеграла по формуле трапеции
было дано задание вычислить значение интеграла при помощи цикла с параметром, но программа на Pascal почему-то выдаёт неверный результат (0.11(6) вместо 0.183), ошибку у себя найти не могу. Был бы ...
1
голос
3
ответа
85
показов
Как можно сократить код в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text <> '') and (edit2.text <> '') and (edit3.text <> '')
and (edit4.text <> '') and (edit5.text <> ''...
-1
голос
1
ответ
33
показа
Нужно выдать предупреждение при значении больше 10 в 100 степени
Я использую BigInteger и мне нужно сравнить свой результат с 10 в 100 степени и выдать предупреждение. Я пробовал сделать так
var onigiri, b:BigInteger;
...
b := 100000000000000000000000000000000000....
1
голос
1
ответ
31
показ
Помогите найти ошибку в коде pascal
Заставили делать дз на паскале, но почему-то результат получается разным, пишу от силы 2 раз в жизни и не могу понять где ошибка. Смысл задачи это поиск праймориала (произведение n простых чисел).
...
0
голосов
1
ответ
22
показа
поменять столбцы и строки в матрице местами. Не могу найти ошибку, на первых строках выводятся нули. Должно получится из 147 258 369-> 741 852 963
program vv;
var a:array[1..3,1..3] of integer;
k,i,j,c:integer;
begin
k:=0;
for j:=1 to 3 do begin
for i:=1 to 3 do begin
k:=k+1;
a[j,i]:=k;
write(a[i,j],' ');
...
0
голосов
1
ответ
59
показов
Кто может объяснить про точность
Код
program dz_func;
var list_value: array[1..10] of real;
var min,max,value_,interval,eps,sum,f,n,k: real;
var i,j: integer;
begin
writeln('Введите минимальную границу: ');
readln(min);
writeln(...
0
голосов
1
ответ
71
показ
Не работает цикл for в Паскале
Подскажите, в чём проблема?
var
p, i: real;
begin
i:= 0.25;
for p := 0 to 16 do
begin
i := i * 2;
end;
writeln('Неверно, ему придётся заплатить: ', i:1:0);
end.
0
голосов
2
ответа
146
показов
Как записать условие в программе? [закрыт]
"Исходная строка содержит десять единиц и три двойки, других цифр нет, ТОЧНЫЙ ПОРЯДОК РАСПОЛОЖЕНИЯ ЕДИНИЦ И ДВОЕК НЕИЗВЕСТЕН."
Подскажите пожалуйста, как можно записать условие, что точный ...
0
голосов
0
ответов
18
показов
(Free Pascal) - ошибка not in graphics mode хотя я подключил модуль Graph
У меня есть учебная программа на Free Pascal, для сборки использую Geany IDE.
Код программы:
Uses Crt, Graph, DOS, HelpGraph;
Var vga, vga0: Integer;
Axes_Color, BackGround_Color, Color: Byte;
...
1
голос
1
ответ
46
показов
Как добавить в TStringList ссылку на другой TStringList?
Необходимо для пары ключ=значение добавить указатель на другой список состоящий из пар.
Пишу
var ItemList,item,item1:TStringList;
ItemList := TStringList.Create;
item := TStringList.Create;
item.Add('...
-1
голос
1
ответ
23
показа
Ошибка External SIGSEGV Lazarus
Есть код, который должен слушать события формы, и при нажатии конкретной клавишы (в моем примере клавиша с буквой 'h') эта клавиша должна выводиться на элемент Memo, расположенный на форме.
Часть кода,...
3
голоса
1
ответ
53
показа
Почему скорость сортировки данных упорядоченных по убыванию и возрастанию практически одинаковая?
Пытаюсь разобраться в пирамидальной сортировке. Почему данные расположенные в массиве по убыванию сортируются по возрастанию практически с такой же скоростью как и данные расположенные в массиве по ...
0
голосов
1
ответ
38
показов
Почему мне выдаёт "Program1.pas(10) : Встречено 'else', а ожидался оператор" в моей программе?
Program PerevodChisla;
procedure Dec2Bin(var decim : integer; binar: string);
begin
readln(Decim);
if decim > 0 then
begin
if Decim mod 2 = 0 then
binar := Binar + '0';...