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

)) 1. составьте алгоритм, определяющий является ли треугольник прямоугольным, если заданы три стороны. алгоритм должен так же определять периметр треугольника, если он не является прямоугольным, и площадь фигуры, если это прямоугольный треугольник. 2. нарисуйте блок-схему составленного алгоритма.

👇
Ответ:
nastyaborisova13
nastyaborisova13
04.04.2020
Program Project1;
const
  eps = 1e-10;
var
  a:array [1..3] of Real;
  i: integer;
  max: Real;
  max_i: integer;
  sqr_h: Real;
  sqr_k: Real;
  sp: Real;
begin
  Write('Введите длину сторон треугольника: ');
  Readln(a[1],a[2],a[3]);
  max:=a[1];
  max_i:=1;
  for i := 2 to 3 do
    if a[i]>max then
    begin
      max:=a[i];
      max_i:=i;
    end;
  sqr_k := 0;
  for i:=1 to 3 do
    if i<>max_i then
      sqr_k:=sqr_k+sqr(a[i]);
  sqr_h:=Sqr(max);
  if (Abs(sqr_k-sqr_h)<eps) then
  begin
    Writeln('Треугольник прямоугольный');
    sp:=1;
    for I := 1 to 3 do
      if i<>max_i then
        sp:=sp*a[i];
   sp:=sp/2;
    Writeln('Площадь треугольника = ',sp:0:5);
  end
  else
  begin
    Writeln('Треугольник не прямоугольный');
    sp:=0;
    for I := 1 to 3 do
      sp:=sp+a[i];  
    Writeln('Периметр треугольника = ',sp:0:5);
  end;
  Readln;
end.

)) 1. составьте алгоритм, определяющий является ли треугольник прямоугольным, если заданы три сторон
4,8(73 оценок)
Открыть все ответы
Ответ:
LianessaAngel2
LianessaAngel2
04.04.2020
Одно из решений, возможно, не самое эффективное
#include <iostream>
#include <iomanip>
int main()
{
    using namespace std;

    //исходная последовательность
    const int N = 8;
    double Arr[N] = { 14.2, -3.4, 7.8, -3.1, 8.2, 98.22, -7, 12 };

    //вывод на экран исходной последовательности
    for (int i = 0; i < N; ++i)
        cout << Arr[i] << "  ";
    cout << endl;

    //подсчитаем количества отрицательных и неотрицательных элементов
    int kpos = 0;
    int kneg = 0;
    for (int i = 0; i < N; ++i)
        if (Arr[i] < 0)
            ++kneg;
        else
            ++kpos;

    //создадим массивы отрицательных и неотрицательных элементов
    double * ArrNeg = new double[kneg];
    double * ArrPos = new double[kpos];

    int kn = 0, kp = 0;
    for (int i = 0; i < N; i++)
        if (Arr[i] < 0)
            ArrNeg[kn++] = Arr[i];
        else
            ArrPos[kp++] = Arr[i];

    cout << "Enter a, b, c or d: ";
    char ch;
    cin >> ch;

    if (ch == 'a' || ch == 'b' || ch == 'c' || ch == 'd')
    {
        switch (ch)
        {
            //пункт а)
            case 'a':
                for (int i = 0; i < kneg; ++i)
                    Arr[i] = ArrNeg[i];
                for (int i = 0; i < kpos; ++i)
                    Arr[i + kneg] = ArrPos[i];
                break;

                //пункт б)
            case 'b':
                for (int i = 0; i < kneg; ++i)
                    Arr[i] = ArrNeg[--kn];
                for (int i = 0; i < kpos; ++i)
                    Arr[i + kneg] = ArrPos[i];
                break;

                //пункт в)
            case 'c':
                for (int i = 0; i < kneg; ++i)
                    Arr[i] = ArrNeg[i];
                for (int i = 0; i < kpos; ++i)
                    Arr[i + kneg] = ArrPos[--kp];
                break;

                //пункт г)
            case 'd':
                for (int i = 0; i < kneg; ++i)
                    Arr[i] = ArrNeg[--kn];
                for (int i = 0; i < kpos; ++i)
                    Arr[i + kneg] = ArrPos[--kp];
                break;
        }
    }
    else
        cout << "You entered wrong symbol\n";

    for (int i = 0; i < N; ++i)
        cout << Arr[i] << "  ";
    cout << endl;
    delete[] ArrNeg;
    delete[] ArrPos;
    return 0;
}
4,8(77 оценок)
Ответ:
Mileshka141
Mileshka141
04.04.2020
Сын князя ярослава всеволодовича, внук великого князя владимирского всеволода iii большое гнездо. правил в переяславле (ныне переславль-залесский), а также неоднократно занимал княжеский престол великого новгорода.в 1235 г. александр был при отце во время битвы на реке амовже (эмбах), где рать разгромила рыцарей ордена меченосцев. 15 июля 1240 г. он одержал свою первую победу, в честь которой и получил прозвание невский: на реке ижоре, в неву, разбил шведов. вскоре после этого новгородцы принудили александра оставить княжение в их городе и удалиться в отчий переяславль. однако через несколько месяцев на северные земли напали рыцари из ливонии; их благословил сам папа римский. был захвачен изборск, затем псков. новгородцы оказались вынуждены обратиться к александру за . в начале 1242 г. исход войны великого новгорода и тевтонского ордена определился. александру удалось освободить псков, где, по сведениям ливонской хроники, погибли 70 знатных рыцарей, а 6 взяты в плен. затем князь повёл войска к чудскому озеру. 5 апреля на льду состоялось решающее сражение, вошедшее в как ледовое побоище. сознательно позволив немцам, использовавшим традиционное для рыцарского воинства того времени построение клином — свиньёй, потеснить пехоту в центре, александр фланговыми ударами дружинной конницывзял противника в кольцо и наголову его разгромил.в 1246 г. в далёкой монголии умер отец александра ярослав всеволодович, пребывавший тогда при дворе великого хана монголов гуюкхана. печальная весть достигла сыновей лишь через год. теперь в монголию пришлось отправиться александру с братом андреем. результатом двухлетнего путешествия (1247—1249 гг.) стало владимирского княжения андрею, а киева — александру, куда, впрочем, он так и не поехал, оставшись в новгороде.андрей, войдя в союз со своим тестем — галицким и волынским князем даниилом галицким, которого готовы были поддержать литва, польша, венгрия, тевтонский орден и папа иннокентий, попытался создать коалицию против золотой орды. однако грандиозный план был пресечён монголами, в 1252 г. обрушившими на русь так называемую неврюеву рать (по имени ордынского царевича неврюя, возглавившего поход).поражение андрея и его бегство за рубеж, в швецию, открыли александру путь к великокняжескому престолу. в соответствии с ханским ярлыком в 1252 г. он стал великим князем владимирским. последнюю поездку в золотую орду александр предпринял, чтобы спасти города от ордынского погрома, после того как в 1261—1262 гг. во владимире, суздале, ростове, ярославле, переяславле жители перебили ордынских сборщиков дани.возвращаясь из орды, князь заболел и 14 ноября 1263 г. скончался в городце близ нижнего новгорода, приняв перед смертью схиму. похоронен в храме рождества богородицы во владимире.
4,7(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ