Войти Регистрация Спроси ai-bota

Pascal ! нарисуйте окружность такой линией, ширина которой больше радиуса. обведите полученную фигуру по контуру

Ответ:

prosto529o

28.09.2020 18:16

//Pascal ABC.NET 3.1 сборка 1256

Uses
GraphABC;

Var
r,v:integer;
begin
writeln('Введите радиус:');
readln(r);
writeln('Введите ширину контура:');
readln(v);
brush.Style:=bsClear;
pen.Width:=r+10;
circle(window.Center.X,window.Center.Y,r);
pen.Width:=v;
pen.Color:=clPurple;
circle(window.Center.X,window.Center.Y,r+(r+10) div 2);
end.

Примечание:
При вводе 100 и 30 получается красиво.

0,0(0 оценок)

Популярные вопросы: Информатика

grafPypirkin

18.03.2022 23:21

12. Что будет напечатано на экране монитора после выполнения команды ?A; B, C; D при заданных А=В=C=D=2 A. 2 2 2 2 B. 2 2 2 2 C. 2; 2, 2; 2 D. 2 2 2 2 13. Функция для получения...

olganedbaylova

19.01.2023 05:35

сфоткайте решение у себя на листке или телефоне....

ElizavetaBro34

24.03.2020 21:25

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

asemk85

21.01.2020 13:13

На чистых прудах обитают птицы.из них 12лебедей ,8 журавлей и 4 утки .какое количество информации несет сообщение о том что вы покормили лебедя? журавля?...

саня45рг

07.05.2023 13:27

Отметь верные высказывания. 1)объект,исполняющий алгоритм,-это исполнитель алгоритма. 2)человек и компьютер могут быть исполнителями алгоритма. 3)человек может создавать алгоритмы...

demondru

07.05.2023 13:27

Сделать что нибудь в паскале в календаре племени сиу-мяу 4 месяца (тяп, ляп, мяк, бяк) по 12 дней. составьте программу, которая запрашивает название месяца (один из символов:...

enotny

18.06.2022 14:22

Решите уравнения! ) 1) (4,5у - 4у) - 8,1 = 2,2 2) (9,5у - 9у) - 1,4 = 10,6 3) (у - 3,3) : 5,3 = 0,07 4) 0,32х с решением ) ( заранее ! )...

Адай111111

18.06.2022 14:22

На какие орфограммы даны слова в столбиках? как вы будете действовать при решении орфографических ? город,варить,легкий,корова,лестница,троллейбус. дорога,кормить,резкий,автобус,бассейн,чувство....

balasanyansilva

18.06.2022 14:22

Умножить многочлен на многочлен с объяснением. 3p(2p+4)*2p(2p-3)...

Nialya2727

18.06.2022 14:22

(среди ответов к каждому вопросу 1-5 только один правильный). 1. (1 ) выберите верное утверждение. питьевая сода в отличие от безводной: а) не изменяет окраску фенолфталеина...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку