Вычислить длину окружности

@bigman666 · Регистрация: 16.01.2013

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

Помогите пожалуйста справиться с задачей, Необходимо написать функцию которая вычислит длину окружности.
Не могу понять, зачем нам нужен центр окружности: это условие из задачи из задачи.
Вот что написал, и запутался окончательно.

Pascal

Program dlina_cruga;
uses crt;
type tocka=record
x,y: real;
end;
krug = record
centr: tocka;
radius: real;
end;
function dlina_ocr
var v1,r:real;
writeln ('vvedite centr ocruj');readln (v1);
writeln ('vvedite radius');readln (r);
writeln ('dlina ocrujnosti = ',2*pi*r);
D:=dlina_ocr;
end;
begin
clrscr;
writeln(D);
end.

@Puporev · 10.10.2014, 21:25

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

Не могу понять, зачем нам нужен центр окружности

Напишите точное условие задачи.

@bigman666 · 10.10.2014, 21:40 **[ТС]**

Даны следующие типы данных:

Pascal

type punct=record
x,y :real
end;
cerc=record
centru: punct;
raza:real
end;

Напишите функцию,которая возвращает:
Длину окружности.
Перевожу: punct-точка,cerc-круг,centru-центр,raza-радиус.

@Puporev · 10.10.2014, 22:01

Ну и пусть есть поля, которые не используются в этой задаче, вероятно они используются в другой.

Pascal

Program dlina_cruga;
uses crt;
type tocka=record
           x,y: real;
           end;
krug = record
       centr: tocka;
       radius: real;
       end;
function dlina_ocr(k:krug):real;
var d:real;
begin
dlina_ocr:=2*pi*k.radius
end;
var k:krug;
begin
clrscr;
writeln ('vvedite radius');
readln (k.radius);
writeln ('dlina ocrujnosti = ',dlina_ocr(k):0:2);
readln
end.

@bigman666 · 11.10.2014, 12:53 **[ТС]**

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

@Puporev · 11.10.2014, 13:10

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

разницу между двумя окружностями

Это как?

@bigman666 · 11.10.2014, 13:18 **[ТС]**

Так нам сказал учитель)) Наверно разницу между двумя длинами окружности.

@Puporev · 11.10.2014, 13:35

Pascal

Program dlina_cruga;
uses crt;
type tocka=record
           x,y: real;
           end;
krug = record
       centr: tocka;
       radius: real;
       end;
function dlina_ocr(k:krug):real;
var d:real;
begin
dlina_ocr:=2*pi*k.radius
end;
var k1,k2:krug;
begin
clrscr;
writeln ('vvedite radius 1 kruga');
readln (k1.radius);
writeln ('dlina ocrujnosti = ',dlina_ocr(k1):0:2);
writeln ('vvedite radius 2 kruga');
readln (k2.radius);
writeln ('dlina ocrujnosti = ',dlina_ocr(k2):0:2);
write('Raznost dlin=',abs(dlina_ocr(k1)-dlina_ocr(k2)):0:2);
readln
end.

@bigman666 · 11.10.2014, 13:37 **[ТС]**

Спасибо большое, очень выручили))

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2014, 21:25	2
	Сообщение от bigman666 Не могу понять, зачем нам нужен центр окружности Напишите точное условие задачи. 0

@bigman666 2 / 2 / 0 Регистрация: 16.01.2013 Сообщений: 46
	11.10.2014, 12:53 [ТС]	5
	Спасибо большое, Если вам не тяжело намекните пожалуйста как сделать еще такую программу. Программа которая вычисляет разницу между двумя окружностями? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.10.2014, 13:10	6
	Сообщение от bigman666 разницу между двумя окружностями Это как? 0

@bigman666 2 / 2 / 0 Регистрация: 16.01.2013 Сообщений: 46
	11.10.2014, 13:18 [ТС]	7
	Так нам сказал учитель)) Наверно разницу между двумя длинами окружности. 0

@bigman666 2 / 2 / 0 Регистрация: 16.01.2013 Сообщений: 46
	11.10.2014, 13:37 [ТС]	9
	Спасибо большое, очень выручили)) 0