PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Записи: распечатать фамилии рабочих бригады, начинающиеся с А и С Распечатать фамилии рабочих бригады, начинающиеся с А и С с указанием их месячной зарплаты. https://www.cyberforum.ru/ pascalabc-net/ thread2155638.html	Вывод стишка «Десять поросят пошли купаться в море…» PascalABC.NET Задание: Напишите программу, используя рекурсивные вызовы. Вывод известного детского стишка «Десять поросят пошли купаться в море…» Вот эту программу преподаватель не принял сказал что она написана циклом, а нужно рекурсией: program qwer; uses crt; var i, kol : integer; Begin kol := 10; for i := 10 downto 1 do begin writeln(kol,' поросят пошли купаться в море.');
PascalABC.NET Посчитать количество нулевых/положительных/отрицательных элементов матрицы требуется создать матрицу 6 на 6 от -50 до 100 чтобы она считала количество 0 у отрицательных и положительных чисел отдельно https://www.cyberforum.ru/ pascalabc-net/ thread2155388.html	PascalABC.NET Из непустого динамического списка распечатать все строки нечетной длины Из не пустого динамического списка распечатать все строки нечетной длины https://www.cyberforum.ru/ pascalabc-net/ thread2155382.html
PascalABC.NET Из непустого динамического списка удалить все строки максимальной длины Из не пустого динамического списка удалить все строки максимальной длины заранее спасиюо	PascalABC.NET Зеркально отразить матрицу относительно побочной диагонали Задана матрица A(n,n). Зеркально отразить ее относительно побочной диагонали. В преобразованной матрице найти столбцы, элементы которых образуют убывающую последовательность. https://www.cyberforum.ru/ pascalabc-net/ thread2155346.html
PascalABC.NET Лямбда функция Приветствую. Может кто пояснить, что это означает (OnProcessCommand: string -> string) и какие параметры надо передавать этой процедуре? Целиком она выглядит так: procedure RunServer(OnProcessCommand: string -> string); begin var server := new TcpListener(IPAddress.Any, port); server.Start(); while (true) do begin var client := server.AcceptTcpClient(); var stream :=... https://www.cyberforum.ru/ pascalabc-net/ thread2155330.html	Найти во введённой строке самое короткое слово PascalABC.NET Задание: найти во введённой строке самое короткое слово в строке. При выполнении пишет Program1.pas(16) : Ошибка времени выполнения: Индекс находился вне границ массива. Где ошибка, как решить? program zadanie4; var k,i:integer; s,s1,min:string; begin writeln('введите строку'); readln(s);
PascalABC.NET Программа выдает ошибку времени выполнения: входная строка имела неверный формат Программа выдает ошибку времени выполнения: входная строка имела неверный формат(12-ая строка) Помогите. Что не так? function f(a,b:integer):integer; begin if b<=a then f:=a else f:=b*f(a,b-1); end; var a,b,c:integer; begin https://www.cyberforum.ru/ pascalabc-net/ thread2155120.html	PascalABC.NET Вычисление выражений с использованием функций https://www.cyberforum.ru/ pascalabc-net/ thread2155113.html При заданных значениях N с помощью собственных функций вычислить выражения. Y = (2) + (4) * (6) Цифры в скобках обозначают номер функции в последующей таблице. Используемые функциина картинке) при вычислении произведений (функции 1, 2, 3, 4, 5, 6, 11, 14, 15), начальные значения произведений равны единице.
PascalABC.NET Обновить инвентарный массив на основе вспомогательного Пусть даны два массива m1 и m2. Массив m1 – это инвентарный массив, содержащий сведения о том, сколько изделий каких видов хранится на складе. Массив m2 – это вспомогательный массив, содержащий сведения о том, на сколько уменьшилось или увеличилось количество изделий по некоторым видам продукции. Обновите инвентарный массив на основе вспомогательного.	PascalABC.NET Определить количество положительных и отрицательных элементов непустого списка Имеется список, элементами которого являются целые числа. Определить количество положительных и отрицательных элементов непустого списка. Если количество положительных больше количества отрицательных элементов, удалить все положительные элементы. понятие не имею как это делать, надеюсь на вас. https://www.cyberforum.ru/ pascalabc-net/ thread2155060.html

JuriiMW

5084 / 2655 / 2350

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

Сообщений: 10,043

13.12.2017, 07:26

Создать графическое изображение - PascalABC.NET - Ответ 11940288

13.12.2017, 07:26. Показов 1023. Ответов 1

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

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

Решение

Pascal

uses GraphABC;
begin
  DrawPolygon((Window.Center.X-100,Window.Center.Y-140),(Window.Center.X+100,Window.Center.Y-140),(Window.Center.X-100,Window.Center.Y+140),(Window.Center.X+100,Window.Center.Y+140));
  Brush.Color := clBlack;
  FillPolygon((Window.Center.X-50,Window.Center.Y+70),(Window.Center.X+50,Window.Center.Y+70),(Window.Center.X+100,Window.Center.Y+140),(Window.Center.X-100,Window.Center.Y+140));
end.

Вернуться к обсуждению:
Создать графическое изображение PascalABC.NET

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

13.12.2017, 07:26

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

Создать графическое изображение в паскале

графическое изображение
Составить программу для графического изображения делимости чисел от 1 до N (значение N вводится с...

Графическое изображение в движении
изображение кота двигающего усами, глазами и хвостом.

Графическое изображение делимости
помогите пожалуйста через два дня надо показать решения задание№1 написать программу для...

	13.12.2017, 07:26

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

13.12.2017, 07:26

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

Запрограммировать разработанное ранее графическое изображение
Тема: Программирование разработанного графического изображения. Цель: Научиться использовать...

Создать графическое окно и вывести в заданной последовательности снизу вверх треугольники
Создать графическое окно и вывести в заданной последовательности снизу вверх следующие графические...

Создать изображение нескольких фаз движения объекта (не менее 3)
Помогите пожалуйста: создать изображение нескольких фаз движения объекта (не менее 3).Используя...

Пользуясь функциями модуля Graph, создать изображение Снеговика
на Паскале Пользуясь функциями модуля Graph, создать изображение Снеговика

Наверх