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

Написать программу в паскале, которая вычисляет и
выводит на экран в виде таблицы значения функции f (x) на отрезке [-1; 1] с шагом 0.2 .

👇
Ответ:
нургалым1
нургалым1
22.01.2021

===== PascalABC.NET =====

begin

 var n := Trunc((1 - (-1)) / 0.2);

 for var i := 0 to n do

 begin

   var x := -1 + 0.2 * i;

   Write(x:4:1);

   if x < 0.2 then

     Writeln(3 * (Sqr(x + 8) - 4):16:9)

   else

     Writeln(8 + Sin(x) / x:16:9);

 end

end.


Написать программу в паскале, которая вычисляет и выводит на экран в виде таблицы значения функции f
4,6(87 оценок)
Открыть все ответы
Ответ:
Лейля16
Лейля16
22.01.2021

return n != 0 && n % 2 == 0 ? -n : n;

Оператор != - оператор равенства, возвращающий истину, если операнды не равны, и ложь иначе. n != 0 - значение условия "n не равно 0"

Оператор ?: - тернарный оператор, его запись имеет вид _условие_ ? _возвращаемое_значение_при_истинности_условия_ : _возвращаемое_значение_при_ложности_условия_ .

Операторы, использованные в выражении, по убыванию приоритета (операторы с равным приоритетом в одной строке):

унарный -

%

==      !=

&&

?:

А тогда return n != 0 && n % 2 == 0 ? -n : n; эквивалентно return ((n != 0) && ((n % 2) == 0)) ? (-n) : n;

Если n не равно 0 и дает остаток 0 при делении на 2 (т.е. четно), возвращается значение -n, иначе возвращается n.

4,7(94 оценок)
Ответ:
master204
master204
22.01.2021

Так,сначала теория.

В формуле Герона (коя используется в этой программе) используется полупериметр!

Это означает, что надо ввести переменную полупериметра ( pp, к примеру). Тогда программа примет вид:

program P1;

var

a, b, c, p: integer;

pp, s: real;

begin

write('Введите сторону a = ');

readln(a);

write('Введите сторону b = ');

readln(b);

write('Введите сторону c = ');

readln(c);

p := a + b + c;

writeln('Периметр треугольника P = ', p);

pp := p / 2;

s := sqrt(pp * (pp - a) * (pp - b) * (pp - c));

writeln('Площадь треугольника S = ', s);

end.

Также замечу, что полупериметр и площадь относятся не к целочисленному типу данных.

И да, обращайте внимание на оформление.

Табуляции в программе, "сторона" вместо "координата", пробелы до и после равно, чтобы всё не выглядело слипшимся.

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