Написать программу вычисления функции y = (f)x . Заполнить таблицу значений x, y = (f)x при x ∈ [a. b] с шагом h

Знания

Информатика

1 ответ:

Sarusa213 года назад

0 0

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

1. Современное решение, возможно, на первый взгляд непонятное, но зато "в одну строку"

begin
SeqWhile(-2.0,t->t+0.25,t->t<=2.0)
 .ForEach(x->Writeln(x:4:1,(x<-1 ? -3*x+2+Sin(x) :
 x<0 ? Abs(x) : x*Ln(x+1)):16:12))
end.

2. "Школьный" вариант

var
x,y:real;

begin
x:=-2;
while x<=2 do begin
 if x<-1 then y:=-3*x+2+Sin(x)
 else
 if x<0 then y:=Abs(x)
 else y:=x*Ln(x+1);
 Writeln(x:4:1,y:16:12);
 x:=x+0.25
 end
end.

Результат:
-2.0 7.090702573174
-1.8 6.266014053126
-1.5 5.502505013396
-1.3 4.801015380644
-1.0 1.000000000000
-0.8 0.750000000000
-0.5 0.500000000000
-0.3 0.250000000000
0.0 0.000000000000
0.3 0.055785887829
0.5 0.202732554054
0.8 0.419711840952
1.0 0.693147180560
1.3 1.013662770270
1.5 1.374436097811
1.8 1.770301595437
2.0 2.197224577336

Читайте также

Определите значение переменных x и y после выполнения фрагмента алгоритма!

Владимир26

1 столбик) 3//16. 8//13. 13//10. 11//14. 16//11

2 столбик) 9//5. 7//9. 12//6. 10//10. 15//7. 13//11. 11//15. 16//12

0 0

4 года назад

Вопрос по паскалю- программирование, циклы помогите)

Мексс [57]

6.3

const
n = 5;
var
i,j : integer;
ch,zn : integer;
r : real;
begin
r := 0;
for i := 1 to n do
begin
ch := 0;
zn := 1;
for j := 1 to i do
begin
ch := ch + j;
zn := zn * j;
end;
//writeln (i,' ',ch,'/',zn);
r := r + ch/zn;
end;
writeln (r:3:2);
end.

0 0

4 года назад

Паскаль: 42 - Массивы 1. Отметьте все правильные объявления массива в языке Паскаль. var A[1..20] of integer; var A: array [1...

Starfer [1K]

1) 2 3
2) 2 4
3) 24
4)3
5)5

0 0

4 года назад

Помогите с решением (9класс ) желательно по легче

dimon33310

//1
begin
for var i:=6 to 12 do print (i);
end.

//2
begin
for var i:=1 to 4 do writeln ('забота');
end.

//3
var sum: longint;
begin
for var i:=1 to 5 do inc (sum, readinteger('Введите число: '));
write ('Сумма пяти чисел: ', sum);
end.

//4
var sum, n: integer;
begin
for var i:=1 to 10 do
begin
n:=readinteger ('Введите число: ');
if (n mod 2)=0 then inc (sum, n);
end;
write ('Сумма четных чисел: ', sum);
end.

//5
var sum, r: integer;
begin
for var i:=1 to readinteger ('Введите n: ') do
begin
r:=readinteger ('Введите число: ');
if (r mod 3)=0 then inc (sum, r);
end;
write (sum);
end.

//6
begin
for var i:=0 to 9 do
if ((4204+10*i) mod 7) = 0 then writeln (i);
end.

0 0

4 года назад

Что такое информационная. среда

Baragos [4]

Информационная среда - это совокупность технических и программных средств хранения, обработки и передачи информации, а также социально - экономических и культурных условий реализации процессов информатизации.

0 0

4 года назад