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

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


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

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

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

Как сгенерировать 2 четырехзначных числа?
Помню года 3 назад баловался рандомами интежеров, но сейчас почему-то не могу понять как сгенерить интежер. Знаю только как генерить real.... надо сгенерить 2 числа (0,4000) и вывести на экран.

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

Передача значения переменной из конструктора/класса в основную программу
Здравствуйте, при создании класса в PascalABC.net столкнулся с проблемой передачи значений переменных. Вот пример: ... constructor (Numbers: integer); begin writeln('Количество...

Создайте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр. Через функцию
Создайте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр. Через функцию

GoToXY. Нужна помощь для написания программы с данной процедурой
Задание звучит так: Имеются некоторые данные фирмы, занимающейся реализацией рыбопродукции: Название судна поставляющего рыбу, номер склада, количество рыбопродукции (в тоннах). Вывести на экран в...

Упорядочить каждые третьи элементы третьей четверти массива по возрастанию значений
Помогите, я не понимаю как упорядочить. По моей логике результатом должно быть: 5 9. Но программа выводит не те числа. Вот алгоритм: 1. Разделить массив на четыре равные части. 2. Выбрать третью...

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

Ошибка доступа при перечислении файлов и каталогов
Выполняю задания по работе с файлами и столкнулся с ошибкой System.UnauthorizedAccessException при EnumerateAllFiles файлов с корневого каталога. Конструкция TRY-EXCEPT не помогает, так как обработка...

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

Вычислить s=x^2+x^4+.x^n
условие : Напишите программу вычисления выражения s=x^2+x^4+......x^n где x и n вводятся с клавиатуры. Используйте подпрограмму. Первое значение х, а второе n Sample Input: 2 4 Sample...

В массиве хранятся сведения о количестве осадков, выпавших за каждый день июня
Всем добрейшего! Мне нужно решить следующую задачу: В массиве хранятся сведения о количестве осадков, выпавших за каждый день июня. Определить: а) в какой период выпало больше осадков: в первую...

Как вставить цветовые константы в подпрограмму?
uses GpaphABC; ... function intToClr(n :integer):color;//тип? begin var clr:color; case n of 0:clr := clwhite; 1:clr := clpink;

Целый результат деления
Какие есть варанты для задачи условия: Если результат делления – целое число,то..

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

Составить функцию, определяющую, состоит ли число из одинаковых цифр
Составить функцию, определяющую, состоит ли число из одинаковых цифр.

японский кроссворд
не могу понять, как исправить ошибку Program1.pas(169) : Неизвестное имя 'GetMem', код программы ниже const MAXSZ=100; MAXBLOCKS=40; type LineDescript=record N:byte; ...

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

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

Необходимо исправить программу
Доброго времени суток! Делала задание на паскале, всё получилось, программа не ругается, но не выводит нужный ответ(( Задание такое: "Дано предложение: «Звуки вальса особенно волнуют того, кто не...

Найти количество уникальных слов палиндромов длиной не менее 6 символов в которых есть не более 4 гласных букв
Дана строка английских слов в нижнем регистре в файле, где каждое слово отделено пробелом. Найти количество уникальных слов палиндромов длиной не менее 6 символов в которых есть не более 4 гласных...

Добавление изображения через PictureBox
Пытаюсь добавить картинку на форму В переменных объявляю переменную PictureBox pic1: PictureBox; Затем пытаюсь добавить в неё изображение через Image...

По разработанному алгоритму записать текст программы
В процессе выполнения задания необходимо осуществить нисходящее проектирование алгоритма(блок схема) табулирования сложной функции и по разработанному алгоритму записать текст программы. Пожалуйста...

Числа Люка
с помощью программы PascalABC.NET, выведите 1) последовательность чисел Люка (хотя бы первых 6); 2) найти суммы (хотя бы 6 первых) чисел последовательности Люка. Числа Люка задаются формулой:...

Исправить программу нахождения суммы ряда
Вот условие: Хочу найти ошибку в программе, программу прикреплю ниже program lb3; const eps=0.0001; x=0.12; var c,a,s:real; n:integer;

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

Как сортировать чтобы элементы выводились по возрастанию?
Как сортировать чтобы элементы выводились по возрастанию? for i:=25 to 36 do begin if i mod 3 = 0 then begin D := 1/ D ; write (D:10:2); end; end;

Длинная арифметика
Длинная арифметика Входные данные Даны два числа N и P (1≤N≤10^9, 1≤P≤100). Выходные данные Вычислите N^N mod 10^P. Sample Input: 5 3

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

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

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

Наиболее длинный путь по цепочке
Показалось что задачка лёгкая, но только показалось. Дана квадратная матрица ’A’..’Z’, ’A’..’Z’ (26х26) в виде словаря, где ключи для удобства представлены двумя буквами, а значения случайны от 0...

Двумерные массивы. Преобразование и построение матриц
Добрый день, нужна ваша помощь в написании кода для задачи, сам не управлюсь с двумерным массивом Задача: "Даны квадратные матрицы А и В порядка n(задаётся пользователем). Получить матрицу...

Упорядочить строки матрицы в порядке возрастания максимальных элементов строк
Помогите пожалуйста. Нужно написать код для упорядочения строк матрицы размера NxM в порядке возрастания их максимальных элементов на паскале.

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

Для контрольной работы
Написать программу, которая формирует файл записей данной структуры Type k=record name:string; pol:(f,m); rost:140..200; Задание 1. программа вычисляет средний рост женщин Задание 2....

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

Исправить вывод матрицы
Первая строка вроде нормально вывод - во 2й и 3й строке вначале идут пробелы а вроде как не должно - как это подправить? Test input: Correct output: 1 1 1 2 2 2 3 3 3

Как создать архив?
Хотел бы узнать, как создавать архив. Просто пишу программу на Паскале, слыхал про System.IO.Compression, но не понимаю, как пользоваться. Да и по поводу сжатия тоже проблемы. Все, что нужно сделать,...

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

Найдите наибольшее четное число
Здравствуйте. Как возможно решить данную задачу, используя только вот такую вводную часть? Пользователь вводит четыре числа. Найдите наибольшее четное число среди них. Если оно не существует,...

Как заставить работать label?
Всем тепла! Лето же)) Подскажите (с примером), как правильно располагать коде – LABEL, в Раscal abc.NET, У меня, если вверху просто название программы, то label стоит хоть выше VAR, хоть ниже, и...

К C# через PascalABC.NET
Подскажите, хорошая ли эта идея, подступать к изучению C# через PascalABC.NET? (имею ввиду с нуля. без опыта программирования)

Компьютерный комплекс школьника для самостоятельного изучения языка Pascal
Обращаюсь к школьникам. Уважаемые школьники 10 и 11 классов! Каким по конфигурации должен быть компьютерный комплекс для самостоятельного эффективного изучения языка программирования Pascal для...

Данный объект не может быть передан как var -параметр
Черновик универсальной функции, которая формирует паттерн заданного типа без повторений значений подряд.## function pattern<T>(what: set of T; size: integer:=1): List<T>; begin var a := new...

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

Вычисление суммы квадратов
Приветствую. Ввести двузначное число. Вычислить сумму квадратов его цифр.

Найти максимальный элемент матрицы среди минимальных элементов строк
Дана действительная матрица размером n * m. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением....

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

Построить строфоиду
Построить строфоиду - кривую, заданную параметрическим уравнением x=a(t^2 - 1)/(t^2 + 1) y= at (t^2 - 1)/ (t^2+1) a>0 t принадлежит интервалу от минуса до плюса бесконечности Мой код program...

Не считает большие числа
Геометрическая прогрессия По данным натуральным числам a и n вычислите сумму 1+a+a^2+...+a^n, не используя формулу суммы геометрической прогрессии. Время работы программы должно быть...

Задача про вращение треугольника вокруг центра
Нужно изобразить треугольник, который вращается вокруг своего центра. Использовать модули GraphWPF, WPFobjects. Есть такой код, но точка вращения не центр, подскажите, что не так? Или скажите, если...

Необходимо доработать программу поиска количества символов(числа) в последовательности от 1 до 1000(подробности в теме)
Приветствую всех любителей(и профессионалов) программирования! Я как и возможно многие, начал свой путь с изучения основ, поэтому выбран был Pascal ABC.NET, как самый простой для обучения. Немного...

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

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

Графика. Заливка движущейся фигуры
Объясните, пожалуйста, кто может, почему возникает ошибка в программе и как её исправить? Может быть, это из-за ограниченного графического поля? Uses GraphABC; Var x0, y0,s: uint64; Begin...

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

Умножение матрицы на вектор, помощь в доработке
Имеется задача: "Даны квадратная матрица А порядка n и вектор b с n элементами. Получить вектор(A-E)b, где Е - единичная матрица порядка n." Начал писать для неё код, при помощи библиотеки...

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

Как открыть окно с помощью WinAPI?
Как открыть окно с помощью WinAPI в PascalABC.NET

Почему программа неправильно работает
Program lab_10; const nmax = 10; type mas = array of integer; Procedure ReadFile(var n, t: integer; var a: mas); var

Нужно написать программу, которая будет решать уравнение
Я не особо понял, что нужно сделать, но вроде как надо написать программу, которая будет считать y=1+x+x в квадрате+x в кубе + …. x в n степени.

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

Объединить два массива A и B, содержащих по N элементов в один массив С PascalABC
Объединить два массива A и B, содержащих по N элементов в один массив С, который будет содержать 2*N элементов, т.е. получить массив C=(а1,b1,a2,b2,..,an,bn).

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

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

Программа должна считать только первое нечетное число
Условие: Найти максимальное значение среди отрицательных элементов, расположенных до первого нечетного (по значению) элемента, меньшего Х. А у меня программа считает последний нечетный элемент,...

Выдает ошибку Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта
{$apptype windows} {$reference System.Windows.Forms.dll} {$reference System.Drawing.dll} uses System.Windows.Forms, System.Net, System.Drawing, System.Drawing. Text, System;

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

Перенести в начало непустого списка его последний элемент
Всем доброго дня. Есть программа и в ней нужно перенести в начало непустого списка его последний элемент. Как это можно сделать? program Lab8; uses crt; type PNode = ^TNode; TNode = record ...

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

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

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

Определить период/периоды времени, в течение которого/которых посетителей не было на сайте
На сайте фиксируется информация о времени захода и выхода каждого посетителя (часы: минуты). Сайт работает круглосуточно. Определить период/периоды времени, в течение которого/которых посетителей не...

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

Ошибка "ожидалось имя переменной", как исправить?
Выделил место где выдает ошибку Unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type Form1 = class(Form) procedure button1_Click(sender: Object; e:...

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

Ошибка в программе Program1.pas(17) : Ошибка времени выполнения: Входная строка имела неверный формат
Ошибка в программе Program1.pas(17) : Ошибка времени выполнения: Входная строка имела неверный формат. Помогите, пожалуйста. uses graphABC; var f:text; x,f1,f2,f3:array of real; ...

Битовые операции: вычислить количество нулей между первым и последним единичным битом данного числа
Ребят, подкиньте пожалуйста идеи, наброски на PascalABC.NET: нужно вычислить количество нулей между первым и последним единичным битом данного числа. Буду очень признателен)

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

Изобразить в паскале рисунок, как на фото

Нужно объединить две программы. Не могу понять как это сделать
пытаюсь сделать что бы при вводе 1 выполнялась 1 программа при вводе 2 выполнялась другая Program Umnoj2; Const Max=50; Var AA,BB,CC: array of Double; {то есть место для матриц выделяем с...

Разобраться, почему программа не выводит ответ
Var a,b:integer; begin a:=17; b:=3; if a>=b+1 then begin b:=b*2; a:=a-b end

Ошибки при запуске программы
Есть такой код: uses crt; uses Graph; const h = 0.04; stx = 1.2; type

Описать строки кода
const n = 6; const graph:array of integer = ((0,1,1,0,0,0),(0,0,0,1,0,0),(0,1,0,1,0,0),(0,0,0,0,0,1),(0,0,0,1,0,0),(0,0,0,0,1,0)); var i,j,start: integer; visited: array of boolean; ...

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

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

Не получается нормально дописать код
Не получается дописать нормально код и сохранение в текстовый файл не происходит program Registration; const NumberOfOptions = 10; type BondOption = record Name: string; Price:...

Управление разрешением экрана
Подскажите, пожалуйста, каким образом можно из программы изменять разрешение экрана. То есть чтобы, когда я запускал программу, разрешение экрана менялось допустим на 1366x768, а после завершения...

Необходимо написать программу
Числа вводятся пока не ввели 0. Найти количество и сумму положительных элементов

Ввести массив из 10 чисел, найти сумму и произведение этих чисел, больших 40
Добрый день, кто разбирается, может объяснить, в чем ошибка кода, как можно получить сумму и код с случайными цифрами массива? Я новичок джуниор, задача 11 класс

Решение системы уравнений графическим методом
решение системы уравнений ГраФичеСким методом 1) y = x*x*x 2) y = -12/x примерный диапазон - не принципиально - главное чтобы графики хорошо смотрелись х можно взять от -15 до +15 у можно взять...

Не могу понять в чем ошибка в коде, создание игры змейка
процедура game не работает корректно при вызове через другую процедуру (difficult) , но корректно работает при вызове в основной программе код не дописан полностью, интересует только проблема...

Дан файл f, посчитать число согласных и гласных букв и записать в другой файл
Дан файл f, посчитать число согласных и гласных букв и записать в другой файл. Выдается ошибка на данный код. Var f,g: Text; s: String; c: Char; k, i: Integer; BEGIN...

Перевести из Python в Pascal
Здравствуйте! Необходимо перевести задачу по поиску отрицательных чисел из Python в Pascal. n = int(input()) m = int(input()) count = 0 A = for i in range(n): A.append( * m) for i in...

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

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

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

программа выводит ошибку: ссылка на объект не указывает на на экземпляр объекта. почему
Program lab_10; const nmax = 10; type mas = array of integer; Procedure ReadFile(var n, t: integer; var a: mas); var

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

"Параметр цикла 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...

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

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

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

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

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

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

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

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

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

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 ...

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

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

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

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

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

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

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

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

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

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

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

Написать программу, которая переводит переданное её целое число в двоичный код
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в двоичный код. Используйте процедуру. Входные данные Входная строка содержит целое число 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); ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ожидалось имя процедуры или функции
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; ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как округлить число до целого
Не могу найти как округлить до целого? например: 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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Через сколько лет и месяцев сумма вклада удвоится
Друзья, привет. Нужно составить программу, (оператором повтора Repeat ... Until)! Вы служите в банке. К вам приходит клиент, который хочет вложить некоторую сумму (в рублях). И клиент просит вас...

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

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

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

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