Форум программистов, компьютерный форум, киберфорум

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


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

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

Для каждой строки матрицы найти количество отрицательных элементов
Работа с двумерным массивом. С помощью процедуры найти кол-во элементов <0 построчно

Определить, сколько кодов можно составить из букв заданного слова
Светлана составляет коды из букв слова РОСОМАХА. Код должен состоять из 8 букв, и каждая буква в нём должна встречаться столько же раз, сколько в заданном слове. Кроме того, в коде не должны стоять...

Найти номера столбцов двумерного массива, которые имеют нулевые элементы
Разработайте схему алгоритма и программу обработки двумерного массива. Определите номера столбцов двумерного массива, которые имеют нулевые элементы. Входные данные для элементов массива задайте...

Алгоритм вычисления функции F(n), где n – натуральное число, задан следующими соотношениями:
Алгоритм вычисления функции F(n), где n – натуральное число, задан следующими соотношениями: F(n) = n, при n <= 5, F(n) = n + F(n / 5 + 1), когда n > 5 и делится на 5, F(n) = n + F(n + 6) ,...

Динозаврик из хрома
Всех приветствую. У меня появился вопрос. А можно создать Динозаврика из хрома(когда отключён интернет, то можно запустить встроенную игру в браузере Chrome) на PascalABC.NET. Поиск в интернете не...

Протабулировать функцию
Напишите, пожалуйста, программный код на Паскале для решения задания. Дана функция fi(x)= 3x^2 + 2cosx. Протабулируйте данную функцию на промежутке с шагом h = 0.3. Найдите минимальное...

Исполнитель Вычислитель преобразует число, записанное на экране
Исполнитель Вычислитель преобразует число, записанное на экране. У исполнителя есть две команды, которым присвоены номера: 1. Вычти 1 2. Найди целую часть от деления на 3 Первая из них...

Сколькими способами можно расположить в ряд 2 зелёные и 4 красные лампочки?
Разработать программу с использованием комбинаторных алгоритмов Задание: Сколькими способами можно расположить в ряд 2 зелёные и 4 красные лампочки?

Определить время, проведенное в гостинице всей группой и время, проведенное подгруппами из 3 человек
Задание: Первый посетитель из группы, состоящей из P человек, провел в гостинице C часов, а каждый последующий на 10 мин. дольше. Определить проведенное время в гостинице всей группы и время,...

Карты Марса
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПЖ В 2051 году несколько экспедиций на Марс исследовали различные области красной планеты и сделали карты этих областей. Сейчас у BaSA (Балтийское Космическое Агенство) есть...

Cтрока: Найти в строке заданный пользователем символ
Ребят помогите пожалуйста! Буду очень благодарен! Условие задачи: "Дан массив, нужно ввести текст с клавиатуры и далее потом вести символ (2 или более), по которому нужно будет найти такие же...

Вычислите количество элементов массива с нечётными номерами
Составьте программу на языке программирования Паскаль для обработки массива из 12 вещественных чисел. Входные данные для значений элементов массива задайте самостоятельно. Вычислите количество...

Найти минимальный элемент в двумерном массиве
В двумерном массиве A из m строк и n столбцов найти минимальный элемент и количество элементов, меньших p + q .p=1 q=4. напишите пожалуйста код.

Найти сумму и произведение 25-ти произвольных чисел
Найти сумму и произведение n произвольных чисел (n=25). Написать программу, используя цикл while until.

Составить программу генерации магических квадратов
Составить программу генерации магических квадратов. Элементами квадрата размерностью N являются натуральные числа 1. N*N. Числа размещены в нем так, что сумма всех строк, столбцов и главных...

Задача по Pascal. Логика программы рекурсии и обратного вывода чисел
по задаче программа должна возвращать значения в обратном порядке вводишь 1234, получаешь 4321. я не могу понять откуда должно браться значение m, и что за 0 в DoReverseNumber(n,0); И какова...

Составить блок-схему: Даны три числа а, в и с. Найти сумму максимального и минимального
Даны три числа а, в и с. Найти сумму максимального и минимального. Есть программа, а нужна блок схема по ней: var a,b,c,min,max,s: integer; begin write('Ведите числo а '); readln(a); ...

Вычислите сумму элементов массива, не равных нулю, больших b и меньших a
Составьте на языке программирования Паскаль программу для обработки массива из 15 чисел. Значения элементов массива задайте путём ввода с клавиатуры. Входные данные придумайте самостоятельно....

Очень надо ускорить выполнение программы
var n, num, count, last, last2, last3, i, tilda:integer; begin write ('Введите количество квадруплетов: '); readln (n); begin last3 := 11; last2 := 13; last := 17; num := 19; i := 2; ...

GraphABC ловит исключение при отрисовке из модуля
При попытке запустить по нажатию мышью на "кнопку" на форме планируется вызывать функцию Show() для отрисовки новой "страницы", но появляется исключение: Говорят, что это что-то связанное с...

Запись логических выражений на языке Pascal
Запишите логическое выражение на языке Pascal - x, y, z попарно не равны. Примечание: Переменная z является логической и имеет тип boolean. Ребят, помогите пожалуйста. Нужно просто логическое...

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

Индекс вне границ массива при создания видеофайла AForge.NET
Здравствуйте! Изучаю библиотеку AForge.Video, хочу написать программу для записи видео с камеры компьютера. При попытке создания видеофайла возникает исключение: "Ошибка времени выполнения: Индекс...

Принадлежность точки многоугольнику
ПОМОГИТЕ С ЗАДАЧЕЙ ПОЖАЛУЙСТА Дан произвольный самонепересекающийся многоугольник на плоскости. Требуется для заданной точки определить, принадлежит ли она многоугольнику (гарантируется, что...

Cгенерируйте лабиринт из 100×100 комнат, связаных коридорами. Из комнаты в комнату должен существовать единственный путь
Cгенерируйте лабиринт из 100×100 комнат, связанных коридорами. Причем, из любой комнаты в любую другую должен существовать единственный путь. Рассмотрим примеры 2×2. Корректный лабиринт: +-+-+ ...

Значение арифметического выражения
Доброго времени суток! Подскажите, пожалуйста, правильно ли утверждение "Значение арифметического выражения, если оно корректно записано, для компилятора всегда имеет числовой тип"? Спасибо!

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

Проблема с кодом - выводит Nan
выводит Nan,я знаю что значение x= -2.75 и она больше чем значение arccos от -1 до +1, мне преподша говорит что должна работать при таких значения и отказывается принимать мою работу пока она не...

Не срабатывает readln
// Рассчитать количество досок на забор // х,у,- сторона участка // ширина доски 10см program zabor; var x, y, KD: real; fin: char; begin

Нарисовать фигуру из квадратов
привет, помогите написать программу в pascalabc. нужно что бы вводились с клавиатуры 2 значения line и из них строились остальные 2 значения line(симметрично). А так же после ввода line должный...

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

Сформировать отдельные очереди для цифр, букв и спецсимволов
Дан файл input.txt, компонентами которого являются случайные символы: цифры, буквы, спецсимволы %,!,@,# и другие. Сформировать отдельные очереди для цифр, букв и спецсимволов. Записать результат в...

Вывести все различные слова, указав для каждого из них число его вхождений в последовательность.
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Вывести все различные...

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

Работа с окном консоли
Пытаюсь изменять(или прочитать) свойства окна консоли, однако выдает ошибку: "Ошибка времени выполнения: Неверный дескриптор. ". Как исправить? Вот один из примеров: begin ...

Перевод из паскаля в питон
Есть код на питоне надо перевести с питона на паскаль Собственно сам код: n,m = map(int,input().split()) a = for i in range(n): a.append(list(input()))

Определите, сколько символов * выведет эта процедура при вызове F(140):
Подскажите, как можно посчитать количество выводимых звёзд def f(n): print('*') if n >= 1: print('*') f(n - 1) f(n // 2) f(140)

Сформировать строку из слов исходной строки, начинающихся на заданную букву
Сформировать строку из слов исходной строки, начинающихся на заданную букву.

Задача на палиндромы
Дан текст. Найти в нем самый длинный палиндром, который можно получить, пропуская часть символов и при этом сохраняя их порядок следования. Например: в строке «ааааабббббвввааааааагггааааа»...

Сумма цифр
На бумаге выписаны числа от 1 до N по порядку. Между каждой парой соседних цифр попеременно расставлены знаки + и -. Найти чему равно значение этого выражения. Например, пусть N=12, тогда нетрудно...

Признак делимости на 11
Признак делимости на 11 Признак делимости на 11 часто формулируют так: сложим отдельно цифры числа, стоящих на чётных и на нечётных местах. Если разница сумм делится на 11, то и само число делится...

найти сумму элементов последнего столбца
В двумерном массиве A из m строк и n столбцов найти сумму элементов последнего столбца и сформировать массив B увеличением элементов массива A на 90. m=3 n=4 A=-5 15 0 15 0 10 5 -5 0 5 15 10

PascalABC.net не выполняет read
Почему-то Паскаль пропускает один из read'ов. Почему он их пропускает понять не смог. begin var a, a0, c: string; var i, j: int64; var b: boolean; write('Введите искомый символ:'); read(c);...

Узнать, при каком минимальном и максимальном входном значении программа выдаёт заданный результат
Не понимаю как решить. Надо узнать при каком минимальном и максимальном значении N, R = 403. Кто решит объясните пожалуйста. Алгоритм во вложении.

Функция Randomize
Столкнулся с проблемой: при использовании функции randomise диапазон значений один и тот же, из-за чего программа уходит в бесконечный цикл: Lines.StrokeArr:= new string; for var countstr:= 1 to...

Вывести массив рандомных имен и фамилий
Здравствуйте, подскажите, пожалуйста, как правильно заполнить массив рандомными именами? На данный момент выдает ошибку "неизвестное имя name" после begin Program ex516; type Lesson =...

Дано слово. Получить из него подслова, путем вычеркивания части букв
Дано слово. Получить из него подслова, путем вычеркивания части букв. Например, исходное слово "свидетельство". Тогда возможны следующие подслова: свидетель, вид, дело, тело и т.д. Для отсеивания...

Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до
Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8,.(паскаль решить)

Написать программу для перевода числа из системы счисления n в десятичную
Перевести число из системы счисления с основанием n в десятичную систему счисления n - 21

Вычислить значение функции по формуле
1) Введите программу в среде программирования (PascalABCNet). 2) Проверить работу программы с использованием тестового примера (предусмотреть все варианты входных данных). 3) Выполнить вычисление...

Всех hi! Нужно сделать лабиринт 100х100!
Cгенерируйте лабиринт из 100×100 комнат, связанных коридорами. Причем, из любой комнаты в любую другую должен существовать единственный путь. Опишем правила формирования лабиринта: лабиринт...

Заполните массив из 10 элементов случайными числами от 12 до 37
Помогите пожалуйста с заданием по PASCALABC.NET 3.7.1 1.Заполнить массив из 10 элементов случайными числами от 12 до 37 2.Вывести на экран все элементы кратные 3 3.Вывести количество таких...

Олимпиада: определить, какое самое высокое место мог занять Оптимум по оценкам экспертов
Программист нанотехнологов Ограничение времени 1 секунда Ограничение памяти 64.0 Мб Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Программист помогает...

Проверить правильность написания выражений (матрицы)
Матрица под номером 8 //Плохо обусловленная матрица №8 procedure matr8; begin print('Введите последнюю цифру года и номер из зачетной книжки =>'); read(kod); write('Введите размерность...

Найти корень уравнения и вычислить произведение с заданной точностью
Составить схемы алгоритмов и программы на языке Паскаль для определения положительного корня R уравнения f(x)=0 с точностью Е и вычисления числа и суммы S (произведения Р) всех членов ряда больших...

Доделать код
Задача по теме моста Общее кол-во времени по которому он проходит, вроде как правильно, но я пока не понимаю как правильнее сделать так, чтобы получилось на выходе так: 0000 // исходное состояние...

Определить количество и сумму цифр в представлении натурального числа в восьмеричной системе счисления
Здравствуйте! Помогите, пожалуйста, решить задачу. Определить количество и сумму цифр в представлении натурального числа N в восьмеричной системе счисления.

Нахождение суммы бесконечного ряда
Здравствуйте, не нашла похожих задач на форуме. Задание такое: Разработать программу для нахождения суммы бесконечного ряда с заданной погрешностью ε=0,001 Формула ...

Отделить любой действительный корень уравнения и вычислить его методом хорд
Отделить любой действительный корень уравнения f (x) = 0 и вычислить его методом хорд с точностью ε = 10-4 . уравнение: ln2 x - x -1

Оператор варианта (выбора) названия месяца вывести количество дней в нём
СРОЧНО!!! Оператор варианта (выбора), (данные в программе должны быть реальными, число ветвей в операторе выбора должно быть не менее 5-8) названия месяца вывести количество дней в нём,...

Вывести сумму значений функции F(x) для значений аргумента, изменяющихся в интервале от a до b с шагом h > 0
Необходимо вывести сумму значений функции F(x) для значений аргумента, изменяющихся в интервале от a до b с шагом h > 0. Выполнение условия a≤b не гарантируется. Сумму вывести, округлив ее до пяти...

вывести на экран первые 10 чисел геометрической прогрессии
Нужно вывести на экран первые 10 чисел геометрической прогрессии: bn = bn-1 * q, где b0 и q вводятся с клавиатуры. Прошу максимально просто.

Определить общую формулу для вычисления всех выражений
Написать программу, для определения общей формулы всех выражений. В программе вычисляются три значения X Y Z, с использованием одной подпрограммы - функции. Значение X: \prod_{i=1}^{N}...

Число в степень
Вот условие задачи, понимаю какая ошибка в решении, но не знаю как исправить Даны целые числа a (от 1 до 9) и b (от 1 до 1 млрд). Требуется найти последние 6 цифр числа a в степени b (если в...

Вычислить с заданной точностью значение ряда Тейлора для функции arcsin(x)
Пожалуйста, нужно написать программу. Вычислить значение функции arcsin(x) с погрешностью ε=10-3 и определить число требуемых для этого итераций при x=0,5; x=0,7. \arcsin...

Найти среднее арифметическое трех чисел. Если оно больше векторного числа А то возвести его в квадрат иначе удвоить паск
Найти среднее арифметическое трех чисел. Если оно больше векторного числа А то возвести его в квадрат иначе удвоить паск нид хелп

Ввести оценки N ученикам по K предметам. Определить и вывести на экран количество учеников, не получивших ни одной "5"
Помогите решить данную задачу, нужно решить на ПАСКАЛЕ через двумерный массив!!! Ввести оценки N ученикам по K предметам. Определить и вывести на экран количество учеников, не получивших ни одной...

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

Программа определяющая частоту появления каждого байта в файле на Pascal ABC.NET
Нужна программа определяющая частоту появления каждого байта в файле на Pascal ABC.NET Мне есть 5 файлов. 1 файл - .jpg. 2 файл - .bmp . 3 - .doc. 4 - .doc 5 - .docx . 6 - .txt И после обработки...

Составить программу, используя оператор цикла с параметром.(Буду благодарен, плохо разбираюсь в этом)
Начав читать книгу, студент в 1-ый день прочитал У страниц. Каждый день он увеличивал дневную норму на 5 % нормы предыдущего дня. Через 10 дней он прочитал книгу. Сколько в книге страниц. ( У = 40 )

Переставить элементы массива
Может кто-то подсказать фрагмент кода с перестановкой элементов массива или хотя бы объяснить по какой логике переставляются элементы массива. Дан массив z1,z2,…,z3n. Построить новый массив с...

Напечатать N чисел, начиная с заданного, так, чтобы после каждого числа, кратного 7, печать продолжалась с новой строки
Напечатать N чисел, начиная с a, так, чтобы после каждого числа, кратного печать продолжалась с новой строки

Сжатие строк
Есть строка aabcccccaaa. Как сделать так чтобы выводилось не: abca 2153 а чтобы цифры шли после каждой буквы a2b1c5a3 var s:string; a:array of byte; n,i,j:byte; begin writeln('Введите...

Вычислить сумму чисел от 1 до 100
Написать программу вычисления суммы чисел от 1 до 100, ИСПОЛЬЗУЯ оператор цикла while

Задача: Лестница
Имеется рабочая программа на "старом" Паскале, которая рекурсивно находит количество вариантов прохождения заданной лестницы с вариантом шага на 1, 2 или 4 ступени. var всего: longint; ...

Ровные делители
Ровные делители Натуральное число m называется ровным делителем числа n, если частное и остаток от деления n на m равны. По заданному натуральному числу n найти количество его ровных делителей. ...

Попадает ли точка с координатами (x,y) в заштрихованную фигуру
Составить алгоритм и программу, проверяющую попадает ли введенная точка с координатами (x,y) в заштрихованную фигуру ( граница принадлежит фигуре)

Добавить 1 к первой и последней цифрам числа
Здравствуйте! Помогите, пожалуйста, решить задачу. Дано натуральное число. Добавить 1 к первой и последней цифрам числа. Пример: 489 → 5810.

override - чуть глубже чем в документации. Нужно запретить кнопку TAB в форме
Добрый день! Если коротко - нужно запретить реакцию на TAB и TAB+Shift в компоненте ReoGrid (сторонняя библиотека отображения таблиц, аналог Excel) Ок, ковырять и перекомпилировать чужую...

Книжные магазины предлагают следующие коллекции книг
Книжные магазины предлагают следующие коллекции книг. Магистр – Лермонтов, Достоевский, Пушкин, Тютчев ДомКниги – Толстой, Грибоедов, Чехов, Пушкин. БукМаркет – Пушкин, Достоевский, Маяковский....

логическая ошибка в выполнении задачи
помогите, пожалуйста, очень много раз переделывала задачу не понимаю, что не так , почему не работает правильно (подразумевается, что если в массиве "а" есть последовательность например 7 5 4 и в...

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

Вызвать процедуру
Помогите, пожалуйста, запустить процедуру "sravnenie" (строки 14; 90-92). Ошибка звучит так "Неправильный тип параметров подпрограммы". Дано три матрицы. Для каждой из них найти элемент...

Вычислите таблицу значений функции Написать программу
Задание ниже (на фото )5 вариант используется pascal abc.net

Работа со стеками
Сформировать массив указателей на вещественные числа. Поместить числа в стеки по знаку: в первый стек – положительные, во второй стек – отрицательные. Не удаётся реализовать структуры стеков и...

Вывести результат отдельно при процедуры
Всем привет. Столкнулся с таким вопросом. Собственно вот код: function sum(a,b:integer):integer; begin result:=a+b; // использую result чтобы сэкономить время. end; var x, y:integer; //...

Перечисление всех вариантов с заданными свойствами
Задача Создать и записать в файл все варианты выражения длинной 8 символов. Выражение состоит из 0 и 1. Условие: соотношение 1 и 0 должно быть 5 к 3м. То есть в файле должны быть записи:...

Не могу понять, что не так с кодом. Ошибка в коде
Я школьница, объясняют плохо, требуют взломать пентагон, как по мне. Ниже условия задачи, делала по примеру учителя. Запускаю программу, ввожу элементы массива и больше ничего не происходит. Стоит в...

Создание просмотрщика
Необходимо создать просмотрщик примерного такого вида: 1. Просмотр 2. Поиск 3. Добавление 4. Удаление 5. Выход 1 ВАЗ 2121 Нива внедорожник 600 000 - 676 000 2021 2 ВАЗ 2121 Нива...

Найти корни нелинейного уравнения с заданной точностью
написать код на pascal Нужно написать программу для решения линейного уравнения 2^x+2x-3=0

Задача про равносторонние треугольники
Привет, напишите, пожалуйста, код программы. В программе есть 2 переменные, они вводятся с клавиатуры. 1 переменная: задаёт сторону треугольника, и, так как он равносторонний, из этой переменной...

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

Определить сколько студентов будет на потоке к концу пятого курса
Задача : Добрый декан На первый курс факультета принимается K студентов. Какая-то часть из них во время сессий получают двойки. Но, жалея студентов (особенно мальчиков – им все-таки...

Используя процедуры, построить фигуру
Использую процедуры, построить фигуру

Необходимо написать программу, которая имитирует работу такой цифровой схемы
Программа сделанная с помощью циклических алгоритмов. Условие: Цифровая схема преобразует натуральные числа. Схема может выполнить только такие команды: №1“Вычесть 1” и №2 “Разделить на 2“....

GraphWPF: колёсико мыши
Господа, подскажите пожалуйста, надеюсь есть разбирающиеся. Возможно ли подключить колёсико мыши по аналогии с дефолтными событиями OnMouseDown и проч. именно в grapfWPF? (Forms не использую...

Округление числа
Дано целое A (0 ≤ A ≤ 10^300). Найти округлённый вниз до ближайшего целого числа корень квадратный из исходного числа. Проблема с большими числами, выдает ошибку времени выполнения, как исправить?...

Процедура Перестановка
Добрый день, нужна ваша помощь. Подскажите как описать процедуру (L , i , j), меняющую местами i-ю и j-ю строки списка L для данной программы. Только начинаю сой путь в программировании прошу сильно...

Обобщённая функция Count не может быть вызвана с данным набором фактических параметров
не понимаю что надо исправить. при использовании q.count выдает ошибку :Обобщённая функция Count не может быть вызвана с данным набором фактических параметров. просто заменять придется опять...

задача на паскале
Здравствуйте можете пожалуйста помочь решить задачу Написать функцию, которая возвращает число, созданное на основе переданного числа, полученного в качестве аргумента, по следующему правилу: 1...

"Параметр цикла 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);//левая сторона квадрата...

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

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

Как записать уравнение в Паскаль?
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"
В текстовом файле k7-0.txt находится цепочка из символов латинского алфавита A, B, C. Найдите длину самой длинной подцепочки, состоящей из символов C.

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

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

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

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

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

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

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');...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А
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);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Встречено '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); ...

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

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

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

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

Встречено '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;...

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

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

Задача на максимум и минимум трех чисел
Найти: 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...

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

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

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

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

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

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

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

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

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

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

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

Встречено 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;...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как сделать бесконечный цикл операции
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);

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

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

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

Ожидалось имя процедуры или функции
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. В учебнике есть такой момент: Говорят, что...

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

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

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

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

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

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

Решение квадратного уравнения
Где ошибка? 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);

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

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

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

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

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

Нельзя разыменовать это выражение
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);

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

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

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

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

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

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

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

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

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

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

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

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

Как вывести положительные числа?
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);

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

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

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

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

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

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

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

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

Что делает это операция в 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
Здравствуйте! Уважаемые программисты, помогите пожалуйста решить задачку! Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, т.е. все...

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

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

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

Найти сумму цифр целого трехзначного числа
написать программу для нахождения суммы цифр целого трехзначного числа

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

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

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

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

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

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

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

Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры
Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры.

Назовём натуральное число подходящим, если у него ровно 3 различных простых делителя
Назовём натуральное число подходящим, если у него ровно 3 различных простых делителя. Например, число 180 подходящее (его простые делители – 2, 3 и 5), а число 12 – нет (у него только два различных...

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

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

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

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

Нельзя преобразовать тип 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);

Написать программу которая требует у вас пароль (5 попыток)
С помощью Repeat написать программу ,которая требует у Вас пароль,например,111,и если пароль правильный ,то заполняет все строки экрана сообщением <<Молодец!!!>> .Если после пятой попытки пароль все...

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

Улиточные бега
Каждые 100 лет в Стране Улиток проводятся улиточные бега на дистанции L сантиметров. Это станет для вас неожиданностью, но в этом столетии они проводятся именно сегодня! В этом году организаторы...

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

Как округлить число до целого
Не могу найти как округлить до целого? например: 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. Рассмотрим его разбиение на различные натуральные слагаемые. Два разбиения, отличающихся только порядком слагаемых, будем считать за одно,...

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

Заполнить массив первыми N натуральными числами и вывести его
Напишите программу, которая заполняет массив первыми N натуральными числами и выводит его. Входные данные Входная строка содержит размер массива N . Гарантируется, что 0 < N...

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

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

Функции: заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи
Заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи. Используйте логическую функцию, которая определяет , являются ли переданное ей число числом Фибоначчи. привер...

Что означает оператор 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)

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

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

Вывести запись в виде 4 знаков в шестнадцатеричной системе
напишите программу, используя процедуру, которая выводит на экран запись числа меньшего, чем 16^4=65536 в виде 4 знаков в шестнадцатиричной системе счисления

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

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

Встречено '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;

Поместить картинку на фон кнопки
Здравствуйте. Помогите пожалуйста. 1) Как в PascalABC можно сделать фон у кнопки в виде картинки? Или как вставить в нужное место картинку и сделать её как кнопку? 2) Можно ли...

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

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

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

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

Ошибка: Невозможно явно преобразовать тип integer к типу System.Random
Помогите убрать ошибку.. Вообщем Pascal выдаёт ошибку на каждую строчку где я пытаюсь присвоить integer - random и пишет вот это: Unit1.pas(429) : Невозможно явно преобразовать тип integer к типу...

Клик мышью
Привет! Помогите написать программу, которая делает определенное действие если ,я нажму на определённый объект Не могу забраться с этими процедурами нажатие мыши OnMouseDown отпускание мыши...

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru