Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.07.2016 21:11
- Информатика
- remove_red_eye 10426
- thumb_up 41
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var x,z:real;
for var i:=0 to 18 do begin
x:=-3+0.5*i;
if (Abs(x)2) and (x5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8)
end;
end.
Результат
-3.0 0.02603404
-2.5 0.05396053
-2.0 0.05396053
-1.5 0.15941934
-1.0 0.15783283
-0.5 0.11009307
0.0 0.10000000
0.5 0.16817855
1.0 0.21459633
1.5 0.16205869
2.0 0.16205869
2.5 -0.47852157
3.0 -0.48851066
3.5 -0.38218382
4.0 -0.18498749
4.5 0.00385685
5.0 0.00385685
5.5 0.30151270
6.0 0.23243357
№2
begin
var x,z:real;
x:=-3;
while x<=6.01 do begin
if (Abs(x)2) and (x5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8);
x+=0.5
end;
end.
№3
begin
var x,z:real;
x:=-3;
repeat
if (Abs(x)2) and (x5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8);
x+=0.5
until x>6.01
end.
- 08.07.2016 03:19
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.