===== PascalABC.NET =====
begin
for var i := 0 to Trunc((-1.5 - (-6)) / 0.75) do
var x := -6 + 0.75 * i;
Write(x:5:2);
if x < -3 then
Writeln((-5 - x) / x:15:10)
else
Writeln(x * x + Exp(x):15:10)
end
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
for var i := 0 to Trunc((-1.5 - (-6)) / 0.75) do
begin
var x := -6 + 0.75 * i;
Write(x:5:2);
if x < -3 then
Writeln((-5 - x) / x:15:10)
else
Writeln(x * x + Exp(x):15:10)
end
end.