Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Задачка на двумерный массив https://www.cyberforum.ru/ pascalabc-net/ thread1153465.html
Help me, плиз! Ввести размер двумерного массива и значения ее элементов. Найти: 4) максимальное значение в i-ом столбце. 5) номер максимального значения в i-ой строке. 6) номер...
НСР (наименьшая существенная разница) PascalABC.NET
Помогите написать программу, которая рассчитывала бы наименьшую существенную разность. Буду благодарна всем, кто поможет!:)
PascalABC.NET Удалить из файла ТАТ все символы „+“ и „-“. Вывести новый файл помогите пожалуйста очень нужно!!! вопрос жизни и смерти Удалить из файла ТАТ все символы „+“ и „-“. Вывести новый файл. https://www.cyberforum.ru/ pascalabc-net/ thread1153320.html PascalABC.NET Вычислить, используя процедуру x + x^3 / 3! + x^5 / 5! + ... + x^(2n+1) / (2n +1)! https://www.cyberforum.ru/ pascalabc-net/ thread1153281.html
помогите пожалуйста решить( и если можно объяснить это все) 1)Вычислить, используя процедуру x + x^3 / 3! + x^5 / 5! + ... + x^(2n+1) / (2n +1)!
PascalABC.NET Ввести с клавиатуры целое число N и найти такое наибольшее целое число K, что будет справедливо неравенство
Напишите следующую программу. Ввести с клавиатуры целое положительное число N и найти такое наибольшее целое число K, что будет справедливо неравенство: 3^^{2K}<\frac{N^2}{2+N} Желательно...
PascalABC.NET Составить алгоритм и написать программу проверки равенства треугольников https://www.cyberforum.ru/ pascalabc-net/ thread1152435.html
2й курс политех, ABC Pascal, Составить алгоритм и написать программу, проверки равенства треугольников по второму признаку ((/-угол)/A=/A1, /B=/B1, /AB=/A1B1) Вводятся все три угла и все три...
PascalABC.NET Заполнить случайными числами массив указателей на вещественные числа https://www.cyberforum.ru/ pascalabc-net/ thread1152341.html
Описать массив RARR указателей на вещественные числа,содержащий 10 элементов.В какой области памяти будет размещён этот массив?Какой объем памяти он будет занимать? Выводит...
PascalABC.NET Даны два целых числа k и n. Выведите 2k + 2n
Нельзя использовать циклы, условные инструкции, вызовы функций (то есть любые нелинейные конструкции в алгоритмах), арифметические операции («+», «-», «*», деление). Можно использовать только...
PascalABC.NET Посчитать сумму чисел, меньших от 5, с промежутка целых чисел [a;b] https://www.cyberforum.ru/ pascalabc-net/ thread1152173.html
Задача состоит вот в чем: Посчитать сумму чисел, меньших от 5, с промежутка целых чисел . Буду очень благодарна за помощь!:flirt:
PascalABC.NET Записи (проверка работает некорректно) блин проверка коряво работает, почему не пойму, надо чтобы если форма была пуста то он опять просил заполнить её и так снова и снова пока не заполнит, а если заполнена то переход к дальнейшему... https://www.cyberforum.ru/ pascalabc-net/ thread1152118.html
PascalABC.NET В игре "Гонки" не очищается экран
Необходимо было написать игру "гонки" про выбор гонщика, подсчет очков и так далее. Наброски выполненного задания есть, но в нем не хватает двух пунктов: 1. Чтобы после каждого заезда была...
PascalABC.NET В игре "Охота" не сохраняется переменная https://www.cyberforum.ru/ pascalabc-net/ thread1151857.html
Задача состоит в том, чтобы реализовать игру в которой появляются фигуры и пользователю необходимо успевать на них нажимать, если успевает - присваиваются очки и публикуются в заголовок программы. В...
52 / 52 / 26
Регистрация: 13.11.2013
Сообщений: 219
Записей в блоге: 1
22.04.2014, 15:35 0

Составить программу, которая рисует домик. Радиус ввести с клавиатуры.Сделать заливку фигур - PascalABC.NET - Ответ 6072818

22.04.2014, 15:35. Показов 3586. Ответов 2
Метки (Все метки)

Ответ

вот прога для рисования дома,всё сделано через константы.и использование модуля abcHouse
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses abcHouse,GraphABC;
const w=400;h=200;heightCrisha=20;PW=6;
var a:abcHouse.HouseABC;
procedure crisha(x1,y1,x2,y2,x3,y3:integer);
begin
SetPenColor(clgreen);
SetPenWidth(pw);
Line(x1,y1,x2,y2);
Line(x2,y2,x3,y3);
FloodFill(x1+pw*4,y1-pw,clgreen);
end;
begin
a:=new HouseABC(Window.Width div 2-W div 2,Window.Height div 2-h div 2,w,h,GraphABC.clGreen);
crisha(Window.Width div 2-W div 2,Window.Height div 2-h div 2,Window.Width div 2,HeightCrisha,Window.Width div 2+w div 2,Window.Height div 2-h div 2);
end.


Вернуться к обсуждению:
Составить программу, которая рисует домик. Радиус ввести с клавиатуры.Сделать заливку фигур PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2014, 15:35
Готовые ответы и решения:

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

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

Составте программу,которая рисует одну из пространственных фигур
Составте программу,которая рисует одну из пространственных фигур-куб

Составить программу, которая читает построчно текст другой программы (ввести с клавиатуры) на языке C (10 строк)
строки написать в паскале программу которая читает построчно текст другой программы (ввести с...

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

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

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

Составить программу с использованием функции.Которая рисует 80 звёздочек
Помогите,почему то не работает. #include &lt; iostream.h&gt; //Прототип функции line ...

Составить программу которая рисует прямоугольник с разноцветными сторонами
Составить программу которая рисует прямоугольник с разноцветными сторонами. помогите пожалуйста!

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.