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

Даны отрезки - a,b,c,d для какждой тройки этих отрезков, из которых можно построить треугольник, напечатать площадь данного треугольника. (используйте процедуру prints(x,y,z), печатающую площадь треугольника со сторонами x,y,z, если такой треугольник существует.)

👇
Ответ:
doggster
doggster
24.07.2021
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 uses crt; var a,b,c,d: real;   procedure Plo (s: string; x,y,z: real); var sq: real; begin if ((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0) then    begin    sq:=0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-z)));    writeln('Площадь треугольника со сторонами ',s,'=',sq:0:3);    end else writeln('Треугольник со сторонами ',s,' не существует'); end;   begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); Plo ('a,b,c',a,b,c); Plo ('a,b,d',a,b,d); Plo ('a,c,d',a,c,d); Plo ('b,c,d',b,c,d); end
4,5(25 оценок)
Открыть все ответы
Ответ:
karuna4
karuna4
24.07.2021
//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of integer;
  n, k2, k3, k4, k5, i: integer;
  r: real;

begin
  write('Сколько учеников?');
  readln(n);
  setlength(ar, n);
  writeln('Введите оценки:');
  for i := 0 to n - 1 do
  begin
    readln(ar[i]);
    case ar[i] of
      2: inc(k2);
      3: inc(k3);
      4: inc(k4);
      5: inc(k5);
    else
      writeln('Не оценка');
      exit;
    end;
  end;
  writeln('2:', k2);
  writeln('3:', k3);
  writeln('4:', k4);
  writeln('5:', k5);
  write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.

Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7
4,6(68 оценок)
Ответ:
nekitder
nekitder
24.07.2021

Конус – это тело, образованное совокупностью всех лучей, исходящих из точки и пересекающих плоскость.

Точка, из которой лучи исходят, получила название вершины конуса. В случае, когда основанием конуса является многоугольник, он превращается в пирамиду.

Рассмотрим некоторые важные понятия.

Образующей конуса называется отрезок, который соединяет любую точку границы основания конуса, с его вершиной.

Высотой конуса является перпендикуляр, который опущен из вершины к основанию тела.

Конус бывает нескольких типов:

Прямой, если его основание – одна из таких фигур, как эллипс или круг. Обязательным условием является проецирование вершины конуса в центр основания.

Косой – у него центр фигуры, которая находится в основании, не совпадает с проекцией вершины на это самое основание.

Круговой – отталкиваясь от названия, понятно, что в его основании лежит круг.

Усеченный – область конуса, лежащая между основанием и сечением плоскости, которая параллельна основанию и пересекает данный конус.

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