Задачи с алгоритмом

[Нубас]

Здраствуйте, надо решить задачки алгоритмом, с помощью блок-схем, помогите пожалуйста завтра надо сдать((
1.Даны три числа.Если они могут быть длинами сторон треугольника, определите его вид(прямоугольный, тупоугольный, остроугольный). Вычислите длины его медиан и напечатайте их в порядке убывания.
2.Пусть дано целое k, 1<или=k<или=180. Определить, какая цифра находиться в k-ой позиции последовательности, в которой подряд записаны все двузначные целые числа: 101112131415...9898.
Заранее спасибо.

[Stilet]

1.Даны три числа.Если они могут быть длинами сторон треугольника, определите его вид(прямоугольный, тупоугольный, остроугольный).
Вычислите длины его медиан

Могу предложить такое:

MODULE Треугольник;
IMPORT StdLog,Math;
VAR a,b,c:INTEGER;
 alfa,beta,gamma,Радиус:REAL;

PROCEDURE ТреугольникЛи():BOOLEAN;
BEGIN
 IF (a<(b+c))&(b<(c+a))&(c<(a+b)) THEN
   RETURN TRUE
 ELSE
   RETURN FALSE
 END;
END ТреугольникЛи;

PROCEDURE МедианаC(a,b,c:INTEGER):REAL;
VAR m:REAL;
BEGIN
 RETURN Math.Sqrt((2*a*a+2*b*b-c)/4);
END МедианаC;

PROCEDURE Медианы;
VAR m:REAL;
BEGIN 
 StdLog.Ln;
 StdLog.String('Медиана А=');
  StdLog.Tab;StdLog.Real(МедианаC(a,b,c));
  StdLog.Ln;

 StdLog.String('Медиана B=');
  StdLog.Tab;StdLog.Real(МедианаC(a,c,b));
  StdLog.Ln;

 StdLog.String('Медиана C=');
  StdLog.Tab;StdLog.Real(МедианаC(c,b,a));
  StdLog.Ln;

END Медианы;


PROCEDURE Тип;
VAR a,b,c:INTEGER;
BEGIN
a:=SHORT(ENTIER(alfa));
b:=SHORT(ENTIER(beta));
c:=SHORT(ENTIER(gamma));

 IF (a=90)OR(b=90)OR(c=90) THEN
  StdLog.String('Прямоугольный');
  RETURN;
 END; 

 IF (a>90)OR(b>90)OR(c>90) THEN
  StdLog.String('Тупой');
  RETURN;
 END; 

 IF (a<90)&(b<90)&(c<90) THEN
  StdLog.String('Острый');
  RETURN;
 END; 

END Тип;

PROCEDURE ПолучитьУглы;
VAR cosy,sina,cosb:REAL;
BEGIN
 cosy:=(a*a+b*b-c*c)/(2*a*b);
 gamma:=Math.ArcCos(cosy)*180/3.14; 
 Радиус:=c/Math.Sin(gamma)/2;
 sina:= 1/(2*Радиус/a);
 cosb:= 1/(2*Радиус/b);
 alfa:=Math.ArcSin(sina);
 beta:=Math.ArcSin(cosb);

 StdLog.String('Радиус = ');StdLog.Tab;
  StdLog.Real(Радиус);StdLog.Ln;
 StdLog.String('Альфа = ');StdLog.Tab;
  StdLog.Real(alfa);StdLog.Ln;
 StdLog.String('Бета = ');StdLog.Tab;
  StdLog.Real(beta);StdLog.Ln;
 StdLog.String('Гамма = ');StdLog.Tab;
  StdLog.Real(gamma);StdLog.Ln;
END ПолучитьУглы;

PROCEDURE Определить*();
BEGIN
 a:=3;
 b:=4;
 c:=5;
 StdLog.Clear;
 IF ТреугольникЛи() THEN
  StdLog.String('Это треугольник');StdLog.Ln;
  ПолучитьУглы();
  Тип;
  Медианы;
 ELSE
  StdLog.String('Это не треугольник');
 END; 
END Определить;


END Треугольник.
Треугольник.Определить;

[Niro]

Не понял тебе что блок-схема или программа всё-таки нужна? или и то и другое?

[Utkin]

Стилет, что за язык? За Аду взялся что-ли ?

[Stilet]

За Аду взялся что-ли

Неа. Ада устарела. Оберон рулит

[Нубас]

Сообщение от Stilet

Могу предложить такое:

MODULE Треугольник;
IMPORT StdLog,Math;
VAR a,b,c:INTEGER;
 alfa,beta,gamma,Радиус:REAL;

PROCEDURE ТреугольникЛи():BOOLEAN;
BEGIN
 IF (a<(b+c))&(b<(c+a))&(c<(a+b)) THEN
   RETURN TRUE
 ELSE
   RETURN FALSE
 END;
END ТреугольникЛи;

PROCEDURE МедианаC(a,b,c:INTEGER):REAL;
VAR m:REAL;
BEGIN
 RETURN Math.Sqrt((2*a*a+2*b*b-c)/4);
END МедианаC;

PROCEDURE Медианы;
VAR m:REAL;
BEGIN 
 StdLog.Ln;
 StdLog.String('Медиана А=');
  StdLog.Tab;StdLog.Real(МедианаC(a,b,c));
  StdLog.Ln;

 StdLog.String('Медиана B=');
  StdLog.Tab;StdLog.Real(МедианаC(a,c,b));
  StdLog.Ln;

 StdLog.String('Медиана C=');
  StdLog.Tab;StdLog.Real(МедианаC(c,b,a));
  StdLog.Ln;

END Медианы;


PROCEDURE Тип;
VAR a,b,c:INTEGER;
BEGIN
a:=SHORT(ENTIER(alfa));
b:=SHORT(ENTIER(beta));
c:=SHORT(ENTIER(gamma));

 IF (a=90)OR(b=90)OR(c=90) THEN
  StdLog.String('Прямоугольный');
  RETURN;
 END; 

 IF (a>90)OR(b>90)OR(c>90) THEN
  StdLog.String('Тупой');
  RETURN;
 END; 

 IF (a<90)&(b<90)&(c<90) THEN
  StdLog.String('Острый');
  RETURN;
 END; 

END Тип;

PROCEDURE ПолучитьУглы;
VAR cosy,sina,cosb:REAL;
BEGIN
 cosy:=(a*a+b*b-c*c)/(2*a*b);
 gamma:=Math.ArcCos(cosy)*180/3.14; 
 Радиус:=c/Math.Sin(gamma)/2;
 sina:= 1/(2*Радиус/a);
 cosb:= 1/(2*Радиус/b);
 alfa:=Math.ArcSin(sina);
 beta:=Math.ArcSin(cosb);

 StdLog.String('Радиус = ');StdLog.Tab;
  StdLog.Real(Радиус);StdLog.Ln;
 StdLog.String('Альфа = ');StdLog.Tab;
  StdLog.Real(alfa);StdLog.Ln;
 StdLog.String('Бета = ');StdLog.Tab;
  StdLog.Real(beta);StdLog.Ln;
 StdLog.String('Гамма = ');StdLog.Tab;
  StdLog.Real(gamma);StdLog.Ln;
END ПолучитьУглы;

PROCEDURE Определить*();
BEGIN
 a:=3;
 b:=4;
 c:=5;
 StdLog.Clear;
 IF ТреугольникЛи() THEN
  StdLog.String('Это треугольник');StdLog.Ln;
  ПолучитьУглы();
  Тип;
  Медианы;
 ELSE
  StdLog.String('Это не треугольник');
 END; 
END Определить;


END Треугольник.
Треугольник.Определить;

Спасибо за ответ, но мне нужно не программу а саму блок-схему, вот пример

[Niro]

На паскаля, но код не проверял

var s:string;
r,ch,k:integer;
begin
r:=round(k/2);
ch:=10+r-1;
str(ch,s) 
if s mod 2=0 then writeln(copy(s,2,1)) else writeln(copy(s,1,1))
end.

[Stilet]

Пожалуйста, но в следующий раз учти: Фраза "решить задачки алгоритмом" - подразумевает все что угодно. Программа сама представляет алгоритм, а блок-схема - это очковтирательство для преподавателей.
Так что выражайся яснее на будущее.

[Virtson]

Сообщение от Stilet

Неа. Ада устарела. Оберон рулит

Верно. Всё собираюсь его в деле попробовать ..
BlackBox ?

[Stilet]

BlackBox ?

Ага. XDS чет не получилось поставить. А Блэкбокс класная штука - рекомендую всем кто любит делать все своими руками с нуля