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

Темы раздела Free Pascal

Получить все перестановки натуральных чисел от 1 до N
Даны натуральные числа от 1 до N (они выглядят так: 1 2 3 4 ... N) Надо получить все возможные их перестановки. Самостоятельно до алгоритма этой программы я бы за 100 лет жизни не додумался. Я...

Написать программу фильтр для вывода строк из файла
Всем привет, изучаю pascal, есть задача: 1.Найти в тексте строку с нужным мне словом ( слово задается пользователем) 2.При нахождении нужного слово в строке сделать вывод еще двух последующих...

Какое решение будет самым оптимальным для этой задачи?
Дана программа: ПОКА нашлось (>1) ИЛИ нашлось (>2) ИЛИ нашлось (>0) ЕСЛИ нашлось (>1) ТО заменить (>1, 20>) КОНЕЦ ЕСЛИ ЕСЛИ нашлось (>2) ТО...

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

Нарисовать букву из звёздочек
Здравствуйте, прошу подсказать правильное направление для решения задачи. Из инструментов - if, for, while, repeat, функции и процедуры. "Напишите программу, выдающую состоящую из "звездочек"...

Процедура вычисляющие сумму 2 целых чисел
Здравствуйте, нужна помощь, мне нужно вывести результат полученный при помощью процедуры и потом разделить это число на 2. Как это нужно сделать подскажите пожалуйста. program Psum; var...

Как найти где протекает память?
Написал программу для поиска и вывода самой длинной последовательности цифр (или нескольких последовательностей цифр, если они равны по длине) из строк текста. Всё работает. Да вот только беда:...

Написать линейную программу перевода целого 4-значн. числа в 10-ю систему счисл
Написать линейную программу перевода любого целого четырехзначного числа в десятичную систему счисления. Например, дано число в двоичной системе счисл. 1101(2). Перевод в десятичную систему выглядит...

Ввод элементов массива с клавиатуры
Помогите пожалуйста. Дан массив B(n). Организовать ввод элементов массива с клавиатуры.

Как скомпилировать чужую программу?
доброго времени! вопрос: есть программа, предварительно написанная на free pascal. скачал программу на 64хВин - никак не получается даже один единственный pas открыть. отсюда вопрос, как открыть...

Решение уравнения
Ребят пожалуйста помогите. Можете написать программу , прям вообще очень нужно y :=(x+1)*(x+2)/(x+3);

Посчитать чек с товарами по акции
Ребята, всем привет. Есть простая задачка. Код ниже. Она нормально работает с небольшим объемом данных. Но когда вводишь большой объем данных выдает неправильный ответ. Может кто подскажет, в сем...

Индексы максимального и минимального элементов массива
pascal, надо вывести индекс большего и меньшего индексов массива, но у меня не получается сделать, выводит именно значения элементов, помогите. var S, i, j, p, max, min, n: integer; a:array of...

Посчитать, какое максимальное количество очков можно собрать, бегая по дорогам
Графы. Задача Е. Выпавшие мешки Игорь и Ира позвали к себе в гости Сашу и Лёшу, чтобы поиграть в настольные игры. На сегодняшний вечер была выбрана игра «Орлеан», В игре «Орлеан» игроки могут...

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

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

Найти наименьшее из значений компонент файла с чётными номерами
Всем снова здравствуйте! Задачка: "Дан текстовый файл f, компоненты которого являются действительными числами. Найти наименьшее из значений компонент с чётными номерами." Решите пожалуйста:)

Заменить ; на . Следующее слово начать с прописной буквы ( русской )
Program; uses crt; const zamena='.'; var s:string; i,count:word; s1,a:char; Begin textbackground(green); clrscr; s:='Мама Николая сказала, чтобы он сходил за продуктами в магазин;...

Контроль ввода клавиш
Не могу сделать контроль ввода клавиш в графическом режиме. Нужно чтобы в графическом режиме график реагировал только на определённые клавиши program a1; Uses Graph,crt,WinCrt; const ...

Syntax error, ":" expected but "(" found
Здравствуйте. Начал учиться программированию, и, выполняя задачку, в которой автор книги опустил часть кода, возникает ошибка при компиляции. Код набирал по примерам предыдущих программ. Подскажите,...

Функция не работает как надо
function IsDigit(c: char): Boolean; var digits: array of Char = ('0','1','2','3','4','5','6','7','8','9'); e: char; begin for e in digits do if c = e then IsDigit := True; ...

Рекурсивное удаление элементов односвязного списка
Всем привет, прошу подсказки. А.В. Столяров в 1-м томе на странице 423 приводит рекурсивную процедуру удаления всех элементов односвязного списка: procedure DisposeItemList(p: itemptr); begin...

Режим визуализация графика (проблема с добавлением кода)
Здравствуйте, появилась проблема , не могу нормально добавить код без ошибок. Мне нужно добавить часть кода которая соответствует требованиям ниже: 1. Дополнить программу, реализованную в ходе...

Проект project1 вызвал класс исключения 'EConvertError' с сообщением: "1,56" is an invalid float
Проект project1 вызвал класс исключения 'EConvertError' с сообщением: "1,56" is an invalid float. Ошибка при попытке перевести из строки в вещественное число

Вычислить сумму компонентов матрицы
Всем здравствуйте! Задачка: Дана целочисленная квадратная матрица размерности NxN {aij} (1≤i≤n, 1≤ j≤n). Вычислить сумму компонентов матрицы, расположенных ниже главной и выше побочной диагоналей....

Присвоение параметров процедуры. Типы данных
Программа раскрашивает фон и текст в разные цвета + некоторые символы мигают. Код взят из книги А.В. Столярова "Программирование. Ведение в профессию" Часть 1. Вторым параметром в описании...

Написать с использованием динамических структур данных
Даны координаты n точек на плоскости: (X1,Y1), ...,(Xn,Yn)(n<30). найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная). (использовать одномерные...

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

Переделка фрактала
Помогите переделать фрактал Леви во фрактал Минковского. uses winCRT, CRT, Graph; var gd, gm, i, j, n, m, k: Integer; xn,yn, a, p, x, y, scale: Real; grend:string; ...

Написать программу, удаляющую из строки первое и последнее вхождение заданной подстроки, с доп. условием
Нужна программа на паскале, чтобы запускалась во FreePascal, но при этом запрещено пользоваться строковыми функциями, вроде (pos,posex,copy,del,insert и т.д, кроме length). Искала в интернете, но не...

Написать программу по вычислению формулы
Добрый день! Нужно написать программу в соответствии с формулой и данными. Есть набросок, но в конце результата пишет ошибку. program lab_4; var i,f:integer;s,a,e,x:real; begin x:=0.95;...

Как удалить элементы из файла
Есть такой код, который просматривает файл (input.txt), который имет вид: Фамилия1 5 4 5 3 Фамилия2 4 5 4 5 Фамилия3 3 3 4 5 Фамилия4 5 5 5 5 По завершению программы(по идее рабочей) в файле...

Переделать программу из PascalABC в FreePascal
Помогите, пожалуйста, переделать программу из PascalABC во ФриПаскаль. uses Graph; procedure RLine(x, y, x1, y1: real) := RLine(Round(x), Round(y), Round(x1), Round(y1)); function GetAngle(x, y,...

Нюансы работы Eof и SeekEof в программе
День добрый! В процессе обучения работе с указателями написал программу, которая в ответ на каждую прочитанную строку печатает слова из этой строки в обратном порядке; например, в ответ на «one...

Нюанс использования параметров-переменных
Добрый день! Захотел написать программу построения дерева поиска, в котором присутствует обратная цепочка связности (т.е. в каждом узле существует указатель на предыдущий). Согласно моему...

Масштабирование FReePascal
Помогите сделать масштабирование фигуры во ФРиПаскале. Вот код: uses sysutils, wincrt, crt, graph; const

Найти произведение целых нечетных чисел, кратных 7 в диапазоне от -N до N
Всем привет! Задачка: Дано целое N>0. Найти произведение целых нечетных чисел, кратных 7 в диапазоне от -N до N. Как это решить без рандомайзеров и массивов? Добавлено через 1 час 4 минуты...

Найти максимальную сумму, которую можно получить при сложении нескольких чисел последовательности подряд
Задача с циклами "Максимальная сумма" Дано целое неотрицательное число N. Число разбили на цифры и из каждой вычли число 5. Найти максимальную сумму, которую можно получить при сложении нескольких...

Добавление кода
Здравствуйте, нужно помощь, у меня есть код без функций графика - program threeLab; uses Crt; const menu: array of string =

Найти парные анаграммы в заданном словаре
В имеющемся словаре найти пары слов (анаграммы), при прочтении каждого из которых в обратном направлении образуется другое слово пары, например, (ПОЛК, КЛОП); (БАР, РАБ). Помогите решить задачу на...

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

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

Робот траектория
Даны угловые скорости валов двух моторов робота, к которым присоединены колёса, диаметрами 6 см, промежуток времени между замерами угловых скоростей) . Размер колеи робота – 15 см. А) описать...

Генератор случайных чисел
Нужно было сгенерировать одновременно несколько случайный чисел, при простом использовании random, все числа получаются идентичны друг другу. Это и сподвигло написать по гайдам простой генератор...

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

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

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

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

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

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

Почему присваивание одного массива другому не вызывает ошибку?
Доброго времени суток. Есть программа: program test; var a: array of integer = (1, 4, 9); b: array of integer; i: integer; begin

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

Fatal: Syntax error, "=" expected but ";" found
Добрый день! Подскажите. пожалуйста, что за ошибка и как ее исправить? main.pas(5,10) Fatal: Syntax error, "=" expected but ";" found program task; var a, b, x, sum:real; const h=0.01;...

Вычислить сумму
Добрый день! Как написать программу на паскале согласно формуле используя цикл?

Даны 3 числа. Выбрать и напечатать из них принадлежащие промежутку (0; 17] Если таких чисел нет, сообщить об этом
Добрый день, нужна помощь в написание програмы. Даны 3 числа. Выбрать и напечатать из них принадлежащие промежутку (0; 17] Если таких чисел нет, сообщить об этом

Написать подпрограмму-процедуру, по вычислению трех векторов
Добрый день! Необходимо написать программу с использованием подпрограммы-процедуры, вычисляющую три вектора или матрицы X, Y, Z, являющиеся комбинацией трех векторов по два

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

Ограничение в 64 Кб не работает
Здравствуйте. Я смотрел свои старые программы, написанные во время учёбы, и столкнулся с такой странностью. В университете меня учили, что в Паскале глобальные переменные размещаются в сегменте...

Реализация программы, вычисляющей площадь фигуры, ограниченной кривой (через метод трапеций)
Задание: Реализовать программу вычисления площади, ограниченной кривой 1*x^3+(-1)*x^2+(-2)*x+7 Вычисление определённого интеграла должно выполнятся численно, с применением метода трапеций...

Сделать блок-схему в соответствии с гостом и коду программы
Добрый вечер, необходимо сделать блок схему в соответствии с гостом по следующему коду программы {$mode objfpc} program lab_4; var i,f:integer;s,a,e,x:real; begin x:=0.95; s:=0; f:=1;...

Программа по вычислению формулы
Добрый вечер. Есть код, но он выводит бесконечный результат, Возможно где то есть ошибка, кто может подсказать? program lab_6_v19; var e, s1, s2, a: real; i, j: integer; begin...

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

Реализовать программу вычисления площади фигуры, ограниченной кривой
Реализовать программу вычисления площади фигуры, ограниченной кривой x^3 - 2x^2 +4x +16 и осью оХ ( в положительной части по оси OY) Вычисление интеграла с помощью метода левых прямоугольников....

Даны действительные числа a1, … , an . Найти самый длинный отрезок данной последовательности
Помогите написать программу на Pascal

Целое число
Доброго дня. Подскажие пожалуйста как проверить в процессе деления число,что оно получилось целым.

Заливка произвольной области цветом
Имеется следующая фигура, нарисованная из кода на TCanvas: Вопрос: как ее залить сплошным цветом? Фигура была построена с помощью двух Line и двух Arc (бока) в среде Lazarus. Если заполнять...

Разработать модуль, реализующий подпрограммы работы с записями
Извините, если было похожее, не смог найти. Разработать модуль, реализующий подпрограммы работы с записями «Товар», содержащими поля «наименование», «категория», «цена»: формирование массива...

Фрактал Минковского
Фрактал Минковского. Помогите довести до ума прогу. Надо ограничить масштабированием и перемещением. Как ограничить перемещение и масштабирование, чтобы не выходил за экран ?? /* чтобы все...

Программа вычисления последовательности по гипотезе Коллатца
Всем привет! Есть такая программа: program Kollatz; uses crt; var n:integer; begin readln(n); while n>1 do begin if n mod 2 = 0 then begin TextColor(2);

Найти минимальное значение из максимальных элементов строк матрицы
Нужна программа на Pascal - Задана матрица действительных чисел размерностью М × N (4<M≤12, 4<N<12). Найти минимальное значение из всех максимальных элементов строк.

Замена знаков
Как работает код. На вход подается строка, например: asd*as ds*a Мы должны получить вывод: asd*------- То есть все символы заменяются на знак "-". Но программа учитывает второй знак "*" тоже и...

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

Найти наибольший и наименьший элементы в заштрихованной части матрицы
Найти наибольший и наименьший элементы в заштрихованной части матрицы

Type identifier expected
Задача: Создать непустые списки L1 и L2 с использованием указателей. Обеспечить выполнение следующих задач: • добавляет в конец списка L1 все элементы списка L2; • вставляет в список L1 за первым...

Синтаксические ошибки в коде с меню
program cafe_order; uses crt; var kod: char; i:byte; x,y,z,w,p,b,f,curday,g: integer; discount,delivery,total: integer; const vybor:array of string=('1-Стоимость пицц', ...

Взаимный вызов процедур
Здравствуйте! Есть две процедуры, при выполнении определённых условий вызывают друг друга: Program TwoProcedures; Procedure Proc1(); Begin {...} Proc2(); {...}

Метод Split VSCode
При компиляции такого кода выдаёт ошибку Illegal qualifier program files; Uses Math, SysUtils; type tArrayOfString = array of string; procedure CopyDegreeKWords(var f1: textfile; var...

Работа с консолью cmd, powershell
Всем доброго времени суток. Такой вопрос как написать подпрограмму (имею ввиду функцию) и правильно ее вызвать, которая будет подсчитывать сумму элементов последовательности с использованием...

Определить, на какой день улитка доползёт до вершины шеста?
Улитка ползёт по вертикальному шесту высотой h метров, поднимаясь за день на a метров, а за ночь спускаясь на b метров. На какой день улитка доползёт до вершины шеста? Программа получает на вход...

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел
Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Создание динамического массива
Хеллоу, помогите, пожалуйста, написать программу, создающую динамический массив размером, указанным пользователем, и заполняющую его числами от 1 до размера массива.

Дан массив.Поменять местами первый и последний элемент массива
Дан массив А(N). Поменять местами первый и последний элемент массива.

Работа с файлами "input.txt" и "output.txt".
Есть простая задача: Два бандита (Время: 1 сек. Память: 16 Мб) Бандиты Гарри и Ларри отдыхали на природе. Решив пострелять, они выставили на бревно несколько банок из-под пива (не больше 10)....

Подсчет количества букв "А" в строке
Подскажите еще, если это на затруднит пожалуйста! Нужно написать программу, которая при вводе пользователем строки, подсчитывавет количесство букв "А". Вот сама программа var S : string; ...

Ошибка "Syntax Error, ":" expected but ";" found
Unit SourceModMenu; interface Uses Crt; function Menu(X,Y: integer):integer; //Функция для меню Procedure Menu80; // Процедура для функции Menu. При нажатии стрелкии вверх Procedure...

Нарисовать корабль
задали корабль нарисовать в паскале 7.0...но графику тему проболел и ниче не понимаю..самоучители не помогли....толком ничего не получаеться...надеюсь на вашу помош

Ошибка 217
Я не программист, но иногда балуюсь математикой и требуется проанализировать ряд чисел или перебрать что-то. Установил для этих целей Free Pascal. Решил опробовать, но что-то при запуске программки...

Найти сумму двух наибольших чисел из трех заданных
Даны три числа. Найти сумму двух наибольших из них. В Free Pascal

Открываю исходники через блокнот, а там вместо русских букв всякая муть
В IDE корректно отображает русские символы, и при запуске программы все тип топ. А вот когда открываю исходники другими не пробовал, дабы их нет, и ни к чему они то вместо русских букв символы...

Определить индекс максимального элемента массива
здрасьте! решите, пожалуйста, 2 задачки. 1-я: кол-во элементов массива 6. тип элементов вещественный. задание: найти среднее арифметическое элементов. 2-ая: кол-во элементов массива 8. тип...

Найти сумму всех целых чисел от A до B включительно
Задача №3 Решить, составить блок схему Даны 2 целых числа A и B (A<B) найти сумму всех целых чисел от A до B включительно. буду очень благодарен.

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

Переставить элементы массива в обратном порядке
Дан массив из N целых чисел. Переставить элементы массива в обратном порядке, т.е первый на место последнего, второй на место предпоследенего и т.д. В матрице D максимальное значение заменить...

Как правильно передать массив в функцию?
Как правильно передать массив в функцию? Программа должна находить суму всех елементов массива.program lab13011; uses crt; var s,i,sum:integer; var a:array of integer; ...

Напишите программу, которая считывает целое число и выводит текст, аналогичный приведенному в примере
Напишите программу, которая считывает целое число и выводит текст, аналогичный приведенному в примере. Пробелы, знаки препинания, заглавные и строчные буквы важны! Ввод: 179 Вывод: The next number...

Создать массив из 10 элементов и заполнить его числами, введенными с клавиатуры
Помогите пожалуйста решить задачу: Создать массив из 10 элементов и заполнить его числами, введенными с клавиатуры. Все отрицательные элементы перенести во второй массив и вывести его на экран.

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

Найти сумму элементов каждого столбца / строки двумерного массива
Даны натуральные числа N и M, вещественный двумерный массив размера N*M. Найти: а) Сумму элементов каждого столбца; б) Сумму элементов каждой строки; в) Среднее арифметическое каждого из столбцов...

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

Найти сумму первых 10 натуральных чисел
я просто незнаю как это сделать.все время какая-нибудь ошибка) нужно найти сумму первых 10 натуральных чисел. помогите если нетрудно))

Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y
Добрый день! Нужна помощь в решение задачи. Требуется : Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y. для Предусловие (1)и Постусловие.(2)...

Fatal: can't find unit system used by
Доброго времени суток уважаемые форумчяне. Столкнулся с такой проблемой при компилировании в FP IDE. Все время выдается две ошибки: Объясните пожалуйста в чем проблема,порылся в Google ничего...

Exitcode = 2
Помогите, я хочу написать программу которая будет брать из файла число, что-то делать и очистив файл возвратить его обратно, вот мой код, но оно выдаёт exitcode = 2. var x : longint; begin...

Определить, принадлежит ли точка окружности
Добрый день.Нужна помощь в решение задачи : Определить принадлежит ли точка А с координатами (x;y) окружности c радиусом R и центром в точке О(х0;у0). Формула окр. : (x-x0)^2 + (y-y0)^2 <=R^2 ...

Найдите сумму цифр введенного с клавиатуры целого числа
1) Найдите сумму цифр введенного с клавиатуры целого числа. Попробуйте использовать цикл while ведь неизвестно сколько цифр в числе! 2) Найти наибольший общий делитель двух натуральных чисел.

Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ]
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне и определяет количество трёхзначных чисел в этом массиве, которые не делятся на 5. Входные данные...

Сравнение элементов массива
подскажите, пожалуйста, как сравнить элементы массива и выбрать максимальное значение элемента(элементы нужно вводить вручную), тип элеметов целый, кол-во элементов 8.

Форматированный вывод вещественного числа
Привет форумчане! Недавно начал изучать TurboPascal по видеокурсу. Работаю в среде FreePascal. Так вот, в видеоуроке сказано что благодаря такой конструкции writeln('The result is : ', rez:4:4);...

Вычислить длину окружности, площадь круга и объём шара одного и того же радиуса
Вычислить длину окружности, площадь круга и объём шара одного и того же радиуса.

Наименьшее расстояние от точки до окружности
По заданным радиусу окружности с центром в начале координат R и координатам некоторой точки P(x0, y0) вычислить наименьшее расстояние от точки P до окружности. Никак не получается понять, с чего...

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

Записать число в обратном порядке
задано натуральное число.Записать его в обратном порядке. Например, 12345 должно превратиться в 54321.

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

Free Pascal IDE, как вставить текст из буфера обмена?
Помогите. Скопировал код в интернете. Как его вставить в IDE Free Pascal? Он не вставляется не как.

Даны три числа a,b,c. Определить какое из них равно d.
Даны три числа a,b,c. Определить какое из них равно d. Если ни одно из них не равно d, то найти max(d-a,d-b,d-c).

Конвертация программ с Си на Паскаль
Я написал прогу на языке Си. Мне нужна прога делающая то же самое только на Паскале. Есть какая-нибудь утилитка для преобразования кода Си в Паскаль??

Напечатать "столбиком" квадраты всех целых чисел от 10 до В
1.напечатать "столбиком" квадраты всех целых чисел от 10 до В ( значение В вводится с клавиатуры) 2. найти среднее арифметическое всех целых чисел от А до В ( А и В вводится с клавиатуры)

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

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

Олимпиадная задача "Котлеты"
Задача H. Котлеты (Время: 1 сек. Память: 16 Мб) На сковородке одновременно можно положить k котлет. Каждую котлету нужно с каждой стороны обжаривать m минут непрерывно. За какое наименьшее время...

Модуль CRT, clrscr и кириллица
Написал программу. Ввод и вывод строк русскими буквами. После проверки проги, очень не понравилось сохранение всех данных в консоли и я использовал модуль crt и естественно процедуру clrscr. и вот,...

Как изменить размер окна?
Крайне неудобно работать в маленьком окне компилятора. Вопрос - можно ли как-то растянуть окно компилятора на весь экран?

Найти сумму четных элементов двумерного массива
Дан двумерный массив целых чисел. Определить: 1) Сумму четных элементов массива 2) Количество элементов массива, меньших 50 3) Среднее арифметическое нечетных элементов массива 4) Сумму тех...

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

Красивый код
В инете нигде не могу найти ответов относительно написания кода на паскале в красивой форме. 1 вариант. uses CRT; var x: integer; BEGIN read(x); if x = 3 then ...

Нужен тип, больший чем longint
Как сделать больше, чем LongInt?

Вычислить (1+sin 0,1) (1+sin 0,2) . (1+sin 10)
Вычислить (1+sin 0,1) (1+sin 0,2) ... (1+sin 10) Помогите сделить не могу разобратся. Зарание Спасибо.

Напечатать сумму чисел
1) На стандартном потоке ввода задаются два целых числа, не меньшие -32000 и не большие 32000. На стандартный поток вывода напечатайте сумму этих чисел. Числа задаются по одному в строке. Пробельные...

Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее арифметическое
Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее арифметическое. Пример: Введите три целых числа: 5 7 8 5+7+8=20 5*7*8=280 (5+7+8)/3=6.667

Программа для вывода всех простых чисел из диапазона
Добрый вечер, не могу найти причину того, что не выводиться ничего. Задание: Дано целое число n>2. Напечатать все простые числа из диапазона program prak; uses crt; var n,k,i:integer;...

Задача на определение принадлежности точки области
Нужно составить программу,содержащую ветвления и определяющую,принадлежит ли точка с координатами (x,y) заштрихованной области.

Подсчитать количество двоек, троек, четверок и пятерок, полученных за диктант
Добрый день, сын запутался в задаче. Ученик 9 "а" класса. Возможно, вы бы могли ему помочь? Если можно с объяснениями , полный ступор... спасибо. "В школе 20 учеников писали диктант по русскому...

Преобразовать string в char
Здравствуйте, Не могу найти, как преобразовать string в char. У меня имеется строка, состоящая из 26 символов. Хочу сделать массив, состоящий из 26 ячеек типа char. ...

Ошибка: Incompatible types: got "Extended" expected "Smalllnt"
Помогите, пожалуйста, исправить type tCorff= integer ptPoly= ^tPoly; tPoly= record i,n: word; c,x: tCorff; next, a: ptPoly; S: char;

Вывод содержимого файла на экран
У меня есть текстовый файл. Мне нужно вывести его содержимое на экран через паскаль. Вот что я делал var f1:text; s:char; begin assign(f1,'1.txt'); while not eof(f1) do readln(f1,s);...

Дано двузначное число. Найдите число десятков в нем
Дано двузначное число. Найдите число десятков в нем. Пример Ввод Вывод 42 4 Поиогите сделать!

сколько баллов набрал победитель.
К финалу конкурса лучшего по профессии "Специалист электронного офиса" были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал ml баллов, во втором...

Написать программу, которая переводит число из десятичной системы в двоичную
Здравствуйте! Вот задали мне такую задачку - написать программу, которая переводит число из десятичной системы в двоичную. Т.к. Паскаль я не знаю(перевёлся с другого ВУЗа и начал изучать его...

Окно программы закрывается сразу после вычислений
Здравствуйте, я приступил к изучению паскаля, набрал первую программку вида: var a, b, sum : integer; { 1 } begin ...

Что такое Readkey
а вот у меня вопрос: что такое Readkey? Если можно, ссылочку дайте, где можно поподробнее почитать.

Проверить наличие определенного символа в строке
есть ли функция которая проверяет есть ли такой-то символ в строке ну что то вроде if '%' in '!@#$@##$^&*$#%@$' then

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

RunTime Error 216, Free Pascal 2.6.0
в программе при запуске программы выдает exit code 216 и ссылка на экзешник програму не показывает что делать?

Ошибка: Syntax error, ";" expected but "ELSE" found
Напишите программу, использующую модифицированный алгоритм Евклида: нужно заменять большее число на остаток от деления большего на меньшее до тех пор, пока этот остаток не станет равен нулю; тогда...

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

Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 13
Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 13.

Программа для нахождения наибольшего общего делителя четырех натуральных чисел
Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел. Использовать подпрограмму нахождения наибольшего общего делителя двух чисел.

Интересные 3 задания...
1) В школе продолжительность каждого урока 45 минут, а перемены между уроками – всего 5 минут. Первый урок начинается ровно в 8 часов утра. Напишите программу, отвечающую на вопрос «во сколько в этой...

Вычислить сумму ряда (1/sin1)+(1/sin1+sin2)+.....+(1/sin1+sinn);
2.Дано натуральное n. Вычислить: (1/sin1)+(1/sin1+sin2)+.....+(1/sin1+sinn); если можно более простым способом. Нужное приближение считается полученным, если вычислена сумма нескольких первых...

В строке поменять местами первое и последнее слова
Задание 2 В строке, содержащей не менее двух слов, разделенных пробелом, поменять местами первое и последнее слова. Входные данные: abcde fghik lmnop qrst uxyz Выходные данные: uxyz fghik...

По данному натуральному числу N выведите такое наименьшее целое число k, что 2k≥N
Здраствуйте. У меня тут несколько задач. Пожалуста помогите!!! Очень нужно. 1) По данному натуральному числу N выведите такое наименьшее целое число k, что 2k≥N. Операцией возведения в...

Определить, возможно ли всех персон рассадить за двумя столами
Доброго времени суток. Есть задача: На банкет были приглашены N Очень Важных Персон (ОВП). Были поставлены 2 стола. Столы достаточно большие, чтобы все посетители банкета могли сесть за любой...

Error: Illegal qualifier
написал такой код: type metk=(a,b); st=record mark:string; fio:string; nomr:string; otm:metk; end; var i:integer;

Является ли слово палиндромом?
Вот задача По данной строке определите, является ли она палиндромом (то есть, можно ли прочесть ее наоборот, как, например, слово "топот"). А вот мое решение, но тест программы дает отрицательный...

Сортировка вставками
Если можно, то с объяснениями..Помогите решить: Требуется отсортировать массив по неубыванию методом "вставок". Входные данные В первой строке вводится одно натуральное число, не превосходящее...

Даны три положительных числа a, b, c. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника
Даны три положительных числа a, b, c. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника.

Составить программу которая находит среднее арифметическое 3-4 чисел
Составить программу которая находит среднее арифметическое 3-4 чисел. Программа Free Pascal.

Найти произведение элементов массива целых чисел, которые кратны 7
Найти произведение элементов массива целых чисел, которые кратны 7. Размерность массива – 15. Заполнение массива осуществить случайными числами от 10 до 50.

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

Дан массив N×M. Требуется перевернуть его по часовой стрелке на 90 градусов.
Вот, решил идеально правильно, вывел элементы - не засчитало!!! Дан массив N×M. Требуется перевернуть его по часовой стрелке на 90 градусов. Вот мой код: var a: array of longint; i, j,...

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

Вычислить произведение двух чисел без использования операции умножения
Усердно грызу (по мере наличия свободного времени) книжку "Песни о Паскале", хочу все таки научится чему нибудь. Вот такое задание: Пусть программа запросит два числа N и M, а затем вычислит их...

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

Найти сумму квадратов чисел от 1 до n
2.найти сумму квадратов чисел от 1 до n,где n вводится с клавиатуры

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

Глюк с русским языком
Есть такая писанина, как бы сделать так чтобы не было иероглифов, чтобы чётко на русском было. Происходит это при работе и при развёрнутом окне (Alt+Enter) Стоит Free Pascal IDE, winXP,SP2 ...

Оканчивается ли число на цифру 7
Дано число. Определить, оканчивается ли данное число на цифру 7

Runtime error 105 at 0001:0032
Начал изучять Турбо Паскаль,столкнулся с такой проблемой:написал прогу,откомпилировал,хочю прогнать ее и видает ошибку 'Runtime error 105 at 0001:0032'.Работаю на Turbo Pascal for windows 7.1,ОС...

Как сохранять работы в *.exe
У меня вопрос по Free Pascal.Как сохранять свои работы в формате *.exe а не в *.pas ?

Написать программу, выполняющую по выбору сложение, вычитание, умножение или деление нацело двух многоразрядных чисел
Доброго времени суток! Написать программу, выполняющую по выбору сложение, вычитание, умножение или деление нацело двух многоразрядных чисел (кол-во цифр в числе <=20). Найти способ хранения таких...

Заполнить массив числами в диапазоне [A, B] и посчитать число четных/нечетных элементов
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне и определяет количество чётных и количество нечётных элементов этого массива. Входные данные...

runtime error 2
После успешной компиляции, запускаю .exe, а он выдаёт ошибку "runtime error 002 at 00...", при этом окно мгновенно закрывается. Что может быть не так? В папке с программой read.txt и write.txt,...

Даны два массива одного размера. Получить третий массив
Даны два массива одного размера. Получить третий массив, каждый элемент которого равен: а) сумме элементов с одинаковыми номерами в заданных массивах; 6) произведению элементов с одинаковыми...

Выяснить, является ли число палиндромом ( перевертышем ), с учетом четырех цифр
Дано натуральное число n (n 9999). Выяснить, является ли оно палиндромом ( перевертышем ), с учетом четырех цифр, как, например, числа 7777, 8338, 0330 и т.п. (палиндромом называется число,...

Готовая игра 2048
Ну вот и сделал я свою игру. В моей игре чуть другое условие в отличии от игры представленной девятнадцатилетним итальянским программистом Габриэле Чирулли, его игра была написана на языке...

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

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

Найти Cx, где C – возрастающая последовательность, полученная при объединении последовательностей A и B
Добрый вечер ,поясните ,пожалуйста, условие задачи Ограничение по времени, сек 1 Ограничение по памяти, мегабайт 64 Язык Free Pascal GNU C GNU C++ Delphi Java Python 2.7 Mono C# Python...

Заполнить массив из 15 элементов случайными числами от 0 до 20. Вывести на экран честные элменты массива
Заполнить массив из 15 элементов случайными числами от 0 до 20. Вывести на экран честные элменты массива ___ Нужно использовать for..do, if..then..else, randomize

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

Задана последовательность N целых чисел
(17) Задана последовательность N целых чисел. Вычислить сумму элементов массива порядковые номера которых совпадают со значением этого элемента.

Тип переменной Word
Зачем или в каких случаях используется тип переменной "Word"?

Напечатать Мне K лет, в нужных случаях слово «лет» заменяя на «год» или «года»
3. Составьте программу, которая для числа K (от 1 до 99), введенного вами, напечатает фразу «Мне K лет», где K – введенное число, при этом в нужных случаях слово «лет» заменяя на «год» или «года»....

Дана сторона квадрата, найти его периметр и площадь
помогите, пожалуйста:cry: дана сторона квадрата. найти его периметр и площадь. в задаче нужно использовать процедуры и функции.

Вывести на экран кубы чисел от 1 до 15
Вывести на экран кубы чисел от 1 до 15

Если среди трех чисел А,В,С имеется хотя бы одно четное. Вычислить максимальное, иначе - минимальное
Задания для самостоятельного выполнения оператор условного перехода 1. Если среди трех чисел А,В,С имеется хотя бы одно четное. Вычислить максимальное, иначе - минимальное 2. Ввести два числа ....

Составить программу , используя интерполяционный многочлен Ньютона
Помогите, пожалуйста. Функция f=sin(x) задана таблично. Вычислить значение интерполяционного многочлена Ньютона для интерполирования назад в точке x=0.15, сравнить его со значением функции f(x) в...

определите значение переменной С после выполнения алгоритма
помогите решить задачу -определите значение переменной С после выполнения алгоритма b=11 ...

Определить, является ли последовательность из N произвольных чисел строго возрастающей
Добрый день! Столкнулась с проблемой, с которой самостоятельно не могу разобраться. Буду очень сильно признательна за подсказку. Задание, по сути, несложное. Нужно, используя операторы цикла...

По двум данным катетам найти гипотенузу и площадь прямоугольного треугольника
По двум данным катетам найти гипотенузу и площадь прямоугольного треугольника.

Алгоритм подсчета max количества подряд идущих отрицательных элементов в целочисленном массиве длины 30
Опиcать алгоритм подсчета максимального количества подряд идущих отрицательных элементов в целочисленном массиве длины 30 uses crt; const n=30; var a:array of integer; kmax, k, i: integer; ...

Длинная арифметика. Сложение
Задача такова: Два числа вводятся с клавиатуры, каждое в своей строке. Числа не превышают 1010000. Произвести сложение чисел. Числа только БОЛЬШЕ нуля.

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

Даны четыре точки. Определить, являются ли они вершинами параллелограмма
Помогите решить. Даны четыре точки A1(x1, y1), A2(x2, y2), A3(x3, y3), A4(x4, y4). Определить, будут ли они вершинами параллелограмма.

Дана последовательность действительных чисел а1<=а2...<=an. Вставить в нее действительное число b так, чтобы последовательность осталась неубывающей.
3. Дана последовательность действительных чисел а1<=а2...<=an. Вставить в нее действительное число b так, чтобы последовательность осталась неубывающей. Пытался написать, но мало того что не...

Дано действительное число. Пользуясь только умножением, получить A^6 за три операции и A^7 за четыре операции
1. Дано действительное число A. Пользуясь только умножением, получить A6 за три операции и A7 за четыре операции и вычислить eA6 и eA7 .

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

Паскаль в качестве первого языка для программиста, плюсы и минусы... Актуальность
Я новичок в программировании, начал с паскаля, каковы реальные возможности этого языка ?

Error 2: File not found
Привет всем, кто читает данное сообщение. Проблема заключается в следующем: Начал работать с тектовыми файлами, ввожу код, по которому из файла построчно ДОЛЖНО выводиться в терминал содержимое...

Составить таблицу умножения для числа 12
Составить таблицу умножения для числа 12. Вида: 1*12=12 2*12=24 … 10*12=120

Заполнить массив из 20 элементов следующим образом: 20, 19...
очень нужна помощь Задача I. Заполнить массив из 20 элементов следующим образом 20|19|...||| Распечатать полученный массив. Kazipulia, обратите внимание на правила оформления тем: 1) один...

Определить, кто из трёх людей старше
Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше. Пример: Возраст Антона: 15 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Борис старше всех. Пример:...

Куда FPC сохраняет программы?
КУДА СОХРАНЯЕТ FREE PASCAL ПРОГРАММЫ? Добавлено через 17 минут видимо не кто не хочет помогать((

Расстояние от точки до отрезка
Помогите пожалуйста решить Входные данные Шесть чисел – координаты точки и координаты концов отрезка. Выходные данные Одно число – расстояние от точки до отрезка.

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

Ошибка при компиляции
Помогите понят что нужно добавить в код, чтоб не было ошибки при компиляции. USES Graph; VAR Device,Mode:Integer; BEGIN WriteLn('text mod'); ReadLn; Device:=0; ...

Нарисовать дугу в паскале
uses graph; var g,m:integer; begin g:=detect; initgraph(g,m,'x:/bp'); setcolor(8); line(540,455,810,120); line(670,480,670,600); setcolor(11); setfillstyle(6,3);

Как ввести в строку более 255 символов?
Всем привет))помогите пожалуйста. Как ввести в строку более 255 символов?Мне сказали использовать тип Pchar,но при использовании процедуры readln переменной типа Pchar программа не компилируется....

Перевод каретки на новую строку
Решаю задачу на тимусе №1601. Все работает, как нужно, но есть проблемы с переводом каретки на новую строку ("Входные данные содержат сообщение Анжелы, которое состоит из латинских букв в верхнем...

Дана строка, содержащая пробелы. Найдите, сколько в ней слов
Дана строка, содержащая пробелы. Найдите, сколько в ней слов (слово – это последовательность непробельных символов, слова разделены одним пробелом, первый и последний символ строки – не пробел). ...

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. В одномерном массиве, состоящем из n вещественных элемен- тов, вычислить: 1) сумму отрицательных элементов массива; 2) произведение элементов массива, расположенных между мак- симальным и...

Написать программу вычисления площади равностороннего треугольника, если известна его сторона
Привет! После долго больничного в школе сказал сделать лабораторную, суть ее в заголовке. Сам не знаю, догнать пока не могу. Еще нужно сделать форму отчета: 1. Теоретический материал: записать в...

Олимпиадная задача про вирусы.
Привет всем)) :) ---------------------------------------------- Есть задача, которую не смог решить, представлена на зональной олимпиаде. Бррр.... про вирусы: --------------------- Итак, имеется...

Определить, сколько существует различных маршрутов, ведущих из левого верхнего в правый нижний угол
Дана прямоугольная доска N × M (N строк и M столбцов). В левом верхнем углу находится шахматный конь, которого необходимо переместить в правый нижний угол доски. При этом конь может ходить только...

Верхний и нижний индексы
Подскажите пожалуйста, можно ли на Free Pscal'е рядом с буквой поставить нижний или верхний индекс, например: А2 или F1 (не только в графическом режиме, но и при вводе данных) Допустим есть массив ...

Полный перебор массива чисел
Здравствуйте! Помогите, пожалуйста решить задачку. Я так понимаю, нужен полный перебор. Но даже не представляю, каким образом это всё делать. Ограничение по времени - 1 сек. Задача:...

Когда перед ELSE не нужно ставить точку с запятой, а когда нужно?
Когда перед ELSE не нужно ставить точку с запятой, а когда нужно?

Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел
Помогите решить, пжл. Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел (НОК(A, B)= \frac{A*B}{NOD A, B} ).

Can't find unit crt
trehznachnoe chislo.pas(2,6) Fatal: Can't find unit crt used by trehznacnoe_chislo Ребяят! Помогите пожалуйста, я начинающий в паскале и выдаёт ошибку, которая указана выше! ЧТО ДЕЛАТЬ?!

Сколько n-значных чисел можно составить, используя цифры 5 и 9, в которых три одинаковые цифры не стоят рядом?
Две цифры Сколько n-значных чисел можно составить, используя цифры 5 и 9, в которых три одинаковые цифры не стоят рядом? Для n=3 ответ будет 6. Составить программу, вычисляющую это значение...

Exited with exitcode = 200
Привет всем! У меня вновь появилась проблема с программированием в паскале. Прошу вашей помощи. Я написала программу для расчета по проектированию электрических станций. Программа получилась...

Вычислить с заданной точностью сумму ряда
а сможешь помочь вот с этим: вычислить с заданной точностью сумму ряда (сумма от i=1 до бесконечности выражения (x*sin^2(x))/i

Определить, какая из точек находится ближе к началу координат
Даны две точки: A(x1, y1) и B(x2, y2). Определить, какая из точек находится ближе к началу координат. Координаты точек вводятся с клавиатуры. program koor; uses crt; var x1,x2,y1,y2 : integer;...

Вычислить значение выражения
Помогите пожалуйста вычислить срочно умоляю, мне больше не у кого просить помощи!! У меня ничего не получается(((((

Заполнить двумерный массив в шахматном порядке
Зад.2 Создайте программу, которая заполняет двумерный массив 10х10 символами X и 0 в шахматном порядке:

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

Умножить на 3 все элементы во второй половине массива
Умножить на 3 все элементы во второй половине массива A (считать, что в массиве чётное число элементов). Найти среднее арифметическое всех элементов массива A.

Составить блок-схему алгоритма и программу на языке Паскаль
Добрый вечер, помогите, пожалуйста с решением задачи составить блок-схему алгоритма и программу на алгоритмическом языке Паскаль функция y={█(sin〖x...

Определите площадь заштрихованной части фигуры, если известна стороны квадрата
В квадрат вписана окружность. Определите площадь заштрихованной части фигуры, если известна стороны квадрата.

Найти наибольший и наименьший элемент массива и их номера
Заполнить одномерный массив, состоящий из 20 элементов, заданных случайным образом целыми значениями, лежащими в диапазоне от -250 до 250. Вывести массив на экран. Определить и вывести на экран: ...

На стандартный поток вывода напечатайте сумму чисел
Сдать решение задачи A-Сумма чисел Ограничение времени: 1 с Ограничение реального времени: 5 с Ограничение памяти: 64M Сумма двух чисел На стандартном потоке ввода задаются два целых числа. На...

Среди двузначных чисел найти те, сумма цифр которых равна n(0<n<=18) и число делиться без остатка на числа q
Среди двузначных чисел найти те, сумма цифр которых равна n(0<n<=18) и число делиться без остатка на числа q.

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

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

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

Вычислить значение функции y=f(x)
Помогите, _Вычислить значение функции y=f(x). Если х≤5, то у=х2+3х-4. Если 5<х≤ 10, то у=ln х. Если х> 10, то у=x^3/3 .

Найти максимальный и минимальный элементы матрицы и их произведение
Задали двумерный массив н * м действительных чисел m = 3, n = 4. Найты максимальный и минимальный элементы и их произведение.

В Turbo Pascal при нажатии на Run ничего не происходит, а в Free Pascal окно сразу же закрывается
Привет всем! У меня такая небольшая проблемка... Я установил Turbo Pascal и Free Pascal. Попробовал по самоучителю написать обычные вычислиния... Пишу всё по инструкции: BEGIN Write('Начали!');...

из Double в Integer
Помогите перевести число "A" из из Double в Integer например так: X:=из Double в Integer(A);

Даны N целых чисел X1, X2, ., XN. Расставить между ними знаки "+" и "-"
У меня всегда в прогах есть ошибки - невидимки:wall: прошу помоч:-const nmax=24; var a:array of integer; c:array of char; j,nummax,max,t,tn:integer; i,n,s,sum:integer; begin ...

Вывести на экран таблицу умножения 3, 4, 8
Ребята помогите!!!

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

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

Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1
напишите пожалуйста код и желательно разъясните его... Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1. например ввод 15 вывод 3

Почему не работает модуль graph в Free Pascal
во FreePascal'е не знаю почему не работает этот модуль, в папке units есть graph, у друга работает graph, а у меня нет(установочники одинаковые). почему?

Ввод нескольких переменных в одну строку
как сделать чтобы переменные вводились в строку и программа их считала как разные а ни как 1. например введя 1 2 3 4 программа смотрела все а не только 1(а=1, b=2, c=3...)?

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

Раздвоитель
Исполнитель “Раздвоитель” преобразует натуральные числа. У него есть две команды: “Вычесть 1” и “Разделить на 2”, первая команда уменьшает число на 1, вторая команда уменьшает число в два раза, если...

Исправить ошибку "operator is not overloaded"
Зделал я команду if Label3.Caption<>Label3 then if Edit1.Text='2' then Label4.Caption:=inttostr(2+Random (10)); Выдало мне ошибку- unit1.pas(52,20) Error: Operator is not overloaded:...

Определить, угрожает ли полю (m,n) ферзь, находящийся на поле (k,l).
6. Поле шахматной доски определяется парой (m,n) натуральных чисел (1<=m<=8,1<=n<=8). Первое число - номер строки ( номер горизонтали), второе - номер столбца (номер вертикали). Даны натуральные...

Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). Вычислить MIN(X,Y,Z X-Y)
1. Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). 2. Даны целые числа X,Y,Z. Вычислить MIN(X,Y,Z X-Y).

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

Отличие синтаксиса PascalABC.Net от FreePascal
В чем различия синтаксиса программ, написанных на PascalABC.Net от FreePascal?

Изменить размер и положение окна, которое получается при подключении crt
Как можно изменить размер и положение окна, которое получается при подключении crt? Не того окна, которое window, а окошечка, которое всплывает при включении экзешника. И было бы ещё очень хорошо...

Найти объем и площадь поверхности прямоугольного параллелепипеда
Помогите найти ошибку! Задача: Дано три измерения прямоугольного параллелепипеда. Найти V(объем) и S(площадь поверхности прямоугольного параллелепипеда). Program ntf3; Uses crt Var...

Вычислить угол между двумя векторами
Читаем четыре целых числа - координаты двух ненулевых векторов. Выводим одно число - величина неориентированного угла между векторами с точностью до пяти десятичных знаков. Выводимое число должно...

Определить, имеется ли среди заданных целых чисел a,b,c хотя бы одно четное
Определите имеется ли среди заданных целых чисел a,b,c хотя бы одно четное? Проверьте код) Program Name; var a,b,c:integer; writeln ('zaday chisla'); readln(a,b,c); if a/2 then ('chislo...

Написать программу, которая выводит на экран таблицу значений функции
Написать программу, которая выводит на экран таблицу значений функции y=-2,4x^2 + 5x - 3 в диапазоне от -2 до 2 с шагом 0,5 -------------------- x y -------------------- -2 ...

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

Как паскаль развернуть на весь экран?
Как паскаль развернуть на весь экран? Не разворачивается окно!

Вычислить сумму ряда S= -1+1/2-1/4-1/8-…+〖(-1)〗^n/2^(n-1)
S= -1+1/2- 1/4-1/8-…+〖(-1)〗^n/2^(n-1)

вывод файлов на печать
как вывести на печать текстовый файл набираю такую программу и в 10 строке выдается ошибка под номером 103 program print;uses crt,printer; var f:text; s:string; begin clrscr; ...

Найти среднее среди трех введенных чисел
Задача "Определить среднее из трёх чисел". Мой код : Program TheAverageOfNumbers; var a,b,c : Integer; Begin Writeln('Type three numbers'); Readln(a,b,c); If (b>a) and (b<c) then...

Ввести массив с неопределённым количеством элементов
Задан массив real. С клавиатуры вводятся элементы массива. Пример. Ввод: 720.00 350.00 Вывод: Минимальный элемент в массиве(Ну тут всё просто!) Добавлено через 1 минуту Заметьте: заранее не...

На сколько минут раньше будет заканчиваться k-ый урок, если все перемены сократили на 5 минут
Привет всем! Нужно написать очень простую программу для решения очень простой задачи: Требуется подсчитать, на сколько минут раньше будет заканчиваться k-ый урок, если все перемены сократили на 5...

Возведение в большую степень числа
Доброго времени суток. Столкнулся с проблемой при ришении вот такого, на первый взгял простого примера. 3^n/2^(n+1), где ^ - возведение в степень, причём n>10^20 (вот в этом вся и загвоздка, так...

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

Составьте программу для вычисления суммы натуральных чисел от 20 до 99
Составьте программу для вычисления суммы натуральных чисел от 20 до 99. В двух вариантах - с while и repeat. Пожалуйста) Заранее спасибо!

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

Прочитать число справа налево.
1. ПОЛЬзователем введено четырехзначное число. составить программу, которая находит число, полученное при прочтении его цифр справа налево. 2. составить програму, которая запрашивает у...

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

Составить программу для вычисления значения функции y=(5x-4)*(7-3x)/(5+3x)
Составить программу для вычисления значения функции y=(5x-4)*(7-3x)/(5+3x)

Определить, есть ли цифра в числе
Дано двузначное число и цифра. Определить, есть ли такая цифра в этом числе

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

Амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через N часов
Амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через 3,6,9,... 24 часа

Error: Identifier not found "result"
Добрый вечер, недавно достал большой самоучитель Delphi, начал заниматься вo Free Pascal. И вот на первых порах возникают уже вопросы и ошибки. Очень прошу помочь, я только новичок, знания...

Найти минимальный элемент главной диагонали матрицы
Помогите написать программу в паскале и блок-схему к следующим заданиям: 2)Дана квадратная матрица A(n,n).Выполнить следующие преобразования :найти минимальный элемент главной диагонали;

Определить, удастся ли перевезти всех детей и взрослых на автобусе
Для заезда в оздоровительный лагерь организаторы решили заказать автобусы. Известно, что в лагерь собираются поехать N детей и M взрослых. Каждый автобус вмещает K человек. В каждом автобусе, в...