Вывести значения элементов треугольника

@Павел777 · Регистрация: 03.06.2011

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

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

@ArtemTyapkin · 03.06.2011, 17:49

По подробней

@Павел777 · 04.06.2011, 10:16 **[ТС]**

R1=a*(квадратный корень из 3 )/6
R2=2*R1
S= (a в квадрате)*(квадратный корень из 3)/4

Добавлено через 16 часов 20 минут
Program tr;
var R1,R2,S:real;
a: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))/4;
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= ',f:7:3,' R1= ',f:7:3,' R2= ',' S= 'f:7:3);
end.

ЛЮДИ В ЧЕМ КОСЯК?ПОДСКАЖИТЕ

@ArtemTyapkin · 04.06.2011, 10:31

1- ты не паписал в var переменную n
2- ты ставишь после begin " ; " что делать ненужно
3- что такое clrscr

Добавлено через 6 минут
Посмотри может ерунду написал исправил много ошибок вот что получилось , если что сильно не ругайся )))
Program tr;
var R1,R2,S,b,a,f:real;
n:integer;
begin
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;
b:=sqrt(3);
a:=R2* b;
S:=(a*a*sqrt(3))/4;
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= ',a,' R1= ',R1,' R2= ',R2,' S= ',S);
end.

@Павел777 · 04.06.2011, 10:35 **[ТС]**

замечания исправил.
clrscr- не знаю. скачал в нете набросок

Добавлено через 3 минуты
почемуто не пишет на пример "введите сторону" вдите радиус"....а сразу числа вводить приходиться в ввод данных не зная что вводиш. а так норм)

@ArtemTyapkin · 04.06.2011, 10:39

программа работает???

Добавлено через 38 секунд
сейчас напишу чтоб он говорил про радиус

@Павел777 · 04.06.2011, 10:40 **[ТС]**

Тема! а мож сразу с кейсом сделать?

@majesty1992 · 04.06.2011, 10:46

clrscr -очищение экрана.
чтобы она работала нужно подключить библиотеку crt, написав uses crt;

@ArtemTyapkin · 04.06.2011, 10:52

Program tr;
var R1,R2,S,b,a,f:real;
n:integer;
begin
writeln('Введите номер Элемента');
readln(n);
if n=1 then
begin
writeln(' Чему равна сторона ');
readln(a);
S:=(a*a*sqrt(3))/2;
R2:=a*sqrt(3);
R1:=R2/2;
end;
if n=2 then
begin
writeln('Чему равен радиус вписанной окружности');
readln(R1);
R2:=R1*2;
b:=sqrt(3);
a:=R2* b;
S:=(a*a*sqrt(3))/4;
end;
if n=3 then
begin
writeln('Чему равен радиус описанной окружности ');
readln(R2);
R1:=R2/2;
a:=R2*sqrt(3);
S:=(a*a*sqrt(3))/2;
end;
if n=4 then
begin
Writeln('Чему равна площадь ');
readln(S);
a:=sqrt((2*S)/sqrt(3));
R2:=a/sqrt(3);
R1:=R2/2
end;
writeln(' сторона = ',a,' радиус вписанной окружности =',R1,' радиус описанной окружности' , R2 ,' площадь ',S);
end.

Добавлено через 5 минут

Сообщение от Павел777

Тема! а мож сразу с кейсом сделать?

Смысли

@Павел777 · 04.06.2011, 10:53 **[ТС]**

Тема от души реально! Все чичетко. А мож эту самую ж ток (case) кейсом сделать? вообще те не реально благодарен буду!

@ArtemTyapkin · 04.06.2011, 10:56

Я подумаю , но не обещаю что сделаю

@Павел777 · 04.06.2011, 10:58 **[ТС]**

вот она задача только не рабочая((

@ArtemTyapkin · 04.06.2011, 11:01

Нет не смогу извени мы еще это в школе не проходили

@Павел777 · 04.06.2011, 11:01 **[ТС]**

Pascal

Program tr;
Uses
 CRT;
var R1,R2,S,a:real;
n:integer;
begin;
clrscr;
readln(n);
Case n of
 1:begin;
    readln(a);
    S:=(a*a*sqrt(3))/2;
    R2:=a*sqrt(3);
    R1:=R2/2;
   end;
 2:begin
    readln(R1);
    R2:=R1*2;
    a:=R2*sqrt(3);
    S:=(a*a*sqrt(3))/4;
   end;
 3:begin
    readln(R2);
    R1:=R2/2;
    a:=R2*sqrt(3);
    S:=(a*a*sqrt(3))/2;
   end;
 4:begin
    readln(S);
    a:=sqrt((2*S)/sqrt(3));
    R2:=a/sqrt(3);
    R1:=R2/2
   end;
end;
writeln(' a=',a:7:3,' R1=',r1:7:3,' R2=',R2,' S=',S:7:3);
end.

о Тема вот рабочая только опять не видиш че пишеш ))Можеш исправить?

@ArtemTyapkin · 04.06.2011, 11:05

чтоб он спрашивал чтоль

@Павел777 · 04.06.2011, 11:06 **[ТС]**

да да))

@ArtemTyapkin · 04.06.2011, 11:11

щас будет

Добавлено через 14 секунд

Pascal

Program tr;
Uses
 CRT;
var R1,R2,S,a:real;
n:integer;
begin;
clrscr;
writeln('Введите номер элемента');
readln(n);
Case n of
 1:begin;
  writeln('Введите Сторону');
    readln(a);
    S:=(a*a*sqrt(3))/2;
    R2:=a*sqrt(3);
    R1:=R2/2;
   end;
 2:begin
 writeln('Введите радиус вписанной окружности');
    readln(R1);
    R2:=R1*2;
    a:=R2*sqrt(3);
    S:=(a*a*sqrt(3))/4;
   end;
 3:begin
 writeln('Введите радиус описанной окружности');
    readln(R2);
    R1:=R2/2;
    a:=R2*sqrt(3);
    S:=(a*a*sqrt(3))/2;
   end;
 4:begin
 writeln('Введите площадь');
    readln(S);
    a:=sqrt((2*S)/sqrt(3));
    R2:=a/sqrt(3);
    R1:=R2/2
   end;
end;
writeln(' a=',a:7:3,' R1=',r1:7:3,' R2=',R2,' S=',S:7:3);
end.

@Павел777 · 04.06.2011, 11:15 **[ТС]**

Ну Тема МОЛОДЧАГА От души)))Спасибо громаднейшее!!

@ArtemTyapkin · 04.06.2011, 11:27

Незачто

@ArtemTyapkin 20 / 20 / 3 Регистрация: 14.05.2011 Сообщений: 47
	04.06.2011, 11:01	13
	Нет не смогу извени мы еще это в школе не проходили 1

@Павел777 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 17
	04.06.2011, 11:15 [ТС]	18
	Ну Тема МОЛОДЧАГА От души)))Спасибо громаднейшее!! 0

@Павел777 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 17
		1
	Вывести значения элементов треугольника 03.06.2011, 17:37. Показов 1552. Ответов 18 Метки нет (Все метки) Элементы равностороннего треугольника пронумерованы следующим образом: 1 — сторона (a), 2 — радиус вписанной окружности (R1), R1=asqrt(3)/6 ) 3 под корнем* 3 — радиус описанной окружности (R2), R2 = 2•R1 4 — площадь (S) S = aasqrt(3) /4 а в квадрате, 3 под корнем Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке). 0

@ArtemTyapkin 20 / 20 / 3 Регистрация: 14.05.2011 Сообщений: 47
	03.06.2011, 17:49	2
	По подробней 1

@Павел777 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 17
	04.06.2011, 10:16 [ТС]	3
	R1=a(квадратный корень из 3 )/6 R2=2R1 S= (a в квадрате)(квадратный корень из 3)/4 Добавлено через 16 часов 20 минут* Program tr; var R1,R2,S:real; a:integer; begin; clrscr; readln(n); if n=1 then begin; readln(a); S:=(aasqrt(3))/2; R2:=asqrt(3); R1:=R2/2; end; if n=2 then; begin readln(R1); R2:=R12; a:=R2sqrt(3); S:=(aasqrt(3))/4; end; if n=3 then; begin readln(R2); R1:=R2/2; a:=R2sqrt(3); S:=(aasqrt(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= ',f:7:3,' R1= ',f:7:3,' R2= ',' S= 'f:7:3); end. ЛЮДИ В ЧЕМ КОСЯК?ПОДСКАЖИТЕ 0

@ArtemTyapkin 20 / 20 / 3 Регистрация: 14.05.2011 Сообщений: 47
	04.06.2011, 10:31	4
	1- ты не паписал в var переменную n 2- ты ставишь после begin " ; " что делать ненужно 3- что такое clrscr Добавлено через 6 минут Посмотри может ерунду написал исправил много ошибок вот что получилось , если что сильно не ругайся ))) Program tr; var R1,R2,S,b,a,f:real; n:integer; begin readln(n); if n=1 then begin readln(a); S:=(aasqrt(3))/2; R2:=asqrt(3); R1:=R2/2; end; if n=2 then; begin readln(R1); R2:=R12; b:=sqrt(3); a:=R2* b; S:=(aasqrt(3))/4; end; if n=3 then; begin readln(R2); R1:=R2/2; a:=R2sqrt(3); S:=(aasqrt(3))/2; end; if n=4 then; begin readln(S); a:=sqrt((2S)/sqrt(3)); R2:=a/sqrt(3); R1:=R2/2 end; writeln(' a= ',a,' R1= ',R1,' R2= ',R2,' S= ',S); end. 1

@Павел777 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 17
	04.06.2011, 10:35 [ТС]	5
	замечания исправил. clrscr- не знаю. скачал в нете набросок Добавлено через 3 минуты почемуто не пишет на пример "введите сторону" вдите радиус"....а сразу числа вводить приходиться в ввод данных не зная что вводиш. а так норм) 0

@ArtemTyapkin 20 / 20 / 3 Регистрация: 14.05.2011 Сообщений: 47
	04.06.2011, 10:39	6
	программа работает??? Добавлено через 38 секунд сейчас напишу чтоб он говорил про радиус 1

@Павел777 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 17
	04.06.2011, 10:40 [ТС]	7
	Тема! а мож сразу с кейсом сделать? 0

@majesty1992 40 / 13 / 8 Регистрация: 15.12.2009 Сообщений: 70
	04.06.2011, 10:46	8
	clrscr -очищение экрана. чтобы она работала нужно подключить библиотеку crt, написав uses crt; 0

@ArtemTyapkin 20 / 20 / 3 Регистрация: 14.05.2011 Сообщений: 47
	04.06.2011, 10:52	9
	Program tr; var R1,R2,S,b,a,f:real; n:integer; begin writeln('Введите номер Элемента'); readln(n); if n=1 then begin writeln(' Чему равна сторона '); readln(a); S:=(aasqrt(3))/2; R2:=asqrt(3); R1:=R2/2; end; if n=2 then begin writeln('Чему равен радиус вписанной окружности'); readln(R1); R2:=R12; b:=sqrt(3); a:=R2* b; S:=(aasqrt(3))/4; end; if n=3 then begin writeln('Чему равен радиус описанной окружности '); readln(R2); R1:=R2/2; a:=R2sqrt(3); S:=(aasqrt(3))/2; end; if n=4 then begin Writeln('Чему равна площадь '); readln(S); a:=sqrt((2S)/sqrt(3)); R2:=a/sqrt(3); R1:=R2/2 end; writeln(' сторона = ',a,' радиус вписанной окружности =',R1,' радиус описанной окружности' , R2 ,' площадь ',S); end. Добавлено через 5 минут Сообщение от Павел777 Тема! а мож сразу с кейсом сделать? Смысли 1

@Павел777 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 17
	04.06.2011, 10:53 [ТС]	10
	Тема от души реально! Все чичетко. А мож эту самую ж ток (case) кейсом сделать? вообще те не реально благодарен буду! 0

	04.06.2011, 11:27

@ArtemTyapkin 20 / 20 / 3 Регистрация: 14.05.2011 Сообщений: 47
	04.06.2011, 10:56	11
	Я подумаю , но не обещаю что сделаю 1

@ArtemTyapkin 20 / 20 / 3 Регистрация: 14.05.2011 Сообщений: 47
	04.06.2011, 11:05	15
	чтоб он спрашивал чтоль 1

@Павел777 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 17
	04.06.2011, 11:06 [ТС]	16
	да да)) 0

@ArtemTyapkin 20 / 20 / 3 Регистрация: 14.05.2011 Сообщений: 47
	04.06.2011, 11:27	19
	Незачто 1