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

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

Как создать тип объект в Pascal N-IDE?
У кого есть паскаль для андроид Pascal N-IDE вопрос. Почему не получается создать тип объект. Пишу код: type klaster = object P,U,I :real; function U_kl(ikl: real) : real; procedure ...

Решение квадратного уравнения с помощью стека
Сделать программу на free pascal ide ax^2 + bx + c=0, a b c - вводить с клавиатуры, a=0 'уравнение линейное' x= , D<0 'корней нет', D=0 'корни совпадают' x1=x2=..., D>0 'корни различные' x1=......

Парсинг Yaml
Добрый день. Кто как парсит yml?

Запуск программы при наличии стороннего процесса
Здравствуйте. Появилась необходимость запускать процесс при наличии другого запущенного процесса. Пытаюсь делать так: unit Unit1; {$mode objfpc}{$H+} interface uses

Макемакеанские пирамиды
Как известно, знаменитые египетские пирамиды были построены инопланетянами. Именно они послужили толчком к развитию цивилизации на Земле. Но мало кто знает, что этими инопланетянами был пандорианцы....

Ошибка Invalid File Name
Начинаю обучаться в Free Pascal по книге (я пока в этой программе вообще ноль). Проблема возникла в самом начале. Не получается дать имя файлу, хотя по формату оно подходит. Программа требует формат...

Книга Системное программирование в UNIX средствами Free Pascal Полищук 2005
книга Системное программирование в UNIX средствами Free Pascal Полищук 2005

Переписать вывод текста на ассемблере
program cher; {$mode objfpc} {$asmMode intel} uses crt; const two: Double = 2.0; four: Double = 4.0; var

Сделать программу на free pascal ide
ax^2 + bx + c=0, a b c - вводить с клавиатуры, a=0 'уравнение линейное' x= , D<0 'корней нет', D=0 'корни совпадают' x1=x2=..., D>0 'корни различные' x1=... x2=..., сделать программу через стек...

Array of Const : не корректно обрабатываются переданные значения
Добрый день. Создал функцию для создания базы данных sqlite. Пытаюсь в функцию передать значения через array of const. Результат ниже. interface uses

Определить, на какой день улитка доползёт до вершины шеста?
Улитка ползёт по вертикальному шесту высотой 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...но графику тему проболел и ниче не понимаю..самоучители не помогли....толком ничего не получаеться...надеюсь на вашу помош

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Преобразовать 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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Нарисовать дугу в паскале
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);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Исправить ошибку "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:...

вычислить y=15x(в квадрате)+8x-9
Начал изучать паскаль. Нужно вычислить y=15x(в квадрате)+8x-9 Помогите отладить программу. Program Name; Var y,x:real; begin writeln('zaday x'); y:=15sqr(x)+8x-9; writeln('x ='); Readln;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Определить, имеется ли среди заданных целых чисел 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...

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

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

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

Даны 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 ...

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

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

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

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

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

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

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

Блок-схема алгоритма и программа на Паскале для вычисления функций
Составьте блок-схему алгоритма и программу на языке Паскаль для вычисления функции z (x, y). Вычислите значение функции и проверьте с помощью выбранных трёх пар значений переменных x и y. ...

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

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

Даны целые числа 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).

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

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

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

Вычислить сумму ряда 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; ...

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

Четное или не четное количество делителей
Надо написать биструю программу которая проверяет четное или нечетное количество делителей. На вход дается количество чисел (1..100) и сами числа(1..1018). Надо вивести 0 ,если количество делителей ...

Процедура, которая выводит переданное ей число прописью
напишите процедуру которая выводит переданное ей число прописью

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

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

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

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

Количество пробелов в строке
Дано строка. Нужно написать программу, которая определяет количество пробелов в этой строке. Входные данные: Например : Hello, World! Press any key to continue ... Выходные данные

Принадлежит ли точка лучу
ПОмогите решить Входные данные Шесть чисел – координаты точки и координаты начала и конца вектора. Выходные данные Одна строка “YES”, если точка принадлежит лучу, определяемому вектором, и “NO”...

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

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

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

Дано натуральное число, определите сумму всех его цифр
Дано натуральное число, определите сумму всех его цифр. Решение нужно через цикл goto. Спасибо огромное заранее))

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

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

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

Написать программу вычисления суммы кубов чисел от 25 до 125
Написать программу вычисления суммы кубов чисел от 25 до 125 (используя цикл с предусловием)

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

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

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

Обрезать (не округлить) число до определенного знака после запятой
подскажите как обрезать число до определённого знака - не округлить, а обрезать. 1.555666 в итоге чтобы получить 1.555 что-то с trunc?

Найти Факториал числа n
Задание только кажется простым: "Найти Факториал числа n! Число n! вводится с клавиатуры и не превышает 2000!" Это уже длинная арифметика, в которой я ни черта не понимаю! Сколько намучался, а...

Не играют звуки в Turbo Pascal и Free Pascal
Uses CRT; Procedure mi; Begin sound(659); Delay(500); nosound; Delay(20); End; Procedure do1; Begin sound(523); Delay(500); nosound; Delay(20); End; Procedure fa; Begin sound(698);...

Даны натуральное число n, действительные числа a1, … , an . Вычислить обратную величину произведения тех членов ai
Даны натуральное число n, действительные числа a1, … , an . Вычислить обратную величину произведения тех членов ai последовательности a1, … , an , для которых выполнено i+1 < ai < i!. Ребята...

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

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

Exitcode 201
наверно уже избитая тема(сорри если уже было что то похожее). Не могли бы вы помочь найти ошибку в задаче. условие: Дано целое число N. Пусть М -Число записанное теми же цифрами, что и N, но в...

Принадлежит ли точка Х отрезкУ
Принадлежит ли точка Х отрезкУ (А,В) (ответ -"да" иди "нет")

Как сделать вывод массива в строчку через пробел?
как сделать что бы вывод массива был не так как в моей записи,а выводился массив a в строчку через пробел 10 чисел? program jin; var i:integer; s;sr:real; a:array of real; begin for degin...

Как установить Pascal на macbook
Здравствуйте. Подскажите пожалуйста в чем проблема?Пытаюсь установить free Pascal на macbook, но при выборе места установки компьютер выдает такое сообщение "You have to install the Xcode command...

Задача про МКАД
Здраствуйте, товарище форумчане) прошу помочь мне с решением данной задачи: Длина Московской кольцевой автомобильной дороги —109 километров. Байкер Вася стартует с нулевого километра МКАД и...

Перевести секунды в часы, минуты и секунды
Дано кол-во секунд с начала суток. Определить колво пройденных часов, минут, секунд

Exited with exitcode=217 при работе с файлами
решал простейшие задачки на составление формул: ввод данных, расчёт, вывод. работает без проблем. uses crt,math; const e=2.7; Var a,b:integer; x,y:real; Begin read(a,b);

Дано предложение. Все пробелы в нем заменить на нижнее подчеркивание
Дано предложение. Все пробелы в нем заменить на символ «_».

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

Вывод текста в графическом режиме
Покажите пожалуйста как вывести в графическом режиме текст, чтобы было красиво:). Мне нужно вывести фамилию Петров

Посчитать количество цифр, кратных 3, в числе
Написать программу, посчитать количество цифр в числе кратных 3 У меня если записать 333 то выйдет 2 числа кратные 3. Можно только через while, if else, div, mod и inc var a, c: integer; begin...

Вычисление приближенного значения экспоненты (ряд Тейлора)
Составить алгоритм и написать программу для вычисления приближенного значения экспоненты от произвольного значения, вводимого с клавиатуры. Используйте для вычисления ряд Тейлора e(в степени x)= 1+...

Считать число из строки
Имеется строка вида y = x(y,y). Где x - какое-то число (может состоять из нескольких цифр), либо буква n. Каким образом можно считать число x (с буквой всё понятно), а затем удалить первые 2 символа...

ошибка - Can't find unit system used by rew279
Не могу понять в чём ошибка! Вот код: program rew279; uses crt; var A:array of byte; i,j,g:integer; begin g:=0 for i:=1 to 3 do for j:=1 to 3 do

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

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

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

Найти первое число Фибоначчи, большее m
Помогите, пожалуйста. Числа Фибоначчи определяются формулами: f0=f1=1, fn=fn-1+fn-2; при n=2,3... Найти f - первое число Фибоначчи, большее m(m>1).

Калькулятор. Вычисление арифметических выражений
Есть такая вот программа: program Calc; Uses ListWork,crt; type cptr = ^char; iptr = ^ integer; const digits : set of char = ; prty : set of char = ; var s : string;

Рекурсивный перебор: вывести все перестановки символов данной строки в алфавитном порядке
Дана строка, состоящая из M (2 ≤ M ≤ 8) попарно различных символов (буквы латинского алфавита и цифры). Требуется вывести все перестановки символов данной строки в алфавитном порядке. Ввод: AB...

Free Pascal for window7 x64
Здравствуйте. Обыскал всё уже... Подскажите пожалуйста, где можно скачать Free Pascal для window7 64bit. Переустановил систему, на х32 всё сразу устанавливалось. На 64bit не могу найти. А лучше...

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

Определить, является ли число А четным и кратным 7
определить, является ли число А четным и кратным 7 помогите решить через операции div,mod

Напечатать k-ю цифру последовательности, в которой вписаны все подряд числа Фибоначчи
Дано натуральное число k, напечатать k-ю цифру последовательности 1123581321 ..., в которой вписаны все подряд числа Фибоначчи.

Определить количество четных и нечетных элементов последовательности
Задача в Паскале Задана последлвательность из n вещественных чисел. Определить количество четных и нечетных элементов последовательности Program P; Var n,i,a: integer; kolh.koln: Real; begin...

Упорядочить три числа в порядке неубывания
Помогите пожалуйста с двумя задачками на FPC: 1)Дано три числа. Упорядочите их в порядке неубывания. Программа должна считывать три числа a, b, c, затем программа должна менять их значения так,...

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

Вычислить среднее арифметическое чисел от n до m. Цикл с параметром.
При помощи for...do Вычислить среднее арифметическое чисел от n до m

Блок-схема для одномерного массива
Сделайте пожалуйста блок схему для одномерного массива program massive; uses crt; const n=10; var a: array of integer; i,summ: integer; begin clrscr; randomize;

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

Заполнить массив из 8 элементов случайными числами от -10 до 10. Вывести отрицательные элементы
Использование оператора цикла с параметром for..do для работы с массивами Задание: Заполнить массив из 8 элементов случайными числами от -10 до 10. Вывести отрицательные элементы.

Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение
Пожалуйста помогите!!!!!не могу получить зачёт...нужно решить эти задания...кому не трудно помогите... заранее очень благодарен)) I. Изобразить на плоскости (X, Y) область, в которой и только в...

Как вывести нечетные индексы в массиве?
как вывести нечетные индексы в массиве? то есть например: Входные данные Сначала задано число N — количество элементов в массиве (1<=N<=100). Далее через пробел записаны N чисел — элементы...

Описать рекурсивную функцию root(a,b,eps), которая методом деления отрезка пополам находит корень уравнения
описать рекурсивную функцию root(a,b,eps) которая методом деления отрезка пополам находит с точностью eps корень уравнения f(x)=0 на отрезке а,b. Считать что епс>0и a<b иf(a)*f(b)<0 и f(x)...

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

Найти сумму цифр числа
Помогите,пожалуйста,решить задачу по Паскалю! 1. Дано натуральне число: - знайти суму його цифр; - чи правильно, що число починається і закінчується однією і тією самою цифрою? 2. Знайти всі...

Оттепель
Уже час бьюсь с простой задачей и никак не могу понять что у меня неправильно Вот задача ЗАДАЧА Вот моё решение Var n,c,d:integer; begin reset(input, 'input.txt'); rewrite(output,...

Быстрый способ проверки числа на простоту
Быстрый способ проверки числа на простоту: {$N+,E-} uses crt; var n:smallint; function st(m:smallint):boolean; var

Нету справки в free pascal 2.4
Установил free pascal 2.4 а вместо хелпа ошибка какая то.Помогите установить хелп.И если можно то дайте ссылку на русский хелп.Заранее благодарен. http://www.imagepost.ru/images/129/pascal.JPG

Умножение и деление двоичных чисел
Ребят помогите пожалуйста, написать программу умножения и деления двоичных чисел! или дайте какую-нибудь ссылку!

Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева
Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число.

Чтение file of integer
Лаконично, что я делаю не так? program test; Var f:file of integer; s:integer; begin assign(f,'int.txt');reset(f); while not (eof) do begin read(f,s); writeln(s); end;

Error: illegal unit name
unit test; interface implementation begin end.

Вывод цифр в порядке возрастания.
Задаешь три числа,как сделать чтобы числа выводились в порядке возрастания?

И снова "unexpected end of file"
В конце 2-го тысячелетия мной было написано комплекс программ для судейства соревнований по радиосвязи среди школьников. Сначала писал на ТВ, а потом перешел на ТР. Получилось 6 исполняемых файлов....

Текстовый документ: открыть > изменить > сохранить
Добрый вечер. В общем задача вроде легкая, но столкнулся со ступором в части "изменить". Нужно что бы программа открывала .txt файл что есть функция assign если я прав. Нужно что бы...

Как проверить переменную на пустоту?
Как проверить с помощью if else или while do что пользователь что-то ввел, а не просто нажал "Enter"?

Встроенный ассемблер
проблема такая: скачал с оф. сайта FPC 2.4 пишу прогу, обязательное использование ассемблерных вставок: asm end; при компиляции возникает ошибка: регистры ax,eax,bx,ebx и т.д. являются для него...

Найти наибольшее значение отношения трехзначного числа из отрезка [a,b] к сумме его цифр
Даны два натуральных числа a и b. Найдите наибольшее значение отношения трехзначного числа из отрезка к сумме его цифр.

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

Возведение числа в степень
Как возвести число в степень x на языке паскаль? например в этом уравнении: X * 2X = 1

Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так и строчные
1) Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так и строчные. Пример: Введите строку: ааббссААББСС Результат: ббаассББААСС 2) Ввести...

Как создать ограничение? Надо создать ограничение ввода букв, а то программа виснет!
var a:integer; begin repeat; writeln ('Введите число не равное еденице'); readln (a);

Среди 10 чисел введенных с клавиатуры найти количество положительных
Написать программу среди 10 чисел введенных с клавиатуры найти кол-во положительных?

Найти сумму и количество цифр числа.
Найти сумму и количество цифр числа. Использовать подпрограммы

Решение СЛАУ методом Гаусса с выбором главного элемента по столбцу
Народ помогите плиз. Срочно нужна прога на паскале для решения СЛАУ методом Гаусса с выбором главного элемента по столбцу. Да на форуме есть что то похожее но то что я находил либо не работало, либо...

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

Найти уникальные элементы в заданном массиве
Здравствуйте нужна помощь в написании программы которая будет определять уникальные числа в заданном массиве. Под уникальными имеется ввиду что из чисел 1, 2, 3, 4, 1, 2, 3, 5, 6 уникальными будут...

Дано натуральное число n. Вычислить произведение первых n сомножителей 1/2*3/4*5/6*...;
Использовать оператор цикла с параметром. Массивы не использовать. var ch,n,i:integer; {pr-произведение, ch-числитель} pr:real; BEGIN readln(n); pr:=1; ch:=1; for i:=1...

Вывести числа от 1 до 100, которые при делении на 6 дают в остатке 4 и их количество
Задача №2 Решить, составить блок схему Выведите на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4 и их количество(цифр) буду очень благодарен.

Вырезать из четырехзначного числа первую и последнюю цифры
Напишите программу коротая вводит четырехзначное число и вырезать из него первую и последованию цифру .(напитать программу в ПАСКАЛЕ( Free Pascal IDE или другой ) и qбесик (64 или другой))....

Вычислить sin(x) и tg(x), если известен cos(x)
Известно, что cos x=0,8; x є . Найти sin x и tg x.

Не устанавливается Free Pascal на mac os x (10.6.8)
Доброго времени суток, программисты. :) Прошу помочь. У меня mac os x (10.6.8), я только начинаю разбираться в программировании и плохо во всем этом разбираюсь. Скачал в интернете компилятор FPC...

Exit code 1
Имеется программка с меню и графикой. Компилируется нормально, но при запуске выдает exit code 1. Как с ним справиться? uses graph,crt; type mas=array of integer; var ch:char; a:mas;...

Определить, имеют ли отрезки, заданные координатами концов, общие точки
Помогите пожалуйста решить Входные данные Восемь чисел – координаты концов двух отрезков. Выходные данные Одна строка “YES”, если отрезки имеют общие точки, и “NO” в противном случае. ...

Создать файл, содержащий сведения о количестве изделий, собранных сборщиками цеха за неделю
3 А. Создать файл, содержащий сведения о количестве изделий, собранных сборщиками цеха за неделю. Каждая запись содержит поля - фамилия сборщика, количество изделий, собранных им ежедневно в...

Определить будет ли это число: четным, кратным 10.
6. Дано натуральное число. Определить будет ли это число: четным, кратным 10. посмотрите пожалуйста ошибки(кроме той, в 1 строке скобки убрать) и подскажите пожалуйста, как сделать так чтобы дроби...

Вывести на экран два числа одно под другим
Вывести на экран числа 50 и 10 одно под другим

Построить график функции
Надо построить график во фри паскале (задание - во вложениях) для тока прямоугольной формы и напряжения на катушке L=0.1 Гн, амплитуда Im=0.57A, длительность импульса тау=62мс, частота на четных...

Расположение четырех чисел в порядке возрастания (+блок-схема)
Составьте блок-схему алгоритма и программу расположения четырех чисел в порядке возрастания. я сделала программу(в Pascal ABC), но что-то у меня не так. Исправьте ошибки, и как найти tretie и...

Запись в файл в правильной кодировке
Столкнулся с проблемой русских букв при работе с файлами. Не могу выбрать нужную кодировку для файлов, чтобы русские буквы корректно считывались и обрабатывались. При UTF-8 один символ идет вообще...

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

Перевод байтов в килобайты
Помогите сделать задание: Составьте программу, которая выводит на экран таблицу перевода a, a+1, a+2...b Кбайты в байты. Границы a и b вводятся с клавиатуры. Протокол: Введите границы: 11 14 11...

Найти среднее арифметическое каждого из столбцов матрицы
Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов.

Вывести все числа в интервале от 1 до 50, которые делятся на 3 (C++ -> Pascal)
#include <stdio.h> #include <iostream.h> #include <conio.h> #include <math.h> void main() { int a,i,b; for(i=1;i<=50;i++) if (i%3==0) {cout<<i <<" " ;}

Найти самое длинное симметричное слово заданного предложения
Условие такое: Найти самое длинное симметричное слово заданного предложения, например АККА. подскажите, что не так Program zadacha; function simmetric (s:string):boolean; var t,i:integer;...

Восстановить исходную строку из упакованной
Адрес электронной почты вырезан] Будем рассматривать только строчки, состоящие из заглавных латинских букв. Например, рассмотрим строку AAAABCCCCCDDDD. Длина этой строки равна 14. Поскольку строка...

Написать программу, которая находит номер максимального элемента массива
Написать программу, которая находит номер максимального элемента массива.

Найдите все совершенные числа из диапазона [a, b]
Найдите все совершенные числа из диапазона . (Совершенными называются числа, равные сумме своих делите- лей, без самого числа. Например, совершенным является число 28 = 1 + 2 + 4 + 7 + 14; 6 = 1 +...

Дан файл f, компоненты которого являются действительными числами. Hайти разность первой и последней компонент файла.
#472д. Дан файл f, компоненты которого являются действительными числами. Hайти разность первой и последней компонент файла.

Описать функцию Fact(N) целого типа, вычисляющую значение факториала N!
Описать функцию Fact(N) целого типа, вычисляющую значение факториала N! = 1•2•...•N (N > 0 – параметр целого типа). С помощью этой функции вычислить факториалы 3 данных чисел. Заранее спасибо.

Написать программу вычисления площади трапеции
Написать программу вычисления площади трапеции

Программа вылетает с ExitCode = 207
здравствуйте program lab5; uses crt; const e=0.001; c=0.1; var a,b,x,xi,d,z,h,s1,s2,l,l1,e1:real; n,i:integer; function g(x:real):real; begin

Определить сколько раз встречается заданная буква (с клавиатуры) в заданном слове( с клавиатуры)
Определить сколько раз встречается заданная буква (с клавиатуры) в заданном слове( с клавиатуры) например: слово - молоко, буква о, ответ 3 раз.

Игра 2048
Здравствуйте. Решил написать игру 2048 на Pascal'е. Вот есть меню, поле нарисовал, рандомное появление двух плиток. Теперь помогите пожалуйста с проверкой, хотя бы для одной стороны! uses...

Почему программа не находит файл?
var f:text; names:array of string; counts:array of integer; i,n:integer; s:string; begin assign(f,'c:\auto.txt'); reset(f); n:=0;

Максимальная сумма двух элементов последовательности
На вход программе подаётся последовательность целых чисел, каждое из которых не превосходит по модулю 2*10^9 . Числа записаны в одной строке через пробел. Признак конца ввода (в последовательность...

Ошибка exited with exitcode = 3
Добрый вечер. Компилятор ошибок не выдает,но при запуске программы пишут:" ошибка exited with exitcode =3" Суть задачи была: ввод/вывод матрицы из файла. Матрица А(4,4).Найти сумму отрицательных...

Вводятся два числа N и K. Выведите количество чисел из диапазона от 1 до N включительно таких, что их сумма цифр делится на K.
Вводятся два числа N и K. Выведите количество чисел из диапазона от 1 до N включительно таких, что их сумма цифр делится на K. Формат ввода: В единственной строке ввода два числа, записанные через...

Вычисление значения выражения: 1² + 2² + 3² + … + N² для данного натурального числа N
Составьте программу вычисления значения выражения для данного натурального числа N: 1² + 2² + 3² + … + N².(с помощью while , repeat).

Непонятный runtime error 201 при сортировке массива
Задание: 1. Разработать процедуры сортировки массива целых чисел методом прямого выбора, методом пузырьковой сортировки и методом шейкерной сортировки (язык программирования Паскаль или Си). ...

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

Вычислить объем куба
вычислить объем куба. Числа пользователь вводит сам.

Определить, для какого минимального значения x Алиса сможет добиться того, чтобы Боб не смог выбрать призы
Алиса и Боб стали победителями телевикторины, и теперь им предстоит выбрать себе призы. На выбор предлагается n призов, пронумерованных от 1 до n. Распределение призов происходит следующим...

Олимпиадная задача Приключение
Условие Теплым весенним днем группа из N школьников-программистов гуляла в окрестностях города Кисловодска. К несчастью, они набрели на большую и довольно глубокую яму. Как это случилось —...

Досрочный выход из цикла с параметром
Скажите пожалуйста, возможен ли досрочный выход из цикла с параметром при не выполнении условия находящегося внутри цикла? Если да, то как? Заранее спасибо

Изменение размеров консольного окна
Можно ли, как-нибудь изменить размеры консольного окна? Если можно, то как?

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

Отсутствует ожидание нажатия клавиши в keypressed
Добрый вечер, форумчане. Проблема такая, что при запуске программы пропускается вот этот блок if keypressed then ch:=readkey; если в момент запуска не была нажата какая-либо клавиша. Если...

Сортировка линейного массива
Здравствуйте! Помогите пожалуйста, сделать задачку) Нужно составить программу , в которой организованна линейная сортировка массива по алгоритму: 1. Ищется наименьший элемент массива и помещается на...

Определить принадлежит ли точка плоскости
Здравстуйте, помогите пож-та с задачей, в паскале почти ноль, а решить как то надо, Точка с координатами (х, у) принадлежит части плоскости, лежащей между прямыми x=m, x=n, (m<n). p.s если да то...

Exitcode 106
Доброго времени суток! Есть такой код, проверял на лазарусе, работает, на фри паскале выдает exitcode 106, что это может быть? type anketa=record kv:integer; f:string; m:string;

Определите исполнилось ли пользователю полных 16 лет)
Известна текущая дата. Пользователь вводит день, месяц и год своего рождения. Написать программу определения, исполнилось или нет пользователю полных 16 лет.

Дана последовательность символов, концом которой является символ точка. Поменять все цифры на *
Вывести в одну строку: ABBCCC...ZZ...Z Переменные: i - переменная цикла: определяет, какая буква будет выводиться; k - количество повторений буквы; j - переменная цикла, счетчик количества уже...

Вычесление тангенса
Нужно вычислить тангенс Х по формуле тг Х= синус Х делить на косинус Х. Вычесление тангенса описать в процедуре,где Х параметр процедуры,процедура вычесляет тангенс и выводит его на экран.

Поле Чудес - найти минимальное число секторов, которое может быть на барабане
Привет форуму, у меня вот такая "весёлая" проблемка... :wall: Есть задача: Поле чудес Для игры в «Поле чудес» используется круглый барабан, разделенный на сектора, и стрелка. В каждом...

Cреднее арифметическое элементов массива с s1-го по s2-й номера.
Дан массив. Определите средне арифметическое элементов массива с s1-го по s2-й (значения s1 и s2 вводятся с клавиатуры; s1>s2)

Определить последние две цифры числа
Уважаемые, пожалуйста, укажите путь решение данной задачи: Формула: n^((n-1)^((n-2)^(n-3))...) и так далее пока n-k не будет равно 1, т.е каждая следующая степень возводится в другую, значение...

Как считать несколько переменных из файла
Часто, по условию задачи, входной файл имеет следующий тип: 1-е число (integer), которое указывает сколько будет введено переменных. после этого, через пробел, некоторое количество переменных...

Выполнение цикла пока не нажмешь клавишу
Приветствую! SOS-Вопрос заключается в том, чтобы контролировать выполнение цикла нажатием определенной клавиши. Например у меня есть цикл, который выводит на экран число 1337. Мне нужно чтобы...

Дано натуральное число n. Определить, сколько в числе нулей.
Составьте программу для решения следующей задачи, используя цикл while или repeat: Дано натуральное число n. Определить, сколько в числе нулей.

Определить, какое количество отрицательных чисел записано в начале последовательности
Дана последовательность из n вещественных чисел, начинающаяся с отрицательного числа. Определить, какое количество отрицательных чисел записано в начале последовательности. Условный оператор не...

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

Найти сумму цифр заданного натурального числа
Найти сумму цифр заданного натурального числа

Скопируйте содержимое текстового файла a.txt в файл b.txt
Скопируйте содержимое текстового файла a.txt в файл b.txt. Входной файл состоит из ряда предложений. Каждое предложение заканчивается точкой, и в файле нет других точек. В выходном файле каждое...

Шифр Вернама
Товарищи, выручайте. Необходимо составить шифровщик\дешифровщик шифра Вернама в среде FP.

Определить наименьшее натуральное число, которое невозможно представить в виде суммы данных чисел
Дано N целых чисел. Необходимо определить наименьшее натуральное число, которое невозможно представить в виде суммы данных чисел (сумма может состоять и из одного слагаемого) Формат ввода: N –...

Вывести все простые числа от M до N включительно
Вывести все простые числа от M до N включительно. Вывести числа в порядке возрастания, по одному в строке. Если между M и N включительно нет простых - вывести "Absent". var m, n, del, i, j:...

Дан файл, в котором через пробел записаны дробные числа: –1,3; –123; 12,4; 17,6; 132,4; –0,17; 0,23
Дан файл, в котором через пробел записаны дробные числа: –1,3; –123; 12,4; 17,6; 132,4; –0,17; 0,23. Вывести на экран сумму данных цифр.

Проблемы с UTF-8
Добрый день, господа. Никак не могу найти решение одной, казалось бы, маленькой проблемки, которая, фактически, создает большие проблемы. И это, я смотрю, не только в паскале, но и в С и С++. Суть...

Нарисовать на экране дисплея флаг РФ, Японский флаг
Нарисовать на экране дисплея флаг РФ, Японский флаг 300*200px Добавлено через 22 часа 20 минут Нарисовать на экране дисплея флаг РФ, Японский флаг 300*200px Помогите пожалуйсто)))

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

Палиндром. Строка символов
Дана строка ссимволов. Определить минимальное количество символов, которое в нее нужно добавить, чтобы получить палиндром. Ограниченния: длина строки - до 1000 символов. Строка состоит из маленьких...

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

Последовательность рядов
Преподаватель по программированию некоего Центра для одаренных детей, узнав, что его ученики знают математику 3-го класса на 97.001 процентов, решил проверить их знания по курсу математики 1-го...

Создайте двумерный массив [n][m] и заполните его по следующим правилам:
Даны два числа n и m. Создайте двумерный массив и заполните его по следующим правилам: Числа, стоящие в строке 0 или в столбце 0 равны 1 (A=1, A=1). Для всех остальных элементов массива A=A+A, то...

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

Построение Анти-Снежинки Коха (Снежинка Коха внутрь) на языке Pascal.
Нужно построить антиснежинку Коха. Имеется код построения обычной снежинки Коха через линии треугольника. Кто-нибудь может помочь? program koch4test; uses graph; var iter,Grd,Grm:integer; ...

Произведение элементов массива, расположенных между максимальным и минимальным элементами
В одномерном массиве, состоящем из n вещественных элементов, вычислить: А. Сумму отрицательных элементов массива В. Произведение элементов массива, расположенных между максимальным и минимальным...

Удалить из строки все слова, длина которых меньше пяти символов
Удалить из строки все слова,длина которых меньше пяти символов.В строке не используются знаки препинания. решите пожалуйста,за ранее спасибо)))

Как из одномерного массива сделать двумерный?
Здравствуйте, подскажите пожалуйста, как сделать например из такого массива 0 1 0 2 0 2 0 1 2 0 1 0, такой: 0 1 0 2 0 2 0 1 2 0 1 0? Заранее спасибо!

Напишите программу, определяющую, в каком подъезде и на каком этаже находится n-я квартира
(я только начинаю изучать программирование) Я столкнулся с такой трудностью как эта задача, помогите пожалуйста. В доме 9 этажей, на каждом этаже одного подъезда по 4 квартиры. Напишите программу,...

Определить максимальную длину подстроки
Для заданной строки определить длинну содержащейся в ней максимальной подстроки, не имеющей латинских букв

Алгоритм Бойера — Мура
Ребят, помогите, кто чем может, для курсовой очень надо(( если есть какие-то предложения, пишите здесь 1)алгоритм Бойера — Мура...код есть, но не работает и главная моя задача-понять почему...

Ошибка времени выполнения
program z1; var f1,f2:file of integer; i,n,k:longint; t:integer; begin assign(f1,'input.txt'); reset(f1); assign(f2,'output.txt'); reset(f2); read(f1,n,k); t:=1;

Чтение данных из файла типа record
Исходные данные 5 кол-во покупателей Laima Pusyte 4 13 15.5 8 45.4 12 5 31 4 Morka Morkute 1 15 5.1 Jurgis Puskus 2 1 5.4 22 15.78 Petras Rytinis ...

По введенным фамилии, имени и отчеству выводит фамилию и инциалы
нужна программа, которая по введенным ФАМИЛИИ, ИМЕНИ И ОТЧЕСТВУ ВЫВОДИТ фамилию и инциалы. помогите плиз

Найти сумму всех чисел от a до b, кратных 3, но не кратных 7
50. Найти сумму всех чисел от a до b, кратных 3, но не кратных 7.

Интерполяция методом Ньютона
program interpol; uses crt,graph; const MAXCOUNT=30; type per = array of real; var X,y :per; n,i :integer; l,D,f :real;

Написание Меню через Case
Может кто-нибудь подсказать как сделать case-меню, чтобы в нём пользователь мог передвигаться на стрелочки вверх-вниз. Заранее благодарю.

Вычислить среднее арифметическое всех положительных значений функции при заданных значениях аргумента
Напишите программу на языке Паскаль, а также постройте блок-схему алгоритма для решения следующей задачи: Вычислить среднее арифметическое всех положительных значений функции y(x) = x3 + cos4x,...

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

Вводится n, необходимо найти,на сколько нулей оканчивается n! (факториал)
Здравствуйте,подскажите а лучше покажите как можно найти количество нулей в числе,не в том что вводит пользователь,а то которое вычисляется.Вот что у меня получилось... var n,i:integer; n - вводимое...

Программа Оператор div и mod в PASKAL
Чему равны значения переменных а и в после выполнения приведенной последовательности действий? a:=15 Div(16 Mod 7); b:=34 Mod a *5-29 Mod 5*2;

Подсчитать количество вхождений буквы "а" в заданный текст
Составить программу подсчета количества вхождений буквы "а" в заданном тексте. uses strutils; var m:array of string; c:char; n,s,i:integer; begin readln(m); c:='a';

Как повернуть bmp картинку на n градусов (wingraph)
Собственно как повернуть bmp картинку на n градусов (wingraph) в free pascal?

EGAVGA.BGI
Где можно найти EGAVGA.BGI?

Написать программу "светофор" выбор действия по введенному слову
Нужно написать программу "светофор", где вводишь цвет(например 'green') и программа дает ответ(например 'go'). То есть, вводишь 1 из 3-х цветов светофора, а программа дает ответ - "стоять","ждать"...

Задана последовательность из N вещественных чисел.
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К.

Найдите количество чисел кратных k в отрезке
Задача Найдите количество чисел кратных k в отрезке . Другими словами, вам нужно найти количество целых чисел x таких, что a ≤ x ≤ b и x делится на k. ...

Возведение в степень
Здравствуйте. Помогите решить задачу, пожалуйста. По заданным вещественному значению x и целому неотрицательному значению n вычислите xn (операция возведения в степень в языке Pascal отсутствует)....

div и mod
Доброго времени суток! Есть операции div, mod Они позволяют вывести остаток и целую часть при делении. Можно ли вывести одновременно остаток от деления и целую часть. Помогите пожалуйста!

Вставить число K после всех элементов массива, кратных своему номеру
10.Дан массив случайных целых чисел из отрезка . Вставить число К после всех элементов, кратных своему номеру (К вводится с клавиатуры).

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

Вычислить sqrt(2 + sqrt(2... + sqrt(2)))
решите пожалуйста. не как не могу разобраться. Дано натуральное число n. Вычислить: \sqrt{2+\sqrt{2+...+\sqrt{2}}} (все выражение n корней)

Определить среди введенных чисел наибольшее и наименьшее числа, а также среднее значение
Ввод пользователем заранее не известного количества чисел (выбрать признак окончания ввода - например, число 999999) с определением среди введенных чисел наибольшего и наименьшего числа, а также...

Динамические массивы и SetLength
Понадобилось применить динамические массивы в Паскале и в такой тривиальной процедуре, призванной удалять определенный элемент в массиве, возникла абсолютно непонятная мне ошибка TypeMismatch в...

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

Вычислить значение суммы бесконечного ряда с точностью
Вычислить значение суммы бесконечного ряда с точностью до члена ряда, по модулю меньшего ε=10-4 S=1-x/1!+x^2/2!-...+(-1)nxn/n!+...и значение функции (для проверки) f=ex. Вывести на экран значение...

Строки. Подсчитать количество слогов во введенном слове
Напишите программу, которая подсчитывает количество слогов во введенном слове (будем считать, что количество слогов равно количеству гласных букв). Заранее спасибо.

Найти сумму сумм цифр двух двузначных чисел
Язык програм. Паскаль Найти Summu summ цифр двух двухзначных чисел....

Заданы координаты двух точек (x1;y1) и (x2;y2). Определить лежат ли они на одной окружности с центром в начале координат
2. Заданы координаты двух точек (x1;y1) и (x2;y2). Определить лежат ли они на одной окружности с центром в начале координат.

Дана последовательность действительных чисел. Указать те ее элементы, которые принадлежат отрезку [с, d]
Дана последовательность действительных чисел а1, а2,..., аn. Указать те ее элементы, которые принадлежат отрезку .

Задать размер двумерного массива
по форуму искал, но находил только для одномерных либо, немного не понятные. Можете написать и объяснить как ввести с клавиатуры размер двухмерного массива и создать этот массив?

Парсинг XML
Задача распарсить XML и вывести значения атрибута text. код program test; uses SysUtils,strings,DOM,XMLRead,XMLWrite,XMLCfg,XMLUtils,XMLStreaming, Classes; var PassNode:TDOMNode; ...

Error saving configuration
Здравствуйте! Для проверки работоспособности фп написал программу "хелло, ворлд". При компиляции ошибок нет. При запуске выдает 2 ошибки: 'Error saving configuration' и 'Error saving desktop file....

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

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

Найти максимальную длину возрастающей подпоследовательности
Дана последовательность целых чисел x,. , x. Найти максимальную длину ее возрастающей подпоследовательности

Табулирование функции и построение ее графика
Здравствуйте! Помогите пожалуйста с заданием: Разработать алгоритм программы,протабулировать функцию в заданных пределах и построить график функции. Y=ctg(X+pi/4)-A , при X принадлежащем , A=2.15

Определите среднюю зарплату сотрудника фирмы за год,
если известна его зарплата за каждый месяц

Программа для сравнения двух n-значных чисел (где n>20);
1. Программа для сравнения двух n-значных чисел (где n>20);

Вычислить длину гипотенузы c и величины двух углов треугольника
Здравствуйте! Помогите пожалуйста - Заданы длины двух катетов прямоугольного треугольника a, b. Вычислить длину гипотенузы c и величины двух углов треугольника , . Если >50(Градусов), то вычислить...

Составьте программу вычисления 1+2+4+8+...+2(в 10 степени)
Составьте программу вычисления 1+2+4+8+...+2(в 10 степени)

Дан массив произвольных символов. Упорядочить эти символы в порядке следования их в таблице ASCII
Дан массив произвольных символов. Упорядочить эти символы в порядке следования их в таблице ASCII

Создать строку состоящую из латинских букв
Добрые люди, помогите начинающему программисту.) Условие задачи: Даны две строки S1 и S2. Создать строку, состоящую из латинских букв, не принадлежащих какой-либо строке S1 и S1. Указание:...

syntax error found, неразбериха
program z1; var P,E : Real; const g=9.8; h=2; m=0.5; v=5; begin {E:=(m*(v^2))/2;}

Функции: Найти произведение первых n простых чисел
Вредный препод дал мне такую задачку: Дано натуральное n>0. Найти произведение первых n простых чисел. (Определите функцию, позволяющую распознавать простые числа) Следуя капризам препода, в...

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

Помогите сделать текстовую РПГ
Хочу создать текстовую РПГ (на паскале) я не знаю как сделать открытие карты, по мере продвижения по карте. Помогите, заранее благодарен.

Часть строки до пробела занести в массив
как можно считывать строку вида <Фамилия><год рождения><пол>. Все ее составляющие будут даны через пробел. Допустим, нам нужно считать несколько строк, их количество будет определять число,...

Даны действительные числа x и y. Напишите программу для вычисления значения выражения x=√(/x-1/)/(1+x^2/2+y^2/4)
Даны действительные числа x и y.Напишите программу для вычисления значения выражения x=√(/x-1/)/(1+x^2/2+y^2/4)

Ввести 10 чисел , найти среди них минимальное максимальное и сумму этих 10 чисел
Ввести 10 чисел , найти среди них минимальное максимальное и сумму этих 10 чисел . Нужно использовать функцию to ... do .

Не запускается EXEшник
Написал программу, запустил её в компиляторе, проверил, сохранил с расширением .exe. Сохранённый файл запускаю, на доли секунд вылетает окно и пропадает. Да, и еще, если в заголовка программы...

Массивы. Метод пузырька. Сортировка фамилий по алфавиту (по всем буквам!)
Здравствуйте! Осваиваю паскаль, использую Free pascal ide. В самоучителе есть задачка - сортировка фамилий в алфавитном порядке. С задачей справился сразу, используя массивы и метод пузырька....

Сформировать случайным образом массив из 20 целых чисел из заданного отрезка и вывести на экран
Программа должна сформировать случайным образом массив из 20 целых чисел из отрезка и вывести элементы массива:а) в двух окнах: в одном – положительные числа, в другом – отрицательные числа;...

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

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

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

Ошибка при компиляции "Syntax error "Begin" expected but ";" found"
При компиляции выдаёт ошибку "Syntax error "Begin" expected but ";" found" в блоке Procedure GetLevel(var f:text); var i:integer; ch:string; begin i:=1; repeat ...

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

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

Массив. Найти произведение элементов массива, кратных 3
Помогите плиз)) 1)Создать случайным чином массивы. Найти в массиве В произведение элементов массива, какие кратные 3 и отнять его от элементов, которые стоят на парных позициях. 2)Создать...

Дан двумерный массив. Найти максимальный элемент и проверить сколько раз он встречается в каждой строке?
Дан двумерный массив. Найти максимальный элемент и проверить сколько раз он встречается в каждой строке? Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах одновременно...

Даны вершины треугольника A(3;-1;4), B(2;4;5), C(4;4;5); найти его площадь
Оформите дизайн формы для программы: * заголовок формы ... * условие задачи; * поля ввода значений вершин треугольника; * поля вывода промежуточных результатов;

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

Illegal expression
надписи не исправляла, они не принципиальны. uses crt; const maxn = 300; var a: array of string; n,prev,cur,i,k,reps,e: integer; tmp1,tmp2: string;

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

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

Выведите одно целое число — максимальное число, которое могло получиться в протоколе при игре на данном поле
У Пети имеется игровое поле размером 3×3 , заполненное числами от 1 до 9. В начале игры он может поставить фишку в любую клетку поля. На каждом шаге игры разрешается перемещать фишку в любую соседнюю...

Рекурсия, выведите все нечетные числа последовательности, сохраняя их порядок
Дана последовательность натуральных чисел (одно число в строке), завершающаяся числом 0. Выведите все нечетные числа из этой последовательности, сохраняя их порядок. В этой задаче нельзя...

Из трёх цифр составили все возможные числа, сложили их и получили некое М. Определить эти цифры
Условие задачи:из трёх цифр составили все возможные числа, сложили их и получили некое М. Определить эти цифры. В ходе решения у меня получилось, что (a+b+c)*245=M (a,b,c - цифры), но из одного...

Найти последнюю ненулевую цифру факториала n
Помогите решить задачу: Нужно найти последнюю ненулевую цифру числа n! . 1<n<1000000. Помгите пожалуйста

Запустить через командную строку
Нужно запустить программу free pascal через командную строку(КС). Программа выполняет чтение из входного файла K.txt (который мы должны записать в КС) и на выходе должны получить файл обработанный...

Прокси сервер
Доброго дня! Можно ли на паскале написать прокси сервер? Требуется одна функция от сервера - редирект страниц. Есть какие-нибудь исходники? Или мне идти С++ учить?...

Сервер-клиент на сокетах: при отправке второго сообщения, программа падает
Сервер: uses Sockets, CRT; var Fromname: array of char; Buffer,oldbuff,buff,UN: string; S:Longint; Sin,Sout:text; Saddr:TInetSockAddr; function error(s:string):boolean;

Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a*b и c*d
можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a*b и c*d

В текстовом окне разрешение экрана не показывается
Привет форумчане! Сейчас осваиваю графику в Паскале. Вот программа: program GetMax; uses crt, graph; var gdriver,gmode : integer; BEGIN clrscr;

Составить программу, заменяющую в введенной строке все буквы а на А
Составить программу, заменяющую в введенной строке все буквы а на А

Песочные часы 1 и 0.
Нужно написать программу, которая с изобразит песочные часы используя 1 и 0. Вообще не имею представления как это сделать:(

Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу
А.Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу. Каждый элемент равен сумме своих индексов. Б.Выведите созданный массив на экран. Как сделать?......

Вводить с клавиатуры целые числа (>0) и выводить на экран квадраты этих чисел до тех пор, пока не будет введено число 0 (while-do)
Вводить с клавиатуры целые числа (>0) и выводить на экран квадраты этих чисел до тех пор, пока не будет введено число 0

Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до M
Напишите программный код на языке Паскаль для решения задания: Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до M. Значение М задайте путем ввода...

Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника (при определении расстояний учесть, что площадь...

Вычислить площадь выпуклого многоугольника
Вычислить площадь выпуклого многоугольника с n вершинами, коорднаты которых заданы в порядке обхода по часовой стрелке. Входные данные: В первой строке задано натуральное число n (n < 1000) -...

Решение задачи заполнения строки случайными символами для языка Паскаль
Решение задачи заполнения строки (string) случайными символами для языка Паскаль.Помогите плиз!

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

Сумма чисел
Вычислите сумму данных N натуральных чисел. Вводится число N, а затем N чисел, сумму которых необходимо вычислить. Входные данные: 3 1 2 1 2 5 2 Выходные данные 4 7 var...

Программа переводит Вашу фамилию и имя в код ASCII. Переведите эти коды из десятичного в двоичное представление
Программа переводит Вашу фамилию и имя в код ASCII. Переведите эти коды из десятичного в двоичное представление.

Как убрать нули в начале программы?
Театральная площадь в столице Берляндии представляет собой прямоугольник n × m метров . По случаю очередного юбилея города, было принято решение о замощении площади квадратными гранитными плитами....

Дана матрица размера 5 x 9. Найти суммы элементов всех ее четных строк
Дана матрица размера 5 x 9. Найти суммы элементов всех ее четных строк.

Найти произведение элементов с нечетными индексами
Дан массив из n элементов. Найти произведение элементов с нечетными индексами Добавлено через 48 секунд в поскале

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

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

Исправить ошибку Illegal expression
Что не правильно?

Составить алгоритм, который выводит на экран сумму квадратов первых N натуральных чисел
Составить алгоритм, который выводит на экран сумму квадратов первых N натуральных чисел (от 1 до N) с использованием цикла с предусловием.

Определить наименьшее число, которое можно представить в виде суммы a^n+b^n по крайней мере двумя различными способами
Для заданного натурального N определить наименьшее число S, которое можно представить в виде суммы an+bn по крайней мере двумя различными способами (a,b-натуральные числа;представления,отличающиеся...

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

Дана целочисленная квадратная матрица порядка N. Найти номера строк, все элементы которы - нули
дана целочисленная квадратная матрица порядка N. Найти номера строк,всех элементов которые - нули.

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

Существует ли функция IntToStr в Free Pascal?
Она вообще существует в Free Pascal? И если да ,то как ею правильно пользоваться - пишет "Identifier not found "IntToStr""?

Создать программу "Игра крестики-нолики"
Добрый день, помогите пожалуйста дописать программу для игры крестики-нолики, в моем коде уже рисует крестик или нолик в указанной ячейке (А1..С3) вопрос: как сделать, чтобы программа, когда появился...

Сколько различных прямоугольников может на листочке нарисовать Вася, если рисовать он умеет только по линиям?
У Васи есть листочек в клеточку, состоящий из N клеток по горизонтали и M клеток по вертикали, причем линии клеток листочка на краю также видны. Сколько различных прямоугольников может на этом...

Подскажите по какому принципу шифруется текст
const BLOCKS = 11; var flag : array of longint = (??????); key : string = ?????; f : file of longint; i, k, j : integer; part : longint; x : byte; alphabet : Set...

Реализация списка на основе массива
нужно сделать список на основе массива сделал вот эту программу не работает как надо (ясно что много ошибок ) помогите проблема скорее всего со сдвигом вот только понять не могу program...

Перевести число из n-ичной в десятичную систему счисления
Странная задача, давайте разберемся: На вход программе подаётся целое число в n-ичной системе исчисления и число 1<|n|< 10. Вывести на экран запись числа в десятичной системе исчисления. Массивы и...

Дано натурально число n (n<=1000), найти его последнюю цифру
Дано натурально число n (n<=1000), найти его последнюю цифру.

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

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

Вывести на экран n первых простых чисел
Извянки что не в том разделе, у меня тут Паскаль, но уже создал тему Кратко. Есть готовое задание и готовое решение. Задание: Формулировка. Дано натуральное число n. Вывести на экран n первых...

Дано натуральное число N. Вычислить S=sin x+ sin sinx +...+sin sin....sin x
Дано натуральное число N. Вычислить S (составить программу с использованием операторов While и Repeat) S=sin x+ sin sinx +...+sin sin....sin x n-раз

Заменить нулями элементы между минимальным и максимальным элементами массива
Дан массив целых чисел из N элементов. Необходимо заменить нулями элементы между минимальным и максимальным элементами массива (включительно). Если элементов с максимальным или минимальным значением...

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

Перевод целого (дробного) числа из двоичной системы счисления в десятичную
Нужно написать програмку для перевода целого (дробного) числа из двоичной системы счисления в десятичную!!!!СПАСИБО!!!!!!!

Поменять первый и последний символ в строке местами.
помогите, пожалуйста, с задачами: 1)слово вводится с клавиатуры а)заменить первый и последний символ на *. б)удвоить все буквы. в)записать слово наоборот. г)поменять первый и последний...

Найти все двузначные числа в записи которых есть цифра n или само число делиться на n. (n ввидиться с клавиатуры) (for)
1...ти все двузначные числа в записи которых есть цифра n или само число делиться на n. (n ввидиться с клавиатуры) (for)

Найти индекс минимального элемента массива
var b,c,d : array of integer; y: array of real; i : byte; p,q,n,r,e,t,a,m,k:integer; o,z: real; begin write ('ўҐ¤ЁвҐ Є®«ЁзҐбвў® *⮬®ЎЁ«Ґ©');

Найти сумму членов арифметической прогрессии
Всем доброго времени суток! Собственно сабж: нужно написать программу, которая найдёт сумму членов арифметической прогрессии, если известен его первый член, разность и количество членов!:help: p.s:...

Целые точки отрезка
Требуется написать программу, которая вычислит, сколько всего точек с целочисленными координатами принадлежат отрезку. Входные данные Даны четыре целых числа – координаты концов отрезка (x1, y1)...

Найти первое число Фибоначчи, большее заданного n (n>1)
Найти первое число Фибоначчи, большее заданного n (n>1).

Описать функцию C(m,n) для вычисления биномиального коэффициента
Решить следующую задачу, используя рекурсивную подпрограмму Очень надо, помогите пожалуйста

Даны n натуральных чисел a1, a2,.,an. Определить и вывести количество членов последовательности
Даны n натуральных чисел a1, a2,...,an. Определить и вывести количество членов последовательности:

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

Текстовый редактор, ошибка 103
program AniFoxs_program; var txtVal,save: string; F: Text; label M1,M2; Begin Assign (F,'text.txt'); {Rewrite (F);} WriteLn ('Commands:');

Как очистить то что вывела программа па экран?
Частично или полностью!

Как подключить мышь в graph
Приведите пример кода для подключения мыши под работу в graph + функции и процедуры для нее. Заранее спасибо!

Получение координат курсора при нажатии левой клавиши мыши
Короче, чтоб долго тут не повествовать, объясните, почему не работает код: uses mouse, crt; begin initmouse; repeat if (getmousebuttons = mouseleftbutton) then...

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

Ошибка при отладке
Помогите отладить, ругается на power а точнее Error: identifier not found "power" s,t:real; i:integer; begin t:=1; s:=1; i:=0; wrile abs(t) >=eps do begin

С помощью оператора while вывести все нечетные числа от 1 до 10
с помощью оператора while вывести все нечетные числа от 1 до 10

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

Как сократить время работы программы?
Вот текст олимпиадной задачи: Ваша задача – посчитать сумму двух чисел. Входные данные В единственной строке входного файла содержатся два целых числа A и B (−1018 ≤ A, B ≤...

Написать программу, вычисляющую значение функции
Задание: 1. Написать программу, вычисляющую значение функции: cos(2*x), если х<-6; ln(x)-x^(1/3), если -6<=x<0; x^(1/3)*tg(x)+x^2/sin(x), если 0 <=x ; (с комментарием "функция не имеет...

Белоснежка и n гномов
У Белоснежки n гномов, и все они очень разные. Она знает, что для того, чтобы уложить спать i-го гнома нужно ai минут, и после этого он будет спать ровно bi минут. Помогите Белоснежке узнать, может...

Найти совершенные числа.
Нужно определить является ли число n совершенным, или нет. Совершенное число, это число которое равно сумме всех соих делитилей, кроме него самого (например 1+2+3=6). И ещё, если не трудно,...

Дан массив размера N. Вывести его элементы в обратном порядке
Дан массив размера N. Вывести его элементы в обратном порядке.

Найти разность факториалов
1. Пользователь вводит с клавиатуры N чисел. Найти среднее арифметическое модулей отрицательных значений. 2. Найти разность факториалов N!-M! для заданных N и M. Использовать подпрограмму. ...

Таблица на free vision
Необходимо реализовать таблицу и некоторые функции, такие как выдача всех строк таблицы, поиск в колонке по ключевому слову, добавление строки. Опыт работы во free vision отсутствует. Если есть хоть...

Найти сумму чисел, кратных 3 из диапазона от 1 до 30
Найти сумму чисел, кратных 3 из диапазона от 1 до 30. Тема Цикл. Через While! Напишите решение полностью! Заранее спасибо) Добавлено через 24 минуты Все не надо :D

Написать программу вычисления площади треугольника, если известны длины двух его сторон
Ниже представлен рекомендуемый вид экрана во время работы программы. Вычисление площади треугольника. Введите исходные данные: Длина стороны а (см) - 10 Длина стороны b (см) - 5 Угол между...

Написать программу, которая вычисляет периметр выбранной фигуры.
Буду очень рад помощи в виде кода программы. Написать программу, которая вычисляет периметр выбранной фигуры. 1 - квадрат, 2 –прямоугольник, 3 - трапеция, 4 – ромб, 5- равносторонний шестиугольник. ...

Вывести последнюю букву в строке
Вывести последнюю букву в строке

{I+-} и IOResult
Написал следующую функцию для ввода переменной {функция защищенного ввода переменной типа word 0..65535} function OneScan(str:string):WORD; var n:WORD ; BEGIN writeln(str); {директива...

Зайчик
Люди, помогите пожалуйста решить задачу! 2 недели не могу решить!! В нашем зоопарке появился заяц. Его поместили в клетку, и чтобы ему не было скучно, директор зоопарка распорядился поставить в...

Вычислить факториал при помощи цикла while ... do
Помогите напишите Паскаль Вычислить f=10! при помощи цикла while ... do. Добавлено через 1 минуту и еще Вычислить f=10! при помощи цикла repeat... until.

Даны действительные числа а1, а2,..., аn. Получить квадратную матрицу порядка n
Даны действительные числа а1, а2,..., аn. Получить квадратную матрицу порядка n:

Неориентированный граф
Условие Найти эйлеров цикл в неориентированном графе. Граф состоит из N вершин, пронумерованных от 0 до N-1 соответственно. Граф задан списком рёбер. Формат входного файла В первой строке...

Заданы два одномерных массива.Объединить их в один массив, включив второй массив между K и (K+1) элементами первого
Последняя на сегодня... Заданы два одномерных массива: массив А размера M и массив В размера N. Объединить их в один массив, включив второй массив между K-ым и (K+1)-м элементами первого (К-задано).

Найти наибольшее и наименьшее среди трех чисел
Нужно все лишь найти наибольшее и наеменьшее: a, b, c. Пожалуста, кому не сложно, решите задачку, мне очень нужно! Задачу, где надо найти лишь наибольшее я написала, а вот где надо и то, и то...

Определить, сколько железа выплавят из А тонн руды
1)Из 18 т железной руды выплавляют 10 т железа. Сколько железа выплавят из А т руды? 2)Масса молекул кислорода в организме человека составляет 65% от его массы. Составьте программу для определения...

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

Wingraph, graph и bmp
помогите пожалуйста, мне надо вставить картинку в программу, uses wingraph,wincrt; var drive,mode : integer; procedure LoadBMp; var f:file; bitmap : pointer; size:longint; begin

Вывод на экран всех делителей натурального числа N
Составьте программу вывода на экран всех делителей натурального числа N.(с помощью repeat , while)

Циклический сдвиг элементов массива вправо
Напишите программу, которая циклически сдвигает элементы массива вправо (например, если элементы нумеруются, начиная с нуля, то 0-й элемент становится 1-м, 1-й становится 2-м, ..., последний...

Написать свою функцию Random()
Кто знает,как написать свой рандом на паскале? Ф-кция random(randomize) меня не устраивает:)

Где взять файл egavga.bgi в FPC?
Подскажите где взять файл EGAVGA.BGI в FREE PASCAL???? Очень нужно для работы с графикой

Можно ли процедуры вынести в отдельный файл и вызывать в основной программе
У меня есть некоторая программа с процедурами и функциями. Вопрос, можно ли процедуры вынести в отдельный файл и вызывать в основной программе оттуда. Как это сделать?

Список ip-адресов локальной сети
Как найти ip-адреса всех ПК в локальной сети средствами Free Pascal? Как это сделать любыми средствами?

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

Найти цифру в числе
Есть задача : Задача № 7. Присвоить целой переменной h третью от конца цифру в записи положительного целого числа k (например, если k=130985,то h=9). Есть решение : var k,h:longint; begin readln...

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

Определить минимальный элемент массива и его порядковый номер
Определить минимальный элемент массива С и его порядковый номер.

Две задачи на тайм.
Изрядно потрепал себе нервы с 2-умя задачами на работу со временем... Первая : В парикмахерской работают три мастера. Каждый тратит на одного клиента ровно полчаса, а затем сразу переходит к...

Найти сумму цифр четырёхзначного числа
Задача: Напишите программу, которая по введенному не более чем четырехзначному числу k будет выдавать сумму его цифр. что писать после x0(1,2,3)? и вообще правильно ли я пишу? programm a3; var...

Подсчитать в одномеpном массиве максимальное количество нулей
помогите написать программы, я знаю, что они элементарные, просто я с Паскалем не знаком почти. Требуется написать программы все кроме первой. За помощь готов денег на счет кинуть рублей 50-80...

Как перейти на другую строку при записи в файл
Записываю двумерный массив в паскаль как мне перейти на новую строку. var a:array of char; F1,F2:text; N,i,j:integer; begin Assign(F1,'F.in.txt'); Assign(F2,'F.out.txt'); reset(F1);...

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

Найти сумму и произведение диагональных элементов двумерного массива
5.найти сумму и произведение диагональных элементов двумерного массива 3*3.массив заполняется случайными числами

Вычислить p=1*2+2*3*4+3*4*5*6+...+n*(n+1)*...*2n.
Программу реализовать в циклах не используя функций и процедур.

Определить находится ли точка в заштрихованной области
Составить программу, позволяющую определить, находится ли точка с произвольно заданными координатами в заштрихованной области. Если точка принадлежит заштрихованной области, то переменной q присвоить...

Найти все натуральные числа из промежутка от 100 до 300, у которых сумма делителей равна К
найти все натуральные числа из промежутка от 100 до 300, у которых сумма делителей равна К (К вводиться с клавиатуры).

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

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

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

Ошибка Incompatible types: got "Boolean" expected "Longint"
Доброго времени суток. Помогите, пожалуйста, избавиться от данной ошибки. Я пытаюсь решить задачу, условие которой следующее: "Для нормального разведения золотых рыбок необходимо, чтобы на каждую...

Найдите на оси Ох такую точку, чтобы суммы расстояний от неё до заданных двух была минимальной
Найдите на оси Ох такую точку, чтобы суммы расстояний от неё до заданных двух точек на плоскости была минимальной ВВод х1 y1 x2 y2 Вывод абсцисса искомой точки=

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

Illegal character " 'c' '' ($E1)
при компиляции программы вылезло сообщение illegal character " 'c' '' ($E1) почему такое может быть и что значит ($E1)? прогу выложить не могу очень большая Добавлено через 26 минут вместо...

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

Где скачать Паскаль на х64?
Подскажите, где можно скачать Паскаль на х64?

Элементы массива значение которых меньше 5, уменьшить на 1
Одномерный массив из 6 элементов заполнить случайным образом числами от -1 до 10. Все элементы массива значение которых меньше 5, уменьшить на 1 . вывести на экран монитора первоначальный и...

Максимальный размер массива и сложность алгоритма до 1 секунды
Знающие люди, скажите пожалуйста, раньше решал задачи заводя массивы, большие 64КБ по памяти, теперь узнал из не помню какого источника, что такое делать нельзя. Такой вопрос, сколько можно объявить...

Найти три минимальных элемента массива
Запишите алгоритм,который находит три минимальных элемента массива. Какие элементарные операции в нем можно выделить? Оцените количество этих операций. Определить сложность алгоритма.

Найти количество дней в заданном месяце
program daysmonth; var days,month,flag:integer; begin write ('vvedite mesyac '); read (month); if (month)=1 or 3 or 8 or 10 then days:=31; if (month)=4 or 6 or 9 or 11 then days:=30; if...

Вычислить расстояние от точки до луча
Помогите решить, вот мой ответ: var x1, y1, x2, y2, x3, y3 : extended; rez : extended; Begin Read(x1,y1,x2,y2,x3,y3); rez:= abs((x1-x2)*(y3-y2) - (y1-y2)*(x3-x2)) /...

Функция проверки правильности ввода
мне нужна функция проверяющая правильность ввода данных с клавиатуры предположим необходимо вводить только целые числа))

Из цифр двух натуральных чисел создать наименьшее возможное число, сохраняя при этом порядок следования цифр в этих числах
Требуется написать программу, которая из цифр двух натуральных чисел создает наименьшее возможное число, сохраняя при этом порядок следования цифр в этих числах. input:125 34 output:12345 Для...

Интерполяционный многочлен Лагранжа в точке
Здравствуйте! Есть такое задание, помогите пожалуйста: Функция f=sqrt(x)*sin(x) задана таблично. Вычислить значение интерполяционного многочлена Лагранжа для интерполирования назад в точке...

Перехват событий от клавиатуры при использовании graph
Привет всем форумчанам!! Есть проблема. Использую модуль graph который создает окно "Graph window application" в котором я собственно и рисую. Но это окно не реагирует на события (( Мне нужно...

Количество тетрадей и ручек, которые может купить пользователь.
Доброо времени суток! Хотелось бы узнать решение для следующей задачи: "У пользователя имеется денежная сумма из К рублей. Стоимость тетради составляет n рублей, а ручки m рублей Определить...

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

Объявление вложенных процедур
Можно ли объявить процедуру внутри процедуры как в Лисп'е? Добавлено через 11 минут В С, а также в Питоне работает.

Сумма чисел последовательности
На стандартном потоке ввода задаётся последовательность целых чисел. Каждое число последовательности не меньше -20000000 и не больше 20000000. Всего последовательность состоит не более чем из 40...

Ошибка: Incompatible types: got "Real" expected "Smallint"
Привет всем. Ребята как исправить данную ошибку? program lab11; uses graph; var gd, gm: integer; x,y: real; begin gd:=detect; initgraph(gd, gm, 'c:/bp'); SetColor(5); ...

Код не проходит тестирование
Приветствую всех! Имеется такая задача : Однажды, посетив магазин канцелярских товаров, Вася купил X карандашей, Y ручек и Z фломастеров. Известно, что цена ручки на 2 рубля больше цены...

Как послать команду в com-порт, принять данные из com-порта, и вывести их на графике?
Добрый день! Просьба помочь со следующей задачей, или подсказать ссылочки на аналогичные примеры. Имеется внешний микроконтроллерный прибор, подключенный по COM-порту. Необходимо послать команду,...

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

Двумерный массив: найти координаты min элемента массива
Здравствуйте,помогите пожалуста с решением задачи: Дан двумерный массив( 5 строк,5 столбцов), найти координаты min элемента массива. если таких несколько, то должны быть выведены координаты самого...

Какова максимальная мощность алфавита
Информационный объем сообщения равен 7.5 Кбайт. Извесно что данное сообщение содержит 7680 символов . Какова максимальная мощность алфавита , содержащего использованные в сообщении символы. 1) 77 ...

Дано натуральное число n. Найти все меньшие n простые числа, используя решето Эратосфена
4. Дано натуральное число n (n≥2). Найти все меньшие n простые числа, используя решето Эратосфена. Решетом Эратосфена называют следующий способ. Выпишем подряд все целые числа от 2 до n. Первое...

Перемножить все число от 1 до N
как обозначить каждое число от 1 до N, то есть (for i:=1 to n do) например нужно перемножить все число от 1 до N.

Найти количество целых решений, удовлетворяющих неравенству: A < B*x + C < D.
Имя входного файла input.txt Имя выходного файла output.txt Максимальное время работы на одном тесте 2 секунды Ограничение по памяти 64 МБ Найти количество целых решений, удовлетворяющих...

Изменение стандартной папки для сохранения всех файлов (Ubuntu)
ОС: Linux Ubuntu ПО: Free Pascal Вопрос: FP изначально своей рабочей папкой считает "/home/*имя_пользователя*/" и после работы в паскале в "Домашней папке" валяются куча временных файлов,...

Найти в массиве все элементы, кратные 3, и заменить их нулями
Здравствуйте! Помогите сделать в паскале!!! Дан одномерный массив, элементы массива целые числа. кол-во элементов не более 10. найти в массиве все элементы кратные 3, заменить их нулями ( если таких...

Возведение чисел в степень
Для натуральных чисел a и n вычислить an. Дано: Число a(a>=1>=9); Число n(n>=2>=7000); Что я могу максимум вычислить - так это 263, но не более. Нужен алгоритм какой-то, нужно высмотреть какую-то...

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

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

Последовательность Фибоначчи
Помогите пожалуйста решить задачу. Последовательность Фибоначчи u0, u1, … образуется по закону:u0=0, u1=1, ui=ui-1+ui-2 (i=2,3...) 1)Дано натуральное число n>1. Получить последовательность u0,...

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

Вывести только цифры самого младшего и самого старшего разряда
задача: Вывести только цифры самого младшего и самого старшего разряда вот мой код: type natur=1..30000; var m,n,c,d:natur; begin repeat writeln('введите число'); readln(n);...

Найти сумму чётных чисел в файле
В файле хранятся целые числа. Найдите сумму четных чисел без использования массивов?

Можно ли изменить код готового exe файла?
Есть уже скомпилированный екзешник другой проги.... Мне нужно с помощью фри паскаля, или делфи, открыть этот екзешник, програмно вписать туда некоторое значение и прочитать то, что програма-екзешник...

Type identifier expected или что с процедурами
Тема лабки: Динамические структуры данных Задача: создать массив, состоящий из элементов, расчитаных по формуле x = sin(i/(i^2 + 1)). Заполнение массива, вывод, а также подсчёт количества элементов...

Определить количество страниц в брошюре
Входной файл: input.txt Ограничение времени на тест: 1 сек Выходной файл: output.txt Ограничение памяти на тест: 64 Мб Условие Брошюра составлена из листов. На каждой стороне листа напечатано...

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

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

Нарисовать флаг Иордании
Написать программу через модуль graph, нужно составить такое изображение:

Графы-Поиск в ширину
В неориентированном графе требуется найти минимальный путь между двумя вершинами. Формат входных данных Первым на вход поступает число N – количество вершин в графе (1 ≤ N ≤ 100)....

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

Даны натуральное число n и целые числа al, a2,..., an
Даны натуральное число n и целые числа al, a2,..., an. Найти: а) количество пар соседних чисел ai, равных между собой; б) количество пар соседних чисел ai, равных нулю; в) количество пар соседних...

Задано натуральное число n. Необходимо перевести его в k-ичную систему счисления
Задано натуральное число n. Необходимо перевести его в k-ичную систему счисления и найти разность между произведением и суммой его цифр в этой системе счисления. Например, пусть n = 239, k = 8....

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

Ошибка компиляции
Написал программу: program Hello; begin writeln('Hello, World'); end. При компиляции выдает ошибку: Fatal: Cannot open file "hello.pas" Fatal: Compilation aborted Error: /usr/bin/ppcx64...

runtime error 201
возникает ошибка 201 вот код: var a:array of integer; i:integer; begin i:=1; while (i<=10) do begin i:= i+1; read(a); end;

Динамические списки
Приветики всем. Мое задание - реализовать добавление элементов в список А и удаление их из списка А в список Б, с возможность просмотра текущего состояния списков. Я уже кое-что сделала, но...

Сдвинуть элементы массива вправо циклически на 1 шаг.
Задан одномерный массив А целых чисел длины h. Сдвинуть элементы массива вправо циклически на 1 шаг. Пример: Ввод: 4 1 2 3 4 Вывод: 4 1 2 3

Рекурсия: сколько есть программ, которые преобразуют заданное число (по определенному алгоритму) в 24?
Помогите пожалуйста с решение задачи, я не понимаю как решать рекурсией У исполнителя калькулятора две команды 1) прибавить 1 2) увеличить каждый разряд числа на 1 Например число 23 с помощью...

Лавочки
Для олимпиады пишу программу, вроде все работает. Но при проверке мне написали что неполное решение и => 0 баллов. вот текст задачи ...

Error: Identifier not found "arccos"
Суть вопроса-в заголовке.Непонятно, как сделать её "found", эта функция и так в списке стандартных функций фри-паскаля.Где проверить, все- ли библиотеки в наличии и какой пакет за эту функцию...

Игра "Арканоид" на Pascal
Решил написать относительно примитивный арканоид на паскале.Все хорошо,кроме одного момента - не знаю,как задать корректный рикошет от блоков. Недавно пришла идея создать переменные,являющееся...

Удалить с предложения каждое второе слово
Помогите, пожалуйста, с задачкой: Удалить с предложения каждое второе слово. Добавлено через 23 часа 1 минуту ап ап ап

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

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

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

Улитка Паскаля, заданная параметрически,
Написать программу построения изображения, представленного на следующем рисунке. Улитка Паскаля, заданная параметрически, x=acos^2+bcost ...

Готовый модуль для конвертирования текстовых строк из DOS кодировки в Windows и обратно
Часто возникает вопрос о конвертирование русских текстов в различных кодировках. Вот написал небольшой модуль для конвертирования текстовых строк из DOS кодировки в Windows и обратно. unit RUSCP; ...

Найти две первые цифры числа
Дано натуральное число n.Найти а)две первые цифры числа,б)верно ли,что первая цифра числа-чётная =((( надо состaвить программу в pascal)

Построить график функции y=x^2
Построить график функций: y = x2 на отрезке

Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические
Помогите решить задачу,пожл! Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические соседних пар рядом стоящих в массиве A чисел. Например,...

Найти среднее арифметическое ненулевых элементов массива
Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел. Нужно составить блок-схему. program massiv; uses crt; var a:...

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

Удалить все слова-палиндромы в строке - удаляется только одно
помогите((( умоляю... не вижу я своей ошибки уже((( program Strings; var razd:set of char; kol_sl, i, kol_pal,dl_sl, beg_wrd : integer; st,wrd, inv_wrd : string; begin razd:=;

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

Рекурсия. Найти максимальный элемент в массиве
Найти максимальный элемент в массиве a1...an, используя очевидное соотношение max (a1...an)=max (max (a1...an-1), an).

Can't find unit system used by Program
В чем ошибка? Написал заведомо правильный код и все-равно, раньше все работало. ╔═════════════════════════ Compiler Messages ══════ ║(1,1) Fatal: Can't find unit system used by Program...

Вычисление значение функции arctg(x) с погрешностью
Доброе время суток дорогие форумчане. В общем, учусь на 1 курсе, и вот 2 лаба по программированию, на умение использовать операторы цикла. Нужно написать программу, которая вычисляет значение функции...

Incompatible types: got "Double" expected "LongInt"
procedure TForm1.Button1Click(Sender: TObject); var k,b,c,m,f,g,a : integer; d,e : real; begin k:=StrtoInt(edit1.Text); m:=StrtoInt(edit2.Text); d:=k+m; c:=StrtoInt(edit3.Text); ...

Как реализовать двухмерный динамический массив с использованием механизма указателей
Как реализовать двухмерный динамический массив с использованием механизма указателей? Можно маленький пример сразу привести. Спасибо!

Расшифровка текста, зашифрованного шифром Цезаря
Условие задачи: ...Решили применить шифр Цезаря, который заключается в циклическом смещение букв алфавита (вместо буквы А подставляется буква Х, расположена в алфавите на kl позиций дальше, где kl...

Лягушка
Никак не могу обработать прогу:cry: N-лягушка живет на болоте, на котором в ряд растут бесконечно много кувшинок, пронумерованных слева направо числами 1, 2, 3, ... Изначально N-лягушка сидит на...

Ошибка: syntax error identifier expected
Program UIS; Uses CRT; Type TSotr = Record Fam: String; Pol: Byte; God: Integer; End; Var Sotr: Array Of TSotr; I, Kolman,...

Ошибка exitcode 201 Freepascal. Не могу понять что не так
В джине программа работает отлично, а на фри паскале выдает такую ошибку при запуске. Компилятор пишет, что все нормально. В чем прикол? Вроде все проверил, все должно работать. program n1; const...

Бинарный поиск по ответу
Доброго времени суток, бьюсь над задачей, никак не могу понять, что не так. Задача Когда Петя учился в школе, он часто участвовал в олимпиадах по информатике, математике и физике. Так как он...

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

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

Уроки Free Pascal
Подскажите книгу по Free Pascal. Или какие ни будь уроки на сайтах (только не видио).

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

Рекурсия, извлечение квадратного корня
ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ РЕКУРСИИ УСЛОВИЕ : Вычислить значение X = sqrt a , используя рекуррентную формулу Xn = (1/2)(Xn-1+a/Xn-1) , в качестве начального приближения использовать...

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

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

Задача с олимпиады: Часы с боем
Всем привет. Где-то год назад была олимпиада, на которой была такая задача:http://acmp.ru/index.asp?main=task&id_task=253 Я сдал её на сотку. Теперь не могу решить=( Вот мой код, читается очень...

Сдвинуть элементы массива циклически на одну позицию влево
Сдвинуть элементы массива циклически на одну позицию влево

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

Вычислить сумму 1+a+a^2+...+a^n, не используя формулу суммы геометрической прогрессии
1)Задача : "По данному действительному числу a и натуральному n вычислите сумму 1+a+a2+...+an, не используя формулу суммы геометрической прогрессии. Время работы программы должно быть пропорционально...

Функция Sum: подсчитать сумму элементов массива, кратных девяти
Помогите пж решить задачку! Дан массив нужно подсчитать сумму элементов кратных девять! Задачу нужно сделать при помощи функции сум! На паскале))

Как найти пробел в строке и удвоить его?
Как найти пробел в строке и удвоить его?

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

Массив, в котором количество элементов заранее неизвестно
Добрый день! Подскажите пожалуйста, как сделать массив, в котором количество элементов заранее неизвестно. То есть в массив будут вводится числа через пробел, и затем нажимается ENTER. И как потом...

Протабулировать 1 функцию на интервале [a, b] с шагом h=0.01 Найти сумму значений функции в каждой точке
2)Протабулировать 1 функцию на интервале с шагом h=0.01 Найти сумму значений функции в каждой точке.

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

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

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

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

Проверка принадлежности числа диапазону
у меня есть условие такое, что если число а принадлежит указанному диапазону то оно выполняется. как мне записать это? например что-то такое (if(ord(a)=between 128 and 175]) or (ord(a)=)) надеюсь вы...

Определить количество натуральных чисел, которые не больше N и не делятся ни на одно из чисел 2, 3, 5
Помогите, пожалуйста, решить: Задано натуральное число N. Напишите программу, которая определяет количество натуральных чисел, не больше N и не делится ни на одно из чисел 2, 3, 5. Входные данные:...

Укажите через запятую в порядке возрастания все основания систем счисления
Укажите через запятую в порядке возрастания все основания систем счисления , в которых запись числа 22 оканчивается на 4.

Дозапись в текстовый файл
Доброго времени суток всем! Начал ваять простенький текстовый редактор, но столкнулся с проблемой: не могу открыть файл для ДОзаписи в него текста. Если я пишу Append(f) то компилятор ругается что...

Вывести слово по буквам в столбик
Написать программу которая выводит слово по буквам в столбик.

Цикл: Вычислить значение выражения y = x - x^3 / 3! + x^5 / 5! - x^7 / 7! + x^9 / 9! - x^11 / 11! + x^13 / 13!
Дано действительное число x. Вычислить y=x -\frac{x^3}{3!} + \frac{x^5}{5!} - \frac{x^7}{7!} + \frac{x^9}{9!} - \frac{x^{11}}{11!} + \frac{x^{13}}{13!}

Как проверить, запущена ли заданная программа
Помогите сделать программу каторая все время будет проверять включена ли программа каторая задана пользователем.=( 1) Запрашивает у путь пользователя и сам .exe например "C:\Servers\CW\srcds.exe";...

Найти в заданной серии показаний прибора минимальное произведение двух показаний
Решение: program C4_DEMO2015B; const C = 10000000; var nums : array of real; min_pr : real; n, m : integer; k : integer; pr : real;

Для каждого из массивов указать количество столбцов, содержащих только не положительные элементы
Даны два двумерных массива вещественный элементов. Размер исходных массивов не превосходит 10x10 элементов. Для каждого из массивов указать количество столбцов, содержащих только не положительные...

Поменять местами два числа, используя процедуру
10.поменять местами два числа,используя процедуру

Текстовый редактор, как сделать редактируемые строки?
Доброго времени суток всем! Вопрос таков: начал делать текстовый редактор и не могу сделать редактируемые строки.:wall: Написанное можно только стереть, нельзя передвинуться, скажем, на 2 символа...

Найти десятое число Фибоначчи
Числа Фибоначчи определяются как а(0)=1, а(1)=1, а(i)=a(i-1)+a(i-2). Найти десятое число Фибоначчи. Заранее благодарен.

Сравнение элементов двумерного массива.
Задача:Для матрицы из 3 строк и 6 столбцов выведите на экран номера тех столбцов, в которых первый элемент меньше второго, а второй – меньше третьего, и число таких столбцов. Матрица заполняется...

Куда нужно сохранить модуль?
Куда сохранять модули в фри паскале что бы работали? Или в турбо паскале.

Проверить, являются ли треугольники равновеликими
Даны три стороны одного и три стороны другого треугольника. Эти треугольники равновеликие, т.е. имеют равные площади.

Перевод символа в верхний регистр
Формат входных данных Задан один символ c. Формат выходных данных Если символ является строчной буквой латинского алфавита (то есть буквой от a до z), выведите вместо него аналогичную...

Поиск заданного элемента в упорядоченном массиве (бинарный поиск)
Заполнить одномерный массив из n элементов согласно таблицы. Размерность массива задать в виде именованной константы. Вывести массив на экран. Ввести с клавиатуры число. Используя метод половинного...

Шифрование и дешифрование текста (шифр Цезаря)
Напишите программу для шифрования и дешифрования текста, используя шифр Цезаря, который является простым типом шифрования замещения. В шифре Цезаря каждая буква текста заменяется буквой, которая...

Как работает absolute?
Добрый день. Хочу понять как работает absolute. Пишу на Free Pascal, но пример взял из книги по Turbo Pascal Фаронова: var x:Real; y:array of Integer absolute x; begin x:=pi; Writeln(y);...

Как задать отрезок?
Как задать отрезок на языке Паскаль

Как во free pascal вывести число real в виде 1.123, отбросив нули в конце
например есть число 123.12300, а его нужно вывести как 123.123, отбросив нули в конце

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

Настройка Free Pascal Compiler win7
Здравствуйте. Как настроить FPC 2.4.2 на Microsoft Windows 7, что-бы можно было менять размер окна, и разворачивать во весь экран. Возможно-ли такое? На XP все отлично.

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

Перевод кода с C++ в паскаль
#include <bits/stdc++.h> using namespace std; typedef long long ll; const int M = 2e5 + 239; const int BIG = 1e9 + 239; int n, a;

Рекурсия. Каким будет значение f (10)?
Здравствуйте, подскажите ход решения задачи по рекурсии. (Сколько тему "Рекурсивные функции" прочитываю, разобраться не могу) Сама задачка такая (вернее, ее фрагмент дан): Рассмотрите следующее...

Алфавитно-частотный словарь
Здравствуйте,помогите пожалуйста написать программу. Напишите программу, которая строит алфавитно-частотный словарь для файла input.txt , в котором в столбик записаны слова, состоящие только из...

Вывести номер дня недели , если 1 января — понедельник
Помогите,пожалуйста...Среда Free Pascal Дан порядковый номер дня года (отсчет идет с 1-го января). Требуется вывести номер дня недели этого дня, если 1 января — понедельник.Выведите номер дня...

Паскаль - устаревший или современный язык программирования?
А также его достоинства, недостатки. Примеры крупных проектов, спроектированных на паскале.

Задать диапазон символов массива
Могут ли индексы массива быть от + ещё какой-то символ?

Определить, за какое время путешественник преодолел первую половину пути.
Мандрівник рухався t1 годин зі швидкістю v1 км/год, потім t2 годин зі швидкістю v2 км/год і t3 годин зі швидкістю v3 км/год. Визначити, за який час він подолав першу половину шляху. Я решил задачу...

Расширение файла после компиляции во фри паскале
Ребят, помогите) вот при компиляции файла с расширением pas создается файл с расширением tpu,это для турбо паскаля, а как будет для фри паскаля?)заранее спасиб

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

Раздел описания констант "const"
Часто вижу такой код: const max=100; var x :array of Integer; Не могли бы вы объяснить отличие от такой записи: var x :array of Integer; И сказать какой предпочтительнее(удобнее,...

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

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

Определить, является ли заданный массив знакочередующимся
Написать программу, определяющую является ли заданный массив знакочередующимся. pascal Добавлено через 5 минут Помогите пожалуйста, мне сказали что в моем коде ошибка! program lr2_1; uses crt;...

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

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

Определить попадает ли точка с координатами (x,y) внутрь треугольника, заданного координатами (x1,y1)(x2,y2),(x3,y3)
Помогите решить задачу. Определить попадает ли точка с координатами (x,y) внутрь треугольника, заданного координатами (x1,y1)(x2,y2),(x3,y3). Заранее огромное спасибо !!

Вывод синуса через ряд Тейлора
Необходимо вывести синус, однако программа выводит значения лишь для углов до 121 градуса, а потом происходит арифметическое переполнение. Что делать чтобы код работал для всех координатных...

Написать код, используя процедуры/функции
1. Описать функцию для определения f(x,y) (вид функции для каждого варианта задания приведен в столбце 1 таблицы). 2. Задать конкретные значения s, t и вычислить a, b (формулы для определения a, b...

Сформировать квадратную матрицу порядка N по правилу A[i,j]=sin(j^2-j^2/N)
Сформировать квадратную матрицу порядка N по правилу A=sin(j^2-j^2/N) и подсчитать количество положительных элементов в ней. помогите кто чем может :)

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

Преобразовать функцию из Си в Паскаль
народ у меня такая проблема можете помочь преобразовать функцию из Си в Паскаль /////////////////////////////////////////////////////////////////////////////// // CompressLoop() //...

Дано двузначное число. Определить какая из его цифр больше, первая или вторая.
Дано двузначное число. Определить: a) какая из его цифр больше, первая или вторая; Помогите!%-)

Среднее количество осадков
Даны действительные числа (a1901, a1902...a1950) - количество осадков (в миллиметрах), выпавших в Москве в течение первых 50 лет нашего столетия. Надо вычислить среднее количество осадков и...

Вывести элементы массива под четными номерами
Дан массив из N элементов, каждый из которых определяется по формуле a=2*i В исходном массиве вывести все элементы под четными номерами без формирования нового массива. Помогите решить..

Сформировать массив из заданных элементов
1. Методом случайных чисел заполнить массив из 20 элементов (диапазон значений от 1 до 30) и вывести его на экран. Вывести на экран индексы и значения элемен-тов, делящихся на 5 1. Методом...

Сформировать массив B, записав в него элементы массива A с нечётными индексами
Помогите пожалуйста!!! Паскаль начали недавно проходить, не могу решить задачу. Сформировать массив B, записав в него элементы массива A с нечётными индексами. Вычислить среднее арифметическое...

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

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

Определить, можно ли расплатиться за покупку без сдачи
В Волшебной стране используются монетки достоинством A1, A2,…, AM. Волшебный человечек пришел в магазин и обнаружил, что у него есть ровно по две монетки каждого достоинства. Ему нужно заплатить...

103 exitcode
Помогите устранить ошибку var f, f1: text; st: string; i: integer; begin assign(f, 'C:\FPC\3.0.0\bin\f.txt'); reset(f); while not EOF(f) do

Назовите особенности использования вложенных условных операторов
Добрый день! Пожалуйста, помогите правильно ответить на вопросы: 1) Назовите особенности использования вложенных условных операторов. 2) Что является разделителем между условиями при написании...

Посчитать в сколько раз в натуральном числе N встретилась цифра M. Циклы с пред- и постусловием
В программе должны быть применены операторы repeat,until(по теме).Ну и еще там наверное while...do. Задание: Посчитать в сколько раз в натуральном числе N встретилась цифра M

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

Заполните и выведите двумерный массив n*n символами пробел и "*" так чтобы получилась снежинка.
Заполните и выведите двумерный массив n*n символами пробел и "*" так чтобы получилась снежинка. На вход программе подается нечетное значение n. Например для n=5 массив должен быть заполнен так * *...

Ошибка ERROR: Illegal parameter: -Opentium3
Установила фри паскаль,после чего ниодна программа не работает. Options - Compiler - Additional compiler args : -Oppentium3. И заново компилировала, пишет compilation aborted. Так же в Настройках...

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

Найти количество четных делителей числа
Найти количество четных делителей числа

Не используя стандартные функции вычислить выражение
Здравствуйте, поможете с задачей? Не используя стандартные функции (за исключением abs), вычислите с точностью eps>0: Считается, что требуемая точность достигнута, если очередное слагаемое по...

Количество цифр в десятичной записи N
Дано натуральное число N. найти количество цифр в десятичной записи числа N.

Какое наименьшее количество спичек нужно Самоделкину для построения модели из N кубиков?
Спичечная модель Профессор Самоделкин решил изготовить объемную модель кубиков из спичек, используя спички для рёбер кубиков. Длина ребра каждого кубика равна одной спичке. Для построения...

Ввести двумерный массив 3х3 элементов, найти сумму элементов массива
Ввести двумерный массив 3х3 элементов, найти сумму элементов массива.

Определить, находится ли точка с произвольно заданными координатами в заштрихованной области
Составить программу, позволяющую определить, находится ли точка с произвольно заданными координатами в заштрихованной области. Если точка принадлежит заштрихованной области, то переменной q присвоить...

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

Закрывается консоль, несмотря на readln();
Здравствуйте, появилась такая проблема program Project1; var i,j,k:integer; begin read(i); read(j); //если вместо этого написать readln консоль подождет writeln(i, ' ', j);

Настройка FPC
Я скачал fpc-2.6.4.i386-win32.exe, установил, все работает, только существует одна проблема. Не получается сохранять изменения. Приходится каждый раз все заново настраивать. Это так и должно быть?...

Построить таблицу значений функции y=(x+1)/(1-x) на интервале [-10 ; 10] с шагом Δx=1 - Free Pascal
Построить таблицу значений функции y=(x+1)/(1-x) на интервале с шагом Δx=1 - Free Pascal

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

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

Найти сумму элементов массива, значения которых не превышают число 100 и больше числа 20
Вводится массив. Найти сумму элементов,значение которых не привышают число 100 и больше числа 20

Различия между Turbo Pascal и Free Pascal (Turbo mode)
Собственно вот и вопрос. Чем отличается FPC Turbo Pascal mode от самого компилятора Turbo Pascal?

Программа в паскале с output и input
Написала программу, но она не хочет компилироваться. Тему эту плохо знаю и не могу понять, как исправить программу. Без output/input работает верно, но с ними и не начинает. Вот сама программа: ...

Ввод значений на построение графика
Народ дали задание на построение графика-прогу написал,работает всё отлично, но к сожалению я незнаю какие вводить значения для вывода графика помогите пожалуйста ! ! ! P.s Знаю только что в начале...

Вычислить сумму элементов последовательности
Помогите с домашкой :scratch: Вычислить сумму элементов последовательности 1+ 1/2^2 + 1/3^2+...+1/n^2 с точностью до 0.001 Спасибо :)

Поменять порядок символов в строке на обратный
1) Составить программу, которая меняет порядок символов в строке на обратный 2) Составить программу, которая проверяет, является ли число палиндромом P.S. палиндром - это слово, которое читается...

При обращении к процедуре рекурсивной быстрой сортировки происходит переполнение стека
При обращении к процедуре рекурсивной быстрой сортировки происходит переполнение стека... Хотя директива увеличения размера стека введена... Размерность массива 3500 элементов... Конечно выход есть...

Дано натуральное число. Определить сколько в нем встречается первая цифра
Дано натуральное число. Определить сколько в нем встречается первая цифра ПОМОГИТЕ ПОЖАЛУЙСТА

Вычислить сумму положительных и сумму отрицательных значений функции Z
Вычислить сумму положительных и сумму отрицательных значений функции Z при изменении “x” от 0,2 до 1 с шагом 0,2 и при изменении “y” от –2 до 1 с шагом 0,5. Z=x2y3+sinyln

Удаление последнего элемента списка
Описание однонаправленного списка: type list = ^node; node = record elem: integer; next: list; end; Пусть у нас есть список, L - ссылка на его голову. Я хочу...

Дана непустая последовательность чисел X1,X2,.Xn. Вычислить величину: n*X1+(n-1)*X2+...+2*Xn-1+Xn
Дана непустая последовательность положительных вещественных чисел X1,X2,...Xn (n заранее не известно), за которыми следует отрицательное число. Вычислить величину: n*X1+(n-1)*X2+...+2*Xn-1+Xn

Методом хорд вычислить с точностью e корень уравнения
Дано действительное положительное число e. Методом хорд вычис- лить с точностью e корень уравнения f(x)=0 (ниже, следом за урав- нением f(x)=0, дополнительно задан отрезок, содержащий корень): ...

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

Чтение 2 строк из файла и запись в массив
Если строки стандартной длины - 255 символов, то проблем нет... проблема возникает, когда строка может содержать довольно больше количество символов, например, 1 млн. то есть возможно чтение строк...

Создание окна Windows посреди экрана
Всем добрый вечер! У меня возник вопрос: а можно ли создать окно из паскаля? Что было не так как на скриншоте, а отдельное окошко без заголовка определенного размера посередине дисплея? И можно ли...

Написать программу для вычисления определенного интеграла
1. Написать программу для вычисления определенного интеграла методом прямоугольника правых частей 2. Написать программу для вычисления определенного интеграла методом трапеций 3. Написать программу...

Сумма ряда 1+1/1!+.+1/N!
1)Задача: " По данному натуральному числу N найдите сумму чисел 1+1/1!+1/2!+1/3!+...+1/N!. Количество действий должно быть пропорционально N." 2)Мой код. Program SumOfFactorials; var i,n :...

Как удалить пробелы в конце строки?
Удаляет пробелы в начале строки, но если за строкой снова следуют пробелы, то виснет. BEGIN readln(stroka); while pos(' ',stroka)<>0 do stroka:=copy(stroka,pos(' ',stroka)+1,length(stroka));...

Repeat. Вывести на экран все целые числа от A до B кратные пяти
задать интервал целых чисел от а до б вывести на экран все целые числа от а до б кратные пяти числа вывести в строку через пробел решите с помощбю рипит плиз

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

Вычислить количество дней от указанной даты до Нового Года
Здравствуйте! Помогите решить три задачи с датами. Задачи нужно написать отдельно, а не как одну задачу. 2) Даны три числа D,M,G , обозначающие календарную дату: D - число, М - номер месяца в году,...

Подсчитать, сколько лет можно выдерживать заданный план
Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в А тонн. Ежегодный план отлова - В тонн. Наименьший запас рыбы, ниже которого запас уже не восстанавливается - С тонн. Составьте...

Лесенка
На каждой из n + 2 ступенек лестницы записано целое число, причем на первой и на последней ступеньке записано число 0. На первой ступеньке стоит человек, которому необходимо подняться на последнюю...

Программа вычисляющая площадь фигуры(метод трапеции)
Доброго времени суток, не могу найти ошибку в программе. Проблема заключается в том, что при вводе отрицательного предела( в моём коде это a=минимальный, b=максимальный) площадь и относительная...

Взвешивание: определить, сколько гирь из данного набора нужно использовать для взвешивания предмета заданного веса
2. Какой алгоритм решения задачи? Весы ( Scales ) Измерение веса предмета осуществляется с помощью лабораторных весов . С помощью набора из 7 гирь весом 1 г , 3 г , 9 г , 27 г , 81 г , 243 г и...

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

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

Вывести квадраты чисел от А до В (числа получить через командную строку)
Описать программу, которая выводит на экран квадраты чисел от А до В. (А и В получить с помощью командной строки).

Написать программу "Календарь"
Нужно написать программу КАЛЕНДАРЬ: ввести с клавиатуры месяц и год -справа массив дат, над массивами дат названия месяцев; -все выходные выделить красным цветом; -праздники зелёным. Заранее...

Сравнение букв в словах, занесенных в ячейки массива
нужно вывести все слова начинающиеся и заканчивающиеся на одну и ту же букву program hitry;uses crt; var sl:arrayof string;//сюда отправим слова из строки s:string;//строка ...

В 6 строке выбивает ошибку Runtime error 106 at 0x0040D038. Помогите разобраться в чем проблема
begin Assign( f, 'duom.txt'); reset(f); Readln(f, n,m); for i:= 1 to n do Read(f, koord_x, koord_y); end; В 6 строке выбивает ошибку Runtime error 106 at 0x0040D038....

Не могу запустить FPC, нет ярлыка
Скачал с официального сайта Free Pascal для х86 и х64. У меня Win 7 х64. Программа установилась, на диске C имеется папка FPC. Но не могу запустить, нет ярлыка запуска. В настоящем разделе решения...

Ошибка fatal: syntax error identifier expected
program AAG_7; Uses CRT; Var AA: Array of Integer; I,J,:Integer; Imx,Imn,maxSum,minSum,rowSum,Buf,SumStr,SumAll:Integer; Procedure ZAP; Begin Randomize; For I:=1 To 8 Do For J:=1 To...

Есть ли возможность каким-либо способом отправлять запросы (POST, GET)
Здравствуйте! Есть ли для Free Pascal возможность каким либо способом отправлять запросы(POST,GET) и принимать результат(например считывать код страницы html)?

Вызов процедуры строкой
Корявое название,блин. В чем проблема-помню во время учебы препод показал как например строку "Procedure1" преобразовать и вызвать ее(если она описана и существует). т.е. код был примерно такой ......

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

Лабиринт: определить минимальное количество наклонов, которые необходимо сделать, чтобы шарик покинул лабиринт через одно из отверстий
Есть задача. Я не прошу вас решить её за меня. Как вообще это должно происходить, этого не пойму. С чего пробывать её решать? От чего отталкиваться? Не давно проходили поиск в ширину, вроде...

Посчитать, сколько в списке различных элементов, не изменяя самого списка
Дан список. Посчитайте, сколько в нем различных элементов, не изменяя самого списка. входные данные 3 2 1 2 3 выходные данные 3

Сколько раз в данной строке встречается символ + и сколько раз символ *
1. Дана строка символов. Подсчитать: a) сколько раз в данной строке встречается символ + и сколько раз символ *; b) общее число вхождений символов +, -, * в строку. ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ...

Нахождение минимального значения среди элементов массива (+блок-схема)
Дан целочисленный массив из 20 элементов. Элементы массива могут принимать значения от -100 до 100. Составьте блок-схему и программу для нахождения минимального значения среди элементов массива,...

Описать функцию degree(x,n), где х - вещественное, n - целое, вычисляющую величину x^n
Описать функцию degree(x,n), где х - вещественное, n - целое, вычисляющую (через умножение) величину xn, и использовать ее для вычисления b=2.7k+(a+1)-5.

Определить сколько будних дней мая 1987 температура воздуха была выше 15 градусов, если 9 мая - суббота
Определить сколько будних дней мая `1987` г. в г. Москва температура воздуха была выше 15 градусов, если известно, что `9` мая 1987 г была суббота, а температуры можно узнать из таблицы метеостанции....

Напечатать таблицу значений функции на отрезке [a, b] с шагом h. Найти корень функции на этом интервале
Напечатать таблицу значений функции на отрезке с шагом h. Найти корень функции на этом интервале. Помогите пожалуйста режить данное задание.На форуме нашёл несколько похожих тем и вроде всё...

Вывести двумерный массив в виде ромба
Привет Всем! Я уже замучился. Решить поставленную задачу, используя средства управления вводом/выводом. Дан массив S(5,5) целых однозначных чисел. Вывести сначала исходный массив, а затем...

Даны два массива. Соединить их в один массив
Даны два массива А и В, состоящие из N целых элементов. Соединить их в один массив С= (А1,В1,А2,В2,...,АN,BN).

Создать и вывести новый массив, состоящий из положительных элементов массива Y
Создать и вывести новый массив, состоящий из положительных элементов массива Y;

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

Ограничение чисел вводимых в массив
Есть массив. Необходимо ограничить ввод чисел в него. Я создал свой тип данных. При вводе неверных значений программа вылетает. Free pascal выдаёт:"exitcode = 201". Вопрос: Есть ли процедура,...

Если длина строки S больше N, то отбросить первые символы
Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить...

Выяснить, верно ли, что данное четырехзначное число содержит ровно три одинаковых цифры
дано четырехзначное целое число. Выяснить,верно ли,что это число содержит ровно три одинаковых цифры (3343,5055). "Free Pascal"

Выведите минимальный радиус освещения d, который необходим, чтобы осветить всю улицу
Помогите решить задачу: Ваня идет поздней ночью по прямолинейной улице длины l, которая освещается n фонарями. Введём систему координат, в которой начало улицы соответствует точке 0, а её конец —...

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

Типизированные константы: чем отличаются от переменных?
Добрый день, господа. У меня, собственно, вопрос по типизированным константам. Цитата: Они получают значение при описании (как константы), но могут его менять в теле программы (как переменные)....

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

Определить, догонит ли легковой автомобиль грузовой через Т1 ч после своего выезда
Грузовой автомобиль выехал из одного города в другой со скоростью V1 км/ч. Через Т часов в том же направлении выехал легковой автомобиль со скоростью V2 км/ч. Определить, догонит ли легковой...

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

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

Wrong number of parameters specified for call to
Врмени суток, программисты. Я тут пишу первый раз, и пишу, к сожалению по необходимости. Задание лабораторной: вычислить значение интеграла. Дело сделано, да вот незадача. При компиляции в среде...

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

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

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

Ошибка: "sintax error, "OF" expected, but "[" found"
Здравствуйте, в 4 строке компилятор выдаёт ошибку: "sintax error, "OF" expected, but "var str,alpha,u:string; a,b:array of char; i,n:integer; procedure encode(str1,alpha1:string; i1:integer;...

Error 22 : Structure too large
Пишу f:array of longint; Выскакивает Error 22. Как можно обойти ограничение?

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

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

Найти максимальное число, которое может получиться в результате удаления ровно одной двоичной цифры
Помогите решить задачу: У Маленького Слоника есть целое число a, записанное в двоичной системе счисления. Он хочет написать это число на листке бумаги. Чтобы число a поместилось на листке бумаги,...

Является ли последовательность правильной записью римского числа
И снова римские числа, как же без массивов? На вход программе подаётся последовательность символов, заканчивающаяся точкой (точка – признак конца и в последовательность не входит). Проверить,...

Найти точки пересечения окружности с осью абсцисс
Задана окружность с центром в точке О(x0, y0) и радиусом R0, найти точки пересечения линии с осью абсцисс. Как написать программу на языке Паскаль?

Составить таблицу значений функции y=x2+5sinx на отрезке [a,b] с шагом h
2. Составить таблицу значений функции y=x2+5sinx на отрезке с шагом h(для цикла for шаг h=1, для других циклов шаг вводится с клавиатуры).

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

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

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

Графика: нарисовать лягушку и корону
Нужно нарисовать лягушку и корону в среде Free Pascal. Фото приведено ниже:

Вывод русских букв в файл
Столкнулась с такой проблемой, что при выводе русских букв в файл по кодам ASCII (chr(128) к примеру) вместо русских букв выводится какая-то ерунда. Если выводить в консоль, то всё нормально. Не...

Бинарный поиск в матрице
Подскажите, пожалуйста, как организовать бинарный поиск в двумерном массиве(матрице)?

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

Найти сумму двух натуральных чисел
Необходимо найти сумму двух натуральных чисел A и B. Во входном файле записаны через пробел 2 натуральных числа A и B(A,B<1 000 000 000) В выходном файл выведите единственное число-сумму чисел A и...

Найти в матрице строку с минимальной суммой
Входные данные В первой строке записаны через пробел размеры матрицы: количество строк N и количество столбцов M ( 1 ≤ N , M ≤ 100 ). В следующих N строках записаны строки...

Вычисление количества теплоты, полученной при сгорании М г керосина
Составьте программу для вычисления количества теплоты, полученной при сгорании М г керосина, если его теплота сгорания q.

Написать программу "Лунолет"
Бодрого дня, господа. Очень нужна ваша помощь. Есть код на QBasic'е. Нужно его "перевести" на Pascal. Подскажите - как это сделать? Я практически не знаком с обоими языками. Я вообще не...

Как правильно вставить Русский текст из Windows в Free Pascal?
Подскажите пожалуйста, почему при вставки русского текста из Windows`a, буквы отображаются знаком вопроса "?", Как правильно вставлять текст?

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

Линейный список: картотека абонентов междугородной телефонной станции
Здавствуйте помогите с решением!? На междугородной телефонной станции картотека абонентов,содержащая сведения о телефонах и их владельцах,организована как линейный список. составить программу,...

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

Проверить, является ли массив отсортированным по убыванию или по возрастанию
В общем нужно проверить , является ли массив отсортированным по убыванию или по возрастанию вот мой вариант : const n=2; var p: array of real; i:integer; begin for i:=1 to n do ...

Syntax error "Begin" expected but "uses" found
Syntax error "Begin" expected but "uses" found" (3.1) при компиляции в третьей строке я так понимаю как исправить?Program kr; Uses Crt; Uses Math; const e=0.0001; Var a,b,temp_a, temp_b,x:...

Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"
Ввожу unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Windows; var x, y, z, u, xy, xz: integer;

С клавиатуры вводится число n типа integer, нужно вывести его в двоичной системе исчесления
Помогите пожалуйста! с клавиатуры вводится число n типа integer, нужно вывести его в двоичной системе исчесления

Вычислить произведение ряда
Помогите срочно пожалуйста составить программу и как можно поподробнее,очень нужно (моя контрольная работа): \prod_{i=1}^{n}\left(x^i+2^i \right)

Создать массив из 20 случайных чисел от -50 до 50 и удалить первый отрицательный элемент этого массива
Создать массив из 20 случайных чисел от -50 до 50 и удалить первый отрицательный элемент этого массива, затем вывести полученный массив на экран. Если такового не нашлось, то вывести неизмененный...

Error: Incompatible types: got "LONGINT" expected "CHAR"
Есть код, надо чтобы массив заполнялся рандомно program mattrix; uses kernel,crt; var m:Tmattr; k:char; c,d:char; i,j:integer; f:string; begin while true do begin

Вычеркните из заданного слова все буквы "а"
10. Вычеркните из заданного слова все буквы "а". Добавлено через 44 минуты бууууу

Алгоритм Эратосфена
Коснусь вопроса поиска простых чисел. Был вопрос от 13Legion как найти 24 простых 6-значных числа. Так вот делается это так: program Project2; uses SysUtils; const N=200000; //вместо 10...

Найти площадь фигуры, ограниченной кривой.
помогите пожалуйста решить программу на free pascal 1)реализовать программу вычисления площадь фигуры, ограниченной кривой 3*x^3+(4)*x^2+(-57)*x+(2050) с применением методом трапеций. ????/

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

Шифр с использованием кодового слова - Ошибка проверки диапазона
добрый день,пытаюсь реализовать на паскале шифр с использованием кодового слова, начал с замены алфавита, но постоянно выскакивает ошибка проверки диапазона program main; const n=32; var ...

Шифрование и расшифровка текстового файла
Доброго всем времени суток! Необходимо в среде FreePascal разработать следующие программы: шифрование/дешифрование простой заменой или подстановкой; шифрование/дешифрование шифром-перестановкой;...

Цвет фона не изменяется
Програмка для отображения треугольника: uses crt,graph; var a,b,gd,gm:integer; begin gd:=detect; initgraph(GD,GM,'C:\tp7\bgi'); a:=14; b:=6;

«Exitcode 5» при запуске программы на тему «файлы»
Из учебника «Песни о Паскале» задание: Объявите две файловые переменные, свяжите их с одним и тем же файлом, а затем откройте через обе переменные. Вызовет ли это ошибку? Объясните...

Из текста удалите те части которые заключены в кавычки
Из заданного текста удалите те части которые заключены в кавычки (вместе с кавычками) Вот что у меня "получилось" (подправьте кто что может): program TheNameless; uses crt; var mass:array of...

Строка содержит произвольный русский текст; проверить, каких букв в нем больше: гласных или согласных
Здравствуйте. Есть задача и её решение. Но мне хотелось бы узнать. Можно ли её выполнить без констант? Допустим с помощью массивов или просто строкового типа данных. Если можно, то как? Задача: ...

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

Вычислить сумму квадратов положительных элементов массива
Нужна программа для вычисления сумы квадратов плюсовых елементов чисел. Количество елементов масиву n (5<n<30) числа вводять с клавиатуры.

Вывод номера элемента массива, удовлетворяющего требованиям
Есть массив с рандомными числами(от -20 до 20). Нужно вывести номер элемента массива, который первым по счету будет больше 0. Вывод должен идти через процедуру. program T; const n=28; var...

Все слова текста расположить в алфавитном порядке
Дан текст,все слова расположить в алфавитном порядке(при решении можно использовать любой текст)

Степень в паскале
как возвести -1 в степень в паскале?

Определить, бьет ли Ферзь Короля
1.Требуется определить, бьет ли ферзь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты ферзя...

Нужен пример Программы
Не могу написать программу с помощью, которой можно в графическом режиме управлять фигурой с помощью стрелок. Может, поможет кто:)