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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

Вот мой вариант програмы
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, 23:13   #3
evg_m
Профессионал
 
Регистрация: 20.04.2008
Сообщений: 4,929
Репутация: 2242
По умолчанию

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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


07:10.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.