0 / 0 / 0
Регистрация: 01.12.2014
Сообщений: 16
1

линейные программы

25.05.2015, 19:31. Показов 1404. Ответов 1
Метки нет (Все метки)

Найти плоскость кольца с внутренным и наружным радиусами используя формулу S= (R2-R1).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2015, 19:31
Ответы с готовыми решениями:

Нуждаюсь в написании программы. Линейные списки
Сформировать односвязный список из 7 записей, вывести список, удалить записи, удовлетворяющие...

Линейные списки
Пожалуйста помогите, не могу никак сделать. Завтра защита, просто не успеваю разобраться( ...

Линейные задачи
Турист за день прошёл А киллометров, до обеда он шёл t1 часов, он прошёл 20км,после обеда он прошёл...

Линейные алгоритмы
\nu...

1
2312 / 1512 / 700
Регистрация: 23.03.2015
Сообщений: 4,821
27.05.2015, 13:26 2
Лучший ответ Сообщение было отмечено renata2058 как решение

Решение

renata2058,

Может не
Цитата Сообщение от renata2058 Посмотреть сообщение
плоскость кольца
, а площадь..?

Добавлено через 9 минут
Цитата Сообщение от renata2058 Посмотреть сообщение
формулу S= (R2-R1).
Заменить на
https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\pi ({{R}_{2}}^{2}-{{R}_{1}}^{2})

Добавлено через 26 минут
Вот код для площади кольца:
Edit1-Внутренний радиус
Edit2-Внешний радиус
В "Uses"добавьте "Math"

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
32
33
34
35
36
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,math;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
R1,R2,S:Real;
begin
 R1:=StrTofloat(Edit1.text);
 R2:=StrTofloat(Edit2.text);
 S:=pi*(sqr(R2)-Sqr(R1));
 ShowMessage('Площадь кольца равна '+ FloatToStr(RoundTo(S,-2)));
end;
Удачи....
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2015, 13:26
Помогаю со студенческими работами здесь

Линейные динамические структуры
Построить стек, элементы которого русские слова фиксированной длины. Подсчитать число совпадающих...

Линейные списки (Входимость)
Доброго времени суток. Прошу помощи вот с такой задачкой: Даны линейные списки А и В, состоящие...

Линейные программы.
Помогите с написанием кода : Написать программу для расчета по двум формулам:...

Линейные программы
4. Система из двух параллельных сопротивлений R1 и R2 соединена последовательно с сопротивлением...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru