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

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

Определение попадания точки с заданными координатами X и Y в закрашенную область
Здравствуйте, помогите решить задачу на Паскаль. Разработать алгоритм и программу, которая в ответ на вводимую с клавиатуры пару вещественных чисел, представляющих собой координаты X, Y точки М на...

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

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

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

Исправить ошибку "встречено begin,а ожидалось Forward"
Здравствуйте. Что тут не так? Писал процедуру и начало выдавать вот такое: "встречено begin,а ожидалось Forward", хотя самого форварда тут быть не должно. В чем проблема? procedure...

Определить принадлежность точки заданной облати
Здравствуйте, помогите написать это на Паскаль Разработать алгоритм и программу, которая в ответ на вводимую с клавиатуры пару вещественных чисел, представляющих собой координаты X, Y...

Генератор кроссвордов
Задание: Составить генератор кроссвордов на Pascal ABC. Нужна визуализация с Graph ABC. Количество слов вводится с клавиатуры (12 слов). Слова хранятся в файле dictionary.txt. и потом выводится...

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

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

Сортировка фишек
Очень нужна помощь с лабой, больше месяца не могу решить - не понимаю как, а очень надо. Искал похожие задачи, мучался с chat gpt, все бесполезно, может тут найду помощь?? Дана полоска, состоящая...

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

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

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

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

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

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

Преобразование типа из 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

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

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

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

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

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

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

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

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

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

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

Для чего функция 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 и похожие функции естественно не...

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

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

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

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

Ввести три числа и найти наибольшее из них
Задача: ввести три числа и найти наибольшее из них Не могу понять - где ошибся. Если 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;...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Функция 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);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Написать программу вычисления объема куба
Исходные данные для вычисления: Длина ребра (см) - 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)дан двумерный массив целых чисел размерностью 5х7. Найти и вывести на экран среднее арифметическое элементов этого массива

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

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

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

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

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

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

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

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

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

Ввести с клавиатуры 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, но всё криво получается, да и вообще сам полукруг не...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Можно ли откомпилировать программу в 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 класс уже как-никак, занимаюсь...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Если одно из чисел делится на другое нацело, выведите 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='); ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Воспроизведение файлов 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 ...

Неверное число параметров функции
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 из трёх. И начертить блок схему. (Помогите пожалуйстаа)

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

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

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

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

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

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

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

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

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

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

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

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

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

Дан номер урока (число от 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- факториал). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Нахождение корня квадратного уравнения
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. Выходные данные: В выходной поток вывести два целых числа в...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Дано целое число в диапазоне 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: Найти минимальное и максимальное числа и записать их в...

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

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

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

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

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

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

Определить сумму положительных чисел, кратных 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 . Выходные...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

вычислить значения логических выражений, записанных на Паскале
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 при...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом
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 в противном случае.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как сделать последоваетльную анимацию объектов?
Вот, опустился прямоугольник и остановился. Следом другой прямоугольник. Две анимации по очереди. 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; ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Программа на знание таблицы умножения
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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Операция '=' не применима к типам 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.10] и вывода их на экран в столбец
Составьте программу ввода с клавиатуры элементов массива а и вывода их на экран в столбец

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Графика Pascal ABC: Процедура рисования треугольника
Сама процедура: 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). Найти а) Число десятков в нем б) число сотен в нем

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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