Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal На основе содержимого матрицы сформировать вектор https://www.cyberforum.ru/ pascal/ thread2695887.html
Дана прямоугольная матрица размерности MxN. Сформировать вектор В, где: B=1,если элементы I строки составляют строго возрастающую последовательность; B=0,если элементы I строки не составляют строго...
Pascal Сформировать два массива с количествами положительных и отрицательных элементов в каждом столбце матрицы
Дана прямоугольная матрица размерности MxN. Сформировать два одномерных массива: в первый занести количество положительных элементов в каждом столбце; во второй – количество отрицательных элементов в...
Pascal Решение задачи в паскале https://www.cyberforum.ru/ pascal/ thread2695427.html
Пожулуйста, вычислете/решите эту задачу в паскале. (прикрепляю фото)
Pascal Дана матрица вещественных чисел NxM. Записать в первый столбец матрицы целую часть чисел https://www.cyberforum.ru/ pascal/ thread2695325.html
Дана матрица вещественных чисел NxM.Записать в первый столбец матрицы целую часть чисел, во второй - дробную часть, приведенную к пятизначному целому, в третий столбец - знак числа: 0 для...
Найти номера строк матрицы, в которых число 5 встречается более 3 раз Pascal
Дана матрица 10x20 заполненная случайными целыми числами. Вывести на экран номера строк, в которых число 5 встречается больше 3 раз.
Pascal В одномерном массиве из случайных букв подсчитать количество гласных, и заменить их случайной цифрой https://www.cyberforum.ru/ pascal/ thread2695281.html
Помогите решить хитрую задачу на Паскаль :-[: "Заполните одномерный массив случайными буквами латинского алфавита, подсчитать количество гласных букв стоящих на нечетных местах и заменить их цифрой,...
Pascal Перевести радианы в градусы, минуты и секунды https://www.cyberforum.ru/ pascal/ thread2695003.html
перевести заданную величину угла из радианной меры в градусную пример:0,79417329102553 рад=45°30'10" Добавлено через 2 часа 5 минут Составить программу на паскале перевода радианной меры угла в...
Вычислить значение выражения Pascal
Привет. Пожалуйста, напишите программу (с пояснениями) которая вычисляет... Y= x cos x + sin3 x при X=32.872;
Pascal нужно переделать программу под другую фигуру https://www.cyberforum.ru/ pascal/ thread2692833.html
фигура и программа в приложении uses GraphWPF, Timers; const L = 50; dMove = 10; dSpeed = 0.2; dAngle = pi/18;
Pascal Нарисовать фигуру https://www.cyberforum.ru/ pascal/ thread2691697.html
фигура во вложении
Сравнение элементов 3 массивов из 10 чисел Pascal
Здравствуйте Уважаемое сообщество, Ни подскажете как сравнить элементы 3 масивов из 10 чисел на равенство, одного числа в 1 массиве, со 2 числом во 2 и 3 массииве, Есть 3 массива из 10 натуральных...
Pascal Программа не выводит данные в графическое окно не знаю почему не работает программа. только начинаю изучать graph, а тут ничего не выходит:cry::( ... ошибок не видает, но как результат получаю черный экран... Буду признательна за любую помощь,... https://www.cyberforum.ru/ pascal/ thread2691236.html
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
08.09.2020, 13:22 0

Нужно поменять на другую фигуру(во вложениях) - Pascal - Ответ 14826154

08.09.2020, 13:22. Показов 1085. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено NastyaBad как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure Draw;
var p:array of point;
    u:real;
begin
Window.Clear(rgb(255,255,255));
Pen.Color := rgb(0,0,0);
Pen.Width := 2;
u:=pi/2;
setlength(p,6);
for var i:=0 to 5 do
 begin
  p[i].x:=x+round(L*cos(angle+u));
  p[i].y:=y-round(L*sin(angle+u));
  u:=u+2*pi/5;
 end;
line(p[0].x,p[0].y,p[2].x,p[2].y);
line(p[0].x,p[0].y,p[3].x,p[3].y);
line(p[1].x,p[1].y,p[4].x,p[4].y);
line(p[1].X,p[1].Y,p[2].X,p[2].y);
line(p[2].X,p[2].Y,p[3].X,p[3].y);
line(p[3].X,p[3].Y,p[4].X,p[4].y);
end;


Вернуться к обсуждению:
Нужно поменять на другую фигуру(во вложениях) Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.09.2020, 13:22
Готовые ответы и решения:

нужно переделать программу под другую фигуру
фигура и программа в приложении uses GraphWPF, Timers; const L = 50; dMove = 10; ...

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

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

Определить бьет ли ладья с заданными координатами другую фигуру
Требуется определить,бьет ли ладья с заданными координатами x1 y1 другую фигуру стоящую на клетке...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.09.2020, 13:22

Определить, бьет ли ладья другую фигуру (правильно ли написан код?)
Требуется определить, бьет ли ладья, стоящая на клетке с указанными координатами (номер строки и...

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

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

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

Нужно построить в полярных координатах фигуру!
ρ^2 = (2а)^2 cos2 φ это лемниската Бернулли. Объясните, как она вообще строится и как это...

Нужно накрыть объемную фигуру текстурами
помогите плз, нужно накрыть текстурами #pragma comment(lib, "opengl32.lib") #pragma...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru