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

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

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

Аппроксимация табличных зависимостей методом наименьших квадратов
Записать зависимость y=f(x) с полученными в результате расчета коэффициентами. В программе должна быть предусмотрена проверка правильности полученных решений ( определить разность между табличными...

Одномерный массив: Найти максимальный и минимальный элементы массива К(20) и поменять их местами
1)Одномерный массив: Найти максимальный и минимальный элементы массива К(20) и поменять их местами

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

Определить, как пираты смогут перевезти сундук с сокровищами
Нужно решить поиском решений: Четыре пирата нашли сундук с сокровищами. Они хотят переправиться через реку. Пираты весят 45, 50, 60 и 65 кг, сундук — 100 кг, их лодка выдерживает груз не более 200...

Задача на принадлежность точек одной окружности
Вводится последовательность точек на координатной плоскости, "`(0,0)`" - признак конца последовательности. Определить могут ли все эти точки лежать на одной окружности.

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

Двумерный массив: Найти сумму положительных кратных 5 элементов двумерного массива
2)Двумерный массив: Найти сумму положительных кратных 5 элементов двумерного массива.

Найти сумму отрицательных элементов матрицы, принадлежащих заданному отрезку
Дан двумерный массив размером M x N. Найти сумму его отрицательных элементов, принадлежащих отрезку (a, b).

Заполнить массив из 20 элементов заполнить случайными числами от 0 до 50
И снова взываю о помощи. Задание (ребенку в школу): Заполнить массив из 20 элементов заполнить случайными числами от 0 до 50. Вывести в строку Задание я сделал: var a:array of integer;...

Написать программу, которая вычисляет произведение первых n целых положительных нечётных чисел
4) Написать программу, которая вычисляет произведение первых n целых положительных нечетных чисел. Количество чисел должно вводится во время работы программы (используя цикл с параметром). Решить...

Сгенерировать 15 случайных чисел из диапазона от -100 до 100. Решить не через параметрический цикл
Сгенерировать 15 случайных чисел из диапазона от -100 до 100. Решить не через параметрический цикл

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

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

Определить максимальную сумму квадратов корней уравнения x^2+bx+c=0, где b и c - два числа последовательности
Вводится последовательность целых чисел (2 или больше числа), меньших 1000 по модулю, 1001 конец последовательности. Определить максимальную сумму квадратов корней уравнения x^2+bx+c=0,...

Написать программу вычисления и вывода значения функции F. Значения переменных x, a, b вводятся
2) Написать программу вычисления и вывода значения функции F. Значения переменных x, a, b задаются во время работы программы√(ln⁡x+ln⁡〖(x+1)/(x-1)〗 )+a/(√(cos⁡x )+b√(sin⁡x )) Перераспределить...

Определить количество четных элементов массива, отсортировать их в порядке возрастания
Помогите, пожалуйста, решить данную задачу в Pascal'е. Сдавать работу уже завтра вечером, а я ни в зуб ногой в этом паскале, уже глаз дёргается от постоянно вылезающих ошибок :"))) Дан массив,...

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

Вычислить длину окружности
1) Написать программу вычисления длины окружности C=2πr. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом)....

Двумерный массив: Найти количество элементов кратных минимальному элементу двумерного массива
8) Двумерный массив: Найти количество элементов кратных минимальному элементу двумерного массива.

Построить семейство кривых y = f(x)
Построить семейство кривых y = f(x) для указанных значений параметра λ и оси координат с указанием минимального и максимального значений функции по каждой из осей. x...

Упорядочить элементы столбцов матрицы по правилу
Здравствуйте! Помогите пожалуйста написать программу на языке PascalABC. Задача: Дана матрица A. Упорядочить элементы столбцов матрицы по возрастанию, а сами столбцы по возрастанию произведения...

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

Проверить, все ли цифры числа четные
Задача 5. Дано натуральное число N. Проверить, все ли цифры этого числа четные. Вывести Yes или No

решение СЛАУ методом Гаусса с выбором главного элемента
Привет народ, в унике дали задание написать программу на тему "Метод Гаусса с выбором главного элемента для решения СЛАУ" Я в этом вообще не бум бум от слова полностью так как другое...

Возведение матрицы в степень
Возведение матрицы в степень. procedure multmatr; var i,j,k,p:integer; begin for i:=1 to n do for j:=1 to i-1 do begin p:=b; b:=b; b:=p;

Исправить программу нахождения гласных букв в тексте
Нужно исправить программу так, чтобы на выводе под каждым написанном словом писались гласные буквы в алфавитном порядке, а не просто гласные буквы в алфавитном порядке program ex13; var glas:...

Найти минимальную (максимальную) цифру числа, представленного в восьмеричной СС
Задача 4. Дано натуральное число N. Найти минимальную (максимальную) цифру этого числа, представленного в восьмеричной системе счисления.

Одномерный массив: Найти разность суммы положительных и произведения отрицательных чисел массива А(14)
7) Одномерный массив: Найти разность суммы положительных и произведения отрицательных чисел массива А(14)

Проверить, являются ли четыре заданных числа попарно взаимно просты
Функции и процедуры. Проверить, будут ли числа a, b, c, d попарно взаимно просты. Числа называются взаимно простыми, если их наибольший общий делитель (НОД) равен 1. Нахождение НОД двух чисел...

Игра "Виселица"
Задание: сделать игру виселица с пользовательским модулем Game, можете помочь пожалуйста исправить ошибки в коде, рисунок не надо, не понимаю почему я могу вводить символ только 3 раза, а не столько,...

Ввести и обработать два двумерных массива, содержащие соответственно 3х5 и 4х8 вещественных элементов
Помогите, пожалуйста, решить данную задачу в Pascal'е. Сдавать работу уже завтра вечером, а я ни в зуб ногой в этом паскале, уже глаз дёргается от постоянно вылезающих ошибок :"))) Два двумерных...

Календарь в PascalABC
Доброго дня Ребят, подскажите пожалуйста, есть ли в ПаскальАВС модуль календаря? И как им пользоваться? Мне нужно создать тип запись, состоящий из Фамилия, Дата рождения, Количество игр,...

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

Запись в типизированный файл
Добрый день Есть задача записать в типизированный файл некие данные. Я объявил строковый файл. Ну и собственно строку и хочу в него записать. Но записывается какой-то мусор. Вывожу строку на...

В массиве из 10 целых чисел (числа вводятся с клавиатуры) найти количество элементов, принадлежащих интервалу [a;b]
В массиве из 10 целых чисел (числа вводятся с клавиатуры) найти количество элементов, принадлежащих интервалу . Полученный результат вывести на экран.

Вывести на экран цифру, наиболее часто встречающуюся в массиве
Дан непустой массив из цифр. Вывести на экран цифру, наиболее часто встречающуюся в этом массиве.

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

Преобразовать матрицу заданным образом
Дана целочисленная матрица размером n x 3, целые числа k, m (1 <= k <= n, 1 <= m <= n, k <> m). Преобразовать матрицу так, чтобы строка с исходным номером k непосредственно следовала за строкой с...

Среди чисел последовательности найти полные квадраты
Даны целые числа a1, a2, ..., an. Получить те положительные числа из этой последовательности, которые являются полными квадратами ( 1, 4, 9, ... ). Операцию извлечения квадратного корня не...

Извлечения корня из матрицы
Дана матрица: 30 36 42 66 81 96 102 126 150 Извлечь из нее корень Получается 1 2 3 4 5 6 7 8 9 Как извлечь корень из матрицы?

Заменить отрицательные элементы матрицы на элементы из массива
дана целочисленная матрица A(nxn). Все элементы тех строк, у которых обнаружено более одного отрицательного элемента, хаменить на элементы из массива B=(b1,...,bn) решение

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

Определить принадлежит ли точка А(x, у) данной области
помогите пожалуйста написать код для графика

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

Найти количество счастливых билетов
Задача 6. Автобусный билет считается счастливым, если сумма его цифр делится на 7 без остатка. Найти количество счастливых билетов, если номер билета задается 4-х значным числом.

Неизвестное имя 'detect'
uses Crt; uses GraphABC; const NORM = 14; { цвет невыделеного пункта } SEL = 11; { цвет выделенного пункта } Num = 2; LEFT = 50; TOP = 50; RIGHT = 600;

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

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

Нарисуйте сетку, в текстовом режиме размером 20x5
Добрый день нужно сделать программу которая рисует сетку в текстовом режиме размером 20x5, в которой все линии заменены на текст "Лицей N 53" выполненную различными цветами.

Закрасить треугольники, образованные диагоналями графического окна
Задать размер графического экрана 640×400 пикселей. Нарисовать диагонали линиями толщиной 2 пикселя, цвет линий красный. Закрасить полученные треугольники. Использовать оператор FloodFill (x, y,...

Найти значение функции Y(X)=tgx +abs x при заданном Х (-2.63), используя стандартные функции
Найти значение функции Y(X)=tgx +abs x при заданном Х (-2.63), используя стандартные функции. Вычислить целую часть значения функции Y(X) (Y 0.5 ).Вывести на экран значения Х и Y(X), ширина поля...

Создание экранного меню
1 Площадь прямоугольника 2 Площадь треугольника 3 Площадь круга 4 Выход из программы Возвращать меню, пока не будет выбрано 4.

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

Исправить подпрограмму возведения матрицы в квадрат
Задание: Дана матрица A(n,n) и вектор b(n). Вычислить A^2*b. Есть программа, не могу возвести в квадрат матрицы, через sqr не работает, program ex8_2; type matrix = array of integer; ...

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

Превратить сообщение азбуки Морзе в графическое изображение
Разработать программу на языке программирования Паскаль. Превратить сообщение азбуки Морза 64 символа в графическое изображение размером 8*8.

Определить, является ли заданное число степенью числа 3
Переменной t присвоить значение 1 или 0 в зависимости от того, является ли натуральное число k степенью числа 3.

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

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

Построить график функции
Надо построить график функции y=(x^2-1) в интервале от -3 до 3, с шагом 0,15 в паскалеабц

Вычислите значение дроби
Вычислите значение дроби

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

Вычислите значение выражения √y = 5x (используйте полную форму оператора IF)
Вычислите значение выражения √y = 5x (используйте полную форму оператора IF) на паскале

Проверить, является ли строка формулой, построенной из констант без знака, операций сложения и умножения и скобок
Рекурсия. Дана строка. Проверить, является ли она формулой, построенной из констант без знака, операций сложения и умножения, и скобок.

Составить программу по блок-схеме
Здравствуйте, задание звучит так: составить программу по блок-схеме ( решить уравнение шаговым методом с интервалом 0.2) преподаватель написал такой замечание: Задан «большой» интервал и шаг h...

Составить программу для работы с матрицей используя операторы цикла
Даны матрицы А и В размером 3×4.Получить матрицу С=А*В .

Вычислить значение выражения
напишите программу которая вычисляет значение функций. Значение вещественной переменной x считывается с клавиатуры функция: F(x)={ x_2-3, X<5} { x_2-5x+6,x>=5}

График функции
Составить программу и вывести на экран график функции sqrt(x*x+2) на интервале с шагом 0.2

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

Выяснить, имеется ли среди заданных символов пара соседних символов 'но' или 'он'
Пусть даны символы S1, S2, …, Sn. Известно, что символ s1 отличен от восклицательного знака и что среди символов S2, S3, …Sn есть по крайней мере один восклицательный знак. Пусть S1, S2, … Sn -...

Ошибка компиляции "Ожидалось 2 параметров"
Ошибка компиляции "Ожидалось 2 параметров" program CountStudentsWithoutFive; var N, K: integer; grades: array of array of integer; studentCountWithoutFive: integer; i, j: integer; ...

Экранное меню через процедуру
1 x*sin(x) 2 cos^2(x) 3 sin(x)/x 4 e^x^2 5 выход После выполнения любого пункта меню спрашивать, выйти из программы или вернуться в меню.

Даны натуральное n, действительное x. Вычислить: S=sinx+sinsinx+.+sinsinx.sinx
Решить двумя способами: с использованием цикла с параметром и одного из двух других типов цикла. Даны натуральное n, действительное x. Вычислить: S=sinx+sinsinx+...+sinsinx...sinx Там где:...

Построить график функции
Построить график функции y=-104620+4632.379*x -80.723*x^2 +0.7046*x^3 -0.003066*x^4 +5.33*10^(-6)*x^5

Перевести число в восьмеричную и двоичную систему счисления
Задача 7. Представить натуральное число N в: а) восьмеричной системе счисления; б) двоичной системе счисления

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

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

Определить, на каком километре кольцевой дороги окажется мотоциклист через заданное время
Длина Московской кольцевой автомобильной дороги - 109 километров. Байкер Вася стартует с первого километра МКАД и едет со скоростью V километров в час. На какой отметке он остановится через T часов? ...

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

Выяснить, имеет ли число симметричную десятичную запись
Задача 8. N - положительное целое число. Требуется узнать имеет ли оно симметричную десятичную запись. (5, 1100, 13231, 1221 - симметричные; 239, 3313 - несимметричные).

Из за arccos программа выводит ответ в 16 системе
Почему программа из arccos выводит ответ в 16 системе? program AverageY; uses Math, SysUtils; var x, y, z, u, sum: Real; begin

Подсчитать сумму чисел, стоящих на местах, кратных 3 и не равных заданному числу, подсчитать количество неотрицательных
напишите программу: подсчитать сумму чисел стоящих на местах, кратных 3 и неравных заданному F, подсчитать также количество неотрицательных чисел. при помощью: А:array of integer A For i:=1 to...

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

Дана строка символов. Удалить из нее все кратные рядом стоящие одинаковые символы, оставив по одному
Дана строка символов. Удалить из нее все кратные рядом стоящие одинаковые символы, оставив по одному. Например, ППППОООГОДДДАААА -ПОГОДА.

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

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

Что сделать чтобы код заработал?
program пппп; procedure punct1; type Car = record Brand: string; VIN: string; end; var ClientBase: array of Car; procedure DisplayMenu;

Пусть a и b целые числа, возвести в квадрат а, если оно четное, вывести сумму a и b
пусть a и b целые числа разработайте программу которая возводит в квадрат первое число если оно четное выводит их сумму

Сформировать одномерные массивы из элементов заданного двумерного массива
Дан двумерный массив размером n×n. Сформировать одномерные массивы из элементов заданного массива:расположенных на главной диагонали, расположенных над главной диагональю и расположенных под главной...

Вычислить площадь заштрихованной фигуры
Вычислить площадь заштрихованной фигуры с точностью 10^-4. Использовать интегрирование.

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

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

Найти номер последнего максимального элемента, соответствующего заданному условию
Задан целочисленный одномерный массив A из N элементов. Найти номер последнего максимального элемента среди четных (по значению) элементов и расположенных до первого нечетного элемента, значение...

Как довести до ума программу на pascalabc?
type inf = record Pnum:integer; Psur:string; pname:string; potch:string; pbd:integer; prd:integer; pgt:string; ...

Сформировать вектор из сумм положительных элементов каждой строки матрицы
Здравствуйте, решите задачку на паскаль, пожалуйста. Вод задача: Сформировать вектор B как сумму положительных элементов каждой строки матрицы A. A=\begin{bmatrix}6.1 & 10.2 & 7.1 & 8.9...

Составить линейную программу, которая печатает true, если точка с координатами (x,y) принадлежит закрашенной области
Для данных областей составить линейную программу,которая печатает true, если точка с координатами (x,y) принадлежит закрашенной области и false - в противоположном случае.

Ссылка на объект не указывает на экземпляр объекта
Здравствуйте! Нужно было решить задачу. Текст задачи: написать программу на языке программирования паскаль, которая запрашивает у пользователя ввод трёх строк str1, str2 и str3. Затем записывает...

Определить, сколько женщин старше 55 лет проживает в одном доме
Здравствуйте, напишите код пожалуйста: Воспользовавшись записью АНКЕТА из варианта номер 1, определить, сколько лиц женского пола старше 55 лет проживает в одном доме. p.s АНКЕТА из варианта...

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

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

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

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

Онлайн-программа в PascalABC
ЛЮДИ МЕНЯ ИНТЕРЕСУЮТ ТАКИЕ ВОПРОСЫ, МОЖНО ЛИ СДЕЛАТЬ ОНЛАЙН ПРОГРАММУ В PASCAL ABC???) МОЖНО В ПАСКАЛЕ НАПИСАТЬ ПРОГРАММУ КОТОРАЯ ЗАМЕНЯЕТ ЗНАЧЕНИЯ НАПРИМЕР В СТАНДАРНТНЫХ ИГРАХ WINDOWS (КОЛ-ВО ОЧКОВ...

Найти среднее арифметическое всех чисел.
Ввести N различных чисел. Найти среднее арифметическое всех чисел.

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

Определите наименьшее значение n, при котором сумма чисел, которые будут выведены при вызове F(n), будет больше 1000000
Определите наименьшее значение n, при котором сумма чисел, которые будут выведены при вызове F(n), будет больше 1000000 Запишите в ответе сначала найденное значение n, а затем через пробел –...

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

Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в квадрат
Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в квадрат

Преобразование типа из real в integer
можно ли в паскале перевести вещественную в целую переменную? (из real в integer)

Рисунок кота
помогите нарисовать кота в паскальABC!

Написать программу для решения квадратного уравнения
написать программу для решения квадратного уравнения

Найти сумму всех натуральных чисел от 1 до N
Напишите программу, которая вводит натуральное число N и находит сумму всех натуральных чисел от 1 до N. Используйте сначала a)цикл с условием, а потом --b) цикл с переменной.

Вывести на экран в столбик все цифры переданного ей числа, начиная с первой. Процедуры
помогите пожалуйста. нужно написать процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой. Пример: Введите натуральное число 1234 1 2 3 4

Оператор цикла for с шагом 2
Вот такая задача: Использовать оператор цикла for (и только for), при этом шаг должен быть равен двум. Как это сделать? Ввести новую переменную? Прошу привести пример. Заранее благодарен.

Найти сумму и количество чётных элементов массива
Дан массив целых чисел. Найти сумму и количество чётных элементов массива. Массив одномерный. Описание.

Дано трехзначное число. Найти сумму его цифр
Дано трехзначное число. Найти сумму его цифр ( если ну сложно с полным решением)

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

Даны 3 числа. Найдите наибольшее из них!
Те, кто просто не может сам справиться) Добавлено через 52 секунды 1. Даны 3 числа. Найдите наибольшее из них!

Подсчитать количество цифр в числе
Всем привет ... Будьте добры , Практическая =) 3.С клавиатуры вводится натуральное число N . Программе подсчитать количество цифр в числе . Буду очень благодарен ... P.S.S. тему плохо понял =)

Расположить элементы массива в порядке возрастания/убывания
Столкнулся с такой проблемой - непонимаю как расположить элементы массива в порядке возрастания и убвания. Если с помощью нахождения каждый раз максимального минимально - это как то нерационально....

Рисунок в паскале: домик
помогите нарисовать домик используя graph abc домик такой:крыша,квадратик,а внутри кружок

Найти наибольший общий делитель двух натуральных чисел
Условие:найти наибольший общий делитель двух натуральных чисел a и b. Решение: program Ivan; var m,z:real; i,a,b:integer; begin writeln('Ввести a,b'); readln(a,b); if a<b then m:=a else m:=b;

Ввести целое число и найти сумму его цифр
Напишите следующую программу. Ввести целое число и найти сумму его цифр. Пример: Введите целое число: 1234 Сумма цифр числа 1234 равна 10.

Нарисовать снеговика
Нарисовать снеговика в паскаль абс.

Нарисовать треугольник, квадрат, круг, прямоугольник
Помогите нарисовать треугольник, квадрат, круг и прямоугольник в Pascal ABC Добавлено через 1 час 23 минуты У меня пока вот что получилось... но плин не получается что то :((( uses graphABC;...

Возвести число в куб
как написать на я зыке паскаль куб числа? и какие вобще есть команды?

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба
Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба.

Циклы: Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивает дневную норму на 10%
Начав тренировки. Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивает дневную норму на 10% от нормы предыдущего дня. Какой путь он пробежит на 7 день?

Ввод с клавиатуры и вывод на экран массива из 7 вещественных чисел
Задание такое: Составьте программу ввода с клавиатуры и вывода на экран массива из 7 вещественных чисел. Я написал программу: Program xxx; Var a: array of real; i: integer; Begin For i:=1...

Определить, является ли число введенное пользователем, простым
Определить, является ли число введенное пользователем, простым

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

Несколько условий if then
if (w<=0) and (r=>0) then writeln('Игрок den победил!') ; if (r<=0) and (w=>0) then writeln('Игрок kot победил!'); if (w<=0) and (r<=0) then writeln('Ничья!'); В конструкции if then несколько...

Количество цифр в числе
Доброго времени суток! Хотела бы попросить у вас помощи вот с такой задачей: "Составьте программу с использованием процедуры, вычисляющей количество цифр в заданном числе." Задача для Pascal ABC.

Как округлить число до сотых?
Здравствуйте, уважаемые программисты! Не могли бы вы мне помочь? Мне 11 лет, и я учусь программировать на Pascal ABC. Мне нужно написать программу, которая вычисляет цену картины. Для вычисления...

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

Составить программу расчета площади и периметра прямоугольника при заданных длинах сторон
Составить программу расчета площади и периметра прямоугольника при заданных длинах сторон. / Pascal ABC

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

Круг в Pascal
Скажите, пожалуйста, как нарисовать в Pascal круг, линию! Буду очень благодарна, т.к. только что начала изучать этот язык! Заранее благодарю!

Сумма квадратов всех чисел от 1 до N
1. Составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N.

Какую оптическую силу D имели крылышки-линзы бабочки в этот момент
Школьники, идя из дому в школу или наоборот - со школы домой, любят кушать конфеты. Но, как всегда, это приятное дело иногда имеет неприятные последствия – детки часто выбрасывают обертки на школьном...

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

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

Заполнить массив из 10 элементов случайными числами
1)Заполнить массив из 10 элементов случайными числами в интервале и найти в нем максимальный и минимальный элементы и их номера. 2)Заполнить массив из 10 элементов случайными числами в интервале и...

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

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

Смоделировать работу калькулятора
написать программу, моделирующую работу калькулятора!

Логарифм
Хотелось бы реализовать функцию логарифма function elog(a,b:integer):integer; где а - число логарифм которого нужно найти, а b - основание логарифма. Есть идеи как это можно сделать?

Заполнить массив случайными числами и вывести на экран элементы, значения которых больше 5 и меньше 15
составьте программу, которая заполняет массив a случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15.

Для чего функция Pos?
объясните что за функция Pos и простой пример программы с этой функицей

Дано четырехзначное число. Найти произведение цифр этого числа.
Дано четырехзначное число. Найти произведение цифр этого числа.

Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года" или "лет"
Здравствуйте! Помогите решить задачу! Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом «год», «года» или «лет». Пример: Введите возраст: 24 ...

Решение квадратного уравнение
Все доброе время суток, не подскажете в чем моя ошибка... У меня все работает, но программа не соблюдает условия. program sasha; var a, b, c, d, x1, x2: real; begin writeln ('Ведите...

Возведение в степень
Используя только операцию * (умножение), только 1 операцию в выражении, минимум переменных Получить: а) x8 б) x10 в) x15 г) x20

Программа вывода всех четных чисел в диапазоне от 2 до 100 включительно
Практическая работа Задание 7. С помощью оператора while напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.

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

Даны три действительных числа. Возвести в квадрат те из них, значения которых не отрицательны
Даны три действительных числа. Возвести в квадрат те из них, значения которых не отрицательны.

Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве
Заполнить массив 20 случайными числами (использовать генератор случайных чисел). Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве.

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

Игра змейка
Помогите пожалуйста, нужно написать игру "Змейка", как в тетрисе.

Тетрис на Паскале ABC готов!
Здравствуйте, уважаемые любители оригинального Тетриса от Алексея Пажитного! Предлагаю протестировать мой вариант этой игры на Паскале АБЦ! Файл во вложении!

Встречено Else а ожидался оператор
Написал программу: program klxz3; var x,y,z1,z2:real; begin writeln('Введите x и y'); readln(x,y); if (sqr(x)-y<-2) and (x>0) then z1:=sqrt(exp(x))-5;

Нарисовать елку в паскале
как нарисовать елку в паскале?(через графику)

Заполнить массив случайными числами в интервале [0,100] и подсчитать среднее значение элементов
Еще одну задачу помогите, если несложно. Заполнить массив случайными числами в интервале и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов,...

Вывести на экран целую часть и остаток при делении двух целых чисел
Составить программу, которая выводит на экран целую часть и остаток при делении двух целых чисел, введенных пользователем. / Pascal ABC. Просто хочу проверить: var a,b: integer; begin...

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

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

Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы
Пример: Введите фамилию, имя и отчество: Иванов Петр Семёнович П.С. Иванов

Нарисовать деревенский дом
нарисовать в паскале деревенский дом

Перевод числа из string в integer
Итак, нужно перевести переменную с типом данных string в переменную с типом данных integer. Переменную вводит пользователь, поэтому нужно учитывать спорные моменты. (Обычно переменная это число). Все...

Определить количество трехзначных чисел, сумма цифр которых равно заданному числу N
Задания 1. Найти все двузначные числа, в которых есть цифра N или само число делится на N. 2. Определить количество трехзначных чисел, сумма цифр которых равно заданному числу N. 3. Составить...

Заполните массив случайными числами в интервале [0;100] и найдите его среднее арифметическое
СДЕЛАТЬ ЧЕРЕЗ CONST Заполните массив случайными числами в интервале и найдите среднее арифметическое его значение Пример: массив: 1 2 3 4 5 среднее арифметическое 3.000

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 7
4. Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 7. Программа получает на вход целые числа, количество введённых чисел неизвестно,...

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

Вычисление скорости, времени и расстояния
Uses Crt; Var a: integer; s,v,t: real; Begin Writeln ('Выберите действие:'); Writeln (' 1. Вычисление скорости'); Writeln (' 2. Вычисление времени'); Writeln (' 3. Вычисление...

Рисование: лягушка, корона
Доброе время суток, уважаемые программисты Помогите пожалуйста нарисовать в Паскале: Заранее благодарю

Определить, можно ли от шоколадки размером n × m долек отломить k долек
Разбор: Если от шоколадки размером n x m можно отломить k долек, то k должно делиться на n или на m без остатка. Также следует учесть, что при k > n x m программа должна выдать отрицательный ответ...

Задача про счастливый билет
На билете шесть цифр - номер билета. Является ли данный билет счастливым? Счастливым считается билет, если сумма трех левых цифр равна сумме трех правых цифр. program pr118; var ...

Внести 3 числа и расположить их в порядке возрастания
Помогите с шестью задачами, пож-та, от этого зависит зачет или нет. Сам никогда не изучал паскаль, п/э решить не могу. 1.Внести 3 числа и расположить их в порядке возрастания 2.Внести 3 числа и...

Найти количество четных и нечетных чисел в массиве
заполнить массив А из целых чисел и вывести их на экран .Найти количество четных и нечетных чисел в массиве

Вы посетили магазин и купили 10 видов товара. В таблицу Т[1:10] вы записали количество купленного товара каждого вида.
Вы посетили магазин и купили 10 видов товара. В таблицу Т вы записали количество купленного товара каждого вида. В таблицу С записали цены единиц каждого вида товара соответственно. Составить...

Создание теста. Подсчет результатов
Как создать тест с 3 вариантами ответа чтобы при завершение теста подсчитывало кол-во верных и не верных ответов или чтобы после 8 не верных программа завершала тест подскажите как сделать?

Ввести три числа и найти наибольшее из них
Задача: ввести три числа и найти наибольшее из них Не могу понять - где ошибся. Если b или с больше, то алгоритм срабатывает, если а больше, то не работает. program hg; var a,b,c,max:real; begin...

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

Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости на рисунке
Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости (рис.2). Решение мое выглядело следующим образом: program u3; var x,y:...

Написать программу вычисления площади поверхности параллелепипеда
Написать программу вычисления площади поверхности параллелепипеда. Желательно, чтобы к каждому коду дали пояснения, что выполняет какая-либо функция (begin, end и похожие функции естественно не...

Ввести номер урока и вывести время его окончания
Занятия в школе начинаются в 8-30. Урок длится 45 минут, перерывы между уроками – 10 минут. Ввести номер урока и вывести время его окончания. Пример: Введите номер урока: 6 13-50

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

Как посчитать синус?
Программа не считает синус( ЧТо делаю не так? Как пример синус 30 ( должен быть 0.5 равен, а он пишет -0.988031624092862 ) Program s6; Var c,s:real; begin writeln ('Введите угол C '); readln...

Найти наибольшую и наименьшую цифры в записи натурального числа
циклы: 3) Найти наибольшую и наименьшую цифры в записи данного натурального числа.

Составить программу расчета площади круга и длины окружности по заданному радиусу
Составить программу расчета площади круга и длины окружности по заданному радиусу. Число π представьте в программе как константу. / Pascal ABC

Составте программу, которая найдет сумму чисел, кратных 2 и произведение чисел, кратных 5
p.s.нужно использовать паскальABC p.s.s.можно использовать if,while,for. 1.Составте программу, которая найдет сумму чисел, кратных 2 и произведение чисел, кратных 5(числа от 1 до 100). 2.Составте...

На плоскости ХОY задана своими координатами точка А. Указать, где она расположена (на какой оси или в каком координатном угле).
помогите с задачей. На плоскости ХОY задана своими координатами точка А. Указать, где она расположена (на какой оси или в каком координатном угле). Заранее спасибо!

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

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

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

Ошибка: ожидался идентификатор
var a:array of array of Integer; n,x,i,j:integer; begin Write('N='); Readln(n); SetLength(a,n,n); x:=n; for i:=0 to n-1 do begin

Напечатать таблицу перевода температуры из градусов по шкале Цельсия в градусы по шкале Фаренгейта
Напечатать таблицу перевода температуры из градусов по шкале Цельсия (C) в градусы по шкале Фаренгейта (F) для значений температуры от 15°C до 30°C с шагом 1°C. Примечание: формула перевода из...

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

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

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

Найти количество нечетных элементов массива
Найти количество нечетных элементов массива.

Алгоритм вычисления функций F(n) и G(n)
Алгоритм вычисления функций F(n) и G(n) задан следующими соотношениями: F(1) = G(1) = 1 F(n) = 2·F(n–1) + G(n–1) – 2, если n > 1 G(n) = F(n–1) +2·G(n–1), если n > 1 Чему равно значение F(14) +...

Составить программу вычисления значения функции
Составить программу: а) вычисления значения функции у = 7х2-3х+6 при любом значении х; б) вычисления значения функции х = 12а2+7а–16 при любом значении а.

Сформировать массив А(10) случайными числами в интервале от [0;30]. Найти сумму ВСЕХ его элементов.
Сформируйте массив А(10) случайными числами в интервале от . Найдите сумму ВСЕХ его элементов.} Var {-1-. Опишите требуемый массив} i, S: integer; Begin {-2-.Введите правильно формулу...

Определите, сколько рублей и копеек нужно заплатить за n пирожков
Дело в том, что когда я решила эти задачи, я скинула программы на некий сайт http://informatics.mccme.ru. Но он выдавал мне : "Частичное решение" и не засчитывал задания. Помогите пожалуйста. ...

Одномерные массивы. Найти произведение элементов, кратных 3
Прошу помочь мне я 7 задач решил остались 4 вот они 1.Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале . Размер произвольный. 2.Массив А вводится с...

Найти корень уравнения методом половинного деления
Найти корень уравнения \cos x-\sqrt{x}=0 методом половинного деления с точностью Е=0.0001.

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

Program1.pas(12) : Нельзя преобразовать тип real к integer
Program Logika; var x,y,z: real; L,A,B,C:boolean; begin cls; // Вводим исходные данные: writeLn('Введите x,y,z'); readLn(x,y,z); // вычисляем промежуточные предикаты: A:=...

Вычислить площадь треугольника, зная длины его сторон
Известны длины сторон треугольника a, b, c.Найдите программу, вычисляющую площадь этого треугольника. Пример входных данных A=3 B=4 C=5 Пример выходных данных S=6.0

Вывести дробную и целую части вещественного числа
Учитель с Информатики дал задачу. Дано действительное число p. В первой строке вывести его закругленное целое значение, во втором - его целую часть, в третьем - его дробную часть (один знак после...

Воспроизвести звук
Возможно добавить свой звук в паскаль,и если да то как?Заранее спасибо за ответ.

Вычислить квадратный корень
Как записать на языке Pascal? P.s. Извините за тупой вопрос... \sqrt{{a}^{2}+{b}^{2}}

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

Определить, является ли число простым
нужна программа: Определить, является ли число простым. -решить с использованием цикла с параметром For ... to ... do Заранее благодарю.

Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры
Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры.

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

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

Ввести символьную строку и заменить все буквы "а" на буквы "б" и наоборот
Буду благодарен если кто-либо поможет с двумя программками. 1) Заполнить массив из 10 элементов случайными числами в интервале м вывести номера всех элементов,равным Х(заданному числу введеному с...

Цвет текста, Pascal ABC
Как изменить цвет текста и цвет фона, например белый фон и текст черным или серым

Множество целых чисел, принадлежащих отрезку [980; 5320], которые делятся на 4 или на 5 и не делятся на 11, 17, 19 и 23
Рассматривается множество целых чисел, принадлежащих отрезку , которые делятся на 4 или на 5 и не делятся на 11, 17, 19 и 23. Найдите количество таких чисел и минимальное из них. В ответе запишите...

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

Функция max pascal
Напишите пожалуйста функцию max в паскаль)

В строке заменить все буквы "а" на "о"
Помогите пожалуйста написать программу!!! В строке заменить все буквы "а" на "о" а) используя функцию pos(...); б) перебирая символы в строке.

Дано двузначное число. Найти сумму и произведение его цифр
2. Решение задач с использованием цикла с постусловием: -Дано двузначное число. Найти сумму и произведение его цифр. Пользователь вводит число до тех пор, пока оно не будет равным 0 -Найти...

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

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

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

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

Нарисовать звезду, используя линии
Добрый день! Надо нарисовать звезду. Используя линии. Как сделать чтобы эта звезда стала в 5 раз меньше ? SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190);...

Вычислить площадь треугольника по заданной высоте и длине основания
Вычислить площадь треугольника по заданной высоте и длине основания. / Pascal ABC Проверка: var a,b,s,h: real; begin write ('введите длину основания'); read (b); write ('введите длину...

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры
1. Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Пример: 1234нет.|1224да. 2. Известны сведения о количестве осадков, выпавших за каждый день мая....

Дана сторона квадрата a. Найти его площадь
3. Дана сторона квадрата a. Найти его площадь.

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

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

Нужны исходники игр
Пожалуста киньте ссылок где можно скачать код игр (Ну тоесть мне нужна не игра а сам код) Добавлено через 6 часов 28 минут Ну че никто не знает???

Модуль 'Graph' не найден
uses graph, crt; var gd,gm:integer; color:byte; begin gd:=detected; initgraph(gd,gm,''); if graphResult <> grOK then Halt(1);

Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5
Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5. Надо сделать в программе Pascal ABC

Составьте программу вычисления степени числа, а с натуральным показателем n
Циклический оператор Составьте программу вычисления степени числа, а с натуральным показателем n. (Записать варианты программы с разными видами циклов while, repeat, for).

Ежемесячная стипендия студента составляет А р., а расходы на проживание превышают стипендию и составляют В р.
Ежемесячная стипендия студента составляет А р., а расходы на проживание превышают стипендию и составляют В р. в месяц. Рост цен ежемесячно увеличивает расходы на 3%. Составьте программу расчета...

Задана длина ребра куба. Наити плошадь боковой поверхности куба и его объем
задана длинна ребра куба . наити плошадь боковой поверхности куба и его обэм

Найти A в степени N
Дано вещественное число A и целое число N (> 0). Найти A в степени N: A^N = A·A· … ·A (числа A перемножаются N раз). помогите решить задачу! буду очень благодарен!

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

Найти количество значений из заданного отрезка, для которых значение функции содержит не менее двух цифр 8
Рекурсивные алгоритмы. Здравствуйте! Столкнулся со следующей задачей: (№ 2288) Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями: F(n) = n +...

Округление числа
Округление числа Округлить к ближайшему целому заданное вещественное число. Округление к ближайшему целому (англ. round) — наиболее часто используемое округление. Число в десятичной системе...

Нарисовать цветок в горшке

Нарисовать любую фигуру и закрасить ее
помогите пожалуйста создать в abc паскале какую-нибудь фигуру и полностью ее закрасить) заранее огромное спасибо

Дано два числа a и b. Выведите гипотенузу треугольника с заданными катетами.
Дело в том, что когда я решила эти задачи, я скинула программы на некий сайт http://informatics.mccme.ru. Но он выдавал мне : "Частичное решение" и не засчитывал задания. Помогите пожалуйста. 1....

Найти площадь равнобедренной трапеции с основаниями а и Ь и углом а при большем основании а.
1.Найти площадь равнобедренной трапеции с основаниями а и Ь и углом а при большем основании а.

Составить программу расчёта объёма куба и площадии его боковой поверхности
Составить программу 5.1) для расчёта объёма куба и площади его боковой поверхности, если длина ребра куба равна а; очень нужна ваша помощь. Заранее огромное спасибо!!!

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

Дано вещественное число -- цена 1кг конфет. Вывести стоимость 0,1, 0,2, ..., 1 кг конфет
Помогите решить задачу. Дано вещественное число -- цена 1кг конфет. Вывести стоимость 0,1, 0,2, ..., 1 кг конфет. С объяснениями, пожалуйста.

Преобразование числа в строку
Очень нужно, помогите пожалуйста. Нужно сделать преобразование числа в строку (целочисленное значение без знака).

Нахождение наибольшего общего делителя трёх чисел
Составьте программу нахождения наибольшего общего делителя трёх чисел,используя следующую формулу: НОД(A,B,C)=НОД(НОД(A,B),C). "можно попроще,на уровне 9ого класса,чтоб учитель не придирался"

Найти корни квадратного уравнения
найти корни квадратного уравнения А*х2(квадрат)+В*х+С=0, заданного своими коэфициентами А,В,С (коэфициент А не равен 0). Вывести вначале меньший, а затем больший из наййденных корней. Корни...

Вывести на экран коды таблицы ASCII от 0 до 255 и их символы
Смог написать программу которая выводит либо символы, либо коды, но не могу сделать, чтобы одновременно выводился сначала код, и через пробел символ ASCII. var a,b: integer; begin for a:= 0 to...

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

Перестановка значений переменных a,b,c в порядке возрастания ( использовать swap)
так, чтобы a<b<c не уверен в правильности и корректности составления, искал такуюже задачу - не нашел на форуме, если кто найдет дайте ссылку. procedure swap (var x,y : integer); var m :...

Написать программу вычисления объема куба
Исходные данные для вычисления: Длина ребра (см) - 9.5 Объем должен быть равен 587.38 куб.см. Желательно с объяснением, что делает какая-либо функция.

Если число положительно - прибавить к нему 1; если отрицательно - вычесть из него 2; если ноль - то заменить его на 10
Нужно составить алгоритм в виде блок-схемы и написать программу для решения задачи: ДАНО ЦЕЛОЕ ЧИСЛО. ЕСЛИ ОНО ЯВЛЯЕТСЯ ПОЛОЖИТЕЛЬНЫМ ТО ПРИБАВИТЬ К НЕМУ 1; ЕСЛИ ОТРИЦАТЕЛЬНОЕ - ВЫЧЕСТЬ ИЗ НЕГО 2,...

Графика. Нарисовать кошку
нарисовать кошку (маленькую)либо что-то другое! мне нужны разные рисунки! пожалуйста!))))))

Определить: есть ли среди цифр заданного трёхзначного числа одинаковые
Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые; Пример входных данных: 123 121 122 Пример выходных данных: Нет Да Да

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

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

Вычислить сумму первых N натуральных чисел
помогите народ,срочно надо :bye:

Отделение дробной части
Вопрос в том как отделить дробную часть от числа в integer. Например дано число 4.88 нужно получить 0.88

Определить, лежат ли три данные точки на одной прямой
Даны координаты трёх точек: (x1,y1),(x2,y2),(x3,y3) Гарантируется , что они различны (не совпадают). Определить: лежат ли они на одной прямой. Добавлено через 1 час 10 минут Написал формулу:...

Дано целое число А. Если значение А < 0, то необходимо удвоить его
2. Дано целое число А. Если значение А < 0, то необходимо удвоить его. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=6,...

Выполнить сортировку массива по убыванию методом пузырька
Задан одномерный массив из 7 случайных чисел .Выполнить сортировку массива по убыванию методом пузырька

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

Двумерный массив. Найти среднее арифметическое элементов
2)дан двумерный массив целых чисел размерностью 5х7. Найти и вывести на экран среднее арифметическое элементов этого массива

Даны два целых числа. Вывести большее из них
Даны два целых числа. Вывести большее из них. Входные данные: Во входном потоке в первой строке через пробел заданы целые числа A и B (-30000 < A,B < 30000), A неравно B. Выходные данные: В...

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

Заполните массив случайными числами и найти два максимальных элемента массива и их номера
Задача: Заполните массив случайными числами и найти два максимальных элемента массива и их номера. Пример: Массив: 5 5 3 4 1 Максимальный элемент: A=5 Второй максимум: A=5 program qq;...

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

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

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

Определить, какое число введено - положительное или отрицательное
1)Пользователь вводит действительное число. Требуется определить: 1. положительное это число или отрицательное; 2. целое это число или нецелое; 3. четное это число или нечетное; Выбор варианта...

Заполните массив степенями числа 2, так, чтобы последний элемент массива был равен 1
заполните массив степенями числа 2,так что-бы последний элемент массива был равен 1,а каждый предыдущий был в 2 раза больше следующего Например 32 16 8 4 2 1 заполните массив целыми числами так...

Напишите условие, определяющее заштрихованную область
Напишите условие, которое определяет заштрихованную область.

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

Заполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений
40) Заполните массив случайными числами в интервале и найдите среднее арифметическое его значений. Пример: Массив: 1 2 3 4 5 Среднее арифметическое 3.000

Нарисовать флаг России
Нарисовать флаг России в паскале ABC

Ввести с клавиатуры 10 чисел и вычисляет их сумму и произведение
напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение

Написать игру PacMan
Получил задание на курсовую - написать игру на Pascal ABC. Жанр - PacMan. В интернете есть исходники для Turbo Pascal, но я хочу написать именно свою (на программиста пошёл ради того, чтобы научиться...

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

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

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

Следующее четное
Разбор можно наше число сделать ближайшим четным: (N div 2) * 2 А потом прибавим 2. =) Условие: Дано целое число n. Выведите следующее за ним четное число. При решении этой задачи нельзя...

Исправить ошибку "ожидался оператор"
Program vector; Uses crt; Var i,j,k:byte; x:array of real; y:array of real; Begin Clrscr; Write('введите k='); readln(k); For i:=1 to k do begin write('x=');read(x);end; For i:=1...

Как записать число Пи?
Забыл, как пишется в Паскале число Пи?

Преобразование из integer в char
каким способом можно конвертировать integer в char?

Массивы. Найти сумму элементов, кратных заданному числу
1. Дан массив вещественных чисел. Из всех положительных элементов вычесть элемент с номером k1, из остальных — элемент с номером k2. 2.Дан массив целых чисел. Найти сумму элементов, кратных...

Мини - игра на паскале
Игровая программа. Компьютер загадывает случайное число в диапазоне от 0 до 100. Пользователь должен угадать это число. Если угадал,то поздравить с победой. Если нет,то указать : больше или...

Подсчитать количество слов, начинающихся с буквы 'а'
Здравствуйте!!! Выручите пожалуйста!!! Никак не могу понять...Заранее ОГРОМНОЕ СПАСИБО!!! 1.Дано предложение-строка, в которой каждое слово – это группа символов, отделенных пробелом от другого...

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

Вычислите значение вещественной переменной C при a=2 и b=3
Вычислите значение вещественной переменной C при a=2 и b=3: а) c:=a+1/3 б) c:=a+4/2*3+6 в) c:=(a+4)/2*3 г) c:=(a+4)/(b+3)*a

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

Программа-калькулятор
Решил сегодня начать изучать паскаль. Нашел на 1 сайте пару уроков, почитал и решил создать простейшую программку исходя из прочитанных уроков. Вот мой код: program mister00; var a,b,num:integer;...