Нарисуйте и разукрасьте домик с Pascal через модуль GraphABC?

2002arsen2002 25 нояб. 2021 г., 18:03:34

Program Dom ;

uses Graphabc ;

var

P, Z : array of point ;

begin

SetWindowWidth(800) ;

SetWindowHeight(600) ;

SetPenWidth(3) ;

SetLength(P, 4) ;

SetLength(Z, 3) ;

Rectangle(200, 300, 600, 600) ;

SetBrushColor(clSlateGray) ;

FillRect(200, 300, 600, 600) ;

SetBrushColor(clAquamarine) ;

FillRect(300, 400, 500, 500) ;

rectangle(300, 400, 500, 500) ;

Line(400, 400, 400, 500) ;

Line(300, 450, 500, 450) ;

Line(200, 300, 400, 150) ;

Line(400, 150, 600, 300) ;

SetBrushColor(clGoldenrod) ;

z[0].

X : = 200 ; z[0].

Y : = 300 ;

z[1].

X : = 400 ; z[1].

Y : = 150 ;

z[2].

X : = 600 ; z[2].

Y : = 300 ;

Polygon(Z) ;

SetBrushColor(clCornflowerBlue) ;

Circle(400, 225, 40) ;

SetBrushColor(clBrown) ;

p[0].

X : = 480 ; p[0].

Y : = 210 ;

p[1].

X : = 480 ; p[1].

Y : = 160 ;

p[2].

X : = 520 ; p[2].

Y : = 160 ;

p[3].

X : = 520 ; p[3].

Y : = 240 ;

Polygon(P) ;

end.

RRR97 12 мая 2021 г., 02:00:46 | 10 - 11 классы

Характеристика языка pascal?

Характеристика языка pascal.

Аселя12345 12 июн. 2021 г., 03:25:12 | 5 - 9 классы

Напишите программу на Pascal?

Напишите программу на Pascal.

Lubasmirnova 3 сент. 2021 г., 22:27:11 | 5 - 9 классы

Помогите записать выражения на языке Pascal и вычислить их с помощью ABC Pascal?

Помогите записать выражения на языке Pascal и вычислить их с помощью ABC Pascal.

Lelyavorobeva 29 апр. 2021 г., 17:37:09 | 5 - 9 классы

Работаем на Pascal1?

Работаем на Pascal

1.

A + B

2.

A div B

3.

Модуль A

4.

Найти модуль квадрата по сторанам А

5.

Найти периметар прямоугольника со сторонами А и В.

Ingyshk 7 янв. 2021 г., 16:10:10 | 5 - 9 классы

Как в Паскале GraphABC нарисовать точку?

Как в Паскале GraphABC нарисовать точку.

Рейдер2 12 июн. 2021 г., 00:23:30 | 5 - 9 классы

Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек uses graphabc нужно ипользовать?

Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек uses graphabc нужно ипользовать.

Plenarycool44 4 апр. 2021 г., 18:40:21 | 5 - 9 классы

Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек паскаль uses graphabc нужно ипользовать?

Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек паскаль uses graphabc нужно ипользовать.

Djoni7 20 сент. 2021 г., 13:23:00 | студенческий

Нарисовать данную картинку в PascalABC?

Нарисовать данную картинку в PascalABC.

NET с помощью модуля graphABC.

A2005a 28 февр. 2021 г., 02:20:41 | 5 - 9 классы

С клавиатуры вводятся числа до первого отрицатеьного?

С клавиатуры вводятся числа до первого отрицатеьного.

Нарисуйте блок схему и напишите программу для нахождения суммы этих чисел.

Pascal

Домашняя работа по теме (Циклы)

Помогите пожалуйста, дам самый большой балл.

Yhenii222 1 апр. 2021 г., 12:39:11 | 1 - 4 классы

От домика Карандаша к домику Самоделкина ведут две дороги, а от домика Самоделкина к домику Незнайки - одна?

От домика Карандаша к домику Самоделкина ведут две дороги, а от домика Самоделкина к домику Незнайки - одна.

Нарисуй эти дороги и сосчитай все возможные пути от домика Карандаша к домику Незнайки.