Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal 'Площадь прямоугольного треугольника написать программу в которой компьютер должен вывести "введите длину треугольника" и зажечь курсор после ввода в новой строке "введите ширину" и зажечь курсор а затем с новой строке "плоащадь равна и значание" (версию не знаю,мы пишем в тетради)(потом переносим в пк) https://www.cyberforum.ru/ pascal/ thread1977172.html	Pascal задача паскаль написать программу в которой компьютер должен вывести "введите длину треугольника" и зажечь курсор после ввода в новой строке "введите ширину" и зажечь курсор а затем с новой строке "плоащадь равна и значание" (это первая задача) Написать программу рисующую прямоугольник исходные данные начальная точка: 50;50 размеры 50 на 70 (Вторая) Нарисовать программу рисующую два одинаковых...
Pascal Создать файл F вещественных чисел. Сформировать из файла матрицу A максимально возможного размера, заполняя ее Создать файл F вещественных чисел. Сформировать из файла матрицу A максимально возможного размера, заполняя ее по строкам. В матрице вычислить среднее арифметическое положительных элементов, это значение записать вместо первой компоненты файла. Матрицу и файл распечатать. https://www.cyberforum.ru/ pascal/ thread1977132.html	Pascal Дан файл G, компонентами которого являются вещественные числа https://www.cyberforum.ru/ pascal/ thread1977131.html Дан файл G, компонентами которого являются вещественные числа. Найти сумму компонент, расположенных на нечетных позициях файла. Суммой заменить компоненты, лежащие в интервале . Преобразованный файл распечатать.
Pascal Ввести двумерный массив L(N,M) (N10; M15) и выдать его на печать Ввести двумерный массив L(N,M) (N10; M15) и выдать его на печать. В каждой строке массива элементы, расположенные после минимального элемента строки, увеличить на максимальный элемент всего массива. Выдать на печать преобразованный массив.	Pascal Модель движения тела в гравитационном поле звезды и двух планет Делал ли кто нибудь подобную программу? Возможно у кого то есть наработки? Буду очень признателен за помощь. https://www.cyberforum.ru/ pascal/ thread1976848.html
Pascal Считывание с файла Дано файл с действительными числами. Определить наименьший и наибольший элементы. Как эту програму связать с файлом ? Program Min_Max; var a,b,c,min,max:integer; begin write('Введите 3 числа для сравнения (через пробел) : ');read(a,b,c); min:=a;max:=a; https://www.cyberforum.ru/ pascal/ thread1976726.html	Pascal Проверить являются ли цифры числа степенями двойки, если да, то возвести такие цифры в квадрат и сложить Необходимо написать программу с циклом или циклами, которая проверяет являются ли цифры числа степенями двойки, если да, то возвести такие цифры в квадрат и сложить, результат вывести на экран. Пытался сделать для 3х-значного числа, но запутался в типах переменных или оформлении цикла: program ac; var a,b,c,n,k,d:integer; begin writeln('введите число до 100',n); read(n); a:=n mod 100;...
Pascal Вычисление элементов рекуррентно заданной последовательности https://www.cyberforum.ru/ pascal/ thread1976451.html Aj+1=Aj+(j-5)+jAj-1, A0=0; A1=2, j=1,2,3,4,5	Pascal Дроби Привет всем , вот такая проблема плз помогите вот дано x,y и p,q надо сделать так чтобы (x/y)=(p/q) либо вывести -1 если равенство невозможно где (p/q может принимать сначения с мы можем ('x' и 'y' увеличить на 1 ) либо (только 'y' увеличить на 1) так чтобы (x/y=p/q) нам надо найти мин раз увеличения на 1 либо вывести -1 контр пример 20 70 2 7 = 0 https://www.cyberforum.ru/ pascal/ thread1976224.html
Pascal Найти сумму наибольшего и наименьшего из значений элементов каждой строки матрицы Дана действительная матрица размера n*m. Найти сумму наибольшего и наименьшего из значений элементов каждой строки. Отсортировать матрицу по возрастанию.	Pascal Написать подпрограмму ввода файла, нахождения минимума https://www.cyberforum.ru/ pascal/ thread1975545.html Написать подпрограмму ввода файла, нахождения минимума. Для проверки подпрограммы создать драйвер, в котором выполнить замену минимумом предпоследней компоненты файла и вывода файла.

ZX Spectrum-128

6811 / 4568 / 4819

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

Сообщений: 22,438

09.05.2017, 12:05

Написать программу, рисующую прямоугольник - Pascal - Ответ 10415871

09.05.2017, 12:05. Показов 2930. Ответов 1

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

Сообщение было отмечено TyxaS как решение

Решение

fpc/tp

Pascal

Uses
  Graph;
var
  x,y,gd,gm : integer;
  PathToDriver : string;
begin
  gd:=detect; { highest possible resolution }
  gm:=0; { not needed, auto detection }
  PathToDriver:='C:\PP\BGI'; { path to BGI fonts, drivers aren't needed }
  InitGraph(gd,gm,PathToDriver);
  if GraphResult<>grok then
      halt;
  { whatever you need }
  x:=50;
  y:=50;
  SetColor(Yellow);
  Rectangle(x,y,x+50,y+70);
  readln;
  CloseGraph; { restores the old graphics mode }
end.

Вернуться к обсуждению:
Написать программу, рисующую прямоугольник Pascal

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

09.05.2017, 12:05

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

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

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

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

Написать программу, рисующую на экране пакета из разноцветных ромбов
Написать программу, рисующую на экране пакета из разноцветных ромбов.

	09.05.2017, 12:05

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

09.05.2017, 12:05

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

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

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

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

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

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх