nastushkaplushka
02.10.2020 10:22

Решить функцию в паскаль. Заранее благодарю.


Решить функцию в паскаль. Заранее благодарю.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Абдулjazair
15.05.2023 05:20

Смотри файл

Объяснение:

1) Вбиваем в ячейку вид формулы. F(x) = 2x² - 4x³

2) Вбиваем в соседние ячейки под ней x и y.

3) Вбиваем в ячейку под x первоначальное значение x. 0

4) Вбиваем в ячейку под первоначальным значением x, второе значение x. 0,1

5) Выделяем ячейки с под первоначальным значением x и вторым значением x и растягиваем вниз за правый нижний уголок (автозаполнение) до конечного значения x.

6) Вбиваем в ячейку под y формулу. =2*A3^2 - 4 * A3^3

7) Выделяем ячейку с формулой и растягиваем вниз за правый нижний уголок (копирование) до конечного значения x.

8) Выравниваем расположение x и y по левому краю (выделить ячейки - Главная - Выравнивание - Выровнять по левому краю).

9) Задаем количество знаков после запятой для y (выделить ячейки - Главная - Число - Увеличить или Уменьшить разрядность).

10) Повторяем действия для остальных формул.

11) Вставляем график (выделяем таблицу для б) (кроме верхней ячейки, где записан вид формулы) - Вставка -Диаграммы - Точечная - Точечная с гладкими кривыми и маркерами)

12) переименовываем лист (щёлкнуть правой кнопкой мышки внизу на названии листа и выбрать Переименовать)

0,0(0 оценок)
Ответ:
влад2305
23.09.2020 21:06

pascal

Объяснение:

var

 a, b, c: real;

 rel: boolean;

begin

 Write('Введите стороны треугольника через пробел: ');

 ReadLn(a, b, c);

 if (a + b > c) and (a + c > b) and (b + c > a)

    and (a > 0) and (b > 0) and (c > 0) then

     begin

       WriteLn('Треугольник с указанными сторонами существует.');

       if (a + b + c) / 3 = a then

         begin

           WriteLn('Треугольник является равносторонним.');

           rel := true;

         end

         else if ((a + b) / 2 = a) or ((b + c) / 2 = b) or ((a + c) / 2 = a) then

         begin  

           WriteLn('Треугольник является равнобедренным.');

           rel := true;

         end;

       if (a*a + b*b = c*c) or (a*a + c*c = b*b) or (b*b + c*c = a*a) then

         begin

           WriteLn('Треугольник является прямоугольным.');      

           rel := true;

         end;

       if not(rel) then WriteLn('Треугольник является произвольным.');

    end

   else

      WriteLn('Треугольник с указанными сторонами не существует.');

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота