Вопросы с меткой [pascal]
Pascal — императивный язык программирования созданный в 70-х, 80-х годах. При использовании метки по возможности уточняйте современную версию языка Delphi, Free Pascal и PascalABC.NET
807
вопросов
0
голосов
0ответов
23 показа
Как можно сделать из шифратора дешифратор?
В общем, вся проблема состоит в том, что я не знаю что передавать в ключ, как сделать рандомное заполнение, а не по спирали, помогите, пожалуйста, с рандомным заполнением и ключом.
Program Encryption;
...
0
голосов
1ответ
20 показов
Ошибка при копировании строк файла
Написал программу, осуществляющую копирование строк из файла
var
f1, f2: text;
s: string;
num1, num2, count : integer;
begin
write('Input num1=');
readln(num1);
write('Input num2=');
readln(num2);
...
0
голосов
1ответ
23 показа
Ошибка с оператором “else”
Моя задача найти в последовательности сумму чисел кратных 6 и оканчивающихся на 4. Кол-во элементов в последовательности не известно, но их не может быть больше 1000. Если напечатал 0 - цикл ...
-4
голоса
1ответ
27 показов
Как написать данную строчку на языке python
Допустим, есть такая строчка на Паскале:
a: array ['A'..'Z'] of integer;
Как эта строчка должна быть записана на Python?
-2
голоса
3ответа
62 показа
Сумма чётных цифр числа [закрыт]
Переделать паскаль в питон
n - исходное число,
sum - сумма четных чисел.
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 ...
-4
голоса
0ответов
21 показ
Invalid syntax помогите пожалуйста
var
V: Real;
begin
Write ('Введите сумму вклада: ');
Readln (V);
if V = 200000 then
WriteLn ('Процент дохода равен 13.5% в год')
else if V >= 350000 then
WriteLn ('...
1
голос
1ответ
27 показов
Pascal Диапазон и перечислимые типы
Почему в переменную d описанную таким образом можно присвоить значение более 9, он просто ведёт себя как byte, переполняется после 255. Объясните пожалуйста в чём смысл перечислимого типа и диапазона?
0
голосов
0ответов
23 показа
Программа не правильно считает символы
В задании на решу егэ Тут В ответе 35, в моем решении на пайтон выходит 34, помогите найти ошибку в коде
f = open("24_demo.txt", "r");
c1=None
c2=None
k = 0
k_max = 0
while 1:
...
0
голосов
0ответов
30 показов
Матрицы (Паскаль)
Я сделал программу которая вводит массив с клавиатуры и подсчитывает среднее арифмитическое отрицательных элементов матрицы выше главной диагонали. Вот код:
Program Lab;
const
nmax = 10;
type
...
0
голосов
0ответов
23 показа
Процедуры, функции, модули. Работа с текстовыми файлами
1.Создать модуль на языке Pascal, содержащий:
а) объявления типов данных (для одномерных и двумерных массивов);
б) функцию, вычисляющую значение: y=min{ab; ac; bc}
в) процедуру, реализующую следующий ...
1
голос
0ответов
33 показа
Перевод из Pascal в Python
Пытался перевести из паскаля в питон:
var a: array[1..100] of integer;
i, k: integer;
begin
for i:= 1 to 100 do
if i*2 >= 65 then
a[i]:= 1
else
a[i]:= 0;
for k:= 1 to 100 ...
-3
голоса
0ответов
35 показов
Перевод из Паскале в Python [дубликат]
Помогите, пожалуйста, перевести из пакаля в питон. Не получается массив задать, как и сами переменные i,j,k.
var a: array[1..100, 1..100] of integer;
i, j, k: integer;
0
голосов
1ответ
59 показов
Разложение числа на повторяющиеся слагаемые
Помогите, пожалуйста, разложить число на всевозможные комбинации из чисел 2 и 3 с повторениями, вот набросок для простого разбиения без повторений.
program Razbieniya;
type Razb=array [byte] of ...
0
голосов
0ответов
11 показов
Вычисление корней уравнений и определенных интегралов
С заданной точностью эпсилон (0.001) вычислить площадь плоской фигуры, ограниченной тремя кривыми ( f1(x) = 3(0.5/(x+1)+1), f2(x) = 2.5x-9.5, f3(x) = 5/x x>0). С некоторой точностью эпсилон1 (ввод ...
1
голос
1ответ
26 показов
Не работает неранество в pascal
var
x,y:integer;
begin
readln(x);
readln(y);
if (x=90) or (y=90) or (180-(x+y)=90) then
writeln('прямоугольный');
if (x>90) or (y>90) or (180-(x+y)>90) and (180-(x+y)<>90) and (x<&...
2
голоса
1ответ
92 показа
Переписать python на pascal
n = int(input())
a = []
m0 = 0
m1 = 0
ms = 0
for i in range(6):
a.append(int(input()))
a.append(0)
for i in range(6, n):
a[6] = int(input())
if a[0] % 2 == 0 and a[0] > m0:
m0 = ...
0
голосов
1ответ
25 показов
Как сделать несколько условий if в pascal
var
a,b,c,d:integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
if a < b and c and d then
writeln(a);
if b < a and c and d then
writeln(b);
if c < d and a and b then
writeln(c);
...
-1
голос
1ответ
41 показ
Heap Sort(сортировка кучей)
попытался написать heap sort, но возникли ошибки, помогите, пожалуйста.
Program Heapsort;
{$APPTYPE CONSOLE}
Const
N = 10;
Type TArray = Array[1..N] of Integer;
//Процедура для перессылки ...
-4
голоса
1ответ
98 показов
Шифрование строки функцией Эйлера. Перевод решения из Pascal на C#
Помогите перевести правильно из Pascal в C#
пробовал сам но возникли проблемы
Код на Pascal
var
p, q, r, fr, e, d, m, c, s: int64;
z:string;
i:longint; // Затрудняюсь перевести тут
a:...
-2
голоса
1ответ
28 показов
написать алгоритм и программу вычисления функции [закрыт]
написать алгоритм и программу вычисления функции Z = SUM(F3(x))
Значения аргумента х функции f3 заданы интервалом целых значений отрезка [a3,b3]. Шаг изменений значений аргумента принять равным 1. ...
-2
голоса
1ответ
91 показ
Чтение массива записей из типизированного файла
Мне нужно прочитать массив записей (состоит из одной строки и 6 цифр) из типизированного файла и записать в таблицу (StringGrid). В типизированном файле данные находятся каждое значение на новой ...
2
голоса
0ответов
32 показа
Чтение данных из cmd и сохранение результатов выполнения в файл [и любого консольного приложения] (на pascal, lazarus)
В run.cmd прописываю:
Запускаю проект:
Все работает, логи записываются в файл:
Проблема возникает, когда я пытаюсь запустить программу в которой очищается консоль...
Пример запуска через cmd:
...
-1
голос
2ответа
59 показов
Вводятся координаты четырёх точек на плоскости, определить могут ли они быть вершинами выпуклого четырёхугольника
Есть следующие идеи: если у нас есть четыре точки, то выпуклый четырехугольник может получится в том, и только в том случае, если для каждой точки справедливо условие: она не лежит внутри треугольника,...
1
голос
1ответ
31 показ
Как правильно записать формулу в паскаль?
Нужна помощь правильно записать такую формулу в паскаль? :) К примеру
b=(4*sqr(y)*exp(3*sin(v)))/3*exp(3*ln(z))+ln(x)
0
голосов
0ответов
37 показов
подключение базы access к pascal
Не как подключение к базе через from среда lazarus
побывал
не как выдает ошибки и не добавляет данные в базу
генерирует исключение
procedure TForm3.ODBCConnection1AfterConnect(Sender: TObject); begin ...
0
голосов
0ответов
16 показов
Как учесть русские символы для записи в файл?
Даны два файла f и g, необходимо в файл h внести все символы из файлов f и g в файл h. Все вроде как работает, но русские символы в файл заносит как 'РРСРР'
uses crt;
const m=['a'..'z','A'..'Z'];
m2=...
1
голос
2ответа
27 показов
Как записать условие для отсутствия результата после перебора в цикле?
Необходимо найти перевод или выдать сообщение «нет в словаре». Перевод находит, но куда мне записать еще один else, чтобы выдавало 'Нет в словаре'. Вот кусочек кода.
write('Введите слово для поиска ...
0
голосов
1ответ
50 показов
Поиск элементов в массиве(Pascal)
Всем привет!
есть задание
Найти в массиве элементы, равные числу, заданному пользователем. Подсчитать их количество и вывести номер первого найденного элемента. Массив задается при помощи ввода с ...
-4
голоса
2ответа
156 показов
Заштрихованная область [закрыт]
Что писать в if? Я очень долго думал, но никак не могу придумать. Нужно определить входит ли точка с координатами (x, y) в закрашенную область.
0
голосов
2ответа
50 показов
Ошибка синтаксиса в pascalABC
Школьная задача на нахождение количества корней квадратного уравнения. При компиляции выдаёт ошибку синтаксиса "main.pas(20,9) Fatal: Syntax error, ";" expected but "identifier ...
-1
голос
1ответ
31 показ
Определить в предложении количество слов, которые НЕ содержат символ “а”
Определить в предложении количество слов, которые НЕ содержат символ "а". Вывести все эти слова и исходную символьную строку.
Я не понимаю, как посмотреть полностью слово и определить, есть ...
0
голосов
1ответ
56 показов
Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали
Есть динамический массив
var a: array[,] of integer;
Вот так я задою его размерность
write('Задайте размерность матрицы: ');
read(n);
SetLength(a, n, n);
Дальше заполняю
writeln('Задайте элементы ...
0
голосов
1ответ
21 показ
В чем ошибка при работе с динамическими массивами(Строю снежинку Коха)? На статическом всё работало. Lazarus
Вижу, что ругается на типы данных, но как это теперь заставить работать без понятия
procedure L_exec1(dl,teta:real; source,newF:string; n:integer; cnv: TCanvas);
// Исполнитель.
//dl - длина шага ...
1
голос
1ответ
114 показов
Почему при складывании большого количества чисел, выводится отрицательное число?
Рассматривается множество целых чисел принадлежащих числовому отрезку от 4221 до 17523 которые в восьмеричной СС оканчиваются на 6 и в четверичной на 2. Надо найти сумму таких чисел и минимальное из ...
-3
голоса
2ответа
28 показов
Как можно исправить Pascal. 8 строчка
var
a, b, c, k : integer;
Procedure nod(a, b : integer; var n : integer);
var
r : integer;
begin
repeat
r := a mod b;
a := b; b := r
until b = 0;
n := a
end;
begin
nod(a, b, k);
a := k; b := c;
nod(a, ...
-1
голос
1ответ
49 показов
Помогите с программой на паскале
Дано натуральное число n. Проверить, все ли цифры в этом числе различные.
Программу написал так:
var c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,c,n:integer;
begin
readln(n);
c0:=0;c1:=0;c2:=0;c3:=0;c4:=0;c5:=0;c6:=...
-2
голоса
1ответ
49 показов
Вычислить суму бесконечного ряда с точность e=0.5*10^-4 [закрыт]
Помогите очень срочно
Вычислить суму бесконечного ряда с точность e=0.5*10^-4
Не знаю как решить совсем а сдать надо очень скоро
1
голос
1ответ
43 показа
Записать данное условие Pascal на С++
Решаю задачку из ЕГЭ. Есть проблема, я не могу нормально записать условие, чтобы выводило данную таблицу истинности.
Код прикладываю:
#include <iostream>
using namespace std;
int main()
{
...
-1
голос
1ответ
23 показа
Выдаёт ошибку в коде, а именно пишет: неизвестное имя 'p' в 16 строке. Программа вычисляет плотность населения
program naselenie;
var
р: array [1..10] of real;
n: array [1..10] of string;
i, j, imin: integer;
х: real;
r: string;
const
k: array [1..10] of real = (58100, 81200, 10300, 5190, 39100, 57200, 38500, ...
0
голосов
2ответа
92 показа
Как определить максимальную длину цепочки `XYZXYZXYZ`? [дубликат]
Текстовый файл состоит не более чем из 10^6 символов X, Y и Z. Определите максимальную длину цепочки XYZXYZXYZ... (составленной из фрагментов XYZ, последний фрагмент может быть не полным). (вместо ...
-2
голоса
2ответа
91 показ
Даны действительное число х и натуральное число n. Вычислить , не используя операцию возведения в степень
Даны действительное число х и натуральное число n.
Вычислить , не используя операцию возведения в степень
1
голос
2ответа
28 показов
Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта
Программа должна рассчитывать значения некоторых функций (в данном случае F(x)=sin(x)*cos(x) и G(x)=(x-1)^3). Но в 23 строке (указал комментарием) появляется ошибка, указанная в теме. Также в строке ...
0
голосов
1ответ
34 показа
Почему-то всегда выполняется if в паскале [закрыт]
Почему-то вcегда выполняется if в зоне, помеченной с двух сторон комментарием //mistake. Всегда выводится:"Вы вспомнили, что на чердаке видели нечто блестящее и решили проверить, что это такое ...
-1
голос
1ответ
41 показ
Почему программа пишет “Индекс находился вне границ массива”
Это программа должна прочитать указанный файл, найти строчки 'XYZ' и посчитать их максимальную длину. Например: XYZZZXYZXYZXYZ Ответ, максимальная длинна 'XYZ' = 3
var
f: text;
a: string;
schot, ...
-7
голосов
1ответ
96 показов
Решение задачи про круассаны и эклеры [закрыт]
На складе кондитерской фабрики хранятся пирожные двух видов — круассаны и эклеры. Круассанов A штук, а эклеров — B штук. Есть неограниченный запас подарочных коробок, в каждую коробку можно положить ...
-2
голоса
1ответ
31 показ
Некорректное чтение данных из файла в record
Есть текстовый файл с записанными в строку данными Имя Фамилия Вес Рост Пол. В файле несколько строк по количеству описанных таким образом людей. Необходимо прочитать файл и записать строки в элементы ...
-1
голос
1ответ
55 показов
Задача на Паскале
Задача: Даны натуральные число n целое число a1...an. Рассмотреть отрезки последовательности a1.. an состоящих из простых чисел. Получить наибольшую из длин рассматриваемых отрезков
Примеры: вводим ...
-3
голоса
1ответ
27 показов
Pascal. Как вообще работать с переменными типа char?
Если в текст входят не только символы, соответствующие десятичным цифрам, выдать сообщение о том, что текст некорректен. Если текст можно интерпретировать как запись положительного десятичного числа, ...
-2
голоса
1ответ
28 показов
З Паскаля на пайтон [закрыт]
Есть код на паскале:
var i, j : integer;
BEGIN
readln(i, j);
if i=j then
if i=12 then
writeln('12')
else
writeln('0')
else
writeln(i+j-1)
END
Можно на пайтон?
0
голосов
0ответов
70 показов
Задача по информатике на Pascal
Ввести два числа с клавиатуры, сравнить целую часть от деления большего числа на меньшее и остаток от деления большего числа на меньшее, и на печать вывести большее число (остаток от деления или целую ...