М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
pozdniakova1998
pozdniakova1998
24.11.2020 02:37 •  Информатика

Дана сторона равностороннего треугольника. найдите площадь этого треугольника, его высоты, радиусы, вписанной и описанной окружности. паскаль!

👇
Ответ:
ksuynya2007
ksuynya2007
24.11.2020

Равносторонний треугольник - это треугольник, у которого все стороны равны. Равны также и его высоты.

Нужно знать формулы из математики:

h = a√3/2, S = a²√3/4, r = a√3/6, R = a√3/3.

Вот программа (в Паскале не различают прописные и строчные бувы, поэтому радиус вписанной окружности обозначим как r1):

var a,s,h,r1,R:real;

begin

write('a=');readln(a);

s:=a*a*sqrt(3)/4;

h:=a*sqrt(3)/2;

r1:=a*sqrt(3)/6;

R:=a*sqrt(3)/3;

writeln('S=',s:3:2,' h=',h:3:2,' r=',r1:3:2,' R=',R:3:2);

end.

4,6(56 оценок)
Ответ:
titsdeil
titsdeil
24.11.2020

var

 a: real;

 S, h, ri, re: real;

begin

 Write('a='); readln(a);

 S := sqr(a) * sqrt(3) / 4;

 h := a * sqrt(3) / 2;

 ri := a * sqrt(3) / 6;

 re := a * sqrt(3) / 3;

 Writeln('S=', S:0:2);

 Writeln('h=', h:0:2);

 Writeln('r=', ri:0:2);

 Writeln('R=', re:0:2);

end.

4,8(81 оценок)
Открыть все ответы
Ответ:
nlikachev
nlikachev
24.11.2020
Procedure sovp;
var
  i, j, r, c: byte;
  ar: array[1..10, 1..10]of byte;
  s: array[1..4] of string;
  b: boolean;
label l1;
 begin
  r := random(2, 3);
  l1:
  c := 1;
  b := false;
  for i := 1 to 10 do
    for j := 1 to 10 do
    begin
    ar[i, j] := random(0, 1);
    if(i < 5) then s[i] := '';
    end;
     for i := 1 to 9 do
      begin
       for j := 1 to 10 do
       begin
        if(ar[i, j] <> ar[i + 1, j]) then b := true;
       end;
      if(b = false) then
     begin
      s[c] := i + ' строка совпалает с ' + (i + 1) + ' строкой';
      c := c + 1;
     end;
    b := false;
  end;
 if(c <> r) then goto l1
  else
  begin
    for var k := 1 to c do if(k<>c)then writeln(s[k]);
    for i := 1 to 10 do
    begin
      for j := 1 to 10 do write(ar[i, j], ' ');
        writeln;
    end;
  end;
   end;
 begin
  sovp;
end. 
4,6(34 оценок)
Ответ:
UlyanaAleks
UlyanaAleks
24.11.2020

Текстовый редактор Microsoft Word предназначен для набора текста с клавиатуры, а также редактирования, копирования, создания таблиц, одним словом для того, чтобы созданный Вами документ выглядел максимально привлекательно, стильно и информативно. С вы можете составить такие документы как:

оформить курсовую или дипломную работу;

составить резюме кандидата на должность;

напечатать заявление о приеме на работу;

подготовить многомиллионный договор на поставку товара;

сочинить и отредактировать для печати целый роман.

Другими словами, текстовый редактор Microsoft Word, будет полезен абсолютно любому пользователю компьютера, который так или иначе связан с текстовыми документами.

4,7(91 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ