Question

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

Answer 1

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

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

begin

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

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

 var a, b, F: real;

 if x0 * xk <= 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 < 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.

Answer 2

Не хотите, не помогайте вообще, ваше право.

Answer 3

Это тоже знакомо: свой ляп пытаться перевалить на окружающих. Порядочные люди обычно говорят "Спасибо" и извиняются за свой промах.

Answer 4

Спасибо за что, за бесполезный кусок кода, который мне никак не поможет? Ну да, спасибо. Можете себе забрать если хотите)

Answer 5

За то, что человек потратил на Вас свое время. Но Вам, видимо, этого не понять, Вы только свой труд цените. И это нам тут тоже знакомо. Добро пожаловать в черный список!

Answer 6

Ага.