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

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

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

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

В строке найти количество цифр и букв
C клавиатуры вводится строка, содержащая русские буквы (за исключением буквы "ё') и цифры. Составьте программу, позволяющую найти количество (a) цифр в строке (б) букв в строке

Нарисовать собачку
Ребят надо срочно нарисовать в паскале вот эту вот собачку

Определить является ли введенное с клавиатуры слово палиндромом и сколько в нем гласных букв
Хелп! Задача: Определить является ли введенное с клавиатуры слово палиндромом и сколько в нем гласных букв Насчёт палиндрома понял: Var D, G:byte; Tet:string; F:boolean; Begin ...

Сформировать целочисленный массив, содержащий N первых положительных чисел 5, 7, 9
Помoгите, пожалуйста, рeшить задачку :flirt: Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных чисел 5...7...9.

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

Построить график зависимости
Помогите, не понимаю как построить график (Рисунок 5). Изменение магнитной индукции на оси участка КС при его движении в полости соленоида. Источник:...

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

Найти сумму и среднее арифметическое введенных чисел
А можете еще пожалуйста подсказать, как сделать, чтобы было как в примере. Ввести число №.... Вот код программы. Спасибо заранее. Program Avetisyan; Var A,n,S:real; begin writeln ('Введите...

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

Вычислить значение суммы членов бесконечного ряда с заданной точностью
Вычислить значение суммы членов бесконечного ряда с заданной точностью ε=10^-9. На печать вывести значение суммы и число членов ряда, вошедших в сумму. Значение X=0.20.

Определить, сколько монет нужно перевернуть, чтобы все монеты лежали вверх одной и той же стороной
Добрый день. Подскажите пожалуйста, как сделать,чтобы в окне вывода значения были выведены в строку, а не в столбик,как у меня получается. Вот код программы. program Monety; var i,s,m:...

Структура "Прогноз погоды". Массив записей
Создайте массив записей со следующей структурой: Помогите, пожалуйста

Анимация восьмиугольника, отскакивающего от края окна
Сдать задание по теме "Процедуры пользователя. Анимация графического объекта". Напишите программу, которая решает следующую задачу. В верхнем левом углу стандартного графического окна, появляется...

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

Фрактальная графика
помогите пожалуйста(( фрактальная графика

Дано натуральное число n. Вычислить 1*2+2*3*4+.+n*(n+1)*.*2n
Дано натуральное число n. Вычислить 1*2+2*3*4+...+n*(n+1)*...*2n. Описать метод решения и нарисовать блок-схему структуры программы. Добавлено через 3 часа 36 минут var i,j,n:integer;...

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

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

Составить вектор из номеров строк матрицы, где десятичная запись каждого элемента строго возрастает/убывает
Дана целочисленная матрица A(M,N). Составить вектор из номеров строк, где десятичная запись каждого элемента этих строк - есть строго возрастающая или строго убывающая последовательность цифр ( и...

Из слова яблоко путем "вырезок" и "склеек" его букв получить слова "блок" и "око"
Такой вариант: 1. Из слова яблоко путем "вырезок" и "склеек" его букв получить слова "блок" и "око". 1. Из слова яблоко путем "вырезок" и "склеек" его букв получить слова "блок" и "око". Var S,...

Код для блок-схемы
Нужно вычислить: (x^2-2!)(x^3-3!)(x^4-4!)…(x^n-n!).

По заданной вещественной матрице размера N*M найти max
По заданной вещественной матрице размера N*M найти max нужно решение срочно

Найти произведение максимальных элементов двух массивов
Никак не могу сделать данную задачу. Составить функцию, исходными данными которой являются два массива X(n) и Y(n) c заданным числом элементов (или один из них) или матрица A(n, n). Разработать...

Даны натуральные числа n и числа a1, a2, . an. Определить: a1+a2, a2+a3, a3+a4.an-1+an;
Здравствуйте, в школе задали задачку, никто не объяснит и сделать не могу. Даны натуральные числа n и числа a1, a2, ..., an. Определить: a1+a2, a2+a3, a3+a4 ..., an-1+an; Как только её не делала,...

Перевести код с Python
Помогите перевести код с Python в среду программирования Pascal ABC: count = 0 m = 100001 f = open('17.txt') l = min_sp = 1000001 for i in range(len(l)): if 99< l <1000 and l % 10 == 5:...

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

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

Найти коэффициенты многочлена
Даны действительные числа а,...,a. Найти коэффициенты многочлена (x-a0)*(x-a1)*...(x-a5). Помогите пожалуйста. Долго думала, смотрела похожие задачи, но не получается ...

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

В упорядоченном по неубыванию массиве чисел определить, есть ли заданное число B
В упорядоченном по неубыванию массиве чисел определить, есть ли заданное число B, в противном случае подсчитать произведение чисел, больших B на 10; кроме того вычислить количество отрицательных...

Формирования массива из отрицательных элементов четных строк и их индексов
В общем, не могу понять почему некоторые числа в окне вывода, в сформированном массиве повторяются, также появились положительные числа, буду благодарен за помощь. program Dinpam_1; type AP =...

Выводит Nan
Program kr2; Uses CRT; Const Xmin=-4.0; //-4,-3.6,-3.2, -2.8,-2.4, -2.0, -1.6, -1.2 Xmax=3.6; H=0.4; Var U,x,b,z:real; a:integer; Begin Clrscr; x:= Xmin;

Нарисовать снежинку, которая тает
uses graphABC; const k=8; var x,y, i:integer; procedure snow (x0,y0,r,n:integer); const t=2*pi/k; var i,x,y:integer; begin for i:=1 to k do begin x:=x0+round(r*cos(i*t));

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

Вычислить число способов выбрать трех животных для участия в выставке
Можете пожалуйста решить эту задачу В городском зоопарке содержатся животные N (1 ≤ N ≤ 1000) разных видов. Для участия в международной выставке зоопарк должен представить трех животных различных...

Вычислить значения выражений
Даны x, y, z . Вычислить a, b, если: a=y+x/(y2+|x2/(y+x2 )| ) , b=(1+tg2 z/2)2 Помогите решить

Как будет выглядеть кодировка вашего имени
Составьте программу,которая выводит на экран последовательность кодов введенной с клавиатуры строки.Узнайте,как будет выглядеть кодировка вашего имени Пример:Андрей-192 237 228 240 229 233

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

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

Вывести на экран трёхзначные числа от A до B, в которых средняя цифра равна 7
выведите на экран все трехзначные числа от A до B, в которых средняя цифра равна 7 алгоритм желательно repeat и среднее число через div и mod..?

Ввести x, вычислить функцию
Ввести x, вычислить функцию: y=x-2, x>2.5 y=1+x^2, 0<=x<=2.5 y=x*ln|cos(x)|, x<0 Написал код, всё вроде хорошо, но с последними двумя строчками проблемы, либо " Встречено ';', а ожидалось ')'...

Как выделить все использованные в программе строковые литералы
Как для заданного способа преобразование текстовых данных разработать: • flex-описание анализатора; • программное средство, сгенерированное на основе описания и выполняющее заданное преобразование....

Определить количество книг, взятых каждым читателем за все время, упорядочив по фамилии читателя
В базе данных хранятся сведения о работе библиотеки: дата текущего года, фамилия читателя, количество книг Структура входного файла in.txt 23.10.2022 Винни-Пух 5 12.11.2022 Винни-Пух 3 ...

Определи количество слов в предложении и определить количество букв в первом слове
Нужна помощь! Задача: Определить количество слов в предложении "Решение задач со строковыми величинами!" и определить количество букв в первом слове предложения Добавлено через 3 часа 42 минуты...

Упорядочить массив по полю записи
Задача 3: Даны следующие типы данных: type Data = record Ziua : 1..31; Luna : 1..12; Anul : integer; end; Persoana = record NumePrenume : string; DataNasterii : Data;

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

Напечатать лесенку из звёздочек
Напиши функцию staircase(n), которая для целого числа n > 0 рисует лесенку из звёздочек (см. пример). В лесенке n рядов, в k-м ряду ровно n - k пробелов и k звёздочек и нет других символов. Ввод...

Исследование функций round, int, frac
Помогите пожалуйста. Запустите программу несколько раз для каждого х ∈ {10,2; 10,8; -10,2; -10,8}. Что вы можете сказать о типе результата каждой из этих функций? Добавлено через 3 часа 7...

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

Отметить знаком "+" клетку, в которой окажется Робот в результате выполнения программы
Приветствую. Помогите разобраться. 7 класс информатика. У дочери задание: Исходное положение исполнителя Робот показано на рисунке Отметьте знаком "+" клетку, в которой окажется Робот в...

Записать логическое выражение, при котором можно вычислить заданное арифметическое выражение
Записать логическое выражение, при котором можно вычислить следующее арифметическое выражение срочно нужна полная программа!

Удалить каждую букву «В», стоящую перед буквами «А» и «Е» и после пробела
Нужна программа которая удалит каждую букву B, которая стоит перед буквами А и Е и после пробела.

Сумма цифр трёхзначного числа
Можете помочь по информатике? program n_4; var х, a, b, с, s: integer; begin writeln ('Нахождение суммы цифр трёхзначного числа') ; write ('Введите исходное число»'); readln (х); а: =х div...

Двумерный массив количества очков команд
Добрый день, помогие решить задачу. В двумерном массиве размером 17*17 записано количество очков, набранных той или иной командой во встречах с другими командами (3 - если данная команда выиграла...

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

Дан квадратный массив. Переставить строку с максимальным элементом на главной диагонали со строкой с заданным номером m
Переставить строку с максимальным элементом на главной диагонали со строкой с заданным номером m.

Файл записей
Создать файл записей, а в нем описать тип записи – строка в телефонной книге. Сформируйте файл записей – вашу телефонную записную книжку. Разработайте приложение поиска номера телефона по фамилии...

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

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

Дан массив M[10,10]. Определить произведение элементов шестой строки массива
Нужна помощь, не могу понять как это делать

Вычислить площадь выпуклого четырехугольника
Реализовать программу: вычислить площадь выпуклого четырехугольника, заданного на плоскости координатами его вершин. Четырехугольник можно разбить на два треугольника; вычисление площади...

Заполнение матрицы змейкой с правого нижнего угла
Всем добрый день. Помогите написать программу, которая заполняет и выводит матрицу, как на картинке вместо многоточия стоят числа, размерность - 10*12, заполнять надо начинать с нижнего правого угла...

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

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

Найти сумму ряда с заданной точностью
Всем привет, помогите, пожалуйста, с задачкой для 1-го курса. Найти сумма ряда с точностью ε=10-3, общий член которого a_n=\frac{2(n!)^2}{3(2n)!}

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

Вычислить значение функции с использованием стандартных функций и путем разложения в ряд Тейлора с заданной точностью
Вычислить значение функции с помощью стандартных функций и путем разложения в ряд Тейлора с заданной точностью E при изменении аргумента в указанном диапазоне с шагом h=(b-a)/10 . Если возможно,...

Протабулировать функцию y на заданном диапазоне изменения аргумента с заданным шагом
Протабулировать функцию y на заданном диапазоне изменения аргумента с заданным шагом

Разница между максимальным и средним арифметическим
Найти и вывести наибольшую разницу между максимальным(max) и средним арифметическим(sr) в вектор

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

Определить, сколько элементов массива равны среднеарифметическому чисел N и M
сформировать массив из промежутка натуральных чисел от N до M. Определить сколько элементов равны среднеарифметическому чисел N и M. пишите пожалуйста за программу 9 класса

Найти суммы элементов 2-ой и 3-ей строк. Вычисление суммы элементов строки оформить в виде подпрограммы
Y= 15 Y= -57 Y= -73 Y= -37 Y= 45 Y= 49 Y= 24 Y= -83 Y= 19 Y= 29 Y=-23 Y= -6 Y= -72 Y= 84 Y= -3 Y= 1 Y= 67 Массив O O= -74 O= 65 O= 28 O= 76 O= -15 O= -88 O= -30 O= -51 O= -99 O= -11 O= -34 O=...

Вычислить сумму ряда с заданной точностью
Показать полностью решение задачи на Паскаль АВС. S=1-x+x^2-x^3+x^4-...E Рассчитать сумму с заданной точностью

Вычислить значение функции
помогите вычислить функцию паскаль!

Построить движение шарика по заданной траектории
Помогите пожалуйста пытаюсь запустить программу по движению шарика на PascalABC 3.9 выдает ошибку. Объясните пожалуйста в чем проблема. program Sharik; uses crt,graph; var x_h,y_h : integer;...

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

Построить структуру данных
Построить структуру данных, описанную на рисунке и реализовать процедуру чтения данных в указанном порядке. х 1 х 2 х 3 x 5 х 6 х 1 х 2 х 3 х 4 х 2 х 6

Рассчитать годовую потребность автохозяйства в бензине
Добрый вечер, снова прошу у вас помощи! Работа в компиляторе pascalABC. Задали задачку, опять же не шарю в нем, буду благодарен за вашу помощь! Сама задача: Хозяйство имеет А легковых и В грузовых...

Вычислить значение выражения
Дано действительное число x. Вычислите y(x), если:

Даны действительные числа S и t. Рассчитать f(t,-3*s,2.5-t)+f( 5.2,3*t,s-t), где f(a,b,c)=2a-b-cos(c)/3.5-l c l
Даны действительные числа S и t. Рассчитать f(t,-3*s,2.5-t)+f( 5.2,3*t,s-t), где f(a,b,c)=2a-b-cos(c)/3.5-l c l подпрограмма

Создать файл учёта комплектующих изделий
создать файл учета комплектующих изделий. Структура записи: номер детали, наименование детали, готовая потребность, цена детали, класс, количество записей произвольное Добавлено через 56 минут А...

Найдите сумму номеров минимального и максимального элементов
Здравствуйте. Уважаемы эксперты прошу вашей помощи. Нужно с помощью рандомайзера выбрать 5 случайных чисел от 1 до 100. С помощью массива нужна найти сумму номеров максимального и минимального...

Все положительные элементы вектора, стоящие на четных местах, удвоить
Uses crt; const n=10; type mas=array of real; procedure vvod(var b:mas); var x:integer; begin for x:=1 to n do begin write('b:'); readln(b);

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

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

Записать в файл сначала английские, затем русские слова, каждое слово с новой строки, с сохранением порядка следования
Требования: 1. Входные данные берутся из файла. 2. Результат записывается в файл. 3. По окончании работы вся выделенная память освобождается (стек или очередь очищается). Дан файл...

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

Объяснить работу программы
Дан двумерный массив А размером 4х4. Значения элементов приведены в таблице: 3|0|6|1 4|7|-2|-5 -4|2|8|-6 5|1|0|2 Дана программа с исходными данными матрицы А CONST N=4; VAR A:ARRAY OF INTEGER;...

Нарисовать блок-схему
const N=15; {размер массива} w=5; {ширина форматирования} var a :array of integer; {массив-вектор} i :integer; begin Randomize; {инициализация псевдо-случайных} for...

Выдает что не может найти файл, и по этой причине не могу понять правильно ли работает программа
Само задание: Дан файл f, компоненты которого являются действительными числами. Найти, сколько компонент файла f равны заданному числу A. Код прикреплен фоткой Program fff; var F,G: text; ...

Составить блок-схему
Составьте, пожалуйста, блок-схему для кода: Program C2; var i: integer; begin for i:=1 to 20 do write(' ФИО') end.

Дано число. Является ли оно палиндромом (число одинаково читается справа налево и слева направо)
дано число. Является ли оно палиндромом (число одинаково читается справа налево и слева направо) Буду очень признательна, если напишете на паскале!

Парни , выручите с формулой пожалуйста
12 /1!-2 2 /2!+ 3 2 /3!- 4 2 /4! + 5 2 /5! сам синтаксис вообще не знаю, кто выручит буду очень признателен, могу шмоток в стиме накидать на 10$

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

Подсчитать сумму всех цифр, которые встречаются в строке
Дана строка: 4 ноября наша страна отмечает День народного единства. В современной России его начали праздновать сравнительно недавно в 2005 году, тогда центром торжеств стал Нижний Новгород. Написать...

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

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

Вывести на экран все слова строки, в которых есть три подряд идущие гласные буквы, в алфавитном порядке
вот фрагмент кода, но только он выводит всю строку, а мне нужно конкретное слово, в котором есть 3 гласных const a = ; var i:byte; s:string; begin write('строка: '); ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Несколько условий 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 несколько...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Встречено 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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Даны две переменные/ Если их значения не равны, присвоить каждой большее из этих значений
Даны две переменные целого типа: 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) +...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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