Задача на Delphi 7

@STALKER7112 · Регистрация: 10.03.2021

Студворк — интернет-сервис помощи студентам

Здраствуйте, дали задачу, но я не очень пойму как ее сделать на Delphi. Помогите.

Вычисление длины окружности. Запрашивается радиус окружности ( от 10 до 100 пикселов ). Напишите программу, которая вычисляет длину этой окружности . Окружность нарисованная в зависимости от введенного радиуса, внутри нее выводится вычисления длина с точностью до тысячных.

@STALKER7112 · 11.03.2021, 11:46 **[ТС]**

Я имею ввиду, координаты, где будет отображаться окружность. И ответ

@Puporev · 11.03.2021, 12:02

Радиус взят от 30 до 100, если от 10 то не входит ответ.

Delphi
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
var
  Form1: TForm1;
  c:integer;//начало координат
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
PaintBox1.Width:=PaintBox1.Height;
c:=PaintBox1.Width div 2;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var r:integer;
    l:double;
begin
if not TryStrToInt(Edit1.Text,r)or(r<30)or(r>100) then
 begin
  ShowMessage('Неверно введен радиус');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
l:=2*pi*r;
with PaintBox1.Canvas do
 begin
  ellipse(c-r,c-r,c+r,c+r);
  textout(c-25,c-10,'S='+format('%5.3f',[l]))
 end;
end;

Предлагаемый вид формы.

@Puporev · 11.03.2021, 12:11

Смените в ответе букву S на L, а то меня на площадь увело.

@STALKER7112 · 11.03.2021, 12:16 **[ТС]**

Ок, спасибо

@AzAtom · 11.03.2021, 12:37

Сообщение от Puporev

Какие координаты, если нужен только радиус?

Задача меняется на ходу...

@Puporev · 11.03.2021, 15:41

Вставьте апостроф после f

Delphi
50
textout(c-25,c-10,'L='+format('%5.3f',[l]))

@STALKER7112 · 11.03.2021, 15:46 **[ТС]**

Вставил, так же выдаёт ошибку.

@Puporev · 11.03.2021, 16:02

Так процнедуры нужно инициировать, а не просто копировать.
Например для procedure TForm1.FormCreate(Sender: TObject);
нужно в инспекторе объектов на вкладке Events дляформы кликнуть в окошечке напротив OnCreate.
А вообще нужно хоть первые 20 странмц из учебника прочитать, а не пытаься из халявы конфетку делать.

@STALKER7112 · 11.03.2021, 16:08 **[ТС]**

Спасибо, нам большинство тем дают в виде лабораторных и практических работ. Как нам сказал преподаватель для курсовой работы нужно выполнить все лабораторные и практические работы. ( Их 4 ). Но никто еще не дошел даже до 3. Но нам уже дали курсовую.

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@STALKER7112 0 / 0 / 0 Регистрация: 10.03.2021 Сообщений: 20

	Delphi 6-7 Задача на Delphi 7 10.03.2021, 17:35. Показов 2690. Ответов 28 Метки нет (Все метки) Здраствуйте, дали задачу, но я не очень пойму как ее сделать на Delphi. Помогите. Вычисление длины окружности. Запрашивается радиус окружности ( от 10 до 100 пикселов ). Напишите программу, которая вычисляет длину этой окружности . Окружность нарисованная в зависимости от введенного радиуса, внутри нее выводится вычисления длина с точностью до тысячных. 0

@STALKER7112 0 / 0 / 0 Регистрация: 10.03.2021 Сообщений: 20
	11.03.2021, 11:46 [ТС]
	Я имею ввиду, координаты, где будет отображаться окружность. И ответ 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	11.03.2021, 12:11
	Смените в ответе букву S на L, а то меня на площадь увело. 0

@STALKER7112 0 / 0 / 0 Регистрация: 10.03.2021 Сообщений: 20
	11.03.2021, 12:16 [ТС]
	Ок, спасибо 0

@STALKER7112 0 / 0 / 0 Регистрация: 10.03.2021 Сообщений: 20
	11.03.2021, 15:46 [ТС]
	Вставил, так же выдаёт ошибку. Миниатюры 0

@STALKER7112 0 / 0 / 0 Регистрация: 10.03.2021 Сообщений: 20
	11.03.2021, 16:08 [ТС]
	Спасибо, нам большинство тем дают в виде лабораторных и практических работ. Как нам сказал преподаватель для курсовой работы нужно выполнить все лабораторные и практические работы. ( Их 4 ). Но никто еще не дошел даже до 3. Но нам уже дали курсовую. 0