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

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

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

Компиляция программ под MS-DOS 8086 c различными моделями памяти
Добрый день коллеги! Как следует из сайта Free Pascal, компилятор кросс-платформенный и поддерживает в том числе MS-DOS. Но интересует режим MS-DOS 8086 с возможностью выбора различных моделей...

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

Не инициализованные статические массивы
Создаем статический массив и сразу без инициализации выводим его содержимое на печать. program Test; {$mode objfpc}{$H+}{$R+} uses Classes, SysUtils; Type TAr = array of integer;

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

В массиве найти количество чисел, которые имеют хотя бы одну общую цифру
Дан массив A из N целых положительных чисел. (N≤10^6, a≤10^18). Посчитать, сколько пар чисел из этого массива имеют хотя бы одну общую цифру.

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

Множества
Доброго дня. В делфях была возможность на кейпресе запретить ввод, допустим букв: if not key in then key:=#0 А вот в lazarus такое на работает. Я пробовал прописать это в OnUTF8KeyPress. Ругается...

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

Не отображается screen-keyboard при активации TSynEdit на Ubuntu
Подскажите пожалуйста как вызвать/отобразить экранную клавиатуру при активации SynEdit. На компонентах TEdit, TMemo, TSpinEdit и т.п. она всплывает, а на TSynEdit нет. Ubuntu 20.04.6 LTS, FPC...

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

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

Переписать вывод текста на ассемблере
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=..., сделать программу через стек...

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

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

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

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

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

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

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

Найдите сумму цифр введенного с клавиатуры целого числа
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...

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

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

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

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

Вывести все точные квадраты натуральных чисел, не превосходящие данного числа 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.

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

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

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

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

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

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

Вычислить сумму ряда (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. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Глюк с русским языком
Есть такая писанина, как бы сделать так чтобы не было иероглифов, чтобы чётко на русском было. Происходит это при работе и при развёрнутом окне (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,ОС...

Найти сумму квадратов чисел от 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 ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Дана последовательность действительных чисел а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; ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Когда перед 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} ).

Среди двузначных чисел найти те, сумма цифр которых равна 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:...

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

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

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

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

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

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

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

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

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

вычислить 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;

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

Найти наибольший и наименьший элемент массива и их номера
Заполнить одномерный массив, состоящий из 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
Ребята помогите!!!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Найти максимальный и минимальный элементы матрицы и их произведение
Задали двумерный массив н * м действительных чисел 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).

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Дано натуральное число, определите сумму всех его цифр
Дано натуральное число, определите сумму всех его цифр. Решение нужно через цикл 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, действительные числа a1, … , an . Вычислить обратную величину произведения тех членов ai
Даны натуральное число n, действительные числа a1, … , an . Вычислить обратную величину произведения тех членов ai последовательности a1, … , an , для которых выполнено i+1 < ai < i!. Ребята...

Найти Факториал числа 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);...

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

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 километров. Байкер Вася стартует с нулевого километра МКАД и...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Быстрый способ проверки числа на простоту
Быстрый способ проверки числа на простоту: {$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.

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

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

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

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

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

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

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

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

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

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

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

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

Найти уникальные элементы в заданном массиве
Здравствуйте нужна помощь в написании программы которая будет определять уникальные числа в заданном массиве. Под уникальными имеется ввиду что из чисел 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...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Составить программу которая выводит все числа в интервале от 1 до 50 которые делятся на 3. Перевод с С++
#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 <<" " ;}

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

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

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

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

Определить сколько раз встречается заданная буква (с клавиатуры) в заданном слове( с клавиатуры)
Определить сколько раз встречается заданная буква (с клавиатуры) в заданном слове( с клавиатуры) например: слово - молоко, буква о, ответ 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

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

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

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

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

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

не находит файл
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 . Числа записаны в одной строке через пробел. Признак конца ввода (в последовательность...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Дан файл, в котором через пробел записаны дробные числа: –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. Вывести на экран сумму данных цифр.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка времени выполнения
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;

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

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

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

Чтение данных из файла типа 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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка при компиляции "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 ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Сервер-клиент на сокетах: при отправке второго сообщения, программа падает
Сервер: 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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Найти индекс минимального элемента массива
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 ('ўҐ¤ЁвҐ Є®«ЁзҐбвў® *⮬®ЎЁ«Ґ©');

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как перейти на другую строку при записи в файл
Записываю двумерный массив в паскаль как мне перейти на новую строку. 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);...

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

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

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

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

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

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

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

Найти количество дней в заданном месяце
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 Для...

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

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

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

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

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

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

Ошибка: 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-порту. Необходимо послать команду,...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 секунды
Знающие люди, скажите пожалуйста, раньше решал задачи заводя массивы, большие 64КБ по памяти, теперь узнал из не помню какого источника, что такое делать нельзя. Такой вопрос, сколько можно объявить...

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

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

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

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

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

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

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

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

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

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

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

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

Удалить все слова-палиндромы в строке - удаляется только одно
помогите((( умоляю... не вижу я своей ошибки уже((( 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 — количество элементов в...

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

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

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

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

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

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

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

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

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

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

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 лаба по программированию, на умение использовать операторы цикла. Нужно написать программу, которая вычисляет значение функции...

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

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

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

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

Лягушка
Никак не могу обработать прогу: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,...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Цикл: Вычислить значение выражения 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!}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Перевод кода с 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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Дана непустая последовательность чисел 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка 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...

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

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

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

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

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

В 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. Но не могу запустить, нет ярлыка запуска. В настоящем разделе решения...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка: "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. Как можно обойти ограничение?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка "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;

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

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

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

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

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 минуты бууууу

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Нужен пример Программы
Не могу написать программу с помощью, которой можно в графическом режиме управлять фигурой с помощью стрелок. Может, поможет кто:)

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

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

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

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

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

Ввести фамилию, имя, отчество. Вывести 3 буквы свои инициалы с точкой.
Ввести фамилию, имя, отчество. Вывести 3 буквы свои инициалы с точкой.