Free Pascal

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

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal Для записи римскими цифрами используются символы I, V, X, L, C, D, M, обозначающие соответственно числа https://www.cyberforum.ru/ free-pascal/ thread1130569.html Помогите решить пжл: Для записи римскими цифрами используются символы I, V, X, L, C, D, M, обозначающие соответственно числа 1, 5, 10, 50, 100, 500, 1000. Составить программу, которая запись любого заданного числа n (n≤3999) арабскими цифрами переводила бы в запись римскими цифрами.	Баг с работой процедуры Free Pascal uses crt; const n = 2; type anketa = record FIO: string; klichki: string;
Free Pascal Найти произведение элементов массива, расположенных между максимальным и минимальным элементами https://www.cyberforum.ru/ free-pascal/ thread1130259.html Дан одномерный массив, состоящий из N вещественных элементов. Найти произведение элементов массива, расположенных между максимальным и минимальным элементами. Формат выходных данных Выведите в выходной файл искомое произведение с 3 знаками после десятичной точки или 0, если между максимальным и минимальным элементом нет других элементов. Примеры: Вход 5 -3.12 -5.25 2.5 1.2 6 Выход	Free Pascal По представленной блок-схеме составьте программу вычисления функции у при заданном с клавиатуры значении х TP7 Помогите пожалуйста https://www.cyberforum.ru/ free-pascal/ thread1130200.html
Дано 100 целых чисел от 1 до 50. Определить, сколько среди них чисел Фибоначчи Free Pascal Дано 100 целых чисел от 1 до 50. Определить, сколько среди них чисел Фибоначчи и сколько таких чисел, первая значащая цифра в десятичной записи которых 1 или 2 ?	Free Pascal Данные не выносятся из процедуры Program p1; Uses crt; const n=10; type arr=array of integer; var a:arr;f:file of integer; i:longint;b:integer; procedure make; var z:file of integer; https://www.cyberforum.ru/ free-pascal/ thread1129704.html
Free Pascal Ошибка при переводе содержимого файла в массив (Exitcode 201) https://www.cyberforum.ru/ free-pascal/ thread1129577.html Program p1; Uses crt; const n=10; var a:array of integer;f:file of integer; i:longint;b:integer; procedure make; var z:file of integer; k,q:integer;	Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце Free Pascal Помогите решить: Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце.
Free Pascal В вариантах даны только заголовок и шапка таблицы. Вывести на печать документ https://www.cyberforum.ru/ free-pascal/ thread1129515.html В вариантах даны только заголовок и шапка таблицы. Количество строк в таблице определяется пользователем программы. Входные данные вносятся либо в таблицу ,либо в режиме диалога Звездочкой ( * ) помечены графы таблицы, по которым необходимо подвести итог. Многоточие (…………) заполняет пропуски, в которые будут вноситься конкретные исходные данные при выполнении программы. Вывести на печать...	Free Pascal Вывести на печать матрицу Х, максимальный элемент и вектор С Задание №7 Дана целочисленная матрица Х размерностью 8x8. Сформировать вектор С, каждый элемент которого –это сумма элемента побочной диагонали и максимального элемента главной диагонали матрицы . Вывести на печать матрицу Х, максимальный элемент и вектор С. https://www.cyberforum.ru/ free-pascal/ thread1129514.html
Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной относительно главной диагонали Free Pascal Задание №6 Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной относительно главной диагонали.	Free Pascal Вставить после всех строк, в которых есть заданное число А, последнюю строку Задание №5 Вставить после всех строк, в которых есть заданное число А, последнюю строку. https://www.cyberforum.ru/ free-pascal/ thread1129512.html

emilija

1 / 1 / 2

Регистрация: 19.12.2013

Сообщений: 117

Прямоугольники. Закончить программу - Free Pascal - Ответ 5956544

26.03.2014, 21:02. Показов 619. Ответов 1

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

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

Pascal

program nogriezni;
uses graph, crt;
var a,b:integer;
color:byte;
 
begin
a:=detect;
InitGraph(a,b,'c:\tp\bgi');
randomize;
repeat
setcolor(random(15));
SetFillStyle(EmptyFill,6);
rectangle(random(630), random(470), random(630), random(470));
delay(50);
until keypressed;
readln;
closegraph;
end.

Вернуться к обсуждению:
Прямоугольники. Закончить программу Free Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.03.2014, 21:02

Готовые ответы и решения:

Отрезаем прямоугольники
Нужно реализовать в Pascal. Что бы были входные(1.in) и выходные(1.out) данные. ) создать .ехе файл...

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

Проверить данные прямоугольники на равенство
стороны одного прямоугольника равны А и Б. Стороны другого равны x и y. Написать программу...

Определить, пересекаются ли данные прямоугольники
Даны два прямоугольника. Множества А и В - это множества точек, принадлежащих соответствующим...

	26.03.2014, 21:02

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.03.2014, 21:02

Помогаю со студенческими работами здесь

Определить пересекаются ли данные прямоугольники
Доброго времени, программисты :) помогите решить вот такую задачу : Даны два прямоугольника....

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

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

Попадание точек в прямоугольники: блок-схема
помогите пожалуйста составить блок-схему по тексту программы Program abc; const p=2; ...

Наверх