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

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

Протабулировать функцию y=(x-1)^2 на заданном отрезке
Решить систему задачи, используя программу паскаль. Ход работы 1. Общая формулировка задачи; 2. Математическая формулировка задачи; 3. Выбор метода решения; 4. Алгоритм решения; 5. Записываем...

Вычислить среднее арифметическое и среднее геометрическое двух положительных чисел
Решить систему задачи, используя программу паскаль. Ход работы 1. Общая формулировка задачи; 2. Математическая формулировка задачи; 3. Выбор метода решения; 4. Алгоритм решения; 5. Записываем...

Написать калькулятор не используя * /
Надо написать калькулятор используя + и - используя получить * и /

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

Протабулировать функцию
Составить и реализовать на Pascal программу c использованием оператора WHILE для табуляции функций в заданном интервале изменения х и с заданным шагом табуляции 0,1. Результат табуляции должен...

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

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

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

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

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

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

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

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

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

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

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

Рисунок кота
помогите нарисовать кота в паскаль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 домик такой:крыша,квадратик,а внутри кружок

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

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

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

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

Найти наибольший общий делитель двух натуральных чисел
Условие:найти наибольший общий делитель двух натуральных чисел 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;

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

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

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

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

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

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

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

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

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

Несколько условий 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
Скажите, пожалуйста, как нарисовать в Pascal круг, линию! Буду очень благодарна, т.к. только что начала изучать этот язык! Заранее благодарю!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Тетрис на Паскале 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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка: ожидался идентификатор
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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Алгоритм вычисления функций 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) +...

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

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

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

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

Ошибка: нельзя преобразовать тип 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Вычислите значение вещественной переменной 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

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

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

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

Игра Крестики-нолики На Pascal ABC
Вот начал делать прогу. К сожалению доделать не могу( Помогите плиз. P.S. надо именно дописать. Новую прогу не предлагать. Преподаватель поймет, что не я писал) program lol; uses graphabc,...

Из одного слова составить другие
Нужно решить задачку ""Из слова "ВЕЛИКОЛЕПНЫЙ" с помощью строковых функций получить слова: ВЕЛИК, КОЛ, ЛИК, ЛЕВ, ВЕК и вывести их на экран.""

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

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

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

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

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

Найти максимальный элемент массива.
Помогите составить алгоритм поиска наибольшего элемента одномерного массива. Исправьте,если что не так. program ex26; var a:arrayof integer; N,i,min,max:integer; begin write('N -> '); ...

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

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

Найти все делители для заданного числа
Найти все делители для заданного числа: ...

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

Разбить строку на слова
что то типа такого должно получиться... text: 'я знаю язык паскаль' результат: я знаю язык паскаль --------

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

Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.
Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

Найдите количество элементов, которые оканчиваются на 8 и делятся на 3
1) Введите массив из 5 элементов с клавиатуры и найдите количество элементов, которые оканчиваются на 8 и делятся на 3.

Графика: нарисовать корону и раскрасить ее
pascal abc как сделать корону и раскарасить ее помогите пожалуста

Округлить до 2 цифр после запятой
Дано число с 15-ю цифрами после запятой.Создать программу,которая будет округлять данное число до 2 цифр после запятой. помогите плиз

Выполнить циклический сдвиг элементов массива вправо
Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент.

Нарисуйте ракету
Ракета должна двигаться Добавлено через 19 минут Вот я нарисовала,сделайте,чтобы двигалась) Program raketa; Uses GraphAbc; //Подключение модуля GraphAbc Begin SetWindowSize(500,500);...

Найти сумму четных чисел от 1 до 100 и произведение нечетных
Задачи : 1. Найти сумму четных чисел от 1 до 100 и произведение нечетных Помогите а то уже мозг сломал себе

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

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

В последовательности натуральных чисел определить минимальное число, оканчивающееся на 4
Всем доброго времени суток! Что нужно сделать: Написать программу на паскале, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает...

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

Можно ли откомпилировать программу в exe
Ну собственно сам вопрос уже прочитан). Тут я никак не могу сообразить как можно через турбо паскаль создать ехе файл. например сделал игру, и как ее сохранить так, чтобы она запускалалсь сама, а не...

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

Анимация в PASCAL ABC
Люди нужно 5 задач анимированых на графику в Pascal ABC Буду очень благодарен

Даны натуральное n, действительное x. Вычислить: S=sinx+sinsinx+...+sinsinx...sinx
Даны натуральное n, действительное x. Вычислить: S=sinx+sinsinx+...+sinsinx...sinx Там где: (+sinsinx...sinx) n раз

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

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

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

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

Посчитать количество слов в строке
Строка содержит предложение. Нужно определить количество слов в этом предложении. Помогите с этой траблой пожалуйста. PS. Я совсем тугой, если не могу это сделать? 9 класс уже как-никак, занимаюсь...

После числа дописать слово "рубль" в правильной форме
написать программу, которая после введенного с клавиатуры числа( в диапазоне от 1 до 999) обозначающего денежную единицу, дописывает слово "рубль" в правильной форме. Например n рублей , 21 рубль и...

Составить функцию, которая определяет наибольший общий делитель двух натуральных
Составить функцию, которая определяет наибольший общий делитель двух натуральных и привести пример ее использования. Пример: Введите два числа: 14 21 НОД(14,21)=7

паскаль для windows 7(64-битная)
у меня windows 7 (64-битная ) помогите . как мне установить на нее паскаль, все прогаммы которы е скачаваю, они только для 32 битной системы, очень надо... заранее спасибо...

Ошибка в программе: Операция '=' не применима к типам real и boolean
Помогите исправить ошибку в 9 строке программы: program storinka40zadacha7; uses crt; var z,y,x:real; begin write('x = '); readln(x); write('y = '); readln(y); if (y=-x=2) then...

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

Определить сумму нечетных цифр числа
Определить сумму нечётных цифр в числе N (число N вводится с клавиатуры).

Дано натуральное число. Найти все его делители и их сумму
Дано натуральное число. Найти все его делители и их сумму

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

Написать программу, которая проверяет, делится ли на 3 введенное пользователем целое число.
1. Написать программу, которая проверяет, делится ли на 3 введенное пользователем целое число. 2. Вычислить выражение y=17x , если 12 х 42. 3. Составить программу с оператором выбора. Добавлено...

Умножение матриц
Найти с=A*B A:=((2,5,3), (5,4,5), (9,8,7)); B:=((6,5,5), (9,3,2), (3,1,2));

Определить, принадлежит ли точка с координатами (х,у) заштрихованной области

Выяснить, является ли число палиндромом
Условие: Дано трехзначное число. Выяснить, является ли оно палиндромом («перевертышем»), т. е. таким числом, десятичная запись которого читается одинаково слева направо и справа налево.

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

Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера
пожалуйста:cry::cry::cry: Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера.

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

Написать программу преобразования цифр в слова
4.Написать программу преобразования цифр в слова.

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

Найти стороны треугольника, заданного величинами своих углов и радиусом описанной окружности
a,b,c:real; a1,b1,c1,r: integer; begin writeln('введите угол А='); readln (a1); writeln ('введите угол B='); readln (b1); c1:=180-(a1+b1); writeln ('введите радиус r='); ...

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

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

Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновели
uses crt; var s1,s2,p1,p2,a1,a2,b1,b2,c1,c2:real; begin write('Введите величины первого треугольника ');readln(a1,b1,c1); write('Введите величины второго треугольника ');readln(a2,b2,c2);...

Вывести на экран натуральные числа от 1 до 20 в обратном порядке
Вывести на экран натуральные числа от 1 до 20 в обратном порядке var a, b, i: integer; begin a := 1; b := 20; writeln; for i := b downto a do writeln(' ', i) end.

Написать программу, которая бы по введённому номеру единицы измерения выводит соответствующее значение массы в килограммах.
Написать программу, которая бы по введённому номеру единицы измерения (1-миллиграм, 2-грамм, 3-килограмм, , 4-центнер, 5-тонна) и масса M выводит соответствующее значение массы в килограммах. ...

Сортировка массива по убыванию. Блок-схема и программа
3.Задан одномерный массив. Отсортировать массив в порядке убывания элементов.

Даны два целых числа А и B (A<B). Найти произведение чисел от А до В включительно
Даны два целых числа А и B (A<B). Найти произведение чисел от А до В включительно. Решить через For и если будет не трудно объясните как решали.

По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания
По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания. Операцией возведения в степень пользоваться нельзя! Примеры входные данные 50 выходные...

Найти корни биквадратного уравнения
Найти корни биквадратного уравнения Ax^4+Bx^2+C=0 (Программа Паскаль) очень прошу помочь

Заполнить массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 .
Составьте программу, которая заполняет массив а случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение элементов массива с нечётными значениями

Что значит until?
Привет форумчане! Объясните пожалуйста подробно, что выполняет until во в этой задаче? program pr4; uses crt; var a:array of integer; i,k,n:integer; begin repeat writeln ('Введите размер...

В классе N учеников. После контрольной было получено: A - пятерок, B - четверок, C -троек. Найти процент троек, четверок и пятерок
В классе N учеников. После контрольной было получено: A - пятерок, B - четверок, C -троек. Найти процент троек, четверок и пятерок.

Дано трехзначное число. В нем зачеркнули первую цифру с лева и приписали ее в конце
Дано трехзначное число. В нем зачеркнули первую цифру с лева и приписали ее в конце.Найти полученное число.

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

Если a<=b<=c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них
Приветствую. Помогите пожалуйста решить задачку. Даны целые числа a,b и с. Если a<=b<=c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, противном...

Вывести на экран большее из двух чисел
program uslovie; Var A, B, C: real; begin readln(a, b); if a>b then С:=A else С:=B; write( 'большее число =', C); end.

Найти произведение цифр заданного целого четырехзначного числа
Номер теста |Проверяемый случай |Число |Результат 1 |Число положительное |2314 |P = 24 2 |Число отрицательное |-1245 |P = 40

Дано целое число x и натуральное n. Составьте алгоритм вычисления x в n степени.
помогите решить задачу Дано целое число x и натуральное n. Составьте алгоритм вычисления x в n степени. Проверте алгоритм трассировкой. Напишите программу на паскале.Создавайте темы с осмысленными...

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

Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры
2) Заполните массив случайными числами в интервале и переставьте их по возрастанию средней цифры.

Вычислить сумму чисел кратных 5 на отрезке чисел от 1 до 100
Вычислить сумму чисел кратных 5 на отрезке чисел от 1 до 100.

Нарисовать смайлик

Найти периметр и площадь треугольника
Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь.

Сделать проверку ввода и допустить ввод только цифр
Как сделать проверку ввода символов, типа если вводится не цифры а текст, то выводить ошибку var x,y:real; begin writeln ('Введите значение x') ; read(x) ; begin if x>=9 then...

Сумма цифр трёхзначного числа
Дано трех значное число надо что бы программа выдала сначала ввести трехзначное число и после сложила каждую цифру например даю числу 125 а он должен подсчитать 1+2+5 и вывести результат. Я ковырял...

Рисование графики в Pascal ABC
Доброго времени суток! Подскажите плиз сайты где есть готовые примеры программ для рисования графики (домик, забор, ёлочка). Заранее спасибо :)

Вывести четные числа от 1 до включительно 20
составить прог которая будет выводить четные цифры от 1 до включительно 20 program apple; var i,j: integer; begin For i:=1 to 10 do j:=i*2; writeln(j); readln; end. где тут ошибка??

Найти сумму: 1+1/2+1/3+1/4...1/n
Найти сумму: 1+1/2+1/3+1/4...1/n

Вводится 10 чисел. Найти сумму всех четных чисел и произведение нечетных
вводится 10 чисел.найти сумму всех четных чисел и произведение нечетных

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

Пройти тест по одномерным массивам
1. Одномерный массив - это ... А) Множество переменных Б) Одна большая переменная В) Таблица в один столбец и одну строку Г) Одно число Д) Таблица в одну строку 2. При определении суммы...

Программа перевода арабских чисел в римские!
Составить программу перевода любого значения N(n<3999) в запись римскими цифрами.

Решение СЛАУ методом простой итерации(Метод Якоби)
Собрал я вот такую программку из нескольких подобных исходников на эту тему.Хм...получилось,как ни странно,но есть проблема не могу условие сходимости и расходимости сделать,чтобы в начале программы...

Найти сумму квадратов всех целых чисел от А до В
Найти сумму квадратов всех целых чисел от А до В

Даны действительные числа х, у (х не равно у). Меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением.
нашел похожее,но работает не совсем правильно,так как пр подстановке х=5 и у=3 выдает,что х=40 и у=4 (х в данном случае должно было бы быть равным 30) program w; uses crt; var x,y:real;...

Нахождение суммы большего и меньшего из трех чисел
Задачи по теме: Условный оператор if. Составной оператор Написать программу нахождения суммы большего и меньшего из трех чисел.

Определить число способов выплаты суммы n руб. с помощью монет достоинством 1, 2, 5 рублей
22. Дано натуральное число n(n<100). a) Определить число способов выплаты суммы n руб. с помощью монет достоинством 1,2,5 рублей и бумажных купюр достоинством 10руб. б) Получить все способы...

Если числа не равны, то заменить каждое из них большим
УСЛОВНЫЙ ОПЕРАТОР 16. Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

Расставить знаки между цифрами чтобы получилось 100
Дан автобусный билет с номером, состоящим из N цифр. Расставить между цифрами знаки арифметических операций ('+', '-', '/', '*') и скобки таким образом, чтобы значение полученного выражения было...

Нарисовать дом, солнце и траву
НУжна программма рисующая любое цветное изображение для pascal ABC Например: домик, солнышко и травка.

Нарисовать Грузовик в Pascal ABC
Нужно нарисовать грузовик.

Нарисовать паровоз
Нарисовать паровоз в ПаскальАБС

Составьте блок-схему алгоритма и программу вычисления произведения четных чисел, меньших 15.
1. Составьте блок-схему алгоритма и программу вычисления произведения четных чисел, меньших 15. написать решение с While, а потом эту же задачу ещё и с Repeat

Процедура, выводящая на экран все делители переданного ей числа
Напишите процедуру, которая выводит на экран все делители переданного ей числа (в одну строчку)

Воспроизведение файлов wav и mp3
Подскажите пожалуйста как вставить музыку в Pascal ABC.Вот сюда var a,b,d,g,l,t,h,j,e,q,w,aa: integer ; begin writeln('Привет!Меня зовут Компьютер.Будем говорить на ты.Мне 12 лет.А тебе...

Как подключить SysUtils
Я нашёл на этом форуме программу https://www.cyberforum.ru/pascal/thread93376.html?uri=/pascal/thread93376.html но не понимаю как в паскал подключить uses SysUtils; ведь это началось только в дельфи....

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

Все элементы массива увеличить в 2 раза
Дан массив все его элементы увеличить в 2 раза Мой вариант кода: for i:=1 to 10 do for j:=i*2 ...

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

Неверное число параметров функции
program snejok_velikiy; Uses crt; Type MatrixType = Array of integer; Var A:MatrixType; stolb,l,k,m,n:integer; sz:real; {-------------------------------------------------------------}

Найти сумму всех целых чисел от 100 до 500
Найти сумму всех целых чисел от 100 до 500

Напишите программу, которая вводит два вещественных числа (x и y) и вычисляет значение x^y
Напишите программу, которая вводит два вещественных числа (x и y) и вычисляет значение x^y

Помогите сделать открытку на Новый Год
Помогите сделать открытку на Новый Год!прошу

Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из
Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из трёх. И начертить блок схему. (Помогите пожалуйстаа)

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

Остановить выполнение программы
Добрый день. Есть консольная программа. В ней есть условный оператор, который проверяет правильно ли введён пароль. Так вот, когда я ввожу левый пароль, программа мне пишет "Стойте" но продолжает...

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

Дано натуральное число. Определить сколько цифр "3" в нём
№2. Дано натуральное число. Определить сколько цифр "3" в нём. Эту задачу совсем не могу решить. Помогите, пожалуйста!

Есть ли в Pascal ABC.NET модуль Sounds?
Сделал игру со звуками в обычном pascal abc, захотел сделать exe файл,а Pascal ABC.NET говорит что неизвестный модуль Sounds! Как же в Pascal ABC.NET сделать воспроизведение звуков? Добавлено...

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

Построить звезду в и закрасить её полностью каким-либо цветом
помогите пожалуйста.нужно построить звезду в паскаль abc и закрасить её полностью каким-либо цветом

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt
В файле data.txt записаны числа, сколько их – неизвестно. Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt.

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

Напишите программу, которая моделирует работу процессора
1. Напишите программу, которая моделирует работу процессора. Процессор имеет 4 регист-ра, они обозначаются R0, R1, R2 и R3. Все команды состоят из трех десятичных цифр: код операции, номер первого...

Напишите программу, которая вводит натуральное число N и выводит на экран первые N чисел Фибоначчи
Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1(F1=F2=1), а каждое следующее равно сумме двух предыдущих: Fn=Fn-1+Fn-2. Напишите программу, которая вводит натуральное число N...

Считать числа из файла в массив
Помогите мне сохранить числа, записанные в файле через пробел в 1 строку, в массив.(при том количество чисел неизвестно). Заранее благодарен!

Дан номер урока (число от 1 до 10). Определите, когда заканчивается указанный урок
В некоторой школе занятия начинаются в 9:00. Продолжительность урока — 45 минут, после 1-го, 3-го, 5-го и т.д. уроков перемена 5 минут, а после 2-го, 4-го, 6-го и т.д. — 15 минут. Дан номер урока...

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

Возведение в степень
Вывести на экран числа a в степени -n, a в степени -n+1, a в степени -n+2, a в степени -1 для заданных вещественного a и натурального n

Подсчитать количество четных чисел в промежутке от 1 до 10
составить программу для подсчета количества четных чисел в промежутке от 1 до 10 Добавлено через 13 минут Спасибки, уже сама справилась)) Если кому надо, то вот: program AB; var s, n :...

В чем отличия Turbo Pascal от PascalABC
хотелось бы знать какие между ними различия)

Определить среднее арифметическое цифр числа
Дано натуральное число. Определить:г) среднее арифметическое его цифр;

Cтоимость 1, 2, , 10 кг конфет
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет.

Составить программу для расчета факториала натурального числа n
Составить программу для расчета факториала натурального числа n (факториал числа n равен 1 * 2 *.... n).

Дано целое число N(>0). Найти произведение N!=1*2*...*N (N- факториал)
Помогите пожалуста решить задачу Дано целое число N(>0). Найти произведение N!=1*2*...*N (N- факториал). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной...

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

Найти произведение первых N натуральных чисел
1)Найти сумму первых N натуральных чисел 2)Найти произведение первых N натуральных чисел

Заполнить массив из 10 элементов случайными числами и сделать реверс отдельно для 1-ой и 2-ой половин массива.
Пожалуйста, помогите решить вот эту задачу. 3) Заполнить массив из 10 элементов случайными числами в интервале и сделать реверс отдельно для 1-ой и 2-ой половин массива. Пример: ...

Вывести в порядке возрастания все целые числа, расположенные между A и B
Integer10. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки). Integer28. Дни недели пронумерованы следующим образом: 1 —...

Сколько дней осталось до Нового Года?
Напишите программу, которая вводит с клавиатуры номер месяца и день и определяет, сколько дней осталось до Нового Года. HELP!

Дана символьная строка. Подсчитать количество букв k в последнем ее *слове
Дана символьная строка. Подсчитать количество букв k в последнем ее *слове

Изменить толщину линии
Как можно изменить толщину линии?

Написать программу, имитирующую игру в теннис
«Теннис». Написать программу, имитирующую игру в теннис. Игровое поле представляет собой прямоугольник, по которому движется теннисный мячик. С правой стороны располагается «ракетка» игрока, которую...

Нарисуйте дерево
Нужно срочно нарисовать дерево в Pascal ABC

Нарисовать цветные линии
как изменить цвет в graphABC? например, надо нарисовать 2 линии серых и одну черную через 10 пх

Составить программу обмена значениями двух переменных a и b
2.Составить программу обмена значениями двух переменных a и b. Разработать два варианта решения задачи – с использованием вспомогательной переменной и без нее.

Найти сумму n первых натуральных чисел циклом: а) for; б) while; в) repeat;
Найти сумму n первых натуральных чисел циклом: а)for; б)while; в)repeat;

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

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

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

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

Найти площадь осевого сечения цилиндра.
В цилиндре площадь основания равна Q см^2 , а площадь полной поверхности цилиндра равна S см^2 . Найти площадь осевого сечения цилиндра.

Дано трехзначное число. Определить наименьшую и наибольшую его цифру
Дано трехзначное число. Определить наименьшую и наибольшую его цифру. Входные данные: Во входном потоке в трехзначное целое число A. Выходные данные: В выходной поток вывести два целых числа в...

Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b
II.Логические выражения 6. Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b. III.Линейные алгоритмы 28. Сумма двух последних цифр заданного трехзначного...

Нахождение корня квадратного уравнения
var a,c,d,r,x1,x2,x : Integer; b : Real; begin WriteLn('Введите числа в уравнение вида: ах^2+вх^2+с'); readln(a,b,c); 'возведение числа в степень' r:= sqr(b)-4*a*c; if r>0 then...

Найти решение системы уравнений вида A1•x + B1•y = C1, A2•x + B2•y = C2, заданной своими коэффициентами A1, B1, C1, A2, B2, C2
1. Найти решение системы уравнений вида A1•x + B1•y = C1, A2•x + B2•y = C2, заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение. 2. В...

Составить программу вычисления выражения
(1+cos(y-2)) / (((x^4)/2))+(sin^2)*z) Заранее спасибо!

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

Графика в паскале. Елочка
надо написать программу в паскале для елочки и что она была по серединее(чем быстрее тем лутше.ПЛИЗ!!!) Добавлено через 1 минуту и да забыл надо чтобы она была зеленой!!!!

Дано трехзначное число.Определить,равен ли квадрат этого числа сумме кубов его цифр
(ветвление)1)Дано трехзначное число.Определить,равен ли квадрат этого числа сумме кубов его цифр. помогите пожалуйста*

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

Требуется сложить два целых числа А и В
Требуется сложить два целых числа А и В. Входные данные В единственной строке входного файла INPUT.TXT записано два натуральных числа через пробел, не превышающих 109. Выходные данные В...

Структуризация информации (таблицы, списки)
Практическая работа № 2. Структуризация информации (таблицы, списки)1 1. Представьте информацию в структурном виде так, чтобы ее было легче воспринимать: «Озеро Байкал находится на юг Восточной...

Составьте программу, которая выполняет чертёж одной из деталей и высчитывает ещё площадь
Составьте программу, которая выполняет чертёж одной из деталей и высчитывает ещё площадь. Масштаб: 1 клетка - 20 пикселей.

Составьте блок-схему алгоритма и программу произведения четных чисел, меньше 15
Задачи для Pascal ABC 1. Составьте блок-схему алгоритма и программу произведения четных чисел, меньше 15. 2. Составьте таблицу значений ф-и y=5*x-2*x+1 на отрезке с шагом h=2. 3. Составьте...

Найти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3
помогите плз, чет сижу туплю Добавлено через 56 минут вроде так, вдруг кому пригодиться program p_1; var i,c:integer; begin writeln('Сумма чисел от 20 до 100 кратные 3'); c:=0;

Определить, является ли число двузначным
Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь😊

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

Пиксели рисунка закодированы числами от 0 до 255 (обозначающими яркость пикселей) в виде матрицы, содержащей N строк и M
Помогите справиться с задачей: Пиксели рисунка закодированы числами от 0 до 255 (обозначающими яркость пикселей) в виде матрицы, содержащей N строк и M столбцов. Нужно преобразовать рисунок в...

Даны вещественные положительные числа a,b,c. Выяснить, существует ли треугольник со сторонами a,b,c
Даны вещественные положительные числа a,b,c. Выяснить, существует ли треугольник со сторонами a,b,c.помогите плиз!

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

Составить программу для времени суток
• Составить программу, которая в зависимости от текущего времени выводит период суток (день, ночь, утро вечер). Текущее время вводится с клавиатуры. Написать программу на языке PASCAL,...

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

Написать рекурсивную процедуру перевода натурального числа из двоичной системы счисления в десятичную
Написать рекурсивную процедуру перевода натурального числа из двоичной системы счисления в десятичную. Добавлено через 15 минут Есть программа, которая переводит числа из 10сс в 2сс. Ее нужно...

Заполните массив из N элементов случайными числами в интервале [1,N] так, чтобы в массив вошли все числа от 1 до N
Напишите программу пожалуйста(простую,для тех ,кто не очень разбирается в паскале) Заполните массив из N элементов случайными числами в интервале так, чтобы в массив обязательно вошли все числа от...

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

Делится ли число на 2,3,5
Плиз Хелп! Нам по информатике дали такое задание : Определите, делится ли число на 2,3,5 ? То есть нам надо сначала найти это число, а потом доказать что оно делится на 2,3,5. Мы этого не проходили...

Таблица умножения на 7
Здравствуйте!Помогите пожалуйста)Дело в том,что мне нужно НАПЕЧАТАТЬ в Паскале таблицу умножения на 7. Такой вид НЕ ПРИНИМАЮТ( : var i, n: integer; begin readln(n); writeln(' i ...

Заполнить двумерный массив по спирали слева направо и сверху вниз
Заполнить двумерный массива размером 5x5 следующим образом (по спирали слева направо и сверху вниз): 1 2 3 4 5 16 17 18 19 6 15 24 25 20 7 14 23 22 21 8 13 12 11 10 9

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

Строка: Напишите функцию, которая заменяет во всей строке все римские числа на соответствующие десятичные числа
Помогите пожалуйста Напишите функцию, которая заменяет во всей строке все римские числа на соответ-ствующие десятичные числа. Пример: Введите строку: В MMXIII году в школе CXXIII состоялся...

Изобразить шахматную доску
Помогите пожалуйста, написать программу шахматной доски (Pascal ABC)

Напечатать таблицу перевода расстояний из дюймов в сантиметры
для значений от 1 до 10 дюймов с шагом 0,5 дюйма. Формула перевода: 1дюйм = 2,54 см.

Подсчитать количество строк в файле
Всем привет. Как можно подсчитать кол-во строк в файле? Мне надо просуммировать числа из одного файла и записать в другой. В первом файле по одному числу на строку. Пример: 3 4 5 7 3 Я считаю...

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

Дано название города.Определить,четно или не нет количество символов в нем.
Дано название города.Определить,четно или не нет количество символов в нем.

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

Индекс находился вне границ массива
Уважаемые! вот подскажите мне почему не запускается вторая программа? program Searcher; uses crt; procedure XYZ; var x,y,z:integer; begin write('Введите координаты x,y,z -> ' ); read(x,y,z);...

Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На экран вывести количество введеных чисел
Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На экран вывести количество введеных чисел (в программе не использовать массивы), в Pascale. program project1; var...

Построить график функции
1.Написать программу для построения графика функций у=х квадрате-5х+3

Вывести ответ «Да», если все цифры четные, и ответ «Нет» в остальных случаях.
С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.

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

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

Построение графика функции y = x^2
Построить график функции y = x^2 на интервале . uses GraphABC; const a = 300; b = 200; k = 300; xmin = -3; xmax =3; var x, y, h: real; xe, ye, w: integer; begin w :=...

Ввести с клавиатуры массив из 5 элементов и найти минимальный из них
Ввести с клавиатуры массив из 5 элементов найти минимальный из них.

Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел
Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел.ПОЖАЛУЙСТА РАСПИСЫВАЙТЕ ПОЛНОСТЬЮ!!!

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

Как сделать задержку в графическом режиме?
Ещё раз здравствуйте) В pascalABC в модуле crt есть задержка(delay) но в графическом режиме её нет. Как оформить задержку в графике?) заранее спасибо)

uses crt
Помогите решить задание( Составить программу вывода на экран окна, которое условно "разбито" на вертикальные столбцы. Верхние части столбцов окрашены одним фоном, нижние - другим. Граница раздела...

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

Каждый робот живет 3 года после сборки. Сколько роботов будет через N лет?
Сообщество роботов живет по следующим законам: один раз в год они объединяются а полностью укомплектованные группы по 3 или 5 роботов(причем число групп из 3-х роботов-максимально возможное). За год...

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

Быстрая сортировка элементов выборки (алгоритм quickSort)
Написать программу реализующую быструю сортировку элементов выборки N чисел

Создать рисунок: человек
Изобразить на экране ЭВМ следующий рисунок:

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

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

Часы в Pascal ABC.
Значит хочу реализовать часы в паскале абц. Процедуры GETTIME нет. Есть модуль Timers. Реализация проходит так: выделяется динамическая память под таймер. И командой <указатель>.start; Начинается...

Заполнить массив случайными числами и отсортировать его по убыванию
Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по убыванию. Пример: Исходный массив: 4 5 -8 3 -7 ...

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

Факториал числа
Написал программу, которая считает факториал числа. Но считает она до максимального значения типа REAL. Как сделать, чтобы считался факториал для любого числа? (С массивами пока не знаком.) ...

Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]
Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале . Размер произвольный.

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

Заполнить массив с клавиатуры
Заполнить массив

Найти и вывести на экран слово максимальной длины
1)С клавиатуры вводится строка.Найти и вывести на экран слово максимальной длины.Словами считать любую последовательность символов отделяемую пробелами.

Вывести на экран все целые числа от 100 до 200, кратные трем
Вывести на экран все целые числа от 100 до 200, кратные трем.

Заменить все строчные буквы на заглавные
8)заменить все строчные на заглавные

Вычислить периметр квадрата
var a,b,P,kv:integer; begin writeln ('Введите геометрическую фигуру kv или pr'); if (kv) then write ('Введите сторону квадрата'); readln (a); P:=a*4; writeln('P= ',P); else ('ВВедите a и b');

Выполнить поиск максимального и минимального элементов в массиве за один цикл
Выполнить поиск максимального и минимального элементов в массиве за один цикл. Смог только в два цикла, но в один никак не получается. const N=10; type mas=array of integer; var A:mas;...

Вставить число а в массив целых чисел после всех элементов, в которых есть цифра 5
Задача№16 2. Имеется фрагмент программы в виде оператора цикла с параметром, обеспечивающий вывод на экран «столбиком» квадратных корней из всех целых чисел от а до Ъ (а > Ъ). Оформить этот...

Вводится четырехзначное число. Поменять местами первую и третью цифру числа
1)Вовочка, любитель стрелять из рогатки, 7 раз попадал в милицию. Ввести с клавиатуры целое положительное число – № попадания. Определить результат: если № равен 4,6,7 – милиционеры вставляли новое...

Пояснить работу оператора Case
Помогите. Почему на операторе Case после '9' выдает ошибку и 10-е значение не проверяет? Program R; var ch:char; ...

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

Определить, является ли введенная буква русского алфавита гласной
1. Определить, является ли введенная буква русского алфавита гласной. 2. Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент), длина окружности (третий элемент)....

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

Дано вещественное число x. вычислить f(x), если: f= 0 при x<=0, f= x, при 0<x<=1, x2, в остальных случаях
Решите плиз! Срочно

Timer
Вот эта штука вот работает, но не так как мне нужно. Этот код позволяет каждую секунду выводить на экран цифры, но выводит он не по очерёдно 1 потом через секунду два, а сразу все.. как сделать по...

Найти все делители натурального числа n.
Найти все делители натурального числа n. Решение pascal ABC

Что означает inc и not odd?
Что означает inc и not odd?

Сложить отдельно все положительные и отрицательные элементы массива отдельно
Кому не лень помогите пожалуйста сделать эти задачи. Хотя бы несколько. Буду очень признателен. 1) Напишите программу, которая сначала вводит десять чисел в одномерный массив, а затем складывает...

Найти сумму кубов всех чисел от 20 до 40
Паскаль! Решите пожалуйста!)

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

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

Дано целое число в диапазоне 1 – 5. Вывести строку — словесное описание соответствующей оценки
Begin66. Дано целое число в диапазоне 1 – 5. Вывести строку — словесное описание соответствующей оценки (1 — "плохо", 2 — "неудовлетворительно", 3 — "удовлетворительно", 4 — "хорошо", 5 — "отлично").

Вывести на экран 10 раз сообщение
Вывести на экран 10 раз сообщение"Я понял,что такое циклы" честно,в паскале дуб-дуб,объясните как это вывести))

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

Составить программу для решения квадратного уравнения вида ax^2+bx+c=0
Помогите написать программу на pascal. Составить программу для решения квадратного уравнения вида ax^2+bx+c=0 В программе предосмотреть следующие случаи: 1. Если дискриминант D<0, то выдать...

Нарисовать любую картинку
нарисовать любую картинку.

В файле input.txt записаны числа, сколько их – неизвестно
В файле input.txt записаны числа, сколько их – неизвестно. 1: Найти среднее арифметическое всех чисел и записать его в файл output.txt. 2: Найти минимальное и максимальное числа и записать их в...

Определить, есть ли среди трех чисел хотя бы одно чётное и хотя бы одно нечётное
Чётные и нечётные числа Дано три целых числа a, b, c. Определить, есть ли среди них хотя бы одно чётное и хотя бы одно нечётное. Технические условия Входные данные Числа a, b, c,...

Напишите программу, которая строит "линию" из знаков '-' заданной длины. Используйте процедуру
Напишите программу, которая строит "линию" из знаков '-' заданной длины. Используйте процедуру. Входные данные Входная строка содержит единственное натуральное число – длину линии N . Выходные...

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

Нахождение суммы максимального и минимального элементов массива
Возникла проблема с решением задачи. program dima; var a:array of integer; S,i,iMax,iMin : integer; begin for i:=2 to 10 do begin a:=random(306)-100; writeln(a:4);

Шифр Цезаря
Доброго времени суток! Подскажите пожалуйста! Написать программу, которая выполняет шифрование строки с помощью шифра Цезаря. Скажите пожалуйста в чем ошибка? procedure cez(var text:string;...

Определить какой символ встречается в тексте чаще всего
//определить какой символ встречается в тексте чаще всего var s,s1:string;i,k,j:integer; b:char; begin k:=0; readln(s); for b:='а' to 'я' do k:=0; for i:=1 to length(s) do for j:=1 to...

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

Определить площадь круга с использованием метода "Монте-Карло"
определить площадь круга с использованием метода "Монте- Карло"

Дан целочисленный массив с количеством элементов n. напечатать те его элементы, индексы которые являются степенями двойки
(1,2,4,8,16...).

Дано трехзначное число. Определить, какая из его цифр больше первая или вторая
Условие: Дано трехзначное число. Определить, какая из его цифр больше первая или вторая. Примечание: Организовать процедуру определения и сравнения первой и второй цифр числа. Через процедуру. В...

Как узнать размер одномерного массива?
В яве размер массива можно узнать вызовом метода length(), а как узнать размер массива в паскале?

Найти произведение элементов массива
Дан массив из 7 элементов.найти произведение элементов массива

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

дано трехзначное число,
дано трехзначное число, найти полученное при прочтении его чисел с права на лево Пример: вводим 358, надо что бы получилось 853.

Проверить, что результатами вычислений по формуле являются простые числа
Уважаемые,прошу помочь столкнулся с такой задачей: Составить программу для проверки утверждения : "Результатами вычислений по формуле х²+х+17 при 0<=x<=15 являются простые числа". Все...

Из слова "ПРОГРАММА" составить слова: "ГРАММ", "РОГА", "ГОРА"
Составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА".( с помощью Copy и т.д. тема символьные переменные).

Найти сумму четных чисел от 1 до N. Число N вводится пользователем с клавиатуры
Найти сумму четных чисел от 1 до N. Число N вводится пользователем с клавиатуры.

For: дано целое число N(>0). Найти произведение 1.1*1.2*1.3*... (N сомножителей)
дано целое число N(>0). Найти произведение 1.1*1.2*1.3*... (N сомножителей).

Нарисовать пять колец
Как сделать что бы кольца стали прозрачными. В PascalABC. В PascalABCNET получилось сделать, а тут не получается. uses graphABC; Begin SetPenWidth(5); SetPenColor(clNavy);

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

Шрифт
Как сделать, чтобы заголовок был жирным и другого шрифта? Uses CRT; Begin Writeln('Çàãîëîâîê'); readln; Writeln('Îáû÷íûé òåêñò'); end.

Подсчитать сколько раз в строке встречается заданная буква
6. Подсчитать сколько раз в строке встречается заданная буква.

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

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

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

Решение примеров
Здравствуйте, помогите с решением задач.

Составление всех возможных слов из заданных букв
Поиск по форуму не дал мне желаемого результата, поэтому решил создать тему.. Итак.. Помогите сделать программу на PascalABC.. На вход подается 10 букв (могут повторяться). Нужно вывести все...

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

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

Сортировка слиянием в массиве
Создать массив (рандомно заполнить),вывести на экран. Отсортировать слиянием. Вывести на экран отсортированный массив. (В паскале) Помогите пож-та!!!

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг ВПРАВО
ребят у меня оч большая просьба я полностью соответствую названию темы поможете решить задачки) 1: Заполнить массив из 10 элементов случайными числами в интервале и выполнить циклический сдвиг...

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

Определить сколько раз в числе встречается последняя цифра
1) Дано натуральное число. Определить сколько раз в нем встречается последняя цифра. в 1, 4, 5 нужно вводить данные с клавиатуры. помогите пожалуйста! нужны листинги этих программ

сделать маленькие буквы большими, а большие маленькими
Ввести c экрана строку из больших и маленьких латинских букв и цифр. Преобразовать строку, сделав маленькие буквы большими, а большие маленькими, цифры удалить из строки. Program lab2_2; uses...

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

Дана последовательность действительных чисел аь а2,..., а„. Заменить все ее члены, большие данного Z, этим числом.
Помогите пожалуйста Дана последовательность действительных чисел аь а2,..., а„. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен.

Найти произведение цифр заданного трехзначного числа
Найти произведение цифр заданного трехзначного числа. Результат напечатать в виде "Дано число- 432, первая цифра- 4, ... , произведение- 24"

вычислить значения логических выражений, записанных на Паскале
1) K mod 7 = K div 5 - 1 при K=15; 2) odd(trunc(10*P)) при P=0,182; 3) not odd(n) при n=0; 4) t and (P mod 3=0) при t=true, P=10101; 5) (x*y<>0) and (y>x) при x=2, y=1; 6) a or not b при...

Определить, являтся ли заданное шестизначное число счастливым
Определить, являтся ли заданное шестизначное число счастливым(Счастливым называют такое шестизначное число, у которого сумма первых трех цифр равна сумме его последних трех цифр). Если число является...

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

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

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

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

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

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

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

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

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

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

Вывод элементов множества
Подскажите, пожалуйста, как вывести элементы множества на экран?

Вводятся 100 чисел, сумму которых необходимо посчитать
Уважаемые программисты, помогите пожалуйста решить ряд задач: 2) Вычислите сумму данных 100 натуральных чисел. Вводятся 100 чисел, сумму которых необходимо посчитать. заранее спасибо! ;)

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

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

Нарисовать пирамиду
Прикрепляем файлы в тему.

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

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

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

Поезд прибывает в a часов b минут и отправляется в c часов d минут
Поезд прибывает в a часов b минут и отправляется в c часов d минут.Пассажир пришел на платформу в n часов m минут.Будет ли поезд стоять на платформе? Числа a,b,c,d - целые....

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

Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части
Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости.

Найти сумму элементов матрицы 5х5, расположенных ниже главной диагонали
найти сумму элементов матрицы 5х5, расположенных ниже главной диагонали?

Текущая дата
Составить программу, выводящую на экран текущую дату, установленную в ОС, и изменяющую её на день назад!

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

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

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

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

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

Чтение данных из Excel-файла.
Подскажите, пожалуйста, каким образом чтитывать данные из excel-таблиц? Пытаясь сделать данным образом: var st: string; dict: Text; begin Assign(dict,'Лист Microsoft Excel.xls'); ...

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

Программа вывода на экран всех трёхзначных чисел, кратных 7
Составит программу вывода на экран всех трёхзначных чисел, кратных 7

Заполнение матрицы по спирали
заполнить массив 5*5 по спирали от центра по часовой стрелке от 1 до 25....

Число десятков
Разбор: Чтобы найти число десятков числа n надо найти остаток от деления n на 100, а потом этоже чило делить нацело на 10. Условие: Дано натуральное число. Найдите число десятков в его десятичной...

Нужны примеры любых задач с входными и выходными данными
Мне нужны примеры любых задач на паскале с входными и выходными данными. (input и output) то есть их код. очень надо пожалуйста помогите

Определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом
41) Заполните массив случайными числами в интервале . Определить, есть ли в нем элементы с одинаковыми значениями, стоящие рядом. Пример: Массив: 1 2 3 3 2 1 Есть: 3 Пример: Массив: 1 2 3 4 2...

Найти число, полученное при перестановке первой и второй цифр заданного числа
Помогите пожалуйста решить задачи: 3.Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр за-данного числа. 4.Составить программу, печатающую значение true, если...

Рассчитать значение y при заданном значении x
Рассчитать значение y при заданном значении x: sin2x при x>0 y= 1+2sinx2 при x>0 в противном случае.

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

Найти длину самой длинной последовательности стоящих рядом одинаковых элементов.
Заполнить массив из 10 элементов случайными числами в интервале и найти длину самой длинной последовательности стоящих рядом одинаковых элементов. как пример: исходный массив: 10 10 11 10 11...

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

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

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

Массив. Найти сумму элементов массива с четными индексами
помогите решить!!! найти сумму элементов массива с четными индексами!

Игры на паскале
есть у кого исходники игр на паскале скиньте хочу посмотреть как делать

Вывести столбиком следующие числа:
Вывести столбиком следующие числа:4,4;4,6;4,8;4,9; и так до 6,4

Анимация: автомобиль едет по дороге
Здравствуйте,помогите сделать анимацию на Pascal ABC, (автомобиль,грузовой или танк на ваше смотрения) который едет по дороге, и сделать задний фон!

По данному числу n вычислите сумму 1+1/22+1/32+.+1/n2
По данному числу n вычислите сумму 1+1/22+1/32+...+1/n2.

Нарисовать бабочку

Определить, какое из чисел больше
Даны два числа. Определить, какое из них больше. Вывести знак '>' если первое число больше, или знак '<' в противном случае. Входные данные: Во входном потоке в первой строке через пробел...

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

Вывести элементы массива в обратном порядке
Дан массив размера N. Вывести его элементы в обратном порядке. N=7 2.99 8.20 1.93 1.36 8.46 5.42 6.76

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

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

Записать условие, которое является истинным, когда:
Записать условие, которое является истинным, когда: а)каждое из чисел A и B больше 100; б)только одно из чисел A и B четное; в)хотя бы одно из чисел A и B положительное; г)каждое из чисел A,B,C...

Возвести в квадрат те числа, значения которых неотрицательны, и в четвертую степень - отрицательные
1.Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные. uses crt; var a,b,c:real; begin clrscr; writeln('Введите 3...

Две рекурсивных функции
Почему выдает ошибку неизвестный идентификатор F function G(n: integer): integer; begin if n > 2 then G := G(n - 1) + F(n - 2) else G := n+1; end;

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

Дан символ C. Вывести его код (то есть его номер в кодовой таблице)
Ребят помогите побыстрее плиииз! Дан символ C. Вывести его код (то есть его номер в кодовой таблице).

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

Найти наименьшее из двух чисел
Наименьшее из двух чисел. Даны 2 числа х и у. найти меньшее из них. Если числа равны, то вывести сообщение об этом. Заранее благодарю за помощь!!!

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

Как сделать последоваетльную анимацию объектов?
Вот, опустился прямоугольник и остановился. Следом другой прямоугольник. Две анимации по очереди. uses GraphABC; var x1,x2,y1,y2: integer; begin x1:=400; x2:=800; y1:=700; y2:=750; ...

Как создать .exe из .pas ?
Как создать .exe из .pas ?(в ABC pascal)

Что определяет для массива X[1..n, 1..m] следующий алгоритм?
по мере ваших ответов, буду выкладывать следующий вопрос и варианты ответов к нему . Буду очень благодарен и всем рад ) и так вопрос первый: Что определяет для массива X следующий алгоритм: s:=0; ...

Вычисление значения функции при разных y
Добрый день , помогите решить задачу. Не пойму как дальше написать,чтобы выполнить задание uses crt; var x,y: real; begin {Вводим значения y} clrscr; write('Введите y=: '); ...

Даны действительные числа. Если A<=B<=C<=D, то каждое число заменить наибольшим из них
Даны действительные числа A,B,C,D. Если A<=B<=C<=D, то каждое число заменить наибольшим из них; если A>B>C>D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.

Вывести в столбик цифры числа
Procedure Stolbik(a: Integer); Begin If A>0 then Begin Stolbik(A div 10); Writeln(A mod 10); end; end; Begin var

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

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

Искусственный интелект
Уважаемые форумчане! Дайте пжл программку с исскуственным интелектом или алгоритм на паскаль абс. Заранее спасибо!

Определить, где окажется прыгающая лягушка через T секунд
Ваня наблюдает за лягушкой. Изначально она сидит в точке 0 числовой прямой. Каждую секунду она прыгает на 1 вправо, пока не достигнет точки K. Затем она начинает каждую секунду прыгать на 1 влево,...

Создать функцию, которая считает количество цифр в числе
создать функцию которая считает количество цифр в числе

Найти произведение четных чисел в диапазоне от 2 до 30
Найти произведение четных чисел в диапазоне от 2 до 30. Помогите, как правильно прописать в паскале.

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

Как записать формулу
Как записать формулу. Как написать саму программу знаю, а вот как обозначить и записать формулу \prod_{k=1}^{n}\frac{(-1)^{k+1}}{(2x+1)^k}

Подсчитать число элементов, у которых вторая с конца цифра - четная
Решите пожалуйста: Заполнить массив случайными числами в интервале и подсчитать число элементов, у которых вторая с конца цифра - четная. Заранее спасибо)

Дано целое число.если оно евляется положительным то прибаветь к нему 1,в противном случае вычесть из него 2.вывести полученое число
Дано целое число.если оно евляется положительным то прибаветь к нему 1,в противном случае вычесть из него 2.вывести полученое число Я написал так: program a1 var x :real; begin...

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

Заданы фамилия, имя и отчество учащегося, разделенные пробелами; напечатать фамилию ученика и его инициалы
ТЕМА Строки и множества. Заданы фамилия, имя и отчество учащегося, разделенные пробелами. Напишите программу, печатающую фамилию ученика и его инициалы. нужна полностью задача

Определить среднее арифметическое четных элементов массива
Определить среднее-арифметическое четных элементов массива. Заранее спасибо!!:scratch:

Вывести квадраты 10 первых натуральных чисел
Вывести квадраты 10 первых натуральных чисел.

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

Найти сумму положительных элементов последовательности
Вводиться последовательность из N целых чисел. Найти сумму положительных чисел.

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

Определить, пройдет ли график функции y=5x2-7x+2 через точку с заданными координатами
Составить программу, определяющую, пройдет ли график функции y=5x2-7x+2 через заданную точку с координатами (a,b).

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

Стоимость 1.2, 1.4, , 2 кг конфет
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, ..., 2 кг конфет.

Найти сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a<=500)
Помогите решить задание плизз) Ну, 3 раза уже перездавал все задачи, а учитель говорит, что неправильно. 1) Составить программу: вычисления значения функции x= квадратный корень 2a+sin модуль 3a/...

Определить, является ли число палиндромом
Ввести четырехзначное целое число и определить, является ли оно палиндромом, или «перевертышем» (такими, например, являются числа 6666 и 3223). Подсказка: для выделения отдельных разрядов числа...

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

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

Ввести имя файла (возможно, без расширения) и изменить его расширение на ".exe".
символьные строки: Ввести имя файла (возможно, без расширения) и изменить его расширение на ".exe". Пример: Введите имя файла: Введите имя файла: qqq qqq.com ...

Замена букв "а" на "б" и наоборот
сделал программу которая заменяет буквы "б" на "а" теперь еще как сделать, чтобы если в тексте были "а" их заменило на "б" например текст "ааббсс" заменить "ббаасс" program stroka; var s:string; ...

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

Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы
Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы. Добавлено через 23 часа 49 минут Ребят надо позарез

Сортировка вставками
1.)Сортировка вставками. Дана последовательность чисел a1, a2, ..., an. Требуется переставить числа в порядке возрастания. Делается это следующим образом. Пусть a1, a2, ..., аi – упорядоченная...

Используя двоичный поиск, определить, есть ли в массиве число, равное Х
Заполнить массив случайными числами и отсортировать его. Ввести число Х. Используя двоичный поиск, определить, есть ли в массиве число, равное Х. Подсчитать количество сравнений. Пример: Массив: ...

Увеличить каждый элемент массива на 1 и вывести на экран
Заполнить массив из 10 элементов случайными числами из интервала от -10 до 10, вывести на экран, затем увеличить каждый элемент массива на 1 и повторно вывести на экран.

Переставить элементы в обратном порядке без использования дополнительного массива
Напишите программу, которая переставляет элементы массива в обратном порядке !!!БЕЗ ИСПОЛЬЗОВАНИЯ ДОПОЛНИТЕЛЬНОГО МАССИВА . Программа должна считать массив, поменять порядок его элементов, затем...

Вывести отрицательные элементы массива
1) Дан целочисленный одномерный массив состоящий из n элементов. Вывести отрицательные элементы массива. 2) Дан одномерный массив состоящий из n элементов. Если очередной элемент чётный, то...

Сделать из числа перевёртыш
Вводится любое целое число. Задача - сделать из него число перевёртыш и записать в ответ. Использовать можно операторы repeat until или while. например вводищь 123 программа пишет 321. Помогите...

Найдите за один проход по массиву три его различных элемента,которые меньше всех остальных(три минимума)
const n=10; type myarray=array of integer; var a:myarray; m,k:integer; function minimum (m:myarray):integer; var i,min:integer; begin min:=32768; for i:=1 to n do if m<min then

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

Таймер. Измерить время работы программы
как измерить время работы программы?, помогите пожалуйста, в субботу надо сдать...

Вывести на экран все отрицательные числа последовательности
Дана последовательность чисел. Вывести на экран все отрицательные числа. Проверьте, правильно ли я составила программу. И почему i нельзя заменить на real, у меня выводится ошибка, а a:array...

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

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

Вывести целое число от 0 до 108 — номер отметки, на которой остановится Вася
Здравствуйте уважаемые программисты! помогите решить ряд задач! 2. Длина Московской кольцевой автомобильной дороги —109 километров. Байкер Вася стартует с нулевого километра МКАД и едет со...

Найти среднее арифметическое элементов массива с нечетными номерами
Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный. ОЧЕНЬ НАДО!!!СРОЧНО!!!

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

Нарисовать машину
Всем привет. Как нарисовать такую машину на PascalABС, GraphABC? Помогите пожалуста

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

Найти сумму ряда с точностью E=10^-3, общий член которого равен
Найти сумму ряда с точностью E=10^-3, общий член которого равен an=(2n-1)/2^n. будем считать, что точность достигнута, если an<E. Добавлено через 2 минуты будет ли такое решение верным? ...

Найти среднее арифметическое всех целых чисел от 1 до 1000
Решите

Найти максимальное число из n вводимых с клавиатуры чисел.
1. Найти максимальное число из n вводимых с клавиатуры чисел.

Вывести квадрат, куб и пятую степень числа.
Составить программу, которая запрашивает у пользователя целое число и выводит квадрат, куб и пятую степень этого числа. Пример работы программы: Введите число 2 Квадрат 2 равен 4 Куб 2 равен 8...

Дано двухзначное число. Определить входят ли в него цифры 4 или 7
3. Дайте код задачи. Я Вас прошу.(Уважения вам) Дано двухзначное число.Опредилить а)входят ли в него цифри 4 или 7 б)входят ли в него цифри 3,6 или 9

Цикл: Напечатать таблицу перевода 1, 2,..., 20 долларов США в рубли по текущему курсу
Составить программу для решения задачи: Напечатать таблицу перевода 1;2;...;20 долларов США в рубли по текущему курсу (значение вводится с клавиатуры)

Составить программу, которая в зависимости от порядкового номера дня месяца(1,2.,12) выводит на экран его название (январь,февраль,,.,декабрь)
Составить программу, которая в зависимости от порядкового номера дня месяца(1,2,...,12) выводит на экран его название (январь,февраль,.....,декабрь)

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

Вывести на экран все элементы массива, кратные 3 и 5
Дан целочисленный массив , состоящий из n элементов. Вывести на экран все элементы кратные 3 и 5.

Найти сумму всех элементов массива
Дан массив размерностью n, заполненный случайным образом . Найти сумму всех элементов массива.

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

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

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

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

Вывести вначале последнюю цифру трехзначного числа, а затем — его среднюю цифру
//Дано трехзначное число. Вывести вначале его последнюю цифру //(единицы), а затем — его среднюю цифру (десятки). var a,b,c: integer; begin write('Введите 3-значное число: '); read(a); ...

Последовательно вводится N целых чисел. Найти минимальное и максимальное число из введеных чисел
Последовательно вводится N целых чисел. Найти минимальное и максимальное число из введеных чисел.

Описать процедуру Swap (x, y), меняющую содержимое переменных
описать процедуру Swap (x,y) меняющую содержимое переменных х и у(х и y-вещественные параметры,являющиеся одновременно входными и выходными).С её помощью для данных переменных A,B,C,D последовательно...

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

Треугольник Серпинского
Дан треугольник Серпинского. (Одинаковые) события надо выделить (одинаковыми) цветами. Добавлено через 1 минуту используя это program FracSierp2; uses CRT, GraphABC; var gd, gm : Integer;

Перевод числа в двоичную систему счисления.
Дано число n перевети ево в двоичную систему???? Хелп

Определить, существует ли треугольник со сторонами a, b, c
Пользователь вводит с клавиатуры три числа a,b,c. Нужно: 1) Определить, существует ли треугольник со сторонами a, b, c. 2) Определить тип треугольнка по двум сторонам. Заранее спасибо.Один вопрос...

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

Процедуры. Составить программу умножения дроби на дробь
Даны две дроби A/B и C/D.Составить программу умножения дроби на дробь.Ответ должен быть несократимой дробью

Найти длину окружности
№1 дан диаметр окружности d. Найти ее длинну L=p*d. В качестве значения p использовать 3.14

Определить, бьет ли конь, стоящий на клетке с указанными координатами, фигуру, стоящую на другой указанной клетке
Помогите пожалуйста с задачей написать код в Паскале АБЦ Требуется определить, бьет ли конь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой...

Найти наименьшее из трех чисел
Даны 3 целых числа. Найти наименьшее из них. Составить блок-схемы: цикл с предусловием и с постусловием.

Программа вычисления наибольшего общего делителя двух целых чисел
Прошу помочь с задачей. Где у меня ошибка? Задача: напишите программу вычисления наибольшего общего делителя двух целых чисел 1. используйте оператор repeat, 2. используйте оператор while. 1....

Задано вещественное число А. Вывести его с точностью три знака после запятой
Задано вещественное число А. Вывести его с точностью три знака после запятой. Входные данные: Во входном потоке в первой строке задано единственное вещественное число А. Длина дробной чаcти...

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

Известно сопротивление каждого из элементов электической цепи. Все элементы соединены последовательно. Определить общие сопротивление цепи
Известно сопротивление каждого из элементов электической цепи. Все элементы соединены последовательно. Определить общие сопротивление цепи.

Составьте блок-схему алгоритма и программу вывода на экран всех четных двузначных чисел
1. Составьте блок-схему алгоритма и программу вывода на экран всех четных двузначных чисел. помогите пожалуйста, срочно надо, решение нужно через 2 часа цикл "for"

Дано натуральное число N. вычислить y=1*3*5...(2n-1)
Здравствуйте, составьте пожалуйста программы 1) Дано натуральное число N. вычислить y=1*3*5...(2n-1) Помогите пожалуйста, буду очень благодарна

Файл: Отсортировать массив по возрастанию суммы цифр и записать его в файл output.txt.
В файле input.txt записаны числа (в столбик), известно, что их не более 100. Отсортировать массив по возрастанию суммы цифр и записать его в файл output.txt. program qq; var f:text; ...

Рассчитать значение х, определив и использовав необходимую функцию
Спасибо большое всем ответившим! Разработать функции для решения следующей задачи. Рассчитать значение х, определив и использовав необходимую функцию х = \frac{\sqrt{6}+6}{2} +...

Перераспределить значения переменных X и Y так, чтобы в X оказалось меньшее из этих значений, а в Y – большее
1-Перераспределить значения переменных X и Y так, чтобы в X оказалось меньшее из этих значений, а в Y – большее.

По данному n вычислить сумму квадратов
По данному натуральному n вычислите сумму 12+22+...+n2. Формат входных данных Вводится единственное число n. Формат выходных данных Необходимо вывести вычисленную сумму вот кодvar...

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

Запросить отдельно имя и отдельно фамилию, а затем вывести их как одну символьную строку
Составить программу, которая запрашивает отдельно имя и отдельно фа¬милию, а затем выводит их как одну символьную строку.

Написать программу вычисления n!=1*2*3*...*n. (Записать варианты программы с разными видами циклов while, repeat, for).
Написать программу вычисления n!=1*2*3*...*n. (Записать варианты программы с разными видами циклов while, repeat, for).

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

Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных
Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных.

Даны действительные положительные числа x, y, z выяснить существует ли треугольник с длинами сторон x, y, z,
даны действительные положительные числа x, y, z выяснить существует ли треугольник с длинами сторон x, y, z, если треугольник существует, то ответить - является ли он остроугольным. требуется...

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

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

Подскажите, пожалуйста, что такое листинг программы?
Подскажите, пожалуйста, что такое листинг программы?

Составьте программу возведения натурального числа в квадрат, используя следующую закономерность
Составьте программу возведения натурального числа в квадрат, используя следующую закономерность: 1^2=1 2^2=1+3 3^2=1+3+5 n^2=1+3+5+7...+(2*n-1).

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

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

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

Определить, имеется ли среди заданных целых чисел а, b, с хотя бы одно четное
8. Определить, имеется ли среди заданных целых чисел а, b, с хотя бы одно четное. Заранее спасибо!!!

Найти наибольшее (наименьшее) из двух чисел без If
Помогите решить данную задачу, самое главное не использовать if

Напишите программу-модель анализа пожарного датчика в помещении
5. Напишите программу-модель анализа пожарного датчика в помещении, которая выводит сообщение «Пожарная ситуация», если температура (ее значение вводится с клавиатуры) в комнате превысила 60°С. 1....

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

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

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

Приписать по "1" в начало и в конец записи числа n
приписать по "1" в начало и в конец записи числа n. Пример: из числа n=3456 надо получить 134561

Подсчитать количество цифр в произвольной строке
Подсчитать количество цифр в произвольной строке.

Подсчитать количество слогов
Кто может решить в паскале АВС, большое спасибо) Написать программу, подсчитывающую количество слогов по введенному с клавиатуры слову.

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

Рисуем КУБ
Друзья, добрый день. Нужно составить программу, которая рисует куб в центре графического окна (см. рисунок ниже). Окно должно появляться в центре экрана и иметь заголовок: “Куб”. Размер стороны...

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

Составить программу для вычисления величины S по формуле
составить программу для вычисления величины S по формуле: S=\frac{\sum_{i=1}^{10}\sum_{j=1}^{15}{e}^{-sin{a}_{ij}}}{\prod_{k=1}^{20}\left({cos x}_{k}*{x}_{k} \right)} var S1,p:real; ...

Найти сумму положительных элементов массива
1 вариант Составленная программа должна создавать одновременный массив случайных чисел из 20 элементов величиной от -25 до +25

В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы
В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы. Пояснения: * С помощью функции Copy() выведите символы с 1-го до позиции пробела (Pos(‘ ‘,s)), таким образом,...

Распечатать в столбик таблицу умножения на 7
Помогите нужно сдать экзамен!!Решите задачи пожалуйста... 1))Распечатать в столбик таблицу умножения на 7.?

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

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

На какой этаж должен доставить лифт пассажира (если человеку нужно попасть на четный этаж,то лифт останавливается на этаж ниже)
№1 В небоскребе N этажей и всего один подъезд.На каждом этаже по 3 квартиры.Лифт может останавливаться только на нечетных этажах.Человек садится в лифт и набирает номер нужной ему квартиры М.На...

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

У прилавка магазина выстроилась очередь из N покупателей. Время обслуживания i-го покупателя равно ti
У прилавка магазина выстроилась очередь из N покупателей. Время обслуживания i-го покупателя равно ti Определить время Ci пребывания i-го покупателя в очереди.

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

С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n ≥ 1)
С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n ≥ 1). Определить название месяца (январь, февраль и т. п.) этого дня.

Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15
определите и выведите на экран количество чисел между 100 и 1000, которые делятся без остатка одновременно на13 и 15

Чтение чисел из файла. Чтение после конца потока невозможно
Товарищи, помогите. В Pascal'e я не силен, так что не бейте меня ногами, но есть задача: написать обычную программу для расчета некоторых параметров. Однако я решил сделать все изподвыподвыверта,...

Ошибка: Операция '<>' не применима к типам integer и boolean
Уважаемые форумнечане, подскажите как решить данную проблему, программа выдает ошибку "pas1.pas(5) : Операция '<>' не применима к типам integer и boolean " var n, m: integer; begin read (n);...

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

Функция IOresult, не работает на Pascal ABC
Всем добрый вечер. Подскажите пожалуйста почему не работает IOresult... Мне надо проверить может создастся файл или нет, вот приведу вам простенькую программку: uses crt; var f1:file of...

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

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

Рекурсия. Найти сумму цифр заданного натурального числа
Найти сумму цифр заданного натурального числа.

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

Массивы. Найти 2 максимальных элемента массива
Uses crt; const n=10; Var a:array of integer; i,max1,max2:integer; Begin randomize; For i:=1 to n do a:=random(10);

Что значит сортировка массива по Неубыванию и по Невозрастанию?
Доброго времени суток!!! Ребятки, объясните пожалуйста, что значит сортировка массива по неубыванию и по невозрастанию??? По убыванию и возрастанию я знаю!!! А там как??? И как это в программе...

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

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

Понять что делает переменная result
Всем привет, подскажите плиз как так переменная result работает без описания в var, а если описываю то не пашет?! Оставить в стрoке S только пoследнее вхoждение каждого симвoла. взaимный порядoк...

Вывести длину отрезка в метрах
Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины и длина отрезка L в этих единицах (вещественное число)....

Неизвестное имя 'detect'
Неизвестное имя 'detect'

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

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

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

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

Дана строка, состоящая из строчных и заглавных английских букв. Заменить все строчные буквы на заглавные
Дана строка, состоящая из строчных и заглавных английских букв. Заменить все строчные буквы на заглавные. Строчны́е буквы — буквы, размер которых меньше прописных. Используются в европейских...

Циклический сдвиг элементов массива вправо
апишите программу, которая циклически сдвигает элементы массива вправо (0-й элемент становится 1-м, 1-й становится 2-м, ..., последний становится 0-м, то есть массив {3, 5, 7, 9} превращается в...

Найти НОД трёх чисел. Примечание. НОД(a,b,c)=НОД(НОД(a,b),c).
Кто может решить данную задачку (составить программу с помощью циклов)))) заранее спасибо)) Найти НОД трёх чисел. Примечание. НОД(a,b,c)=НОД(НОД(a,b),c).

Заполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x
Не могу справиться с задачей, помогите, пожалуйста. Заполните массив случайными числами в интервале . Введите число X и найдите все значения равные x

Вывести таблицу квадратных корней из чисел от 1 до 20.
нужна задача которая бы выводила : таблицу квадратных корней из чисел от 1 до 20. Если можно с пояснениями, а то я никак не пойму как с таблицой сделать.

Кодирование текста в двоичный код
как написать кодирование текста в двоичный код на паскале

Изобразить график функции y=sin(x)
В программе с другим заданием (рисовать звезду) я добавил после слова graph ABC, хорошо работает. А вот здесь никак. Почему? P.S. У меня версия программы 3.0.1.

Составьте программу вывода на экран таблицы умножения на 3
3*. Составьте программу вывода на экран таблицы умножения на 3. помогите пожалуйста, срочно надо, решение нужно через 2 часа цикл "for"

Ввести путь к файлу и "разобрать" его, выводя каждую вложенную папку с новой строки
Ввести путь к файлу и "разобрать" его, выводя каждую вложенную папку с новой строки Пример: Введите путь к файлу: C:\Мои документы\10-Б\Вася\qq.exe ...

Нарисовать гусеницу
Нарисовать в паскале

Запишите на языке паскаль программу, соответствующую блок-схеме
1.Программа выполняет подсчет количества отрицательных и положительных чисел, вводимых с клавиатуры. Ввод данных прекращается при x=0. 2.Напишите программу, в которой осуществляется ввод целых чисел...

Напишите программу, которая вводит натуральное число N и выводит первые N чисел Фибоначчи
Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1 ( F 1 = F 2 = 1 ), а каждое следующее равно сумму двух предыдущих: F i = F i - 1 + F i - 2 . Напишите программу,...

Кнопка в PascalABC.NET
Приведите пример программы, где есть рабочая кнопка и можно использовать мышь для чего-либо. Например, как сделать тут кнопку что бы поле менял цвет? uses GraphABC; procedure MouseDown(x,y,mb:...

Решение кубического уравнения
Программа для решения кубического уравнения вида a*{x}^{3}+b*{x}^{2}+c*x+d=0

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

Вывести сообщение о том, какой символ введен: цифра, строчная буква, большая буква
Здравствуйте,помогите пожалуйста задание:Написать программу,в которой в переменную типа Сhar вводится символ с клавиатуры.Программа выдает сообщение о том,какой символ был введен. *цифра от 0 до 9...

Найти сумму положительных элементов одномерного массива.
1. Найти сумму положительных элементов одномерного массива.

Дан радиус шара. Найти его объем
Дан радиус шара. Найти его объем.

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

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

Шифр Цезаря
Месяц программирую на Pascal ABC недавно решил сделать программу по шифру Цезаря(если не знаете что это, то вот ссылка:...

Вывести имя и фамилию
Как в этой программе вывести имя и фамилию? Program PR1; var a, b, x, e, s:string; t, p, l, v:char; k, n, i, y, r, h, f, w:integer; begin writeln('ввести фамилию имя отчество'); readln(a);...

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

Графика в паскале: нарисовать девочку
Здравствуйте! Люди, помогите пожалуйста нарисовать в паскале вот такую девулю. У нас PascalABC. Заранее большое спасибо!

Что означает in в условном операторе?
вот дана программа, что означают 10, 11, 20 строки в программе? можно ли их как нибудь заменить? задача такая:Подсчитать в строке число букв А и В, если букв А больше, чем В, то удалить в строке все...

Какое значение примет переменная S после выполнения операторов
Какое значение примет переменная S после выполнения следующих операторов: а) S:=0; I:=1; repeat S:=S+I; I:=I-1 until i<=1; б) S:=1; n:=1; for i:=2 to n do S:=S+i; Добавлено через 1 час 53...

Рассчитать значение y при заданном значении x
Рассчитать значение y при заданном значении x: sin2x при x>0 y= 1+2sinx2 при x>0 в противном случае.

Найти натуральное число от 1 до 10000 с максимальной суммой делителей
найти натуральное число от 1 до 10000 с максимальной суммой делителей. program tmt; var I, j, s, m, d: integer; begin m := 0; d :=0; for i:=1 to 10000 do begin s :=0;

Нахождение первых 100 простых чисел
И ещё написал программу по нахождению первых 100 простых чисел, но она что-то тоже не работает. Скажите, пожалуйста, где ошибка: program PR26_2; {íàéòè 100...

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

Сортировка методом пузырька
Какая из этих программ более правильная? Различаются 13 и 14 строки. uses crt; var a:array of integer; i,j,n,b:integer; begin write('Ввод кол-ва элементов -> '); read(n); writeln('Исходный...

Функция которая возвращает первое слово строки
напишите функцию которая возвращает первое слово переданной ей символьной строки

Графика. Нарисовать человека
Графика. Нарисовать человека: круглая голова, треугольное туловище, ноги и руки тоже треугольные но вытянутые.

Анимация: движение спутника, движение планет
Составьте программу, которая демонстрирует: а) прямолинейное движение спутника на фоне неба и Земли; б) движение планет вокруг Солнца по круговым орбитам. картинки для фона в архиве

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

Найти среднее арифметическое всех целых чисел от А до 200
Найти среднее арифметическое всех целых чисел от А до 200 (значение А и В вводится с клавиатуры; А<=200)

String: Дано слово. Подсчитать в нем количество букв «а»
Написать программу на языке программирования. Дано слово. Подсчитать в нем количество букв «а».

Дано целое число. Если оно является положительным, то прибавить к нему 1; если нулевым, то заменить его на 10
Дано целое число. Если оно является положительным, то прибавить к нему 1; если нулевым, то заменить его на 10. Вывести полученное число. Поможет кто в этом ?

Изменить цвет фона консоли
как сделать цвет фона всего окна сразу?? program ti; uses crt; type abit=record bal,ekz,shk:integer; fio:string; end; var abitur: array of abit; box:abit;...

Составить программу, которая запрашивает имя человека и повторяет его на экране с приветствием
2) Составить программу, которая запрашивает имя человека и повторяет его на экране с приветствием.

Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12,15,18,21, 24 часа
Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12,15,18,21, 24 часа. Решение пожалуйста по проще в Паскаль!

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

Дано целое число N (32<=N<=126). Вывести символ с кодом, равным N
Ребят срочно нада!Дано целое число *N (32 <= N <= 126). Вывести символ с кодом, равным *N.

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

Найти произведение всех целых чисел от a до 20
а) произведение всех целых чисел от a до 20( значение a вводится с клавиатуры; 1 меньше либо равно a меньше либо равно 20); б) произведение всех целых чисел от 1 до b (значение b вводится с...

Вывести на экран средний балл для каждого ученика и для каждой школы
Pascal ABC Тема Записи Файл содержит сведения: фамилию, имя ученика, номер школы, оценки(несколько). Вывести на экран средний балл для каждого ученика и для каждой школы

Найти решение уравнения ax^3+bx=0
Написать программу, которая находит решения уравнения ax^3+bx=0 для любых заданных значений a и b. Вот мой вариант но он не работает почему то: Program ex1; var a,b,x: Real;...

Построение формальной модели движения тела
задача "Бросание мячика в стенку" нужно построить график, который будет отражать траекторию полета мяча... вот собственно сама программа: program myach; var A,H,S,V0,g,L:real; begin g:=9.81;...

Составьте программу ввода с клавиатуры элементов массива а [1.10] и вывода их на экран в столбец
Составьте программу ввода с клавиатуры элементов массива а и вывода их на экран в столбец

Построение графика
Помогите пожалуйста решить задачку. Построить график функции y(x)=(8-x)/(x+3) и таблицу значений y(x) с шагом измерения аргумента h=0.02. Таблицу значений функции и аргумента необходимо вывести на...

сапер
подскажите,как из этой программы сделать сапер uses crt,graphABC; var i,j,d,w,h:integer; c:char; mass,rez : array of integer; zap:array of byte; //массив для запоминания вводили...

Определить, является ли треугольник со сторонами a, b, c равнобедренным
Определить, является ли треугольник со сторонами a, b, c равнобедренным, прямоугольным или равнобедренным и прямоугольным.

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

Найти максимальный и минимальный элемент в матрице и их номера
Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале и вывести её на экран. Найти максимальный и минимальный элемент в матрице и их номера.

Сортировка массивов в порядке возрастания
Занесите информацию о десяти европейских странах в массивы n (название страны), k (численность населения), s (площадь страны). Выведите названия стран в порядке возрастания плотности их населения. ...

Объявление классов. Применение принцов ООП
объявить класс "Прогноз погоды" с указанием полей: название месяца, средняя температура, среднее количество осадков в мм, среднее давление в мм ртутного столбца. разработать методы Create и Print....

Операция '=' не применима к типам boolean и integer
Помогите с ошибкой "Операция '=' не применима к типам boolean и integer" ошибка к строке 16. Program Triangle; var a, b, c: integer; begin writeln('Введите сторону a: '); readln(a);...

Даны числа а1,а2,…,а10. Определить их сумму
2. Даны числа а1,а2,…,а10 .Определить их сумму.

Для освоения Марса требуется построить исследовательскую базу
Здравствуйте, нужна помощь для решения двух олимпиадных задач по информатике, условия задач описаны ниже. Если кто-то сможет написать код, то, пожалуйста, в разделе описания переменных...

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

Определить, что треугольник со сторонами a, b, c является равносторонним
Задание: Для каждой задачи составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE, - в противном случае (использовать условный оператор нельзя). ...

Удаления строки из текстового файла
Вот я загружаю текстовый файл в программу, мне нужно из этого файла удалить одну строку, которую я выберу, помогите это реализовать пожалуйста. program del_str; uses crt; var adress,...

Заполнить массив случайными числами в диапазоне -100.100 и найти номер последнего отрицательного элемента в массиве
Заполнить массив случайными числами в диапазоне -100..100 и найти номер последнего отрицательного элемента в массиве

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

Нарисовать кота
Пожалуйста помогите нарисовать кота

Последовательность вводится N целых чисел. Найдите минимальное и максимальное число из введенных чисел
Последовательность вводится N целых чисел. Найдите минимальное и максимальное число из введенных чисел.

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

Вычисление суммы бесконечного ряда с заданной точностью
Вычислить сумму бесконечного ряда с заданной точностью ε = 0,5 * 10-4 ∞ Σ = (-1)k / (2k)! k=0

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

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

Сколько раз данная цифра А встречается в данном числе
Не понимаю как писать программу с процедурами или функциями. Помогите... написать программы с использованием подпрограмм (процедуры или функции). 1.Дано натуральное число. Сколько раз данная цифра...

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

Ввести номер дня недели. Вывести название этого дня
ввести номер дня недели. вывести название этого дня

По введенному номеру единицы измерения выдать длину в метрах
Написать программу, которая бы по введенному номеру единицы измерения (1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр) и длине отрезка L выдавала бы соответствующее значение длины...

Сколько голов и глаз у дракона, которому N лет
Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет - только по две. Сколько голов и глаз у дракона, которому N лет?

Выполнить циклический сдвиг массива вправо
Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и выполнить циклический сдвиг ВПРАВО. Пример: Исходный массив: 4 -5 3 ...

Напишите программу вычисления идеального веса человека по формуле
Напишите программу вычисления идеального веса человека по формуле: Идеальный вес = Рост, в см - 100. Значение роста вводите с клавиатуры. Результат вывести на экран в следующем виде: "Для...

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

Электронные часы - 2
Разбор Число часов в сутки будет равен количество секунд разделенных на 3600. Теперь остаток у нас имеет в себе число минут и секунд. Если этот остаток делить на 60, то мы получим количество...

Нарисовать птицу
...

Дано натуральное число n(>99). Найти число десятков в нем
1. Напишите мне код.(уважения Вам за вашу роботу) дано натуральное число n(>99). Найти а) Число десятков в нем б) число сотен в нем

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

Нарисовать графики функций
Помоги пожалуйста при помощи модуля Graph нарисовать графики функций: 1)y=ln(x); 2)y=x-5. Не могу правильно подобрать putpixel

Нужно нарисовать Куб
Нужно нарисовать Куб

Вычислить значение числа pi методом Монте-Карло
Вычислить значение числа pi методом Монте-Карло с точностью 0,0001 Вот что то нашёл но не работает ...помогите изменить условие под моё условие! uses Crt; const n=10000000; r=46340; ...

Графика: процедура рисования треугольника
Сама процедура: procedure triangle(x1,y1,x2,y2:integer); begin line(x1,y2,x2,y2); line(x1,y2,round((x1+x2)/2),y1); line(x2,y2,round((x1+x2)/2),y1); end; Все правильно, но иногда получается...

Найти среднее арифметическое всех элементов массива
ввести с клавиатуры массив из 5 элементов найти среднее арифметическое всех элементов массива

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

Программа, которая требует у вас пароль, например 111, и если пароль правильный, то печатает сообщение «Молодец!».
Практическая работа Задание 6. С помощью оператора repeat напишите программу, которая требует у вас пароль, например 111, и если пароль правильный, то печатает сообщение «Молодец!».

Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно
Помогите, пожалуйста.

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

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

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

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

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

Найти сумму элементов, стоящих на четных местах в заданном массиве
Найти сумму элементов, стоящих на четных местах в заданном массиве.

Нарисовать дорожный знак
Помогите нарисовать дорожный знак на паскале! Буду очень благодарна!

Вывести на экран квадраты чисел
вывести на экран монитора квадрат чисел от 3 до 12 вот ещё очень надо...

Дано целое число k (1 ≤ k < 365). Определить, каким будет k -й день года
Дано целое число k (1 ≤ k < 365). Определить, каким будет k -й день года: выходным (суббота и воскресенье) или рабочим, если 1 января — понедельник.

Добавление изображений через graphABC
Привет! Подскажите как добавлять изображение через этот модуль, на примере? Я смотрел в интернете команды LoadPicture только что-то они не работают....

Используя составной оператор, упростите следующий фрагмент программы
Используя составной оператор, упростите следующий фрагмент программы If a>d then c:=1 If a>b then b:=2 If a<b then c:=3 If a<d then b:=4

Определение четных и нечетных чисел.
задача 9 класса.. я сделал программу, но ввожу одно число и он мне сразу выдает ответ: четных1 ...

Подсчитать, сколько футболистов, родившихся в период с 1998 по 2000 год, не забили мячей вообще
С клавиатуры вводится число N, обозначающее количество футболистов команды «Бублик», а затем – N строк, в каждой из которых – информация об одном футболисте таком формате: <Фамилия> <Имя> <год...

Определить каких среди чисел больше: положительных или отрицательных
Как данную задачу можно решить в паскале АВС при помощи циклов? Последовательно вводятся N целых чисел. Определить каких среди них больше: положительных или отрицательных.

Составить таблицу умножения на 9.
Составить таблицу умножения на 9.

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

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

Вывести в строку 2 числа через пробел
дано n1=A , n2 меньше n1 на B раз, n1+n3 >n2 в С раз больше.Определить n общие и n2. входные данные: через пробел 3 натуральных числа (А,B,C <=100000). пример входного файла: 100 80 5 Выходные...

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

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

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

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

Даны три числа a,b,c. Найти сумму чисел a,b,c, max из трех
Даны три числа a,b,c. Найти сумму чисел a,b,c, max из трех.

Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника
Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника. Определить процедуру Plo(x,y,z), печатающую площадь...

Вычислить значение функции y=x2 (в квадрате), для всех x от 1 до n с шагом 1
Вычислить значение функции y=x2 (в квадрате), для всех x от 1 до n с шагом 1.

Нарисовать улитку
Вот это

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

Найти количество элементов массива, кратных 3 или 5
Найти количество элементов массива, кратных 3 или 5. От этой программы зависит оценка за год , помогите пожалуйста.

Решить линейное уравнение
Задача:составить программу которая умеет решать линейное уравнение (вида ax+b=0). Рассмотреть различные случаи 1) нет решений 2) решение любое x 3) единственное решение вычислить его ...

Определить количество элементов массива, кратных 3, но не кратных 5
дан массив из н элементов(натур числа). Определите кол во элементов кратных 3 но не кратных 5

Даны три вещественных числа a, b, c. Выяснить, существует ли треугольник со сторонами a, b, c.
2.Даны три вещественных числа a, b, c. Выяснить, существует ли треугольник со сторонами a, b, c. *Если треугольник существует, определить, является ли он прямоугольным.

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

Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000)
Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000). Данные вводятся с клавиатуры, выводятся на экран. Первые тесты не всегда совпадают с примерами из условия....

С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последнего часа
С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последнего часа. Прошу помогите!!!

Выполнить циклический сдвиг массива вправо на 4 элемента
Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 12 элементов случайными числами в интервале и выполнить циклический сдвиг ВПРАВО на 4 элемента. Пример: Исходный массив:...

Написать программу определения стоимости разговора по телефону
написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям

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

Дана строка символов, среди которых есть двоеточие ":". Определить, сколько символов ему предшествует.
Дана строка символов, среди которых есть двоеточие ( : ). Определить, сколько символов ему предшествует

Вычислить сумму квадратов N чётных натуральных чисел.
Вычеслить сумму квадратов N чётных натуральных чисел. Добавлено через 18 минут пожалуйста

Графика. Рисунок улитки
Мне нужен рисунок улитки

Заполнить массив случайными числами в интервале [-10,10] и отобрать все чётные отрицательные числа
Помогите, пожалуйста, решить следующую задачу: Заполнить массив случайными числами в интервале и отобрать все чётные отрицательные числа.

Определить, является ли число палиндромом
Дано натуральное число n (n 1999). Определить, является ли оно палиндромом («перевертышем»), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 0440. Подсказка. Так как число...

Все возможные суммы элементов массива
На примере одномерного массива с n элементами нужно найти все возможные суммы из чисел в массиве. суммы с 2=мя слагаемыми, с 3-мя, с 4-мя, ... , с n слагаемыми. Бьюсь над самим алгоритмом....

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

Вычислить интеграл методом прямоугольников
Помогите пожалуйста, уже не первый день сижу: С погрешностью 0.001 вычислить по методу прямоугольников: