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

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

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

Определить, является ли число разностью двух кубов каких-либо натуральных чисел
Вводится натуральное число N меньшее, чем некоторое положительное целое M. Определить, является ли число N разностью двух кубов каких-либо натуральных чисел. Ответ необходимо дать в форме "YES" |...

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

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

Сделать в калькуляторе вывод real в разных СС
Калькулятор с выводом цифр после запятой. Но ещё нужно сделать вывод real в разных СС. Подскажите? Ввод: ./<имя файла> 0.01 2 5 10 256 +10: 0101/03 Вывод: 2: 01000101/0101 real: 3.6666667 5:...

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

Для любого целого числа N > 9 найти все такие пары целых неотрицательных чисел x и y, что 3x + 7y = N
Для любого целого числа N > 9 найти все такие пары целых неотрицательных чисел x и y, что 3x + 7y = N. Напишите код на языке Pascal.

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

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

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

Ошибка при переводе числа из одной системы счисления в другую
Доброго времени суток! Не так давно начал изучать программирование. Занимаюсь по книге А.В. Столярова "Программирование: Введение в профессию". В разделе книге про посимвольный ввод автор ...

Передача типизированного указателя
Обнаружил у себя ошибку, когда писал программу. Исправить смог, но не смог понять, почему она возникала. Написал отдельно код, который воспроизводит данную ошибку: Program WhatHappened; Uses...

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

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

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

Дан массив целых чисел. Заменить элементы с номерами от k1 до k2 на противоположные
помогите пожалуйста дан массив целых (случайных) чисел,состоящий из 10 элементов. заменить элементы с номерами от k1 до k2 на противоположные

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

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

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

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

Выполнить процедуру/функцию в контексте другого пользователя
Есть программа (вернее пишется), OS Windows 7/10/11 x64, среда Lazarus 2.2.6. Запускается программа администратором в контексте пользователя (работа в реестре с HKCU, настройка ПО - именно в...

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

Народ, кто знает что там с сайтом freepascal.ru? (с 6.04.24)
По невыясненным причинам сайт www.freepascal.ru не работает уже второй день ни ответа ни привета. 5-го апреля все было нормально. А 6-го сайт просто исчез. (В кеше гугл видна страница примерно 4-го...

Строковые переменные. Напишите программу принимающую через параметры командной строки два числа типа real
Помогите разобраться с задачей: Напишите программу, принимающую через параметры командной строки два числа типа real( назовем их x и y) и целое число n, и выдающую на печать произведение x * y в...

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

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

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

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

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

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

Определить расстояние от пловца до ближайшей стенки бассейна
Мальчик плавает в бассейне размером N на M метров. В некоторый момент времени он находится на расстоянии X от одного из длинных бортиков (не обязательно от ближайшего) и на расстоянии Y от одного из...

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

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

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

Работа со структурой данных "Дек"
Задание: 1. Написать программу для работы со структурой данных "Дек". 2. Структура данных должна быть реализована на основе динамической памяти. 3. Структура данных (поля и методы) должна...

Отладчик gdb. Отображение кода модуля
Здравствуйте! Есть модуль, который используется в программе. Program MyProgram; Uses MyModule; Begin

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

Вычислите значение цепной дроби
Вычислите значение дроби, написав код на языке Pascal:

Вычислить значение выражения
Вычислите значение, написав код на языке Pascal:

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

Использование указателя на функцию
Добрый день, возникает такая ошибка: unit1.pas(163,82) Error: Incompatible type for arg no. 2: Got "<procedure variable type of function(tObject;tObject):Boolean of object;Register>", expected...

Где получить информацию по Object pascal?
Кто знает, где, на каком ресурсе можно получить полную информацию по языку Object Pascal? Например нужен список всех исключений, существующих в языке. На сайте Free Pascal этого нет, там только есть...

Компилятор считывает число из файла в виде белиберды
вот часть кода: assign(f, s2); reset(f); readln(f, mode); if mode=1 then begin readln(f,lines); for i:=1 to lines do begin clrscr(); readln(f,nam);

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

Почему мой двоичный рюкзак занимает сильно много памяти?
uses math; var BMW,n,nn,i,j,M,Val,MaxI:int64; x:int64; k1,k2,x2:string; a2:array of string; a,k,kk:array of integer; b,c,c2,b2:array of integer; begin readln(BMW);

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

Перебор перестановок
Выведите все перестановки натуральных чисел от 1 до N. Входные данные Ввод содержит целое число N (1 ≤ N ≤ 9). Выходные данные Выведите одну или более строк, содержащих все перестановки чисел...

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

Анимация. Отобразить на экране мячик, который падает. Траекторию вычислять как обычную синусоиду, взятую по модулю
{Мячик идёт не по той траектории} program hghg; uses Graph, Crt, Dos; const CarWidth = 80; CarHeight = 40; WheelRadius = 10;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Преобразовать 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 баллов, во втором...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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