Условие:Распечатать таблицу значений функции F для x, изменяющегося в интервале от

Условие:
Распечатать таблицу значений функции F для x, изменяющегося в интервале от x0 до xk с шагом h. Значения x0, xk, h вводятся юзером.

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (x0, xk, h) := ReadReal3('Задайте x0,xk,h:');

 var Ctg: real-gt; real := x -gt; Cos(x) / sin(x); // котангенс

 var a, b, F: real;

 if x0 * xk lt;= 0 then (a, b) := ReadReal2('Задайте a,b:');

 for var i := 0 to Trunc((xk - x0) / h) do

 begin

   var x := x0 + i * h;

   if x lt; 0 then F := ArcTan(x) + Sqrt(x + 3)

   else

   if x = 0 then F := (a - b) + Cos(Pi * x) // на самом деле a-b+1

   else F := x ** 3 * Ctg(Pi * x / 2);

   Writeln(x:20:15, F:25:15)

 end

end.

Марина
На С++ можешь?
Стыблик Анастасия
Конечно. Но не стану. Во-первых, почему я два раза обязан делать одно и то же из-за Вашей безалаберности? Во-вторых, на каком основании Вы ко мне обращаетесь на "ты"?
Viktor Kapnov
Из-за моей? На данный момент бы в 2018 на Паскале ответы писать...
Владик Бериков
Окончательно из-за Вашей. Когда человек заинтересован ответ получить таковой, как надобно, он правильно оформляет вопрос. В частности, показывает язык программирования, а иногда - даже определенный компилятор. Если, окончательно, он что-то разумеет в теме.
Vjacheslav Lysan
И, кстати, на этом ресурсе минимум 3/4 ответов даются на Паскале.
Борис Добродных
Не желаете, не подсобляйте вообщем, ваше право.
Тягливая Лариса
Это тоже знакомо: собственный ляп пробовать перевалить на окружающих. Нравственные люди обычно говорят "Спасибо" и извиняются за свой промах.
Вера Нагорских
Спасибо за что, за бесполезный кусочек кода, который мне никак не поможет? Ну да, спасибо. Сможете для себя отобрать если желайте)
Данька Билушенко
За то, что человек истратил на Вас свое время. Но Для вас, видимо, этого не осознать, Вы только собственный труд оцениваете. И это нам здесь тоже знакомо. Благо пожаловать в черный список!
Колошников Макс
Ага.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт