В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
mrwiner
mrwiner
27.06.2020 00:00 •  Информатика

Исполнитель чертёжник пе ре ме ща ет ся на ко ор ди нат ной плоскости, остав ляя след в виде линии. чертёжник может вы пол нять ко ман ду сместиться на (a, b) (где a, b – целые числа), пе ре ме ща ю щую чертёжника из точки с ко ор ди на та ми (x, y), в точку с ко ор ди на та ми (x+a, y+b). если числа a, b положительные, зна че ние со от вет ству ю щей ко ор ди на ты увеличивается, если от ри ца тель ные — уменьшается. например, если чертёжник на хо дит ся в точке с ко ор ди на та ми (1, 1), то ко ман да сместиться на (–2, 4) пе ре ме стит его в точку (–1, 5). запись повтори k раз команда1 команда2 команда3 конец означает, что по сле до ва тель ность ко манд команда1 команда2 команда3 по вто рит ся k раз. чертёжнику был дан для ис пол не ния сле ду ю щий алгоритм: сместиться на (–3, 1) повтори 2 раз сместиться на (1, 1) сме стить ся на (−3, 2) сме стить ся на (0, −4) конец какую един ствен ную ко ман ду надо вы пол нить чертёжнику, чтобы вер нуть ся в ис ход ную точку, из ко то рой он начал движение? 1) сместиться на (–7,–1) 2) сместиться на (7, 1) 3) сместиться на (–4,–2) 4) сместиться на (4, 2)

Показать ответ
Ответ:
egorovaesya
egorovaesya
19.09.2021 18:18
Function Square(x1, y1, x2, y2, x3, y3: real): real;
begin 
    Square := abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2;
end;

var 
  x1, y1, x2, y2, x3, y3, s1, s2: real;

begin 
  write('Задайте первый треугольник(x1,y1,x2,y2,x3,y3): '); 
  readln(x1, y1, x2, y2, x3, y3); 
  s1 := Square(x1, y1, x2, y2, x3, y3); 
  write('Задайте второй треугольник(x1,y1,x2,y2,x3,y3): '); 
  readln(x1, y1, x2, y2, x3, y3); 
  s2 := Square(x1, y1, x2, y2, x3, y3); 
  if s1 > s2 then writeln('Площадь первого треугольника больше') 
  else if s1 < s2 then writeln('Площадь второго треугольника больше') 
  else writeln('Площади треугольников равны');
end.

p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.
0,0(0 оценок)
Ответ:
MrKepka
MrKepka
19.10.2021 17:53
В C++
#include <iostream>
int main()
{
    using namespace std;

    const int n = 6;
    double arr[n];

    for (int i = 0; i < n; ++i)
    {
        cout << "Enter #" << i + 1 << " element: ";
        cin >> arr[i];
    }

    for (int i = 0; i < n; ++i)
        cout << arr[i] << "   ";
    cout << endl;

    double p = 1.0;
    bool flag = false;
    for (int i = 0; i < n; ++i)
        if (arr[i] < 0)
        {
            p = p * arr[i];
            flag = true;
        }
   
    if (!flag)
        p = 0.0;
   
    cout << "Multiplication of negative: " << p << endl;

    int imax = 0;
    for (int i = 1; i < n; ++i)
        if (arr[i] > arr[imax])
            imax = i;

    double s = 0;
    for (int i = 0; i < imax; i++)
        if (arr[i] > 0)
            s += arr[i];

    cout << "Sum of positive before max: " << s << endl;

    double temp;
    for (int i = 0, m = n - 1; i < n / 2; ++i, --m)
    {
        temp = arr[i];
        arr[i] = arr[m];
        arr[m] = temp;
    }

    for (int i = 0; i < n; ++i)
        cout << arr[i] << "   ";
    cout << endl;
    return 0;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота