Форум программистов и сисадминов Киберфорум

Темы раздела PascalABC.NET

Найти все натуральные числа, такие, что найдется простое число, для которого выполняется заданное равенство
найти все натуральные n такие что найдется простое число p для которого выполняется равенство 6n^2+p+3=n(2p+9) в условии написано все натуральные. по идее их больше одного? p=3 n=2 6*2^2+3+3 =...

Решение задачи целочисленного программирования методом Гомори
Всем привет. Код не мой. Я понимаю, что он может быть написан для другой версии паскаля, но пока что не вижу идей для решения выходящей проблемы и в интернете не могу найти (не исключаю, что плохо...

Три максимума и пять минимумов
Дан массив из 100 случайных целых чисел от -10000 до 10000.var a:=ArrRandom(100, -10000, 10000);Требуется найти три максимума и пять минимумов. Предполагаю, что проще реализовать через...

По заданным правилу формирования и первым членам определить член последовательности с заданным номером
В последовательности цифр а1, а2, а3, … каждый член, начиная с четвертого, равен последней цифре суммы трех предыдущих. Написать программу, которая по заданным а1, а2 и а3 определяет аN для...

Элементы с максимальной разностью
Элементы с максимальной разностью Дан массив a0, a1, … an−1. Необходимо выбрать в нём два элемента ai и aj такие, что i < j и разность (aj − ai) максимальна. массив {10, 6, 3, 4, 1, 0}...

Разработать алгоритм вычисления выражения
Разработать алгоритм вычисления выражения, заданного в первом столбце, введя описание процедуры, описанную во втором столбце. Вычисляемые выражения|Функции пользователя...

Решение задания с Python на Pascal ABC
Помогите пожалуйста. Есть задача. Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите среднюю температуру для дней, когда температура...

Переписать Питон на PascalABC.NET
Добрый день, помогите пожалуйста переписать на PascalABC.NET. import pygame import random # Инициализация Pygame pygame.init() # Установка размеров окна WIDTH, HEIGHT = 1366, 768

Найти максимальное число и поменять его местами с элементом под заданным номером
Выдает ошибку в коде Program2.pas(10) : Нет индексного свойства по умолчанию для типа integer var N, i, Max: integer; A: array of integer; // Процедура для обмена элементов массива...

PriorityList / PriorityQueue
А где можно узнать существует или планируется в PascalABC.NET реализация PriorityList или PriorityQueue? На одноимённом сайте не нашёл где говорят о планах.

Решение дифференциального уравнения методом Эйлера
Помогите пожалуйста с заданием. Заранее спасибо

Шифрование строки
Подскажите как зашифровать строковые данные с помощью aes-256. Ключ должен храниться в коде программы. Перемещено из Pascal ABC

Определить, принадлежит ли число заданному отрезку
Ввести с клавиатуры три числа А,В,С и определить, принадлежит ли число С отрезку ; Пример: Введите три числа А,В,С: 4 15 9 Число 9 принадлежит отрезку!

В строке удалить каждую пару символов "pq" и подсчитать общее количество символов '.' и ','
через способом алгоритма обработки литерных величин по примеру на фото Напишите программу для паскаль абц нет. удалить каждую пару символов "pq" и подсчитать общее количество символов '.' и ','

Длинная арифметика
Нужна помощь. Я не понимаю длинную арифметику. Помогите пожалуйста решить задачку. Заранее спасибо. Вычислить сумму первых N членов следующего ряда

Найти приближенное решение нелинейного уравнения методом простых итераций на заданном отрезке
Найти приближенное решение нелинейного уравнения методом простых итераций на заданном отрезке. Точность вычислений Е = 0.001. lnx-x+1.8=0 x \small \in

Изобразить на экране точку (круг), движущийся по синусоиде слева направо и обратно в пределах экрана
Помогите, нужна помощь. Нужно изобразить на экране точку (круг), движущийся по синусоиде слева направо и обратно в пределах экрана.

Ошибка времени выполнения: System.InvalidOperationException
Здравствуйте. Не получается нарисовать простейшую фигуру. Версия PascalABC 3.9 3472. Похоже, Drawman не срабатывает... uses Drawman; begin Task('a1'); ToPoint(2,3); PenDown; ...

Пишет ошибку: встречено '.', а ожидалось ','
помогите с программой, PascalABC.NET 3.10 пишет ошибку встречено '.', а ожидалось ',' помогите даю 40 баллов пж сыну procedure Form1.button1_Click (sender: Object; e: EventArgs); var...

Ввести коэффициенты квадратного уравнения А,В,с и решить уравнение Ax2+ Bx + C = 0
Ввести коэффициенты квадратного уравнения А,В,с и решить уравнение Ax2+ Bx + C = 0. У меня получилась такая программа, скажите, правильно? program cc6; var a, b, c, D, x1, x2: real; begin...

Вывод первых значений (ключей) турплов по выборке
Поиск целых положительных решений для 3x + 7y = N и статистика. Общие замечания? Как можно упростить последнее задания - вывод подходящих ключей?## var d := new dictionary<integer, integer>; //...

Сортировка пузырьком не трогая нули
Дано массив длиной от 10 до 33 случайных целых значением от -10 до 10. В массиве обязательно должно быть 15% нулей. Отсортируйте массив по возрастанию, оставляя нули на своих позициях.## var a :=...

Дано N пар игровых костей
Дано N пар игровых костей с size гранями по заданных случайно. В случае НИЧЬИ, перетасовать игровые кости. Провести полуфинал и финал, чтобы выявить одного или нескольких финалистов. Помогите...

Что не так с кодом. не запускается в PascalABC NET
Написать программу, которая создает файл, содержащий сведения о поставках на оптовый склад: № накладной, код товара, наименование товара, поставщик, дата поступления, срок хранения. Ввод данных о...

Максимальное число идущих подряд чисел
максимальное число идущих подряд чисел 5, 9, 7, 8, 1, 2, 3, 4, 1 ответ 4 : 1, 2, 3, 4 а программа выдает 5 ## var a:=|5, 9, 7, 8, 1, 2, 3, 4, 1|; var b:=a.Pairwise.Where(x->x<x).ToArray; var...

Ошибка в коде
Не могу понять, как исправить ошибку в данной программе. Ошибка 2.pas(6) : Неверное количество параметров процедуры uses crt,graphABC; var xc,yc,x1,y1,x2,y2,r1,r2:integer; u1,u2:real; begin...

Напишите программу нахождения суммы ряда
Напишите программу нахождения суммы ряда. Суммирование пре кращается, когда слагаемое становится меньше экспоненты, равной 2.718 . В программе может использоваться максимум один цикл и не могут...

Запись из потоков в текстовый файл
Разбираюсь с var f:= new StreamWriter('fout.txt'); {await} f.WriteAsync(content);в контексте целостной записи строк из потоков. Технически, строгий порядок строк не важен, но строки обязательно...

Вычислить сумму ряда с заданной точностью
Дано задание. Дан сходящийся бесконечный ряд с общим членом ряда u . Вычислить сумму s первых членов ряда, считая последним тот член ряда, абсолютное значение которого не превосходит величины e....

Возврат значения количества нажатий кнопки мыши
Здравствуйте, хотелось бы понять, как можно увеличить значение переменной b и извлечь ее значение в процедуре MouseDown. То есть, в общем, нужно реализовать вывод значения количества нажатий кнопки...

Построить график функции e^x-4,9 в Pascal abc и вывести таблицу значений
Построить график функции ex-4.9 в Pascal abc и вывести таблицу значений. Не могу понять что мне нужно поменять в коде, если вам не сложно помогите пожалуйста.| Program ABC; uses GraphABC,Crt; ...

Напечатать слово "информатика" с помощью циклов
Циклы. Составить 3 программы с разными видами циклов, которые должны написать слово "информатика".

Вывести значения указанных величин в указанном порядке
Дано натуральное число. Напишите программу, которая вычисляет: количество цифр 3 в нем; сколько раз в нем встречается последняя цифра; количество четных цифр; сумму его цифр,...

Нужна помощь, найдите ошибку Ожидался тип
const n: 100; var m: array of integer; a, b, i: integer; begin randomize; readln(a, b); for i := 1 to n do begin

Вывод малых изображений
Задача: Мне нужно произвести вывод малого изображения из файла, к примеру 64x64 пикселя, в модуле GraphABC. Для этого я использовал класс Picture. uses GraphABC; var sprite :Picture...

Вывести квадраты и кубы первых десяти натуральных чисел в обратном порядке
нужно будет в этой программе использовать for :=/ downto/ do begin / to do просто сейчас проходим эти темы и по ним задали домашку, помогите пожалуйста

Не работает процедура из написанного модуля
Привет, у меня возникла проблема. Пишу игру, для школьного проекта и хочу сделать ее раздельно с помощью модулей, чтобы проще было. Начал с загрузки карты из файла в матрицу, написал модуль и...

Как открыть файл библиотеки .pcu в паскале?
Погоите пожалуйста! Мне очень нужно открыть файл библиотеки в паскале. Прошу помочь (напишите приложение, с помощью которой можно адекватно открыть это файл) ЗАРАНЕЕ СПАСИБО!!! :senor: :senor:...

Задачи на цикл while
Задание: Напишите программу, которая получает на вход два целых числа, выводит все числа между ними от первого до второго числа. Пример ввода: 3 7 Пример вывода: 3 4 5 6 7

Вычислить произведение всех двузначных чисел
Вычислить произведение всех двузначных чисел. Используйте for/it/then

Поиск решения
Привет!! К реке подошли Волчица с двумя волчатами и Лисица с двумя лисятами. У берега привязана лодка, которая вмещает только двух зверей. Ситуация осложняется тем, что Волчица с Лисицей не...

Подправка выводимого графика
Не уверена в нужной ветке или нет, но на иконке IDE (если я правильно назвала это приложение для написания кода на паскале) написано ABC.net. Код: uses graphABC; //Подключаем графический модуль ...

Найти корень уравнения методом простых итераций
Приветствую. Помогите решить проблему с бесконечным циклом: var a, b, x, epsilon: real; iterations: integer; begin a := 0; // установка начального значения интервала b := 1; ...

Определить, сколько жалоб на декана накопится к концу пятого курса
На первый курс факультета принимается K студентов. Каждую сессию N1% студентов на потоке не сдают сессию вовремя. По положению о высшей школе декан должен их отчислять. У N2% хвостистов очень крутые...

Разбить произвольный текст, находящийся в файле, на строки определенной длины
Написать программу на паскале. Разбить произвольный текст, находящийся в файле, на строки определенной длины. При переносе слова предусмотреть вывод дефиса.

Найти произведение всех элементов массива
Внести в таблицу 12 произвольных целых числовых значений. Найти и вывести на экран их произведение.

Цикл for на вывод таблицы
Приветствую. Задача: вывести таблицу значений функции y= x/cos(x) на отрезке с шагом h. Значения a, b и h вводит пользователь.

Для каждого узла графа вывести список подчинённых узлов
Задание. Для каждого узла вывести список подчинённых узлов. Подчинённость определяется направлением связывающей узлы стрелки. Например, узлу 1 подчиняются узлы 2, 5, 3, 4, 7. Если стрелка...

Вычислить значение выражения при различных значениях переменных
Нужно написать программу в паскале для циклических вычислительных процессов. Вычислить значение выражения по одной из трёх формул: Y=\begin{cases}10.96^{-0.02x}\cdot e^{b}-0.315\,\log...

Обработка файла .txt
Распечатать анкетные данные студентов, получивших одну оценку 3 за все время обучения. Файл .txt приложен

Анимировать шарик чтобы он двигался по диагоналям в прямоугольнике
Не могу дописать программу, ни как не удается анимировать шарик чтобы он двигался по диагоналям в прямоугольнике. Помощь нужна СРОЧНО! Вот код: program MovingPoint; uses GraphABC; const //...

Составить слово "МИР" при помощи генерации
Приветствую. Задача: Компьютер 300 раз случайно генерирует букву русского алфавита. Как только из этих букв можно составить слово «МИР», остановить генерацию и вывести общее количество...

При использовании текста или кнопок, клик по картинке больше не работает
Хочу сделать игру похожую на Zombie Smash как курсовой проект. Зомби спускаются, а ты должен нажимать на них чтобы давить. Я хотел сделать главное меню с кнопками , и , но когда нажимаю на кнопку...

Вывести на экран квадраты и кубы натуральных чисел от А до В (А и В введите с клавиатуры)
проходим тему ,,программирование циклов с заданным числом повторений,, в задаче должно использоваться что то из этого: for/ do begin/to do буду благодарна если поможете)

Фрактал "Снежинка Коха"
Задание: 1. Написать программу для визуализации фрактала "Снежинка Коха". 2. Предусмотреть возможности масштабирования, изменения глубины прорисовки и перемещения полученной фигуры. 3. Построение...

Как установить сторонние модули для PascalABC?
Крч у меня есть сервак и я захотел сделать типа месенжер ну чисто на пару человек через консоль чтобы прощупать почву я забил в чат жпт мол напиши код и вот что она выдала ; uses IdHTTP,...

Не понимаю правильность программирования
Всем Здравствуйте, не понимаю как именно писать программы а так же как правильно обдумывать как и куда что вставлять, какие переменные ставить с типом веществ и т.д

Вычислить сумму чисел, кратных трём
Вычислить сумму чисел, кратных трём, из N, введённых с клавиатуры. Используйте for или if/then

Составить процедуру вычисления обратной матрицы методом Жордана и с ее помощью решить системы линейных уравнений:
Составить процедуру вычисления обратной матрицы методом Жордана и с ее помощью решить системы линейных уравнений: Также предусмотреть возможность ввода коэффициентов и свободных членов уравнений...

Вывести строки четверостишья разным цветом
написать программу которая выводит четверостишье каждая строка текста должна иметь свой цвет фон произвольный: Но верь весне. Ее промчится гений, Опять теплом и жизнию дыша. Для ясных дней, для...

Вывод матриц рядом в консоли без GotoXY
1. Заполнить матрицу побитным представлением (0 или 1) восьми целых случайных значений от 1 до 255. Вывести содержимое и подписать значения по строкам и по столбцам. 2. Обменять две строки и два...

Программа для построения параболы на Pascal
Ниже приведен код для построения Параболы на языке программирования Pascal. uses GraphABC; const Width = 800; Height = 600; procedure DrawParabola(a, b, c: Real); var

Перевести из питона в паскаль
Переведите, пожалуйста, код из питона в паскаль: def jump(x, y, paths=None, steps=None): if x < 0 or y < 0: # если координаты отрицательные выходим return None try: # если в...

Вычислить число размещений из N элементов по M
Программа с длинной целочисленной арифметикой. Составить программу вычисления числа размещений из N элементов по M.

Программа для решения квадратного уравнения на Pascal
Ниже приведен код для решения квадратного уравнения на Pascal. program QuadraticEquation; var a, b, c: real; D, x1, x2: real; begin writeln('Введите коэффициенты квадратного уравнения...

Протабулировать функцию Y=x^2 + 2x
Напишите программу, вычисляющую значение функции Y = x2 + 2x для значений х от -2 до 2 Нужно написать, использую for или if/then

Напечатать все простые трёхзначные числа в порядке возрастания
Напечатать все простые трёхзначные числа в порядке возрастания. Добавлено через 1 минуту Помогите решить задачу, пожалуйста. Напечатать все простые трёхзначные числа в порядке возрастания.

Дан целочисленный двумерный массив, размерности n х m. Заменить все отрицательные числа нулем
Дан целочисленный двумерный массив, размерности n х m. Заменить все отрицательные числа нулем

Перевод EXE файла, написанного с помощью Pascal ABC, в APK файл
Если я создам программу с использованием модуля GraphABC, где я буду использовать ввод с помощью мыши (то есть OnMouseDown, OnMouseMove и OnMouseUp) и оператор ввода с помощью клавиатуры(readln). А...

Нарисовать карту численности населения Чувашии
Нужно сделать как на фотографии на паскале, помогите, пожалуйста :umbrage: Нарисовать карту численности населения Чувашии:

Блок-схема к программе нахождения НОД
Добрый день, к программе нахождения наибольшего общего делителя нужна блок-схема: будет 2 блока, как грамотно написать не понимаю, заранее благодарю за понимание. var a, b, t: integer; function...

Решение для игры: Автомат - нечёткая логика - ИИ - или что-то другое?
1. Дано поле AxB, где случайно расставлено С "мин". 2. Игрок находится в левом верхнем углу (1;1) и двигаясь влево-право-верх-вниз нужно добраться до правого нижнего угла (A;B). Гарантированно...

Нарисовать бабочку используя модуль graphABC
Нарисовать бабочку используя модуль graphABC на pascalABC.NET

Определить, какой из отрезков ближе к 0
Требуется помощь в написании кода по следующему заданию: Ввести координаты концов двух отрезков и на числовой прямой. Определить, какой из отрезков ближе к 0.

Запишите N-й член этой последовательности
Посмотри и скажи: 1, 11, 21, 1211, 111221, 312211, 13112221, 1113213211, … один 1. одна единица: 11. две единицы: 21. одна двойка и одна единица: 1211. И т. д. Запишите N-й член этой...

Найти сумму максимальных элементов массивов
Требуется помощь в написании кода по следующему заданию: Найти сумму максимальных элементов массивов X(n,m) и Y(n,m).

Как создать такой вид консоли?
как сделать чтобы зеленое окно было так же поверх желтого в паскале абс нет. Использовать можно только стандартную библиотеку и crt

Значения в других системах исчисления, читаемые как десятеричные
В десятичной системе вводится целое положительное число 999 < N < 1 000 000. Вывести на экран все значения числа в системах (2-36), которые можно представить десятичным выражением. Вывести общее...

Вычислите значения функции для x=(-2; 0; 5;10,5 )
пожалуйста сделайте домашнее задание 8 класс Вычислите значения функции для x=(-2; 0; 5;10,5 ) при: 1. y = ax^2+ bx + c 2. y = |2-х| <—это в корне -3х если не сможете, сделайте хотя бы что...

Написать программу для работы со структурой данных "Дек"
Реализация элементарных структур данных на основе статической памяти 1. Написать программу для работы со структурой данных "Дек" 2 Структура данных должна быть реализована на основе статической...

Вычислить количество четных чисел из N введенных с клавиатуры
Напишите программу, вычисляющую количество четных чисел из N, введённых с клавиатуры Используйте for/if/then.

abcobject.pas(6) : jpg не объявлен в типе integer
abcobject.pas(6) : jpg не объявлен в типе integer: uses ABCobjects, graphabc; var n: integer; begin var a:= new PictureABC(123.jpg); end.

Задача Иосифа (через уравнение)
Понимаю, что этой задачей кишит уже весь форум, но мне необходимо 3 варианта решения. 2 варианта есть, с третьим -- проблема, описанная после некорректного моего кода. Условие задачи: По...

Проверки орфографии в Windows 7
Возникла ситуация на проверку правильности ввода русских-английских слов. Сначала подумал о проверке онлайн или загрузке двух списков вроде Aspell/Hunspell, но вспомнил, что начиная с W8, словари...

В целочисленном массиве X [10] найти количество элементов,равных 5 Результат вывести на экран
В целочисленном массиве X найти количество элементов,равных 5 Результат вывести на экран

Не могу увидеть вывод результата
Впервые пытаюсь познакомится с Паскалем. Случайный выбор: PascalABCNET Попробовал несколько задач из Примеров, и взятое из советов "Hello", но во всех случаях не увидел выведенного результата. В...

Создание объекта для звука с помощью MediaPlayer почему то ломает всю программ и само окно GraphABC
Я хотел добавить для своей программы звук, и это единственный рабочий способ добавить в неё звук, который я смог найти в интернете, и тем не менее, при добавлении хотя бы первой строчки из этих трёх:...

Разбиение звёздочек на равное количество по строкам
написать программу с использование цикла фор, имеющую определенное количество звездочек,которое делит их по равному количеству звезд в выводимых строках.остаток вывести в отдельной строке Пример: ...

Численное интегрирование (метод прямоугольников)
Приветствую. Написать программный код на языке PascalABC.NET для вычисления определенного интеграла методом прямоугольников (левых прямоугольников, правых прямоугольников и средних прямоугольников)....

Метод Гаусса
Добрый день! Нужно пожалуйста разобраться с кодом решения систем линейных алгебраических уравнений метод Гаусса. Выдает ошибку. Заранее спасибо! Program gauss; Uses Crt; Const r=10; Var...

Определить среднее значение температурных показателей
Внести в таблицу данные измерения ночной температуры воздуха за первую декаду ноября. Определить среднее значение температурных показателей.

Параллельное заполнение dictionary
В файле дан список слов по строкам в верхнем регистре и без повторов. В словах длиннее двух букв требуется заменить 1 букву в каждой позиции от "А" до "Ъ", затем две и до трети Length div 3....

XOR без ключа
Дан тестовый файл (для наглядности и контроля лучше текстовый). Программа получает только название файла и при первом применении шифрует, а при повторном - расшифрует файл. Размер файла не должен...

Удачно-счастливое число
Вывести сумму цифр левой и правой половины. Работает без модулей и рекурсии, результаты сходятся, но код не особо нравится.## function Lucky(s: string): (integer, integer); begin if not s.Any...

Приближенное вычисление значения определенного интеграла
Здравствуйте, нужно написать код с выведением графика для вычисления интегралов и блок-схемы основной программы и подпрограмм к ним, которые будут учувствовать в коде. Подынтегральная функция....

Перевёрнутые буквы и цифры
Имеется рабочая функция, переворачивающая латинские буквы и цифрыfunction rev(c:char):char; begin case c of 'A'..'Z':rev:=char(Ord('A')+Ord('Z')-Ord(c)); ...

ParseStringToDictionary
Беглый поиск по ветке свежего результата не выдал, поэтому уточню: Пусть дано словарь D:=new Dictionary<string, integer>, где ключ всегда состоит из двух символов, а значение целое -1000 до 1000....

Объединение бесконечных возрастающих последовательности чисел A и B
Даны две бесконечных возрастающих последовательности чисел A и B. i-ый член последовательности A равен i^2. i-ый член последовательности B равен i^3. Требуется найти Cx, где C – возрастающая...

Исправить программу определения среднего арифметического заданных компонентов последовательности
Исправить программу, выдает ошибки. Программа должна Сформировать файл из значений случайных величин: 0.324, 0.524, 0.789, 0.556, 0.761, 0.248, 0.345, 0.911, 0.216. Определить для данной...

Задача "Электронная сваха"
Имеется N мужчин и N женщин. Имеются также матрицы предпочтения каждого мужчины к каждой женщины и каждой женщины к каждому мужчине. Необходимо составить такой набор пар, при котором самая...

"Параметр цикла for должен описываться в заголовке цикла", как исправить?
Люди! Пожалуйста помогите исправить ошибку: "Параметр цикла for в pascalABC.net должен описываться в заголовке цикла". program i1; uses crt; var v,a,b,c,d,i,j:integer; ...

Online компилятор
Здравствуйте! Подскажите, существует ли онлайн компилятор PascalABC или PascalABC.NET? Такой, чтобы на модуль graphABC не ругался

Для настоящих гулей (1000-7)
Для вас есть простой код , который может считывать 1000-7 до 0. Настоящие ценители "Токийского гуля" оценят program deadinside; uses crt; var kaneki:integer; begin kaneki:=1000; while...

Получить случайное трехзначное число и вывести его отдельные цифры
Получить случайное трехзначное число и вывести его отдельные цифры : получено число 123 сотни 1 десятки 2 единицы 3 Добавлено через 21 минуту var a,b,c,x:integer; begin x:=random...

Нарисовать квадрат
Здравствуйте! Написал программу, которая выводит на экран квадрат: program kvadrat; uses graphABC; begin line (100,195,190,195);//основание line (100,195,100,98);//левая сторона квадрата...

Как записать уравнение в Паскаль?
R=x^2(x+1)/b-sin^2(x+a) S=sqrt(xb/a)+cos^2(x+b)^3 как правильно их записать в Паскаль? то, что по коду накидал прилагаю... Program lab_2(input,output); var a,b,x,R,S: real; begin...

Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются знаки «+», «–», «*» и «/»)
Здравствуйте. Прошу помощи. Уровень C. Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются знаки «+», «–», «*» и «/»). Выражение вводится как...

Как загрузить картинку
Подскажите как исправить код PascalABC на PascalABC.net? Сам код: write ('Введите Ф.И.О.: '); read (n); clrscr; y:=loadpicture(n); drawpicture(y,0,0); пишет что loadpicture и drawpicture...

Задать цвет фона
Как в pascal abc.net задать цвет фона GetBkColor не работает

Определить, лежат ли точки в одной координатной четверти
Даны координаты двух точек на плоскости, требуется определить, лежат ли они в одной координатной четверти или нет (все координаты отличны от нуля). Входные данные Вводятся 4 числа: координаты...

Определить, за какое наименьшее время удастся поджарить с обеих сторон n котлет
Котлеты. На сковородку одновременно можно положить k котлет. Каждую котлету нужно с каждой стороны обжаривать m минут непрерывно. За какое наименьшее время удастся поджарить с обеих сторон n котлет....

Написать функцию, которая «переворачивает» число, то есть возвращает число, в котором цифры стоят в обратном порядке
Здравствуйте. Накопились некоторые долги, которые откладывал из-за того, что что-то не получалось с решением. Прошу помощи. Напишите функцию, которая «переворачивает» число, то есть возвращает...

Цикл: в последовательности чисел определить сумму всех чисел, кратных 6 и оканчивающихся на 4
Напишите программу, которая в последовательности чисел определяет сумму всех числе,кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа , количество введённых чисел...

В текстовом файле найдите длину самой длинной подцепочки из символов "C"
В текстовом файле k7-0.txt находится цепочка из символов латинского алфавита A, B, C. Найдите длину самой длинной подцепочки, состоящей из символов C.

Код Змейки на Паскаль ABC.NET
Срочно нужен код змейки. Т.е. что нужно,что бы было в ней:(примерно:файлы,списки,графика в коде было):нужно что бы было меню с кнопками(Новая игра,настройки(а в ней уровень сложности),рекорды,выход)....

Змейка на паскале. Хвост
Ребята, помогите пожалуйста! Делаю змейку на PascalABC и никак не могу сделать нормальный рабочих хвост, как в классической змейке Накиньте ,пожалуйста, идей, а лучше код) Вот мой код: Uses...

Определить количество чисел, кратных 3 и оканчивающихся на 2
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности , а...

Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R
Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N-целого типа, R-вещественного типа).

Program1.pas(7): Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла. Как исправить?
Program1.pas(7) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла. Как исправить ? var i, n, chislo: integer; f, g, h: text; begin n:=5; assign(f, 'tovar0.txt');...

Есть ли PascalABC.NET для Mac OS X?
Есть ли PascalABC.NET для Mac OS X?

Встречено '.', а ожидалось ';'
На 169 строке возникает ошибка "Встречено '.', а ожидалось ';'". Помогите, пожалуйста, решить ее. Program Maximum_potok; Uses Crt,GraphABC; Label Home; Const M=19; R=200; Type ...

Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта
Нужно нарисовать 100 пикселей в случайном порядке Выдаёт ошибку не выводит пиксели на экранuses GraphABC; type tLocation=class private x,y:integer; col:Color; public ...

Символьное программирование
Здравствуйте, не могу правильно составить условие к этой задаче. program qq; var n,L, i: integer; s: string; f: text; begin assign(f, '24-s1.txt'); reset(f);...

Как сложить два числа в паскале
Как сложить два числа в паскале? Я работаю в паскале в первый день, даже не могу складывать ((((

Библиотека NETSquirrel для .NET и .NET Core
NETSquirrel - идейное продолжение и обобщение PABCSystem на платформы NET и NETCore. Её цель: сделать переход на другие .NET языки с PascalABC.NET и обратно наиболее безболезненным. Для PascalABC.NET...

Игра "змейка"
заканчиваю писать игру "змейку". Помогите сделать так, чтобы после отпускания клавиши змейка двигалась в том же направлении или менял это направление. вот код: program n_13; uses GraphABC,...

Дано целое число. Если оно является положительным, то прибавить к нему 1
Постановка задачи такова: Дано целое число. Если оно является положительным, то прибавить к нему 1, если отрицательным, то вычесть из него 2, если нулевым, то заменить его на 10. Вывести полученное...

Заполнить массив из 10 элементов случайными числами в интервале [0.100] и отсортировать первую половину по
Может кому нибудь да пригодится) Стараюсь все делать по шагам и чтобы было понятно каждому. Иногда вижу простые программы, но составленные очень запутанным способом. Поэтому желаю чтобы все...

Даны два целых числа А и В (A<B). Найти произведение всех целых чисел от А до В включительно
Помогите Пожалуйста

Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное 3
Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное 3. Программа получает на вход целые числа, количество введённых чисел неизвестно,...

Простая игра "гонки"
задали такое задание, сделать игру "гонки" вроде все сделал и все бы ничего, но когда гонка проходит и начинается следующая гонка то там текст ложится сверху на старый текст((( как это исправить?...

Олимпиадная задача по программированию. PascalABC.NET
Здравствуйте, я готовлюсь к школьной олимпиаде по информатике, не могу решить задачу (85 баллов из 100). Помогите, пожалуйста. Условие В этом году третий раз одна известная компания проводит...

Написать программу, которая переводит переданное её целое число в двоичный код
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в двоичный код. Используйте процедуру. Входные данные Входная строка содержит целое число N . Выходные...

Заливка замкнутой области
Здравствуйте! Начал изучать графику языка PascalABC.NET написал следующую рабочую программу: uses graphABC; begin SetPenColor(clBlue); line (0,200,400,400); line (10,205,10,400); line...

Преобразование строки в число
Программа преобразует введенную строку в число. Но на 9 строке есть ошибка: Нет перегруженной подпрограммы с такими типами параметров. Что не так? Ведь данная процедура стандартна var st:string;...

Написать программу, которая вычисляет сумму первых n натуральных чисел
цикл с параметром for 1. Написать программу, которая вычисляет сумму первых n натуральных чисел. помогите написать. пожалуйста!!

Сколько символов "Звёздочка " будет напечатано на экране при выполнении вызова F(7)?
Добрый день. Решаю сейчас варианты ЕГЭ и наткнулся на "рекурсивный алгоритм". Прошу не советовать "загуглить". Дан код (переписан символ в символ, как в варианте) : Procedure F(n: integer);...

Ошибка Неизвестное имя 'LoadPicture'
Составил программу,запускай и пишет: Неизвестное имя 'LoadPicture' Вот сама программа program upr1a; uses crt,GraphABC; var pic:integer; begin SetWindowSize(500,500); ...

Напечатать минимальное число, большее 200, которое нацело делится на 17
Напечатать минимальное число, больше 200, которое нацело делится на 17. Желательно с помощью While

Нет перегруженной подпрограммы с такими типами параметров
В 47 строке ошибка: Нет перегруженной подпрограммы с такими типами параметров. Нужно вывести фамилии по месяцам: январь:...., февраль:... и т.д. Как правильно выполнить поиск? type Month =...

Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза
Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза. Результат вывести на экран. Дано двухзначное число. Определить является ли сумма его...

Каков начальный размер окна GraphABC?
Каков Начальный размер окна GraphABC?

Известно, что из четырех чисел a1, a2, a3 и a4 одно отлично от трех других, равных между собой. Присвоить номер этого числа переменной n
Известно, что из четырех чисел a1, a2, a3 и a4 одно отлично от трех других, равных между собой. Присвоить номер этого числа переменной n.

Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А
const N = 10; var a: array of integer; b: array of integer; i: byte; begin randomize; for i:=1 to N do begin a := random(100) - 50; writeln('a=',a);

Ошибка времени выполнения: Индекс находится вне границ массива
Здравствуйте! Столкнулся с ошибкой: var f: textfile; n: longint; text: string; s: char; begin assignfile(f,'file.txt'); reset(f); while (not eof(f)) do begin

Какое количество деталей может быть получено из имеющегося N кг сплава?
Добрый день! Помогите, пожалуйста, решить задачу: ""Детали" Имеется N кг металлического сплава. Из него изготавливают заготовки массой K кг каждая. После этого из каждой заготовки вытачиваются...

Нарисовать треугольник
Написать программу, изображающую треугольник.

Чем отличаются между собой стек очередь или список?
Ребят,чем отличаются между собой стек очередь или список?

В кассе есть монеты по 2, 5 и 10 рублей. Сколькими способами можно выдать сдачу на некоторую сумму Sum, значен
Какая то дичь, нужно сделать с for

В текстовом файле найдите длину самой длинной подцепочки, состоящей из одинаковых символов
В текстовом файле k8-0.txt находится цепочка из символов, в которую могут входить заглавные буквы латинского алфавита A…Z и десятичные цифры. Найдите длину самой длинной подцепочки, состоящей из...

Ошибка: Нет перегруженной подпрограммы с такими типами параметров...
Нет перегруженной подпрограммы с такими типами параметров... Program T7_10; uses crt; type zakaz = record {Запись для описания параметров заказа} namedetali: string;...

Все задачи для Robot
Методом подбора выяснил, что существуют задания a1,...,a8, c1,...,c16, p1...p15. А где можно посмотреть весь список заданий для исполнителя Robot?

Определить количество способов оплаты N рублей с помощью монет достоинством 1, 2, 5, 10 рублей
Дано натуральное число N (N<100). Определить количество способов оплаты N рублей с помощью монет достоинством 1, 2, 5, 10 рублей. (Использовать цикл в цикле, желательно, как можно проще).

Напишите функцию, которая заменяет во всей строке все римские числа на соответствующие десятичные числа
Пример: Введите строку: В MMXIII году в школе CXXIII состоялся очередной выпуск XI классов. Результат: В 2013 году в школе 123 состоялся очередной выпуск 10-х классов.

Напишите программу, которая заполняет массив из N = 10 элементов случайными числами в диапазоне [10,50]
Напишите программу, которая заполняет массив из N = 10 элементов случайными числами в диапазоне , выводит его на экран, а затем находит индексы всех элементов, равных введённому числу X. Программа...

Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. Желательно используя While

Как создать кнопки с событиями
Как сделать кнопки в паскале , на форуме уже есть такая тема , но там переходит на другой сайт , где объяснение уходит совсем в другую сторону. Прошу расскажите(напишите) как выглядит программа: на...

Определите, какое количество элементов последовательности равны ее наибольшему элементу
Последовательность состоит из натуральных чисел и завершается числом 0. Определите, какое количество элементов этой последовательности, равны ее наибольшему элементу. ввод :1 7 9 0 вывод 1 ввод: 1...

Дано натуральное число n. Найти факториал этого числа (n!)
Дано натуральное число n. Найти факториал этого числа (n!). Сделать три решения задачи: 1) с использованием цикла For; 2) While; 3) Repeat.

Pascal ABC выдает ошибку "Неизвестное имя 'n'"
Pascal ABC выдает ошибку где её быть по сути не должно Проблему выдает в 3 строчке кода: 1.pas(7) : Неизвестное имя 'n' Program A1; uses Crt; var A: Array of integer; C: Array of...

Ввод текста в graphABC
Что нужно прописать что-бы можно было вводить текст в окнах логина и пароля ? uses graphABC; Begin setwindowsize(1280,680); FloodFill(30,30,clGoldenrod); rectangle(540,130,1140,180); ...

Перевод из десятичной в двоичную по блок схеме
Реализовать на Паскале алгоритм перевода чисел из десятичной системы в двоичную данной блок-схемы Блок схема

Вывести на экран четные трехзначные числа
Пожалуйста помогите

Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае
Помогите пожалуйста решить задачу! Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр

Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной област
Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном случае: программа PascalABC.NET

Ошибка : Нельзя преобразовать тип array [1..8] of integer к integer
Дана целочисленная матрица В размером 5х8. Получить массив С из 0 и 1, в котором Ci=1, если в i –ой строке матрицы есть хотя бы один отрицательный элемент, и Ci=0 в противном случае. const n=5;...

Центрирование текста и размер шрифта
Как сделать что бы в паскале в graphabc текст выводился по центру окна, и как изменить размер шрифта Добавлено через 8 минут и как сделать отступ между строками при выводе?

Вычислить сумму цифр числа N
привет всем! я тут новенький, и надеюсь, что пишу туда куда нужно. есть одна проблема. решаю задачу: Дано натуральное число N. Напишите функцию int SumOfDigits (int n) (C/C++), function...

Генерация случайного цвета
Здравствуйте! Помогите в среде pascal реализовать генерацию случайного цвета. Возможно ли это сделать? Задание. Сгенерировать новые пиксели взамен улетевших. (сделано) Ввести условие...

Подсчитайте количество натуральных делителей числа x
Подсчитайте количество натуральных делителей числа x (включая 1 и само число; x2109). Входные данные Вводится натуральное число x. Выходные данные Выведите единственное число - количество...

Ошибка "ожидалось имя переменной", как исправить?
var x:=real;//делимое y:=real;//делитель a:=real;//частное b:=real;//остаток begin; write ('введите делимое' ); readln (x); write ('введите делитель' );

Калькулятор
Решил написать калькулятор с графическим интерфейсом, который будет реагировать на мышь. Основу интерфейса сделал, а вот как соединить его с функционалом не очень понимаю. Кто-то может подсказать?...

Нет перегруженной подпрограммы с таким количеством параметров Val
программа на нахождения суммы двух больших чисел, код скопировал кое с какого сайта, при компиляции выдает ошибку "Нет перегруженной подпрограммы с таким количеством параметров Val" я понимаю что...

Где взять модуль GraphABC?
Здравствуйте! Вопрос глупый, но где достать этот модуль? Нигде не могу найти.

Перевод заданного количества секунд в часы, минуты, секунды
Нужно написать программу которая по заданному количеству секунд вычисляет сколько прошло часов, минут, секунд. Не с начала суток, а из введенного количества секунд.

Запишите на языке паскаль программу решения задачи
Считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек, а число домов n=30. Пожалуйста по подробней и по проще, мы мало еще паскаля изучили. (сейчас проходим массивы)

Встречено 'procedure', а ожидался оператор
program lab5; type arr=array of integer; const n=3; var a:arr; i1,j1,k1,sum:integer; m:boolean; procedure LocMin(const a:arr; i,j,k:integer; var Min:boolean); //var i,j,k:integer;...

В файле записано не более 100 чисел. Отсортировать их по возрастанию последней цифры и записать в другой файл
Прошу помочь с заданием. https://www.cyberforum.ru/pascalabc/thread924809.html Это не подходит,т.к. программа не рабочая.

Как подключить модуль graph
program UseGraphical; Uses Graph; Var GraphDriver, GraphMode: Integer; Begin GraphDriver := 0; InitGraph(GraphDriver, GraphMode, ''); End.

Составьте программу подсчета площади равнобедренного треугольника.
Составьте программу подсчета площади равнобедренного треугольника. Если площадь треугольника четная, разделить ее на 2, в противном случае вывести сообщение "Не могу делить на 2!"

Вывести четные элементы
Дан массив, состоящий из целых чисел. Напишите программу, которая выводит те элементы массива, которые являются чётными числами. Входные данные Сначала задано число N — количество элементов в...

Получить текущее системное время
Здравствуйте! Пожалуйста, подскажите, какой командой в Pascal ABC.net можно получить системное или BIOS-овское время (задача - вывести текущее время на экран).

Как задать диапазон ввода значения Х от 0,1до 0,6
Уважаемые программисты! В ходе написания программы для расчёта значения по формуле столкнулся со следующей проблемой... В задание указано, что вводимое в программе значение Х должно лежать на...

Игра
Начал писать простенькую текстовую игру, но начал сталкиваться с проблемами написания, которые сам не могу решить. Кто может подключиться к разработке - пишите. Жду)

Ошибка "ожидался тип"
4 строка ошибка "ожидался тип" что не так? function poisk(slovo,adres:string):string; var sravnislovo:string; simvol:char; fail:text; begin assign(fail,adres); reset(fail); ...

Даны три натуральных числа — длины стороны треугольника. Определите, существует ли треугольник с такими сторонами
Даны три натуральных числа — длины стороны треугольника. Определите, существует ли треугольник с такими сторонами, и если “да”, то определите его тип (остроугольный, тупоугольный, прямоугольный)....

Встречено var, а ожидался идентификатор
8 строка program ex; uses crt; type node=^zapis; zapis=record ocenka:integer; left,right:node; var uk:node; //ссылочная переменная

Ввести с клавиатуры два числа. Определить, что больше: сумма квадратов или квадрат суммы этих чисел
Ввести с клавиатуры два числа. Определить, что больше: сумма квадратов или квадрат суммы этих чисел. Ответ вывести в виде сообщения.

Задача на максимум и минимум трех чисел
Найти: Z=(min(a,b,c))/(max(a,b,c)) Программа: var a, b, c, min, max, Z: real; begin writeln('Введите три числа'); readln(a,b,c); begin if (a>=b) then max:=a else max:=b; if (max<=c) then...

Встречено 'else', а ожидалось ';'
var a,b,c,D, x1, x2: real; begin writeln('Дано уравнение вида ax^2+bx+c=0'); writeln ('Найти корни уравнения!'); Writeln('Введите данные переменных a,b,c'); readln(a,b,c); ...

В чем разница PascalABC.net и PascalABC
Скажите в чем разница PascalABC.net И PascalABC. Помню когда-то давно программы работающие в PascalABC у меня не работали в .net

Ввести с клавиатуры 3 числа и вывести на экран наибольшее из них
13. Напишите программу, которая позволяет вводить с клавиатуры 3 числа и выводить на экран наибольшее из них. Указание: опишите алгоритм сначала на языке блок-схем и лишь затем — на языке Паскаль.

На сколько квадратов можно разрезать данный прямоугольник
Помогите, пожалуйста, решить! Очень надо, но не знаю как их решать! 4. Стороны прямоугольника заданы числами N и M. Составить программу, которая будет находить, на сколько квадратов, стороны...

Программное решение 16-го задания ЕГЭ по информатике
Здравствуйте, форумчане. В ЕГЭ по информатике существует 16-е задание и оно связанно с двумя рекурсивными функциями с возвращаемыми значениями. Это задание можно решить на бумаге, и это не составит...

RGB - сколько там вариантов цветов и оттенков?
Незнаю, правильно ли я определился с разделом Оператором floodfill к примеру, можно закрасить любым цветом используя RGB(red green blue) - свойство. Известно что все цвета составляются из...

Ошибка "Неизвестное имя"
При сортировки базы данных, возникает ошибка "Неизвестное имя count", хотя в var и перед циклом она обозначена. Всю программу не пишу, потому что она очень большая. Вот часть с ошибкой: procedure...

Что означает желтая полоса, подсвечивающая строку кода при выполнении программы
Кто может ответить, за что отвечает эта желтая полоса?

Найти минимальное и максимальное из чётных положительных чисел, записанных в файле
1)Найти минимальное и максимальное из чётных положительных чисел, записанных в файле input.txt . Количество чисел неизвестно.Результат записать в файл output.txt .Учтите,что положительных чисел может...

Вы положили деньги в Сбербанк на депозит на три месяца из расчета 60% годовых
Вы положили деньги в Сбербанк на срочный депозит на три месяца из расчета 60% годовых.Напишите программу, которая вычислит причитающуюся вам через три месяца сумм.

Как сделать бесконечный цикл операции
program procenti; var a,b,c,d,e: real; begin writeln(' Сумма '); readln(a); b:=(5*a)/100; c:=(8*a)/100; d:=(15*a)/100; e:=(20*a)/100; writeln(' 5% - ', b);

Как преобразовать тип "integer" в тип "string"?
Всем привет,как преобразовать тип "integer" в тип "string"? дан код: (1) var f:text; s:string; i:integer; begin assifn(f,t.txt); rewrite(f);

Напишите программу, которая переводит неотрицательное целое число в четырёхзначный шестнадцатеричную систему
Напишите программу, которая переводит переданное ей неотрицательное целое число в четырёхзначный шестнадцатеричный код, сохранив лидирующие нули. Используйте процедуру. Входные данные Входная...

Встречено end, а ожидалось ';'
в 52 строке выдаёт ошибку "встречено end, а ожидалось ";" помогите пожалуйста :wall: var N,i,j,k,kol,x:integer; c:char; s:string; b:boolean; game:array of string; Kolmas:array of longint;...

Подсчитать количество программ, состоящих из 7 команд, для которых при исходном числе 3 результатом является число 27
107) Исполнитель Калькулятор преобразует число на экране. У исполнителя есть три команды, которым присвоены номера: 1. Прибавить 1 2. Прибавить 4 3. Умножить на 2 Сколько существует программ,...

Программа орел и решка
Помогите пожалуйста, нужно изменить программу так чтобы она показывала если выпадает 1(Решка) вы выиграли, иначе проиграл и тоже самое с 0(орлом), вот сама программа program igra; var i,a,b,c:...

Как установить картинку на фон формы
Народ подскажите как в PascalABC.NET установить картинку, именно КАРТИНКУ на фон, точнее в правую часть окна? Желательно код с комментариями.

С клавиатуры вводится строка состоящая из двух слов, разделенных пробелом. Составьте программу которая которая:
С клавиатуры вводится строка состоящая из двух слов, разделенных пробелом. Составьте программу которая которая: а)преобразует первые буквы слов к верхнему регистру и вставляет восклицательный знак...

Управление движением мячика
Решил написать игру, но двигаюсь к этому постепенно, сделал загрузку и отображение мячика, сделал возможность передвигать его по окну приложения с помошью стрелок. так вот вопросы: 1. Как сделать...

Char в integer
Доброго времени суток! Как преобразовать тип Char в Integer? Заранее спасибо

Не запускается среда PascalABC.NET
PascalABC.NET проблема запуском

С начала суток часовая стрелка повернулась на "y" градусов. Сколько часов и сколько минут прошло с начала суток?
С начала суток часовая стрелка повернулась на "y" градусов. Сколько часов и сколько минут прошло с начала суток? Прошу выразить часы и минуты с помощью div и mod! И 1 час=30 градусов (360/12=30)....

Цикл: Необходимо определить максимальную зарегистрированную скорость автомобиля...
Помогите, пожалуйста, ниже как я пробовал, поправьте меня. Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё...

Решение линейного уравнения (неравенства)
Написать программу, которая позволяет для любых a и b (числа могут быть положительными, отрицательными, нулевыми), введенных с клавиатуры, решить уравнение ax + b = 0. * Написать программу,...

Расстановка мин в игре "Сапёр"
Я делаю игру "Сапер" (точнее уже сделал, теперь исправляю найденные ошибки и баги) Вот один из них, сам справиться не могу... Как известно мины в игре расставляются после первого хода, поэтому...

Нет перегруженной подпрограммы с такими типами параметров
компилятор ругается на присвоение в 28 строке a:=ord(z); program n2; const N = 30; var arr: array of shortint; Max, t, i, a: shortint; z: string;

Как можно изменить код программы, если имеем только exe файл?
Вот, допустим, имеем exe файл с таким кодом begin var a,b,c:integer; a:=200; b:=300; c:=a+b; writeln(c); end. Как можно без сторонних программ изменить, допустим, значение переменной a?Еще...

Задача на Паскале. Выполнить с циклом Repeat - Until
Напечатать ряд из повторяющихся чисел 20 в виде: 20 20 20 20 20 20 20 20 20 20.

Дана масса в килограммах, найти количество полных тонн
Написать программу из задачника среды PascalABC.NET для задания integer2 Потрудитесь выложить задание должным образом оформленное, и с адекватным заголовком!

Случайная перестановка элементов в массиве
Здравствуйте. Помогите, пожалуйста, с задачей. Заполните массив из N элементов случайными числами в интервале так, чтобы в массив обязательно вошли все числа от 1 до N (постройте случайную...

Вставить картинку
как картику вставить?

Как создать exe в pascal abc.net?
Как создать exe в pascal abc.net? Хоть без иконки! Подскажите пожалуйста.Я тут какую-ту игру змейку в pascal abc net. создал.Хочу сделать из нее exe.

Встречено '=', а ожидалось выражение
Встречено '=', а ожидалось выражение. Ни как не могу понять,где ошибка? var x,y:extended; begin writeln('Vvedite "x"'); read(x); writeln('vvedite "y"'); read(y); if...

Найти минимальное число большее 300, которое нацело делится на 19
Помогите, пожалуйста, решить! Очень надо, но не знаю как их решать! 3. Составить программу, которая находит минимальное число большее 300, которое нацело делится на 19. Использовать цикл с...

Нельзя преобразовать тип real к integer
Снова я, вылезает ошибка: Program3.pas(18) : Нельзя преобразовать тип real к integer Проверял построчно, ошибку найти не получается, заранее спасибо за ответ. Задача программы: Задан массив А,...

Как вывести положительные числа?
Program prim1; Var i,n,x,p: Integer; Begin Writeln('Введите кол-во чисел: '); Readln(n); Writeln('Введите числа: '); For i:=1 to n do begin Readln(x); If x>0 Then Inc(p);

Робот
Напишите для исполнителя «Робот» оптимальный алгоритм (критерий оптимальности – минимальное число шагов исполнителя), предназначенный для закрашивания помеченных клеток. Я не до конца сделала...

Как использовать Таймеры?
Доброго времени суток. Как использовать таймеры в Паскале? Можно ли как-то "сохранить" его в файл? Если да,то,пожалуйста, приведите пример =)

Ожидалось имя процедуры или функции
PROGRAM PRIM2 (INPUT,OUTPUT); {ЛАБОРАТОРНАЯ РАБОТА 1} VAR Y, R, A, B, X: REAL; BEGIN WRITELN ('ВВЕДИТЕ A,B,X'); READ (A, B, X); Y:=A(2*X)+B(-X)*COS(A+B)*X/X+1; ...

Обработка нажатия клавиш
Доброго кодинга, форумчане. Требуется процедурка, реагирующая только на удержание клавиши. Задача в целом проста: надо чтоб круг на экране двигался вверх/вниз по удержанию соответствующих кнопок....

Функция Random и процедура Randomize в PascalABC .Net
Изучаю Pascal по учебнику О.Деревенец "Песни о Паскале". Сам учебник обучает языку на примерах решения задач в FreePascal, я пишу в PascalABC Net. В учебнике есть такой момент: Говорят, что...

Столкнулся с проблемой: паскаль выводит нечитаемые иероглифы вместо кириллицы
Заданием является: создать текстовый файл(в программе это lab2.txt), ввести туда любой текст и , с помощью программы, найти слово максимальной длины и вывести его в другой тестовый файл(в программе...

Вывести сумму квадратов натуральных чисел в диапазоне от a до b
Напишите программу, которая вводит натуральные числа a и b , и выводит сумму квадратов натуральных чисел в диапазоне от a до b .

Задача про автомобильные номера
В Российской Федерации на разных видах транспортных средств устанавливаются разные по формату регистрационные знаки («автомобильные номера»). Вот пример нескольких возможных форматов...

Дан прямоугольник с размерами 543X130 мм.Сколько квадратов со стороной 130мм можно отрезать от него?
Дан прямоугольник с размерами 543X130 мм.Сколько квадратов со стороной 130мм можно отрезать от него??

Функция split
Мне необходимо разделить строку на отдельные слова с помощью функции split, но ему что-то не нравится, подскажите, что я делаю не так?

Встречено := а ожидался оператор
Встречено := а ожидался оператор: Условие: Дан массив заполненный по формуле cos(x/3), определить количество его положительных элементов кратных 3 Программа Program Fa; var a: array of...

Не работает readkey и keypressed
Здравствуйте. Написал программу, используя PascalABC, столкнулся с необходимостью скомпилировать ее в *.exe, для этого скачал PascalABC.NET и обнаружил, что программа не работает. Так как после...

Напишите программу, которая выводит первое слово переданной ей символьной строки
Напишите программу, которая выводит первое слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки. Входные данные...

В последовательности целых чисел определить сумму и количество четных чисел, кратных 5
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел,кратных 5. Программа получает на вход целые числа ,количество введённых чисел...

Конфликт модулей crt и GraphABC
Всем привет. Пишу небольшую программку с использованием графического модуля. Понадобилось использовать функцию delay(), поэтому также подключил модуль crt. В итоге, программа не запускается. Удаляю...

Найти сумму всех нечетных трехзначных чисел
Дано М целых чиселю. Найти сумму всех нечетных трехзначных чисел.

Установка PascalABC.NET на MacOs
Добрый день! Появилась необходимость использования Pascalabc на своем мак. Почитал на сайте, что надо это делать через какое то дополнительное по Mono. Ну я скачал его и дальше вообще без понятия,...

Решение квадратного уравнения
Где ошибка? Program uravnenie; var a,b,c,x1,x2,d,y: integer; begin readln(a); readln(b); readln(c); d:=(b*b-4*a*c); writeln(y=Sqrt(d:integer):real); x1:=(-b+y)/(2*a);

Встречен конец файла, а ожидалось begin
Установила среду pascalabc.net Почитала http://www.pascal.helpov.net/index/object-oriented_programming_pascal_programming и http://www.pascal.helpov.net/index/pascal_modules_programming ...

Ввести с клавиатуры значения трех сторон треугольника a, b и c; определить, является ли он прямоугольным
Ввести с клавиатуры значения трех сторон треугольника a, b и c и определить, является ли он прямоугольным.

BigInteger в For
Столкнулся с проблемой того, что в цикле for нельзя использовать BigInteger, не смотря на то, что это целочисленный тип. Кто-нибудь знает решение? Пример: begin for i: BigInteger := 1 to 2 do...

Программа проверки счастливый ли билет
Проверьте пожалуйста программу на правильность. Определяет счастливый ли трамвайный билет. program bilet; uses CRT; const s1=0; s2=0; x=123456; var s1, s2, x: longint; begin write ('vvedite x,...

Алфавит племени «тумба-юмба»
В алфавите языке племени «тумба-юмба» четыре буквы: «Ы», «Ш», «Ч» и «О». Нужно вывести на экран все возможные слова, состоящие из K букв, в которых есть по крайней мере две одинаковые буквы, не...

Определить, сколько в текстовом файле пар чётных чисел, среднее арифметическое которых также присутствует в файле
Дана задача В текстовом файле записан набор натуральных чисел, не превышающих 109. Гарантируется, что все числа различны. Необходимо определить, сколько в наборе таких пар чётных чисел, что их...

Вычисление минимального из трёх введённых чисел (с использованием функции)
Напишите программу, которая вычисляет минимальное из трёх введённых чисел. Используйте функцию.

Очередная 2D игра-платформер
Доброго времени суток, товарищи. В общем: Я не программист, но захотелось самому склепать 2д игру, художник есть. Полистал некоторые туториалы и мало что нашёл, так что принимал решения исходя из...

Найти количество различных невырожденных треугольников таких, что их периметр равен I
Найти количество различных невырожденных треугольников таких, что их периметр равен I. Ввод В первой строке целое число I (1 ≤ I ≤ 320000). Вывод Количество треугольников....

Алгоритм, который выполняет сглаживание массива
Сижу на экзамене, была бы очень благодарна за любую помощь!!! Дан целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений. Элементы массива могут...

Написать линейную программу для нахождения гипотенузы треугольника.
Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника. c= корень из a2+b2

Нельзя преобразовать тип boolean к integer
Пишет: Program1.pas(7) : Нельзя преобразовать тип boolean к integer program zadKL; var n:boolean; x:longint; begin read(n); if (n div 2) then x:=n(n-2) else x:=n(n-1); writeln(x);

"Программа завершена из-за переполнения программного стека" при работе рекурсивной функции
Здравствуйте Задание:Вычислить рекурсивно функцию вида у=COS(X)+COS(X^2)+COS(X^3)+...+COS( X^N) Ошибка:Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения...

Программа завершена из-за переполнения программного стека
В общем задача найти сумму 1/1!+1/2!+...+1/n! при n>10 Программу написал, все процедуры проверил, по отдельности работают, а когда запускаю основную задачу выдает ошибку: Ошибка времени выполнения:...

Нельзя разыменовать это выражение
Program st2; Var x,y,f,z:real; Begin writeln('Задайте x(в условиях -2.7 или 10.5)'); read(x); writeln('x=',x); y:=1.14; z:=7.1; writeln('y=' ,x);

Темная тема PascalABC.NET BlackHole
PascalABCNET.BlackHole Устанавливать поверх стандартного паскаля, вдруг не хватить библиотек. Сам установщик:https://yadi.sk/d/do2zs9FpueZdIg VirusTotal:https://vk.cc/bWk1xV

Процесс не может получить доступ к файлу, так как этот файл используется другом процессом
По заданию в курсовой необходимо написать программу шифрования двойной табличной перестановкой с использованием файлов, может конечно тут многое можно было гораздо проще сделать, но как додумался так...

Найти среднее арифметическое положительных чисел, введенных с клавиатуры (цикл for)
подскажите решение, с использованием цикла for : найти среднее арифметическое положительных чисел, введенных с клавиатуры. Всего ввести N различных чисел.

Остаток от деления
Такая простенькая задача на acmp, но не проходит какой то тест, никак не пойму что не проходит, помогите может вы увидите ошибку в моем коде. Сама задача: Напомним, как в математике определяется...

Напишите программу, которая вычисляет значение арифметического выражения, записанного в постфиксной форме
Напишите программу, которая вычисляет значение арифметического выражения, записанного в постфиксной форме. В выражении используются только целые числа, знаки арифметических операций и вызовы функций...

Как округлить число до целого
Не могу найти как округлить до целого? например: var i:integer; var x,r:real; begin r:=25.0; x:=45.0*pi/180.0; i:=r*sin(x); //? Writeln (' i =',i); end.

Разбиение на неубывающие слагаемые, лексикографический порядок
Помогите с кодом на Паскале Дано натуральное число N. Рассмотрим его разбиение на различные натуральные слагаемые. Два разбиения, отличающихся только порядком слагаемых, будем считать за одно,...

Ошибка "Типизированный файл не может содержать элементы такого типа"
Program furniture; type Note = record {Тип - сведения о товаре} Code, Amount, Price: Integer; {код, количество, цена} Name: String; {наименование} end; var F: file of Note; note1,...

Random для вещественных чисел в конкретном диапазоне
Привет. Как задать/вывести шесть случайных вещественных чисел, но чтобы они были в диапазоне от 1 до 1,4 ?

Создать модель солнечной системы
Доброго времени суток форумчане! Подскажите кто знает как написать программу. Нарисовать простеишую модель солнечной системы с планетами разных размеров и цвета и усложнить дорисовать к земле луну и...

Что делает это операция в Pascal? for i:=1 to length(s) do
var s:string; i:integer; new_kod, code, d:integer; begin readln(code); readln(s); for i:=1 to length(s) do begin d:=ord(s);

Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в шестнадцатеричный код
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в шестнадцатеричный код. Используйте процедуру. Входные данные Входная строка содержит целое число N . ...

Определить день недели, на который приходится день с указанной датой
Помогите пожалуйста переделать программу!!! Задание: {type число = 1..31; месяц = (янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек); деньнедели = (вс,пн,вт,ср,чт,пт,сб); var d: число; m:...

Соединить некоторые пары гвоздиков ниточками
Гвоздики. В дощечке в один ряд вбиты гвоздики. Любые два гвоздика можно соединить ниточкой. Требуется соединить некоторые пары гвоздиков ниточками так, чтобы к каждому гвоздику была привязана хотя...

Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n
Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n.

Считать числа, введённые с клавиатуры через пробел
Считать числа, введённые с клавиатуры через пробел. Как это сделать? Количество введённых чисел известно.

Определить, является ли треугольник прямоугольным
Написать программу, которая по заданным сторонам треугольника проверяет его на прямоугольность, если треугольник не прямоугольный, то вычислить величину углов этого треугольника.

Приближенное вычисление числа Пи с заданной точностью (разложение в ряд)
Написать программу приближенного вычисления числа π с заданной точностью. Для этого использовать ряд 1-1/3+1/5-1/7+1/9-…, сумма которого при достаточно большом количестве членов стремится к значению...

Нарисовать треугольник и залить цветом
Помогите нарисовать треугольник по заданным координатам в Pascal ABC .net, не могу понять как сделать, пробовал с помощью Polygon(points: array of Point); , но не могу правильно заполнить...

Модуль Math не найден
Выполняю эту программу пишет что модуль math не найден program test; uses Math; const g=9.80665; var

В массиве хранятся сведения о количестве осадков, выпавших за каждый день сентября
Составить и решить задачу на PascalABC.NET: В массиве хранятся сведения о количестве осадков, выпавших за каждый день сентября. Определить, сколько осадков выпадало в среднем за один день в каждую из...

Встречено 'function', а ожидался оператор. Что не так?
var res:integer; begin readln(x,y); function af(x,y:integer): integer; var i:integer; begin af:=1; if x>y then begin for i:=y+1 to x do af:=af*i;

Выяснить, пересекаются ли отрезки
Ребят помогите плиз, дали задачку Пересечение отрезков Два отрезка на плоскости заданы целочисленными координатами своих концов в декартовой системе координат. Требуется определить, существует ли у...

Определить какая из точек А или В наиболее удалена от начала координат
Ввести с клавиатуры координаты точек А(х0, у0) и В(х1, у1). Определить какая из точек А или В наиболее удалена от начала координат (О(0,0)). Ответ вывести в виде сообщения.

Сортировка массива
Всем доброе время суток, столкнулся с проблемой сортировки массива от отрицательного до положительного, или иными словами просто сортировкой, не могли бы вы подсказать, как это можно реализовать на...

Определить, какое минимальное и какое максимальное количество цапель могло быть в вольере
Добрый день! Не могу решить школьную задачу по информатике. Текст задачи: "Цапли Петя и Маша пришли в зоопарк. В вольере находятся несколько цапель. Некоторые из них стоят на двух ногах,...

Сформировать из фамилии, имени, отчества строку: фамилия и инициалы
В три символьные переменные F, I, O ввести свои фамилию, имя, отчество. Сформировать из этих данных строку S, содержащую ваши фамилию и инициалы. вот вроде правильно, но в результате в конце пишет...

Ввести натуральное число N и вывести все натуральные числа, не превосходящие N и делящиеся на каждую из своих цифр
Здравствуйте. Накопились некоторые долги, которые откладывал из-за того, что что-то не получалось с решением. Прошу помощи. Ввести натуральное число N и вывести все натуральные числа, не...

Обработчик событий нажатия кнопок мыши внутри цикла. Не работает
Товарищи, подскажите. Уже весь мозг сломал. Проблема в следующем: я использую модуль graphABC, который с помощью цикла (for, repeat, while - без разницы) выводит на экран какое-то изображение....

Открыть вторую форму по нажатию на кнопку
Можно ли сделать две формы?(Чтобы вторая открывалась при нажатии на какую-то кнопу и также имела различные picture box и прочее). Добавлено через 9 минут И при этом первая до сих пор была и не...

Определить, какая из двух точек расположена ближе к началу координат
Задача 4.Определить какая из двух точек M1(x1,y1) или M2 (X2,y2) расположена ближе к началу координат. Вывести на печать координаты этой точки. M1(-4,6) M2(7,3)

Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n
Здравствуйте! Уважаемые программисты, помогите пожалуйста решить задачку! Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, т.е. все...

Программа, запрашивающая ваше имя
Напишите программу, запрашивающая Ваше имя (ввод имени производится с клавиатуры)и выводящую на экран приветствие "Здравствуйте, ...". Помогите, не соображаю в данной программе, сыну задали. Буду...

Программа находит все интервалы, на которых расположены корни и уточняет решения
Доброго времени суток. Что-то я завис с программой, помогите, пожалуйста. Составить одну программу, которая работает полностью автоматически: достаточно ввести в программу функцию и запустить....

Заполнить массив случайными числами и вывести номера всех элементов, равных X
4)Заполнить массив из 10 элементов случайными числами в интервале и вывести номера всех элементов, равных X. Если кому интересно, вот рабочая, программа домашнего производства. Задания брал из...

Не могу выбрать подходящий парсер для файла 'FileTest'
Добрый день. Готовлюсь к олимпиаде,и встретил кучу проблем с файлами. Дана обычная задача:"Из трех чисел вывести среднее". Так то все ясно как ее делать,но как это сделать на файлах? Вот мой код...

Ошибка времени выполнения: файл не открыт
Помогите, пожалуйста, программа выдает ошибку: Ошибка времени выполнения: файл не открыт Задание привожу ниже. Задание: Дан текстовый файл. Создать символьный файл, содержащий все символы,...

Не пользуясь никакими арифметическими операциями, кроме умножения, получить a^7 за четыре операции
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a7 за четыре операции.

Что означает оператор MOD?
Вот есть программа var a, s: integer; begin s:= 0; readln(a); while a<>0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s := s + a; readln(a); end; writeln(s)

Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки до тех пор, пока в строке не останется 1 символ. Входные данные: ввести строку с длиной не...

Определить максимальную и минимальную цифры натурального числа
Дано натуральное число N. Определить его максимальную и минимальную цифры. 24. Дано натуральное число, в котор 1 надо с помощью while 2 c for

Найти угол между часовой и минутной стрелками
Задано время, нужно рассчитать угол между часовой и минутной стрелками.