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

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

Стеф и его команда
Стеф и его команда Ограничение по времени: 1 секунда Идёт матч между командами «Воины золотого штата» и «Востон Келтикс». На текущий момент табло показывает время m:s (m — число минут, s — число...

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

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

Указать, что должно стоять в пропущенных ячейках таблицы
Для проверки правильности работы программы program pr; var i, s: integer; const arr: array of integer = (12, 42, 14, 32, 45, 39); begin s := 0; for i := 1 to 6 do begin if arr mod...

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

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

Определить принадлежит ли данная точка замкнутому множеству изображенному на рисуне
Даны координаты точки М(х,у). Определить, принадлежит ли данная точка замкнутому множеству D (рисунок 1). ∆ABC – равносторонний.

Найти значения функции sin(x) с заданной точностью
Реализовать алгоритм на языке программирования Pascal с использованием оператора цикла while...do... или Реализовать алгоритм на языке программирования Pascal с использованием оператора цикла...

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

Определить количество столбов и количество рулонов сетки, необходимых для изготовления забора
Можете сделать программу в паскаль и блок схему. Садовый участок имеет форму полукруга, диаметр которого равен D (м). Участок по всему периметру необходимо огородить забором. Определить, какое...

Локализовать наименьший положительный корень уравнения и уточнить его значение с заданной точностью двумя методами
Локализовать наименьший положительный корень уравнения e1.08*x-2+x2=0 и уточнить его значение с точностью до ε=0,0001 двумя методами.

По числовому коду товара получить справку о цене и количестве товара
Как заделать код рабочим ?: var codeoftheproduct,i: integer; price: array of integer; amountoftheproduct: array of integer; begin for i:=1 to 6 do begin price:=random(50);

Метод деления пополам
var a,b,e,c,i,o,f :real; f:= ((1-x)/x)-3*cos(4*x); a:=1.100814; b:=-0.505; i:=0.00001; e:=1; begin while ((b-a)/2)>i do end;

Составить программу отделения одного из корней уравнения f(x) = 0. Метод уточнения корня - метод половинного деления
Составить программу отделения одного из корней уравнения f(x) = 0. После этого необходимо составить программу уточнения корня в пределах найденного отрезка методом половинного деления....

Найти площадь криволинейной фигуры методом трапеций
Площадь криволинейной фигуры можно приближенно найти методом трапеции по формуле: , где h = xi – xi-1 для всех 1 <= i <= n. Считая h известным, а y – заданной таблицей значений функцией,...

Исправить ошибку в коде
const s = 'az13'; var i:integer; begin for i:=1 to length(s) do writeln(s,' cod = ',ord(s); readln end. Ошибка такая: Program1.pas(5) : Встречено ';', а ожидалось ')'

1. Дано натуральное число n. Составить программу вычисления S = 1! + 2! + 3! + …+ n!
Помогите решить задание: 1. Дано натуральное число n. Составить программу вычисления S = 1! + 2! + 3! + …+ n!

Исправить ошибку в коде
На языке Pascal: Program lab32; uses crt; var N:integer; K:integer; L:integer; M:integer; X:char; A:char; B:char; C:char; begin clrscr; X:='a'; writeln(X); N:=Ord(X); writeln(N);

Решение уравнения
Здравствуйте. Подскажите, как написать программу на паскале для решения данной системы уравнений? Переменные a, b, x должны вводиться с клавиатуры, справа условия для x. Я написала такой код,...

Вычислить суму ряда
Нахождение суммы ряда, суммирование прекращается когда модуль слагаемого числа становится меньше е (е>0 входное данное) fi – последовательность Фибоначчи (f1 = 1, f2 = 1, fn+1 = fn + fn−1)...

Сколько раз выполняется цикл
1) x=:1; while x>1 do x:=x+1; 2) x=:10; while x>1 do x:=x+1; 3) x=:1; y=:1;

Нужно дописать программу
Задано два массива X(7) и Y(7), вычислить значение переменной R=min(K1,K2), где K1 – количество неотъемлемых элементов массива X, а K2 – количество неотъемлемых элементов массива Y. Говорю сразу,...

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

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

Есть простенький код на питоне, мне нужно перевести его в паскаль
вот код: sal = int(input()) tax = int(input()) res_tax = sal / 100 * tax res_sal = sal - res_tax print(res_tax) print(res_sal)

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

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

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

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

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

Если в строке есть слово, начинающееся на *, то в остальной части строки заменить все * на +
Введите строку. Если в ней найдено слово, начинающееся на *, то в остальной части заменить все * на +. Без функций

Если число положительно, то увеличить его в 10 раз, иначе найти его модуль
Составить алгоритм решения задачи. С клавиатуры вводится число. Если оно положительно, то увеличить его в 10 раз. В противном случае найти его модуль. ( расписать в коде)

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

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

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

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

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

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

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

Определить, существует ли изолированный круг, который не пересекается другими
В случайной последовательности x1, x2, ..., x3n каждая тройка чисел описывает координаты центра и радиус круга. Существует ли изолированный круг, который не пересекается другими? Напишите программу...

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

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

Реализация адресной очереди
Мне требуется помощь в реализация адресной очереди (программа динамической очереди через указатели)

Магараджа и ферзи
Магараджей в сказочных шахматах называют фигуру, перемещающуюся как ферзь и как конь. Известно, что доска N х N (4 < N < 15), начиная с N = 4, можно разместить N ферзей так, чтобы они не били друш...

Python -> Pascal
Всем привет, помогите пожалуйста переконвертировать этот код в Pascal. Просто сроки горят, ничего не успеваю! Буду премного благодарен!!! x = y = value = for g in value: sum = 0 ...

Указать, при каком условии тело цикла for не выполняется ни разу, а при каком осуществляется выход из цикла
В операторе цикла For I := Start downto Finish do <оператор>; при каком условии тело цикла не выполняется ни разу, а при каком осуществляется выход из цикла. а) Start = Finish ...

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

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

Дано 4-значное число. Если сумма цифр кратна трём, то увеличить на 1. В противном случае — уменьшить
Дано 4-значное число. Если сумма цифр кратна трём, то увеличить на 1. В противном случае — уменьшить. Решите пожалуйста на Паскале Добавлено через 11 минут Если кому-то надо решение, вот оно: ...

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

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

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

Определить среднее арифметическое элементов с чётными индексами для каждой строки матрицы
Составить блок-схему и написать программу. Дана матрица вещественных чисел. В каждой строке найти среднее арифметическое элементов с четными индексами.

Из строки s удалить каждое второе вхождение подстроки subs, не используя строковые функции
Программа уже есть, но она удаляет каждое вхождение подстроки subs. А нужно сделать каждое второе. Если что тут вместо delete используется присваивание, так что. var s:=ReadLnString('Введите...

Приближенно вычислить интегралы, используя метод средних прямоугольников при n =100
Приближенно вычислить интегралы, используя метод средних прямоугольников при n =100

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

Определить количество вариантов выплаты данной суммы с помощью различного количества монет или купюр
Задается некая сумма размером N руб. Определить количество вариантов выплаты данной суммы с помощью различного количества монет или купюр. Достоинства монет/купюр ограничены номиналами: 1, 2, 5, 10,...

Найти в текстовом файле F все слова, которые содержат подстроку P, и составить из них файл G
Найти в текстовом файле F все слова, которые содержат подстроку P, и составить из них файл G

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

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

Вычислить двойной факториал
Повторяю условие Для натурального числа k вычислить значение k!!(двойной интеграл) По формуле

Протабулировать функцию, используя цикл for
const xn=-2; xk=7; dx=0.7; var x, y :real; begin WriteLn ('  x      y   '); Writeln ('-------------'); for x:=-2 to 7 do begin

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

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

Протабулировать функцию
Сформировать таблицу значений функции у = f(x) на отрезке с шагом h в виде: x 0 0.1 ... 1 sin(x) 0.000 0.010 ... 0.841 (y = sin x, a = 0, b = 1, h = 0.1) Задание: y = 10x, a...

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

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

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

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

Паскаль Составить блок схему по готовым программам
Program lab10_2; Var {Описание параметров цикла} i: integer; c: char; begin writeln(‘Вывод на печать целых чисел от 1 до 10’); for i:=1 to 10 do write (i); writeln(‘Вывод на печать целых чисел...

Как вычислить тангенс альфа в паскале?
Как вычислить тангенс альфа в паскале? Я просто мало что понимаю в паскале, новый язык программирования для меня

При выводе больших чисел паскаль выводит не то, что нужно
Мне нужно чтобы у переменной b оставался тип real, но проблема в том, что при типе real большие числа выводятся как 1E+число. При инт64 такой проблемы нет. (пытался через round и trunc, не получается...

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

Написать код
C помощью датчика случайных чисел сформировать: в заданиях 1)–3) одномерный массив из N элементов, в заданиях 4)–10) – двумерный массив N*N и выполнить следующие действия: 1) упорядочить элементы...

Введите массив символов из 12 элементов. Удвоить все коды символов массива
Введите массив символов из 12 элементов. Удвоить все коды символов массива.

Получить в файле g компоненты файла f, делящиеся на 3 и не делящиеся на 7
Дан файл f, компоненты которого являются натуральными числами. Получить в файле g все компоненты файла f, делящиеся на 3 и не делящиеся на 7.

Определить, при каких значениях переменных значение выражения ложно
При каких значениях переменных X, Y, Z ложна следующая формула:

Найти все корни уравнения qx^2+cx+s=0, где q, c, s – длины векторов соответственно
Найти все корни уравнения qx^2+cx+s=0, где q, c, s – длины векторов соответственно a = {a1, a2, a3, a4}, b = {b1, b2, b3}, h = {h1, h2, h3, h4, h5}. Вычисление длины вектора оформить в виде...

Определить самую раннюю весеннюю дату
Просьба срочно подсказать, сам уже не могу понять в чём ошибка, хотя уверен, что это что-то элементарное. Дан текстовый файл на вход с датами типа dd/mm/yyyy, все строки в файле непустые. Нужно...

Как выполнить 2 или больше действия после then
Как выполнить 2 или больше действия после then? Как например if x>0 then y:=y+1 and z:=z-1

Вывести в текстовый файл записи с машинами указанного цвета и года выпуска, указать их количество
Создать типизированный файл, содержащий данные типа-записи Car c 5-ю полями, содержащими: марку машины, ее цвет, год выпуска,пробег по России, страну производителя со значения полей, взятых из...

Вычисление суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε=0,001
Нужна помощь Составить блок-схему алгоритма и программу (три вида цикла) для вычисления суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε=0,001 при заданных значениях...

Дана квадратная матрица размера n×n. Составить одномерный массив из элементов побочной диагонали этой матрицы
Дана квадратная матрица размера n×n. Составить одномерный массив из элементов побочной диагонали этой матрицы. Отсортировать одномерный массив по возрастанию методом пузырька. Помогите пожалуйста,...

Написать программу
Даны действительные числа a1 a2 a3. Получить

Вывести таблицу значений интервально заданной функции
1.Написать программу, вычисляющую значение функции: lg(x)*lg(x), если x<-10; x3*sin(x)+x/x1/3, если -10 <= x <1; (-x/x1/3)*(-x/sin(x)), если 1<=x. 2.Вычислить значение функции на интервале с...

Как умножить все значения массива между собой?
Подскажите, что неправильно в коде или как это правильно можно реализовать.:scratch: program test; var arr:array of integer; i, sum:integer; begin sum:=1; for i:=1 to 10 do arr:= i; for i:=1...

Подсчитать общее число вхождений символов «+», « – », «*»
Даны натуральное n , символы s1 s2 s3 подсчитать общее число вхождений символов «+», « – », «*» в последовательность

Вычислить сумму ряда
Вычислить сумму ряда

Вывести массив в колонки
надо вручную ввести значения массива, а потом они должны выводиться в: 1) в n колонок 2) в 3 колонки: первый элемент - второй элемент - третий элемент. Заранее спасибо

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

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

Найти сумму положительных элементов и произведение отрицательных элементов двумерного массива
Есть готовый код с таким заданием - Найти сумму положительных элементов и произведение отрицательных элементов одномерного массива, состоящего из 100 элементов целого типа в диапазоне (-100..100),...

Использование множеств в паскале(В циклической структуре)
Задача:А=. Построить множество В, которое состоит из всех пар простых чисел интервала от 1 до 255. Пара простых чисел – это два простых числа, разница между которыми равна 2 (например, 3 и 5). ...

Вычислить произведение
Вычислить произведение

Определить, являются ли четыре числа A,B,C,D членами верной пропорции
Определить, являются ли четыре числа A,B,C,D членами верной пропорции

Инвертировать слова в строке
Перевести программу с С++ на Паскаль по возможности с объяснением в комментариях #include <string> #include <iostream> #include <algorithm> #include <sstream> #include <iterator> #include...

Используя метод нисходящего проектирования, разработать схему алгоритма и составить программу для табулирования функции
Используя метод нисходящего проектирования, разработать схему алгоритма и составить программу для табулирования функции

Переписать код используя синтаксис классического Паскаля
Переписать код используя синтаксис классического Паскаля ## var (x, y) := (ReadLnReal('x ='), 0.0); if x < -1 then y := x ** 2 - sin(x) else if (x > 0) and (x <> 8) then y := 1 - 3 * x...

Дано целое число N > 0. Среди цифр этого числа выделить только чётные, из которых составить другое число и вывести
Дано целое число N > 0. Среди цифр этого числа выделить только чётные, из которых составить другое число и вывести. Например, при N=3854972 ответом будет число 842. Есть набросок кода, но он...

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

Что такое 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')

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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.Дан массив целых чисел.Найти сумму всех четных элементов массива, стоящих на четных местах, то есть имеющие четные номера.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Процедура 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....

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Нарисовать Звездное Небо
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)"Определите значение логического выражения, утверждающего, что из...