1. Информатика
  2. Протобулировать функцию

Протобулировать функцию y=x-pi(число пи-3.14) на отрезке [0; 19] с шагом h=0.1*19, вывисте среднее арифмитическое всех отрицательных значений функции.

NatalyaCeluh NatalyaCeluh    3   08.06.2019 14:00    0

Ответы
fonvg fonvg  07.07.2020 18:18
var
  x: real;
  
begin
  writeln('x|':6, 'y':5);
  while (x <= 19) do
  begin
    writeln(x:5, '|', x - Pi:5);
    x += 0.1 * 19;
  end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ЗайчонокЛаймик ЗайчонокЛаймик  18.10.2020 02:09
Найди объем информации этих слов ( байт, бит ). Шифрование Азбука Морзе...
nikitashilo nikitashilo  18.10.2020 02:08
Максат для реферата по биологии нарисовала изображение цветов изображения хранятся в оперативной памяти изображение одного цветка 10 КБ памяти размер каждой ячейки ОЗУ...
1964hade 1964hade  20.04.2020 19:54
Света купил в магазине n пачек печенья по цене 36 руб. и х грамм шоколадных конфет по цене 450 рублей за кг. Сколько всего потратила Света? напишите программу....
pelulachka pelulachka  20.04.2020 19:54
Является ли условным оператором следующая последовательность символов?ifx...
AndreyMiix AndreyMiix  20.04.2020 19:54
Все 4-буквенные слова, в составе которых могут быть буквы Н, О, Т, К, И, записаны в алфавитном порядке и пронумерованы, начиная с 1 Ниже приведено начало списка. ИИИК...
Daina1115 Daina1115  20.04.2020 19:53
Информатика 10 класс. у логические выражения...
krecet6r krecet6r  20.04.2020 19:53
С решить задачу: Имеются следующие данные о 5 учениках: -Фамилия -Имя -Рост Рассчитайте средний рост учащихся, самый маленький и самый большой....
edsrghhythg edsrghhythg  20.04.2020 19:53
Турбо паскль.Вывести на экран True, если первое из двух чисел четное и больше второго, в противном случае False. В программе использовать логическую переменную....
Samuel11 Samuel11  20.04.2020 19:52
Можно ли использовать в записи поля одного типа?...
lawrence02 lawrence02  20.04.2020 19:51
Запустите Pascal. Введите программу program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln ( sum=...

Популярные вопросы