Как найти площадь кольца на паскале

Как найти площадь кольца на паскале

2 / 1 / 0

Регистрация: 15.02.2014

Сообщений: 64

1

Расчет площади кольца с заданными внутренним и внешним радиусами

03.03.2014, 21:26. Показов 5614. Ответов 3

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

Напишите программу расчета площади кольца с заданными внутренним и внешним радиусами. Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран. /Pascal ABC



0

dencil

10 / 10 / 22

Регистрация: 23.09.2013

Сообщений: 145

03.03.2014, 23:14

2

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

var a,b,c:integer;
d:real;
begin
writeln('Введите внешний радиус');
readln(a);
writeln('Введите внутренний радиус');
readln(b);
d:=(a*a) - (b*b);
if d<0 then 
writeln('Некорректные данные')
else
writeln('площадь кольца равна ',d,'pi, где pi ~ 3.14');
readln
end.



0

Cyborg Drone

Модератор

9588 / 4908 / 3244

Регистрация: 17.08.2012

Сообщений: 15,334

03.03.2014, 23:26

3

dencil, есть константа pi… Так что

Pascal 
1

writeln('площадь кольца равна ', d * pi);



0

10 / 10 / 22

Регистрация: 23.09.2013

Сообщений: 145

03.03.2014, 23:28

4

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



0
Источник

Informatika-10-klass-Semakin ГДЗ § 23. Вспомогательные алгоритмы и подпрограммы

§ 23. Вспомогательные алгоритмы и подпрограммы ГДЗ по Информатике для 10 класса Семакин.

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

Ответ

Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 — r2 * r2)
Else
s := Pi * (r2 * r2 — r1 * r1);
WriteLn(‘Площадь кольца: ‘, s:5:2);
End;
Begin
Write(‘r1 = ‘);
ReadLn(r1);
Write(‘r2 = ‘);
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 — r2 * r2)
Else
result := Pi * (r2 * r2 — r1 * r1);
End;
Begin
Write(‘r1 = ‘);
ReadLn(r1);
Write(‘r2 = ‘);
ReadLn(r2);
WriteLn(‘Площадь кольца: ‘, S(r1, r2):5:2);
end.

Источник

Формулировка задачи:

Описать функцию RingS(R1,R2) вещественного типа, находящую площадь кольца заключенного между двумя окружностями с общим центром и радиусами R1 и R2(R1 и R2 – вещественные, R1>R2). С ее помощью найти площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой круга радиуса R:S=pi*(sqr(2)). В качестве значения pi использовать 3.14..
вот я начал делать помогите продолжить.. сложность заключается в том, что я не пойму что надо дальше делать 

program proc19;
var g,R1,R2,S:integer;
const p=3.14;
procedure RingS(R1,R2,S:integer);
begin
if R1>R2 then g:=R1-R2
else if R1<R2 then write('Radiusu zadanu nepravilno!');
S:=p*(sqr(g));
end;
begin
procedure RingS(R1,R2,S);
writeln('Ploshad kolca->');
readln(S);

Код к задаче: «Найти площадь кольца»

textual

Листинг программы 

function RingS( var R1,R2:real):real;
begin
ringS:=abs(pi*(sqr(r1)-sqr(r2)));
end;
var
rvnesh,rvnut:real;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('vvedite radiusy ',i,' kolca');
readln(rvnesh,rvnut);
writeln('ploshad ',i,' kolca=',ringS(rvnesh,rvnut):5:3);
end;
readln;
end.

Источник

Proc19. Описать функцию RingS($$R_1$$, $$R_2$$) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами $$R_1$$ и $$R_2$$ ($$R_1$$ и $$R_2$$ — вещественные, $$R_1 > R_2$$). С ее помощью найти площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса $$R$$: $$S = pi*R^2$$. В качестве значения $$pi$$ использовать 3.14.

Решение:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

program Proc19;

Function RingS(R1,R2:Real):Real;

begin

  RingS:=3.14*(sqr(R1)–sqr(R2))

end;

var

  R1,R2:Real;

  i:integer;

begin

for i:=1 to 3 do

  begin

   Write(‘R1 :’);

   Readln(R1);

   Write(‘R2 :’);

   Readln(R2);

   Writeln(RingS(R1,R2));

  end;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Источник
program inal;
uses crt;
var
 sx,sy,s,xrad,yrad:real;
begin
clrscr;
write('vvedite vneshny radius');
readln(xrad);
write('vvedite vnuyreny radius');
readln(yrad);
sx:=pi*xrad*xrad;
sy:=pi*yrad*yrad;
s:=sx-Sy;
write('ploshad kolca=',s);
readkey;
end.

Похожие записи/страницы:

  • Найти площадь кольца, внутренний радиус которого равен r, а внешний — R (R> r). R и r Вводятся с клавиатуры -…
  • Программа изображает планету, вращающуюся вокруг Солнца на фоне мерцающих звезд и расходящейся галактики -…
  • Через рекурсию вывести на экран н кружков, чтобы они располагались по спирали и с каждым разом увеличивались в диаметре…
  • Написать подпрограмму, которая вычисляет объем цилиндра. Параметрами функции должны быть радиус и высота цилиндра -…
  • Составить программу вычисления объема цилиндра и конуса, которые имеют одинаковую высоту Н и одинаковый радиус основания…
  • Создать программу для вычисления площади поверхности и объема цилиндра по принципу “ввод значений -> результат”-…
  • Найти площадь кругового кольца с заданным внешним r1 и внутренним r2 радиусами – Pascal(Паскаль)
  • В одномерных массивах Х и Y одинакового размера n хранятся координаты n точек плоскости. Определить минимальный радиус…
Источник

Добавить комментарий