Написать программу на Pascal,для вычисления значения функции F(x) = а) = 0.5 при x-1 б) = 0 при x = 0 в) = x+3 при x<-1 x = [-3;4] с шагом 0,5
226
ОТВЕТЫ
На самом деле условие F(х)=0 при х=0 лишнее, поскольку значение F(x)=0.5x² при x≥-1 и так дает F(0)=0.
var
x,F:real;
begin
x:=-3;
while xlt;4.01 do begin
if xlt;-1 then F:=x+3
else F:=0.5*x*x;
Writeln(x=,x:4:1,, F=,F:5:3);
x:=x+0.5
end
end.
Результат
x=-3.0, F=0.000
x=-2.5, F=0.500
x=-2.0, F=1.000
x=-1.5, F=1.500
x=-1.0, F=0.500
x=-0.5, F=0.125
x= 0.0, F=0.000
x= 0.5, F=0.125
x= 1.0, F=0.500
x= 1.5, F=1.125
x= 2.0, F=2.000
x= 2.5, F=3.125
x= 3.0, F=4.500
x= 3.5, F=6.125
x= 4.0, F=8.000
var
x,F:real;
begin
x:=-3;
while xlt;4.01 do begin
if xlt;-1 then F:=x+3
else F:=0.5*x*x;
Writeln(x=,x:4:1,, F=,F:5:3);
x:=x+0.5
end
end.
Результат
x=-3.0, F=0.000
x=-2.5, F=0.500
x=-2.0, F=1.000
x=-1.5, F=1.500
x=-1.0, F=0.500
x=-0.5, F=0.125
x= 0.0, F=0.000
x= 0.5, F=0.125
x= 1.0, F=0.500
x= 1.5, F=1.125
x= 2.0, F=2.000
x= 2.5, F=3.125
x= 3.0, F=4.500
x= 3.5, F=6.125
x= 4.0, F=8.000
Var x:real;
begin
x:=-3;
while xlt;=4 do begin
if xgt;=1 then writeln(F(x) = ,sqr(x)/2);
if x=0 then writeln(F(x) = 0);
if xlt;-1 then writeln(F(x) = ,x+3);
x:=(x+0.5);
end
end.
begin
x:=-3;
while xlt;=4 do begin
if xgt;=1 then writeln(F(x) = ,sqr(x)/2);
if x=0 then writeln(F(x) = 0);
if xlt;-1 then writeln(F(x) = ,x+3);
x:=(x+0.5);
end
end.
13
Отв. дан
Кондрат
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Русский язык
Tholore
Подскажите как!!! Определить спряжение 10 поинтов ...
2018-09-23 00:00:00
Niron
В каком случае правильно указаны морфологические признаки имени глагола ...
2018-09-23 00:00:00
Anarawyn
Подскажите как пожалуйста!!! Нужно поставить вопросы к этим словосочетаниям. ...
2018-09-23 00:00:00
Алиса
Преобразуй предложения так,чтобы они состояли только из главных членов.(По ...
2018-09-23 00:00:00