Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 23.12.2008, 20:35   #1
АццКи ПроГрамМист
Новичок
Джуниор
 
Регистрация: 23.12.2008
Сообщений: 1
По умолчанию Элементы равностороннего треугольника пронумерованы следующим образом:

Элементы равностороннего треугольника пронумерованы следующим образом: 1 — сторона (a), 2 — радиус вписанной окружности (R1), 3 — радиус описанной окружности (R2), 4 — площадь (S). Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке).

Таврисчи памагите она простая вроде бы но не для меня.
АццКи ПроГрамМист вне форума Ответить с цитированием
Старый 23.12.2008, 22:00   #2
Vigour
 
Регистрация: 23.12.2008
Сообщений: 5
По умолчанию

Вот мой вариант програмы
Program triangle;
uses crt;
var a,R1,R2,S : real;
n : integer;
begin
clrscr;
readln(n);
if n=1 then
begin
readln(a);
S:=(a*a*sqrt(3))/2;
R2:=a/sqrt(3);
R1:=R2/2;
end;
if n=2 then
begin
readln(R1);
R2:=R1*2;
a:=R2*sqrt(3);
S:=(a*a*sqrt(3))/2
end;
if n=3 then
begin
readln(R2);
R1:=R2/2;
a:=R2*sqrt(3);
S:=(a*a*sqrt(3))/2;
end;
if n=4 then
begin
readln(S);
a:=sqrt((2*S)/sqrt(3));
R2:=a/sqrt(3);
R1:=R2/2;
end;
Writeln(a,' ',R1,' ',R2,' ',S);
end.

Все формулы можна посмотреть здесь
http://ru.wikipedia.org/wiki/Треугольник
Vigour вне форума Ответить с цитированием
Старый 23.12.2008, 22:13   #3
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,056
По умолчанию

N: integer; //номер
z: double; //значение величины

case N of
//здесь должны быть формулы вычисления стороны по
1: a:=CalcA(z); //стороне
2: a:=CalcR1(z); //радиусу описанной
3: a:=calcR2(z); //радиусу вписанной
4: a:=calcS(z); //площади
else //неправильные данные
end;

//а здесь по стороне вычисляем
a:=ACalc(a); //сторону
R1:=R1Calc(a); //радиус описанной
R2:=R2Calc(a); //радиус вписанной
S:=R1Calc(a); // площадь

//для формул есть учебник геометрии
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выделить цветом и подсчитать число слов,удовлетворяющих следующим условиям FANDREY21 Паскаль, Turbo Pascal, PascalABC.NET 2 02.02.2009 19:06
Заполнить массив A следующим образом: 0 0 0 …0 Григорийpnz Паскаль, Turbo Pascal, PascalABC.NET 7 18.11.2008 21:07
Любому стихотворению можно поставить в соответствие его схему по следующим правилам. Васька Паскаль, Turbo Pascal, PascalABC.NET 3 16.11.2008 22:11
Каким образом скопировать файл? Kashp Общие вопросы Delphi 14 07.08.2007 10:44
дайте инфу по следующим Api-функциям: Holly1444 Win Api 1 20.11.2006 20:19


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS