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

Темы раздела Pascal (Паскаль)

Тест по Паскаль
Подскажите пожалуйста%-) 1)В паскаль-программе описан массив Var z: array of integer; Укажите вариант ответа, в которых верно использован оператор присваивания. Выберите один ответ: z:=17...

Вычислить значение функции
Здравствуйте, нужна помощь в выполнение задания на Pascal, срочно. Написать программу, содержащую процедуру для вычисления значения функции f(x): f(x)=\begin{cases}1 & \text{, if } x\,>\,1...

Опишите структуру, показанную на рисунке, пользуясь словесными выражениями, например: “a подразделяется на b и c”
Опишите структуру, показанную на рисунке, пользуясь словесными выражениями, например: “a подразделяется на b и c” Написать на Pascal

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

Найти минимальный элемент среди элементов, лежащих на главной диагонали и его местоположение
Пожалуйста кто может сделать нужно написать код для паскаля Задание: Дана матрица А(4,4) Найти минимальный элемент среди элементов, лежащих на главной диагонали и его местоположение Найти...

Вычислить интеграл по формуле правых прямоугольников
Вычислить интеграл по формуле правых прямоугольников с точностью 10-5. \int_{0}^{1}\operatorname{ch}x^2\operatorname{d}x

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

Не используя никаких функций и никаких операций, кроме умножения, получить а10 за четыре операции
дано значение а,не используя никаких функций и никаких операций, кроме умножения получить а10 за четыре операции

Код в Паскаль
Помогите пожалуйста, почему-то не работает(( unit unitKR; interface Type TPoint = Object x, y: integer; color: integer; visible: boolean;...

Поиск наибольшего числа из строки
В программу вводят строку с числами от 1 до 100 (числа положительные и дробные) через пробел. Каждое из чисел по длине не превышает 1000 символов включая символ-разделитель целой и дробной части -...

Компиляция не произошла из-за следующих ошибок паскаля
program Lab; uses SysUtils; var a: Integer; function w(y: Integer): Integer; begin

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

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

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

Что выведет программа на экран?
1. Что выведет следующая программа на экран? type pinteger=^integer ; var p , p2 : p integer ; p3 : ^ pinteger ; a , b : integer; begin a :=3; p:=@a; p3:=@p; b:=1;

Файл с данными не сохраняется
Доброго времени суток, При выборе номера 2(вывод в файл), файл создается временный , но не сохраняется program project1; uses sysutils; type tf=textfile; gora=record

В массиве найти слова, которые можно составить из заданного набора букв
Строки и множества. Дан массив из N слов и набор букв. Необходимо найти те слова, которые можно составить из заданного набора букв.

Определение точки в пространстве по заданным координатам
Здравствуйте, подскажите пожалуйста, почему программа неверно выводит данные о положении точки по вводимым координатам. Кроме того, иногда вместо окна вывода вылезает Form1, как этого избежать?...

Напишите, что выведет на экран программа
var a , z ,x ,y ,p: integer ; procedure p2(x : integer ; var y , z : integer ); var a : integer ; begin a:=x+y ; z:=y-p; p:=2-p; x:=a*2; y:=x div 2; end; begin a:=2;z:=3;x:=4;y:=5;p:=6; p2(a ,...

Ошибка
program CodeTranslation; uses SysUtils, Math; const m = 5; p = 2; var

Переставить элементы последовательности в заданном порядке
Даны действительные числа a1, a2, ..... a2n Получить: a2n, an+1, a2n-1,an,.....an,a1

Написать функцию, подсчитывающую количество слов в списке, которые начинаются с той же буквы, что и следующее слово
Пытался написать с функцией, но получилось только так. Сделайте пожалуйста с функцией. type PList = ^TList; TList = record sl: string; byk:string; Next: PList; end; var Head,...

Main.pas(13,25) Fatal: Syntax error, "DO" expected but "identifier STEP" found
program CodeTranslation; uses SysUtils, Math; var p, q: Integer; m: Double; begin p := 2;

Есть список игрушек, некоторые из которых имеются в N детских садах. Определить игрушки из списка:
Есть список игрушек, некоторые из которых имеются в N детских садах. Определить игрушки из списка: • которых нет ни в одном из детсадов; • которые есть в каждом из детсадов.

Найти номера минимального и максимального элементов массива
Дан массив Xi, i = 1, 2, …, 15. Найти номера минимального и максимального элементов массива. Определить, какой из них лежит ближе к началу массива

Вычислить квадраты чисел на произвольном интервале
Program n_12; var x,y:Integer; begin Writeln('программа вычисления квадратов чисел'); Writeln('введите число до 20'); Readln(y); x:=1; while x<=y do {ПОКА x<=y ДЕЛАЙ} begin ...

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

Округление чисел массива A(m) до трёх значащих цифр
В массиве A(m) хранятся различные вещественные числа (как большие, так и меньшие единицы). Округлить их, оставив в каждом по 3 значащих цифры. Написать программу на Pascal или C++, не используя...

Составить блок схему алгоритма и программу для вычисления функции по формуле
Здравствуйте. Подскажите пожалуйста ,как cоставить блок схему алгоритма и программу для вычисления функции по формуле для произвольных исходных данных, с двойной точностью: t=\sqrt{\left|12\pi...

Определить, являются ли три числа сторонами треугольника
Числа а, b, с тогда и только тогда являются сторонами треугольника, когда существуют такие положительные х, у, z, что \begin{cases}a=x+y;\\ b=y+z;\\ c=x+z.\end{cases} Написать программу на...

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

Рекурсия на Паскале
Алгоритм вычисления значения функции F(n), где n – целое неотрицательное число, задан следующими соотношениями: F(n) = 3·n, если n < 3 F(n) = F(n – 2)·F(n – 1) - n, если n > 2 и число n чётное,...

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

Создание множества содержащего знаки препинания из непустой последовательности символов
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности: знаки препинания; на pascal нужно использовать...

Усложненный калькулятор, помощь с кодом (довести его до конца)
Всем добрый вечер, нужна ваша помощь). Как-то дальше код не идёт. С чем нужна помощь: 1) Нужно сделать, чтобы при операциях с матрицами система считывала следующие число после A и B, и присваивала...

Вывести на экран только положительные числа
Дано 3 числа (не равные нулю) Вывести на экран только положительные числа Введите а : 3 введите а: -3 Введите B: -6 введите...

Создать текстовый файл в папке My_Files, вложенной в текущую
Программу, которая создает текстовый файл в папке My_Files, вложенной в текущую. Если папки My_Files нет, то она создаётся. Строки текста вводятся с клавиатуры и записываются в файл. После ввода...

Вычислить значение арифметического выражения
Помогите решить в Паскале: 1. Вычислить значение арифметического выражения следующего вида: b=c(sgrt( y+ x^2 )(cos⁡(x)- |c-y| ...

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

Вычислить предел последовательности
Вычислить предел последовательности an c точностью 0.5∙10–5, если значения a0, x вводятся. Значения an считать по правилу an = 8-cos(3+(an-1)2)/2n

Вычислить определенный интеграл
где f x( ) равно sin(x)

Количество сдвоенных букв в предложении
Составить программу, которая подсчитывает количество сдвоенных букв в предложении, на языках Pascal и С++.

Упорядочить элементы массива по возрастанию
C помощью датчика случайных чисел сформировать одномерный массив из N элементов и выполнить следующие действия:упорядочить элементы массива по возрастанию (алгоритм сортировки следующий: поиск...

Нужно исправить код для задачи
Решаю первую часть задачи - " Рассмотрим последовательность 110100100010000..., в которой выписаны подряд степени числа 10. Цифры в этой последовательности нумеруются слева направо, начиная с...

Совместная работа
Задача: Совместная работа. Известно время t1, t2, ..., tn, за которое некоторую работу может выполнить каждый из n рабочих бригады, работая в одиночку. Сколько времени понадобится бригаде на...

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

Вычислить интеграл
Нужно написать программу на Паскаль, которая вычисляет интеграл. Важно: нельзя использовать готовые функции, по типу break, exit,и тп. Нужно написать через процедуры и функции.

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

Найти наибольший элемент массива K, не имеющий себе равных в массиве L
Задача: Даны два целочисленных массива K(m) и L(n). Найти наибольший элемент массива K, не имеющий себе равных в массиве L.

Вычислить определенный интеграл
где f x( ) равно cos(x)

Вывести матрицу, в которой присутствует строка с максимальной суммой элементов
Даны три целые матрицы размера N*N. Вывести ту из них, в которой присутствует строка с максимальной суммой элементов.

Изменить программу
Помогите пожалуйста изменить 12 строку на простые математические операции, Паскаль: Программа выводит числа Армстронга var i,k,s,p,n,M:integer; begin Write('Введите M '); Readln(M); for...

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

Файл данных хранит фамилии студентов. Напечатать фамилию студента расположенного в файле под номером n
Файл данных хранит фамилии студентов. Напечатать фамилию студента расположенного в файле под номером n.

Даны три целые матрицы размера N*N
в которой присутствует максимальный элемент

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

Написать код

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

Подсчитать произведение сумм заданных элементов массива
Составить программу, которая, сформировав с помощью датчика случайных чисел одномерный массив данных, подсчитывает следующие выражения: y = (x1 + x2n)(x2 + x2n-1)...(xn + xn+1) Программу написать...

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

Найти минимальный из элементов, больших 2, и поменять его местами с первым
Задание: Дан одномерный массив X(15). Найти минимальный из элементов, больших 2, и поменять его местами с первым. Напишите код паскаль. Нужно пожалуйста! Используйте так же пожалуйста обозначения...

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

Ошибка в решении
Добрый день! есть задача: В следующей программе описать запись Homme, которая используется для описания человека (поля: Имя, Отчество, Фамилия, дата рождения, пол). Создать файл типа Homme с именем...

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

Определить номер первого среди элементов последовательности an, удовлетворяющих условию an< b
Определить номер первого среди элементов последовательности an, удовлетворяющих условию an< b. Значения an считать по правилу an = 1 / (n2 + 1); значение b ввести.

Заполнить матрицу заданного размера M(k, l) числами 1, 2, 3, 4
Разные соседи. Заполнить матрицу заданного размера M(k, l) числами 1, 2, 3, 4 так, чтобы по горизонтали, вертикали и диагонали не было одинаковых рядом стоящих чисел. Написать программу на Pascal...

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

Определить вид табулируемых функций
Уже голову сломал как это делать.. В начале нужно определить вид табулируемых функций, показанных в таблице; потом - фигуру или график, которые необходимо "нарисовать". Результаты табулирования...

Гиперболические функции
Гиперболические функции определяются следующим образом

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

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

Выполнить заданные действия с одномерным массивом
Массивы 1) В одномерном массиве, состоящим из N элементов, вычислить: g. сумму отрицательных элементов массива; h. произведение элементов массива, расположенных между минимальным и...

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

Найти сумму первых N четных натуральных чисел
2)Ввести целое число N. Найти сумму первых N четных натуральных чисел.(с использованием while repeat)

Рассматривается множество целых чисел, принадлежащих числовому отрезку [2807; 8558]
Рассматривается множество целых чисел, принадлежащих числовому отрезку (2807; 8558), которые удовлетворяют следующим условиям: - запись в двоичной системе заканчивается на 11; - запись в...

Вычислить значение выражения
Дано: вещественные х, у. Вычислить: z = (sign х + sign y) sign(x+y)

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

Уравнения с Суммой
Это вообще рашается?

Упорядочить элементы массива по возрастанию
Генерация и сортировка одномерного массива, генератор случайных чисел. C помощью датчика случайных чисел сформировать: одномерный массив из N элементов, и выполнить следующие действия: 1)...

Составьте программу вычисления суммы членов последовательности
составьте программу вычисления суммы членов последовательности {a}_{k}={\frac{k}{k^{2}+1} (k=1,2,3...n)

Создать и заполнить символьные файлы f1 и f2 Переписать с сохранением порядка следования компоненты файлов
2. Создать и заполнить его символьные файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 – в файл f1. Использовать вспомогательный файл h.

Вычислить значение выражения
Функции Найти (a! + b!)/(a+b)!, создав функцию для вычисления факториала произвольного натурального числа.

Сделать рамку по периметру экрана из символа а
Решить на паскале без массива. Сделать рамку по периметру экрана из символа а, потом в левом нижнем углу появляется "." затем плавно передвигаться наискосок вправо вверх по оси х и y, отрaзиться...

Исправить ошибку
не понимаю что за ошибка program pr1; var r,x,y, t: real; begin writeln('vvedite x,y'); readln(x,y); r:= (sin(x)+sin(y))/(cos(x)+sin(y))*((sin(x*y))/(cos(x*y))); t:= (x+y)/(x+1) - (((x*y) -...

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

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

Вывести BMP файл на экран через ptcGraph
Здравствуйте! Не могу найти в Сети рабочий модуль для чтения файлов формата bmp средствами free pascal или turbo pascal. Прошу вашей помощи! Нужно прочитать bmp-файл в память и вывести его...

Код работает в онлайн-компиляторе, но не работает в Lazarus
Почему может не работать этот код? uses Math; var m, n, p: Integer; s: Double; begin

Разработать алгоритм и программу с единственным циклом для обработки одномерных массивов

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

Используя метод решета Эратосфена, напечатать в убывающем порядке все простые числа из диапазона
Дано целое n от 2 до 500. Используя метод решета Эратосфена, напечатать в убывающем порядке все простые числа из диапазона n..2n.

Определить какая сумма элементов больше, расположенная до максимального элемента или после
4)Определить какая сумма элементов больше, расположенная до максимального элемента или после.

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

Вычисление площади фигуры
Вычислить площадь фигуры, ограниченной линиями: x = 1; x = 2; y = 0; y=(ln⁡(x))/x4. Для вычисления площади фигуры используйте численное интегрирование методом трапеций с точностью ε = 0,0001. ...

Определить, под каким углом к фарватеру должен плыть Чапаев, чтобы его "не снесло"
Не использовать операторы цикла и массивы. Использовать операции div и mod Задача: Чапаеву надо под прямым углом к фарватеру преодолеть реку Урал шириной b м. Его скорость в стоячей воде V1 м/с;...

Опишите структуры, показанные на рисунках
Опишите структуры, показанные на рисунках, пользуясь словесными выражениями, например: “a подразделяется на b и c” и т.д. Затем то же сделайте на Turbo Pascal: объявите каждую запись, задавшись...

Создать программу по блок схеме

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

Организовать заполнение массива случайными значениями от 2 до 5
5)массив хранит оценки сессии 5ти студентов, по 6ти предметам.Организовать заполнение массива случайными значениями от 2 до 5. Определить количество студентов, сдавших сессию без "2".

Замена элементов в матрице; смена столбцов
Пожалуйста, помогите с задачей: Задана матрица А размера 5*7. Заменить в нем неповторяющиеся элементы на единицы. (Блок-схема приветствуется, если не сложно)

Что такое div и mod?
Что такое операции div и mod?

Возведение в степень
Обьясните пожалуйста как возводить в n,n-1,n-2 и тд. степени

Как написать простейший калькулятор?
Написать программу, моделирующую простейший калькулятор. Пользователь вводит выражение типа ’6+3’ (цифра, знак операции +, цифра) и получает результат. я написал что то вроде этого: program...

Массив: Вывести массив на экран. Найти сумму элементов массива.
1. Заполнить массив А квадратами целых чисел от 1 до 100. Вывести массив на экран. Найти сумму элементов массива. 2. Дано последовательность из 10 чисел: 2, 4, 6, 8, 10, 12, 14, 16, 18, 20....

Площадь треугольника по формуле Герона
:help:Написать процедуру,которая вычислит площадь треугольника по формуле Герона S=(p*(p-a)*(p-b)*(p-c)) :help нужно на отчет:Написать процедуру,которая вычислит площадь треугольника по формуле...

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

Вывести случайное число в диапазоне 15-22
Как сделать, чтобы выводило число рандомом к примеру в диапазоне от 15..22 ?:):)

Как в Паскале записать модуль числа
Народ как в Паскале записать модуль числа например 8...........

Вычислить площадь круга
Помогите мне плиз:cry: Нужно сделать программу в паскале ''программа вычисления площади круга'' Она выглядит так.В ней нужно только исправить ошибки я сам исправил несколько но вот в 5 строчки...

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

Что означает inc?
if fl then inc(sum,a); Что означает inc?

Найти наибольшее из трёх чисел
Найти наибольшее из трёх чисел АВС.

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

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

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

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

Дано целое число N(>0). Найти сумму 1+1/2+1/3+…+1/N (вещественное число)
Дано целое число N(>0). Найти сумму 1+1/2+1/3+…+1/N (вещественное число). Простейшая задачка, но несмотря на это, не могу вывести правильный ответ. Вот мой код: program for10; var b:...

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

Переход на следующую строку при выводе в консоль
У меня вопрос, как перевести текст на следущую строку вот в таком случае If x=1 then write ('Вы ошиблись. вот здесь нужен переход на новую строку x=2')

Алгоритм сравнения трех чисел
Голову сломал уже. Подскажите оптимальный алгоритм сравнения трех чисел. Необходимо учесть все варианты, в том числе равенство. У меня получается не 10 сравнений, а это много.

Определение знака зодиака по дате рождения
Вопщем то я написал прогу, но препод говорит что она не эффективная... :( Снизу прикрепил то, что я своял Можете подсказать как сделать? Требуется определить знак зодиака в зависимости от даты...

М. Э.Абрамян Решебник
Доброго времени суток! Требуется помощь программистов-энтузиастов. Дело в том, что решил написать решебник к задачнику Абрамяна (к Programming Taskbook Электронный задачник по программированию...

Найти среднее арифметическое элементов массива.
дан массив в котором N чисел. Найти среднее арифметическое элементов массива.

решить строковые задания
6 Дано предложение. Вычислить процент вхождения буквы «о» в данное предложение и получить новое предложение путем увеличения данного, на полученный процент, пробелами. 7 Дана фраза определить...

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

Как работает функция XOR и что она делает?
Как работает функция XOR и что она делает?

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

вычисление площади трапеции
ребят помогите пожалуйста, решила задачу Составьте программу для вычисления площади трапеции. а она у меня не идет. подскажите где ошибка? program p2; var a,b,h,s:real; begin writeln...

Вычислить длину окружности и площадь круга одного и того же заданного радиуса R
Брату в универе нужно написать задачки по программированию (лабы) на паскале. Помогите кто знает, спасибо. 1. Вычислить длину окружности и площадь круга одного и того же заданного радиуса R.

Возведение в квадрат.
Здравствуйте, прошу помочь. Условие задачи, написать программу, которая возводит в квадрат числа от a до b, точнее требуется вот что, тест такой: a= 10 b= 20 и от 10 до 20 все числа нужно...

Программа калькулятор
Нужно написать программу-калькулятор на паскале, которая выполняет операции умножения, деления (проверяет, что делить на 0 нельзя), сложения, вычитания, вычисляет целую часть от деления и остаток. ...

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

Что такое clrscr?
Что такое clrscr

Задан массив из 10 целых чисел. Найти сумму элементов этого массива
ребят, вот задача, нужно ее решение, задан массив из 10 целых чисел. найти сумму элементов этого массива вот написал решение, prorgam sp; var A: array of integer; I,S: integer; begin I:=0;...

Определить, является ли треугольник равнобедренным
Дорогие ЛЮди 1. Составить программу решения разветвляющегося алгоритма, использующего простое логическое условие. Заданы стороны а, Ь, с. Определить, является ли треугольник равносторонним....

Упорядочить три числа по возрастанию.
Вот такая задачка: Составить программу упорядочивания трех чисел x, y, z по возрастанию. помогите пожалуйста

Дано трехзначное число определить количество сотен, десятков и единиц
Дано трехзначное число определить кол-во сотен,десятков и единиц.Помогите решить!

Дискриминант
Не работает программа: var a,b,c,x, D: integer; begin write('Введите a: '); readln(a); write('Введите b: '); readln(b); write('Введите c: '); readln(c);

Найти сумму нечетных чисел от 1 до n.
Нужно решить две небольшие задачки=) Пишу прмо с пары =))) 1. Найти сумму нечетных чисел от 1 до n. 2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все числа,...

Программа которая выводит таблицу степеней двойки ( от нулевой до десятой ) .
Здравствуйте, нужна помощь в составлении программы , которая выводит таблицу степеней двойки ( от нулевой до десятой ) . Ниже представлен рекомендуемый вид экрана во время работы программы 0 1 1...

Напишите программу которая вычисляет сумму первых n натуральных чисел
напишите программу которая вычисляет сумму: первых n натуральных чисел; квадратов первых n натуральных чисел; всех четных чисел в диапазоне от 1 до n; Всех двузначных чисел.

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

Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) и найти большее из них
Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) и найти большее из них. Найти числа, которые принадлежат интервалу: Program work1; uses crt; var x,y,z:...

Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке
Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке.

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

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

Как вывести результат двумерного массива на экран в виде таблицы?
как вывести результат двумерного массива на экрант в виде таблицы

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

система уравнений
решить систему уравнений на pascal

Перевод числа из десятичной системы счисления в двоичную
Здравствуйте! Пытаюсь написать программу для перевода чисел из десятичной системы счисления в двоичную. Вот, что пока написал Program Nolimit; var M:array of integer; n, Ch, Ost :...

Написать программу, которая выводит на экран цифры числа.
Дано 3-значное число n, n<=5. Написать программу, которая выводит на экран цифры этого числа. При напичании использовать только цикл for. Вот начало программы, требуется её окончание var...

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

Что означает while not eof(f)
Что означает while not eof(f) и как описать это в блок схеме

Очень хорошая книга для начинающих!
Вот на этом сайте: http://oleg-derevenets.narod.ru/ Называется Песни о Паскале. Рекомендую!

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

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

Найти сумму элементов в каждой строке двумерного массива
Здравствуйте) Помогите пожалуйста решить несколько задач) Заранее огромнейшее спасибо) 1. В заданном массиве K(F;F) найдите сумму элементов в каждой строке. Сформулируйте одномерный массив ,...

Три сопротивления R1,R2,R3 соединены параллельно. Найти сопротивление соединения
1.Три сопротивления R1,R2,R3 соединены параллельно. Найти сопротивление соединения. нужна помошь помогите плиз...

Четные и нечетные элементы массива
Заполните массив длиной 20 элементов случайными целыми числами 0<=X<100. Выдайтемассив в строчку, числа через пробел. Рассортируйте числа массива на чётные и нечётные, выдайте в две отдельные строки....

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

Ввод массива через процедуру
Почему нули выдаёт... uses crt; const n=2; m=3; type amas=array of integer; bmas=array of integer;

Заполнить массив случайными числами в заданном интервале
Заполните массив C случайными числами в интервале от 5 до 15 и вывести его на экран

Найти сумму всех четных цифр в числе
Как-то не задалось у меня с этими тремя,не получается . _ . :wall: 1.Нужно найти сумму всех четных цифр в числе. Заранее огромное спасибо:sorry:

Как в паскале записать икс в пятой степени?
Как в паскале записать икс в пятой степени? Нам сказали, что ** - функция возведения в степень в АЯ. Я попробовала так записать в задаче, но он мне пишет - "неверное выражение".

Даны три числа. Найти наименьшее из них.
Можете помочь решить вот эти задачи: 1)Даны три числа. Найти наименьшее из них. 34 45 56 34 2)Даны три числа. Найти среднее из них (то есть то число, расположенное между наименьшим и...

Ввести два числа. Если А больше Б вычислить их сумму, иначе произведение
Ввести два числа. Если А больше Б вычислить их сумму, иначе произведение.

полторы кошки за полтора часа съедают полторы мышки. Сколько мышек съедят X кошек за Y часов?
ПОМОГИТЕ ПОЖАЛУЙСТА"! Нужно сделать задание во фри паскале! полторы кошки за полтора часа съедают полторы мышки. Сколько мышек съедят X кошек за Y часов?

Построить блок-схему алгоритма для вычисления значения функции и написать программу на языке pascal
Помогите решить такую задачу Построить блок-схему алгоритма для вычисления значения функции и написать программу: Y(x,\,y)=\begin{cases}\sqrt{x+y^{\,}} & \text{, if } y\,<\,2 \\\\ (x+y)^2 &...

нарисовать простенького снеговика
нарисуйте плиз снеговика!срочно нужен

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

Время. Дано количество секунд. Вычислить время в формате часы/минуты/секунды.
Написать программу, которая требует от пользователя ввести к- секунду и чтобы программа считала сколько полных часов и минут прошло с момента начало новых суток. Если к = 0, выводить соответствущее...

Вывести на экран простые числа
Помогите пожалуйста!! Необходимо Вывести на экран (распечатать) все простые числа от 0 до r

Дано трехзначное число, найти произведение его цифр.
№1 Дано трехзначное число, найти произведение его цифр. №2 Дано натуральное число n (n<=9999), вычислите верно ли, что это число содержит ровно три одинаковые цифры, если оно записано четырьмя...

Сортировка пузырьком
Товарищи,прошу помощи. Нужно отсортировать массивчик методом пузырька. Как только не пробовал..Никак не выходит. begin for i:=1 to N do begin for j:= N to i do begin if m then

Вывести число в обратном порядке
Нужно решить эти задачи: 1) Дано шестизначное число 'A', которое ввел пользователь типа longint. Вывести это число в обратном порядке. При выводе числа используется одна переменная. Например:...

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

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его цыфр

Не могу ответить на тестовое задание по Паскалю
Здравствуйте мне нужна помощь от Паскаль кодеров или кто его немного знает. Есть Тест и там экий вопрос: Дан фрагмент программы, определяющий количество отрицательных элементов массива A....

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

Написать программу, которая запрашивает имя пользователя и здоровается с ним
1.Написать программу, которая запрашивает имя пользователя и здоровается с ним. program pr; uses wincrt; var s:real; writeln('Введите ваше имя'); readln(s); writeln('Здравствуйте, ',s);...

Arccos, Arcsin в Pascal
Не понимаю, как в Pascal`е записать следующие выражения: arcsin^2(k*x) arccos(k*x) Если кто знает, напишите пожалуйста.

Сборник задач на множественный выбор (Case; If... Then If...)
Я столкнулся с тем, что у многих людей задачи одинаковые, и многие ищут решения в Интернете, тем самым убивая время на поиски. Вот и решил объединить их и разместить в одной теме. (В первую очередь...

программа для нахождения нок
Ребят нужно написать программу на пасскале для нахождения наименьшего общего кратного для двух чисел при помощи repeat.:wall:

Найти первую цифру числа
Дано натуральное число n. Найти первую цифру

Даны действительные числа а1,а2, . . . ,аn. Поменять местами наибольший и наименьший элементы.
Помогите пожалуйста

Тест по информатике.
1. Для чего производится описание массивов ? А) Чтобы помнить самому сколько ячеек в массиве Б) Чтобы ЭВМ запомнила имя массива В) Чтобы ЭВМ зарезервировала память для хранения элементов массива...

найти сумму цифр заданного четырехзначного числа
еще три задачки 1) Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в...

Ошибка: ожидался порядковый тип
Помогите исправить program Hw; const m = 3; var A: array of real; B: array of real; C: array of real; D: array of real;

Скачать Работающий Pascal для windows 8
Здравствуйте. Долго долго очень долго блуждая по просторам интернета, я искал pascal и всегда наталкивался на, то что паскаль не запускался и выдавал не известную ошибку и не кто толком не мог дать...

Циклы, 32 задания
Задали вот в инсте, нужно сделать в ближайшие пару дней, так как я болел. Часть задач есть но сомневаюсь в правильности. кому не сложно скиньте код(решение) хотябы некоторых. Циклы. 1....

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

Программа для перевода чисел из одной системы счисления в другую
Написать программу для перевода чисел из одной системы счисления в другую. Из 10 в 2, Из 16 в 8. Задание может быть выполнено в виде двух программ (одна выполняет одно преобразование, другая -...

Integer и Real
короче, как с этим быть? если сделать тип данных REAL и сделать просто какойнить калькулятор он както коряво отображает результат если результат 25 то отображается 2.50000000000(+00001) а если...

Как записать arccos?
помогите записать в паскале arccos((-1)^(i+j))

число кратное 5
Доброго врмени суток!! Помогите!Разобратся! Условие: Найти все числа кратные 5 из интервала М и К. Программа: Program CP_30; uses crt; var M,K,N:integer; begin clrscr; write('Введите интервал...

Найти сумму всех четных элементов массива, стоящих на четных местах
5.Дан массив целых чисел.Найти сумму всех четных элементов массива, стоящих на четных местах, то есть имеющие четные номера.

Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел
.Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел.

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

В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных
Буду очень признателен:) "В заданном одномерном массиве поменять местами соседние элементы, стоящие на чётных местах, с элементами, стоящими на нечётных. Каждый элемент массива выбирается...

Вычисление sin и cos (быстрый алгоритм)
Задача. Вычисление sin и cos (быстрый алгоритм) Прошу исходник

Ошибка 106: Invalid Numeric Format
Что значит в Паскале ошибка номер 106: Invalid Numeric Format? заранее спасибо

Программы для построения блок-схем по коду
кто знает более-менее точные программы для построения блок схем по коду.

Определить время падения камня на поверхность земли с высоты h
Помогите с решением на паскале :)

Найти разность между максимальным и минимальным элементами массива.
Одномерный массив. Написать Программу для решения следующей задачи. В массиве А=(а(1), а(2),...,а(n)) Найти разность между максимальным и минимальным элементами массива. Двухмерный массив....

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

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

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

Запуск Borland Pascal 7.0 на Windows 7 x64
Народ путем четырех часов гугла и тут поиска я хочу у вас спросить. Можно ли Borland Pascal 7.0 запутить как-то на 64 разрядной вин7 ? очень надо. может посоветуете что-то?

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

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

Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE
Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE

Повернуть матрицу на 90 градусов
В двумерный массив размером NxN ввести произвольные числа из диапазона от -4 до 10 (включая границы), N - заданное натуральное число. Переставить элементы в данном массиве так, чтобы содержание...

Как в паскале считать из файла строки
Привет всем. Как в паскале считать из файла строки вида: Петров 170.5 Иванов 183.0

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

Записать элементы массива в обратном порядке
Записать елементы массива А(n) в обратном порядке Добавлено через 15 секунд помогите решить вообще нечего понять не могу.

каким тегом поменять цвет вводимого текста в паскале?
каким тегом поменять цвет вводимого текста в паскале textcolor ??????? или какойто другой

Ввести с клавиатуры размер одномерного массива
Ввести с клавиатуры размер одномерного массива и его элементы. Распечатать массив в строчку. Можно поподробней.

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

даны 2 угла треугольника в градусах.определить существует ли такой треугольник
ребят помогите пожалуста с программой даны 2 угла треугольника в градусах.определить существует ли такой треугольник и если да то будет и он прямоугольником

Вывод наибольшего числа
Здравствуйте! Нужна ваша помощь, помогите пожалуйста! Program lab; Var a,b,c,max:integer; Begin Write('первое число:'); Readln(a); Write('второе число:');

Вывести на экран все четные числа от 0 до 30
Вывести на экран все четные числа от 0 до 30.. 3 способами while , for , repeat. help me please!!:help::wall:%) на процедуры!

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

Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим)
If13. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).

Расставьте строки программы в правильном порядке
Расставьте строки программы в правильном порядке, чтобы получилась программа, которая находит сумму первых N натуральных чисел: 1) writeln(‘sum=’,sum); 2) end. 3) end; 4) sum:=sum+i;...

Вывести таблицу на экран
Помогите, как создать таблицу в Паскале? :scratch: Объясните, в вообщем принцип написания:) Заранее спасибо:declare:

Сортировка двумерных массивов
Дана матрица 5х5,надо отсортировать все элементы по возрастанию

Вычислить x в степени n
Вычесли x в степени n.

Дано число n. Найти все его делители.
Нужно реализовать в Pascal. Что бы были входные(1.in) и выходные(1.out) данные. ) создать .ехе файл Задача.Делители Условие задачи: Дано число n. Найти все его делители. Решение: Т....

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

Удаление из массива повторяющихся элементов
Как в массиве убрать одно из повторяющихся чисел??? тоесть дан массив 1,1,2,3,4,6,3,2,1 получить 1,2,3,4,6 Добавлено через 12 минут Люди хелп!!! очень нуна!!!

Присвоить переменной Г текст, что состоит из первых 5 символов строки А и 5 и 6 символов строки Б
Помогите кто-нибудь!!!! Очень нужны ответы на такие вопросы!!!!!! Заранее всем большое спасибо:)!!!! 1. Длина строки- это количество символов между скобками? 2.Записать с помощью паскаль:...

Сформировать новый массив В, состоящий из положительных элементов массива А
Задача простая, но в силу своей неопытности решить её не получается. HELP! Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А. Размер...

Что такое exp
Приветствуюю Объясните пожалуйста , что такое exp. Расскажите что это вообще такое Такое слово я обнаружил у себя в программе и не понимаю за что оно выполняет.

Напишите программу которая выводит на экран таблицу умножения на n
напишите программу которая выводит на экран таблицу умножения на n (n-целое число в диапазоне от 2 до 10, вводимое с клавиатуры).

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

Найти все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111
Нужна помощь! Найти все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111

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

Вычисление корня методом хорд
функция x^2-5x+6=0 нужно составить программу вычисления корня методом хорд, помогите, очень прошу ) заранее спасибо! интервал любой, так что можно вводить с клавиатуры, точность E=0.001

Дано трехзначное число.Определить, является ли сумма его цифр двузначным числом?
№1 Дано трехзначное число.Опредилить являеться ли сума его цифр двухзначным числом?

Составьте программу для вычисления периметра прямоугольника
1.Составьте программу для вычисления периметра прямоугольника 2. Заданы числа a и b. Определить, эти числа одного или разных знаков. 3. Составьте программу, выводящую на экран квадраты чисел от 10...

Дано натуральное число n, переставить местами первую и последнию цифру местами.
№ 1: Дано натуральное число n, найти сумму первой и последней цифры этого числа. № 2: Дано натуральное число n, переставить местами первую и последнию цифру местами. Сам пробовал делать...

Реверс половин массива
Помогите написать программу пожалуйста(только без функции swap) Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй...

Вычисление определенного интеграла методом трапеций.
Методом трапеций вычислить значение интеграла S = (cos (x)) на отрезке интегрирования . Считать заданным численный метод решения. Включить в программу вычисление точного значения интеграла. На печать...

Заполнить массив случайными числами и вывести на экран отсортированный массив.
Заполнить массив случайными числами и вывести на экран отсортированный массив. Добавлено через 3 минуты 43 секунды очень срочно!!! Добавлено через 57 минут 37 секунд я не понимаю в...

Найти max{min(a,b), min(c,d)}
Найти max{min(a,b), min(c,d)}. написать в Паскале.Помогите очень надо до завтра!

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

Найти все пятизначные числа, которые при делении на A дают в остатке B, а при делении на C дают в остатке D
Напишите программу, которая вводит четыре натуральных числа (a, b, c и d) и находит все пятизначные числа, которые при делении на a дают в остатке b , а при делении на c дают в остатке d . Входные...

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

как скопировать текст(код) в паскаль?
как скопировать текст в паскаль

Вывести массив на экран
program mass; //------------------------------------------ var i,n:integer; min:real; A:array of real; begin randomize; //забиваем размер массива n:=random(10); //забиваем массив

Ввод/вывод матрицы
помогите с куском программы. введение кол-ва столбцов матрицы, введение кол-ва строк матрицы, введение каждого элемента матрицы. Добавлено через 1 минуту ввод элементов с клавиатуры. рандомом...

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

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство {3}^{k} < N. как возвести в степень, и как решить задачу при помощи цикла while?

Как пишится "НЕравно"?
=, >, < и...

Выделение корня n-й степени.
Программа выделения корня из числа. Число и степень корня вводятся с клавиатуры. Что не так?? Program koren; var k,n:integer; s:real; Function po(x:real;m:integer):real; var y:real; ...

Error 39: Ordinal expression expected
______________________________________________________ Program lr3var21; Var x,y:real; Begin Writeln('vvedite argument'); Readln(x); Case x of 1..9999: y:=sqrt(x); 0:...

Составить алгоритм транспонирования матрицы
составить алгоритм транспонирования матрицы

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

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

Построить интерполяционный многочлен Лагранжа
надо написать программу Построить интерполяционный многочлен Лагранжа по известным в узлах x0,x1,...x5, значения функции f(x). Вычислить значения этого многочлена в равномерной сетке точек на...

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

Найти максимальный и минимальный элементы массива
найти максимальный и минимальный элементы массива длинна массива 11 тип элементов integer

Процедура Sleep. Скорость анимации в Паскале.
Почему-то минимальная пауза, которую делает программа, 10 мс. Например begin for var i:=1 to 100 do begin write(i); sleep(1); end; writeln; writeln; ...

Вычислить интеграл методом Симпсона
помогите, пожалуйста, кто сможет, написать программу вот Вычислить приближённое значение интеграла от функции F(x)=exp(2*x)-exp(x)-ln(abs(x)+1)*cos(x) на отрезке с точностью е=0,0001....

Срочно нужен Паскаль для Windows 7
срочно нужен паскаль для Windows7!!!!!!!!!!

Вывести на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления
Напишите процедуру, которая выводит на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления.

По координатам трех вершин некоторого треугольника найти его площадь и периметр
Помогите написать программу! 1) По координатам трех вершин некоторого треугольника найти его площадь и периметр.

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

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

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

по координатам вершин треугольника вычислить его периметр
по координатам вершин треугольника вычислить его периметр, вычисление длины отрезка оформить в виде процедуры. через паскаль аbc)))

Лежит ли точка внутри треугольника?
Помогите!!!!!! Скоро сессия, а я не могу задачу решить. Ничего не понимаю в Паскаль. Буду очень благодарна,если кто-нибудь мне решит её. ЗАДАЧА по теме «Операторы ветвления»: Заданы координаты вершин...

составить программу для вычисления дискриминанта
составить программу для вычисления дискрименанта (корень квадратный b квадрат *4 *a *c) с использованием процедуры (sqrt((b)*(b)*4*a*c)) Добавлено через 2 минуты как удалить тему?

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

Как вывести текст на экран
Добрый день. Проблема в следующем. Есть программа: program proba; uses crt, graph; var begin write('hello'); readln; end.

Написать программу, которая выводит таблицу степеней двойки
Будьте добры помогите решить 3 задачи по циклам!!! Буду очень признателен! =) Задача 1. Дано действительное число Х Вычислить: S=1+x2/2!+x4/3!+x6/4!+…+x16/9! Вычисления произвести тремя...

Определить время года по номеру месяца
var a:integer; begin writeln('Введите номер месяца (число от 1 до 12) и нажмите <Enter>'); write('-> '); readln(a); if (a<1) or (a>12) then writeln('Это число не является номером...

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

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

Как разбить любое число на отдельные цифры
напр. дано 23523, должно получиться: masNum = 2; masNum = 3; masNum = 5; masNum = 2; masNum = 3; нужна именно процедура(ну или прога), ато немогу я сам, не лезит никак в голову, знаю...

Заполнить двумерный массив случайными числами
Задача на Паскале: Заполнит двумерный массив размерностью N*M(константы) случайными числами и определить среднеквадратичное отклонение элементов массива. Вывести на экран двумерный массив... У...

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

Рекурсия - числа Фибоначчи
Вычисление n -го чмсла фибоначчи, исходя из реккурентного определения этих чисел: каждое последующее = сумме двух предыдущих

Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N
сост прогу Определить кол-во трехзначных натуральных чисел, сумма цифр которых равна заданному числу N заранее спс огромное

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

Сортировка массивов. Сортировка выбором
Помогите пожалуйста, я что-то совсем запуталась при составлении данной программы... Сортировка выбором. Дана последовательность чисел а1, а2, …, аn. Требуется переставить элементы так, чтобы они...

Рассматривается множество целых чисел, принадлежащих числовому отрезку [3712; 8432]
Рассматривается множество целых чисел, принадлежащих числовому отрезку , которые удовлетворяют следующим условиям: − запись в двоичной и четверичной системах счисления заканчивается одинаковой...

Составить алгоритм и блок-схему для вычисления значения функции
Составить алгоритм и блок-схему для вычисления значения функции Y при заданном значении аргумента X: Y=(X-3)2+4(X+5), X=3

Дано действительное число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить:а4
1)Дано действительное число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить:а4 и а20 за пять операций 2)даны действиетные положительные числа...

Label
Мне вот интересно-а зачем он вообще нужен?=) Зачем в паскале нужны метки,и как они испольуются? Очень интересно узнать =) Добавлено через 58 секунд Мне вот интересно-а зачем он вообще нужен?=)...

Является ли треугольник равносторонним
помогите решить задачи:swoon: 1) Является ли треуг. АВС равносторонним. Стороны вводятся с клавы. 2) Могут ли числа a,b,c быть сторонами треуг. только что бы код не сильно мудрёный был,...

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

Среди двухзначных чисел найти сумму квадратов цифр которых делится на 13
среди двухзначных чисел найти сумму квадратов цифр которых делится на 13

Найти сумму всех четных элементов массива
1 Дан массив целых чисел. Найти сумму всех четных элементов массива, стоящих на четных местах, то есть имеющих четные номера. 2 Дан одномерный массив целых чисел, состоящий из N элементов....

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

В чём отличие Read от ReadLn ?
В чём отличие Read от ReadLn ? Я раньше всегда писал Readln и даже не задумывался, чем эта функция отличается от Read. А тут писал программу, она всё никак не работала (вернее, неправильно...

Нарисовать Звездное Небо
Program Zvezdy; Uses Crt,Graph; Var X,y,z,k,gd,gm:integer; Gd:=Detect; InitGraph: (Gd,Gm,'C:\Tp\Bin'); Randomize For k:=1 to 400 do Begin x:=random(640); y:=random(480);

Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите все такие числа
Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите все такие числа.

Дана последовательность целых чисел а1,а2,а3,...аn. Выяснить, какое число встречается раньше-положительное или отрицательное.
Дана последовательность целых чисел а1,а2,а3,...аn. Выяснить, какое число встречается раньше-положительное или отрицательное.

Вычислите n-й член последовательности, заданной формулами
Здравствуйте, помогите найти ошибку в коде Вот условие: Вычислите n-й член последовательности, заданной формулами: a2n = an *+ 1 (n>0), a2n+2 = a2n+1 - an (n>0), a0=1, a1=1. Входные данные...