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

Темы раздела 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...

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

Как округлить число до сотых?
Здравствуйте, уважаемые программисты! Не могли бы вы мне помочь? Мне 11 лет, и я учусь программировать на 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) +...

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

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

Найти корень уравнения методом половинного деления
Найти корень уравнения \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}}

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

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

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

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

Определить, является ли число простым
нужна программа: Определить, является ли число простым. -решить с использованием цикла с параметром 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. Известны сведения о количестве осадков, выпавших за каждый день мая....

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

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

Найти 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 минут Написал формулу:...

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

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

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

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

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

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

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

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

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

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

Перестановка значений переменных 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 куб.см. Желательно с объяснением, что делает какая-либо функция.

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

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

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

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

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

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

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

Исправить ошибку "ожидался оператор"
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. Найти и вывести на экран среднее арифметическое элементов этого массива

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

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

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

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

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

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

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

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

Подсчитать количество слов, начинающихся с буквы 'а'
Здравствуйте!!! Выручите пожалуйста!!! Никак не могу понять...Заранее ОГРОМНОЕ СПАСИБО!!! 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. Выведите следующее за ним четное число. При решении этой задачи нельзя...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

паскаль для 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...

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

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

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

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

Написать программу, которая проверяет, делится ли на 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" Последовательность: ...

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

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

Написать программу преобразования цифр в слова
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 элементов. Заполнить его с клавиатуры. Найти сумму отрицательных элементов.

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

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

Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновели
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);...

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

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

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

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

Найти корни биквадратного уравнения
Найти корни биквадратного уравнения 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 Написать программу, которая находит наибольшее из трех введенных чисел и выводит его на экран.

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

Если 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.

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

Дано целое число x и натуральное n. Составьте алгоритм вычисления x в n степени.
помогите решить задачу Дано целое число x и натуральное n. Составьте алгоритм вычисления x в 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 чисел.найти сумму всех четных чисел и произведение нечетных

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

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

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

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

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

Даны действительные числа х, у (х не равно у). Меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением.
нашел похожее,но работает не совсем правильно,так как пр подстановке х=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 лет.А тебе...

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

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

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

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

Неверное число параметров функции
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" в нём. Эту задачу совсем не могу решить. Помогите, пожалуйста!

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

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

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

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

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

Возведение в степень
Вывести на экран числа 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
хотелось бы знать какие между ними различия)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Нахождение корня квадратного уравнения
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...

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

Найти решение системы уравнений вида 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 минуту и да забыл надо чтобы она была зеленой!!!!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Заполнить двумерный массив по спирали слева направо и сверху вниз
Заполнить двумерный массива размером 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 состоялся...

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

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

Подсчитать количество строк в файле
Всем привет. Как можно подсчитать кол-во строк в файле? Мне надо просуммировать числа из одного файла и записать в другой. В первом файле по одному числу на строку. Пример: 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);...

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

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

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

Построение графика функции 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 :=...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Вычислить периметр квадрата
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');

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

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

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

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

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

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

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

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

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

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

Что означает 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,...

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

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

Определить какой символ встречается в тексте чаще всего
//определить какой символ встречается в тексте чаще всего 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. Программа получает на вход целые числа, количество введенных...

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

Нахождение суммы максимального и минимального элементов массива
Возникла проблема с решением задачи. 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);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Найти произведение цифр заданного трехзначного числа
Найти произведение цифр заданного трехзначного числа. Результат напечатать в виде "Дано число- 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 при...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Найти длину самой длинной последовательности стоящих рядом одинаковых элементов.
Заполнить массив из 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; ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 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. Помогите...

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

Найдите за один проход по массиву три его различных элемента,которые меньше всех остальных(три минимума)
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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Последовательно вводится 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/D.Составить программу умножения дроби на дробь.Ответ должен быть несократимой дробью

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Составить программу для вычисления величины 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; ...

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

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

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

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

У прилавка магазина выстроилась очередь из 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

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

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

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

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

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

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

Массивы. Найти 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);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Вывести имя и фамилию
Как в этой программе вывести имя и фамилию? 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);...

Найти натуральное число от 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;

Что означает 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...

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

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

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

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

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

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

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

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

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

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

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

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

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

Найти произведение всех целых чисел от 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. Таблицу значений функции и аргумента необходимо вывести на...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Графика: процедура рисования треугольника
Сама процедура: 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; Все правильно, но иногда получается...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Процедура досрочного выхода из программы
Прогаю на 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), в которых сначала записан порядковый номер строки с точкой, а затем – слово. Ввод...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Вывести все трехзначные числа сумма цифр которых равна заданному числу N
Вложенные циклы. Вывести все трехзначные числа сумма цифр которых равна заданному числу N Программа не полностью работает, почему-то, если ввести заданное число меньше 10, то программа...