В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Abdulmansur
Abdulmansur
06.01.2021 06:26 •  Информатика

Написать подпрограмму (процедуру) STEP и с её составить программу рисования лесенки по диагонали через все поле рисунка.


Написать подпрограмму (процедуру) STEP и с её составить программу рисования лесенки по диагонали чер

Показать ответ
Ответ:
Ням1111
Ням1111
19.02.2021 10:35

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

uses crt,graphABC;

var h,c,r1,r2,r3,i,x1,y1,x2,y2:integer;

   u:real;

begin

repeat

write('Введите время в часах, от 0 до 24 кратное 3 h=');

readln(h);

until (h in [0..24])and(h mod 3=0);

setwindowsize(400,400);

c:=200;

r1:=c-30;

r2:=r1-40;

r3:=r1+20;

centerwindow;

clrscr;

hidecursor;

circle(c,c,r1);

//u:=pi/2-pi/6;

for i:=1 to 12 do

begin

 u:=-i*pi/6+pi/2;

 x1:=c+round(r1*cos(u));

 y1:=c-round(r1*sin(u));

 setbrushcolor(clBlack);

 setbrushstyle(bsSolid);

 circle(x1,y1,2);

 x2:=c+round(r3*cos(u));

 y2:=c-round(r3*sin(u));

 u:=u-pi/6 ;

 setbrushstyle(bsClear);

 textout(x2-3,y2-5,inttostr(i));

end;

setpenwidth(3);

h:=h mod 24 mod 12;

u:=-h*pi/6+pi/2;

line(c,c,c+round(r2*cos(u)),c-round(r2*sin(u)));

end.

0,0(0 оценок)
Ответ:
kjhgfffdpavel
kjhgfffdpavel
11.06.2020 09:50

Бірлік кесіндісі 1 см болатын координаталық түзуде А(-1) және В(5)

нүктелерін белгілеңдер. А және В нүктелерінің арақашықтығын табыңдар;

ә) А нүктесінен 2 см қашықтықта орналасқан А1 және А2 , ал В нүктесінен

3 см қашықтықта орналасқан В1 және В2 нүктелерін координаталық

жазықтықта белгілеңдер. Олардың координаталарын жазыңдар. [4]

2. х айнымалысының орнына қойғанда |х| < 2,3 теңсіздігі ақиқат болатындай

барлық бүтін сандарды жазыңдар. [2]

3. -2

3

7

+ 54

7

+ |−2

6

7

| + (-2,5) өрнегінің мәнін есептеңдер. [4 ]

4. Шеңбердің диаметрі 180 см болса, онда шеңбердің ұзындығы мен

дөңгелектің ауданы неге тең? [3]

А) 282,6 см, 25 434 см2

; В) 565,2 см, 25 434 см2

;

С) 565,6 см, 25 436 см2

; Д) 565,6 см, 25 446 см2

,

5. Егер 1: 50 000 000 масштабы бар картада 5 см жергілікті жерде қанша

километрді береді?

А) 2050 км; В) 2400 км; С) 2500 км; Д) 25 500км.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота