function f (x1: longint):longint; var i: longint; begin if x1<=-3 then f:=5*sqr(x1)+x1 else if x1 in [-3..0] then f:=sqr(x1)-2 else f:=2*x1-1; end;
begin writeln ('Введите a, b: '); readln (a, b); for i:=a to b do writeln ('f(', i:3, ') = ', f(i)); end.
//second varn, j: longint; sum: real;
function f(I: longint):real; begin f:=(1-3*i)/(2*(i-1)); end;
begin write ('Введите n: '); readln (n); for j:=2 to n do sum:=sum+f(j); write ('Сумма: ', sum); end.
3 votes Thanks 2
p51xx
Когда-то имел весьма солидную популярность, но сейчас ее полностью потерял, сохранившись в основном в виде Delphi для учебных и академических целей. Язык невозбранно привлекает возможностью писать почти как на обычном английском языке, а не ломать голову и пальцы о ++i + ++i, эзотерику истинности выражений (1/3 == 0) и (-1 > (unsigned int) 1) и прочих извращенных приёмов, принятых в C-подобных языках.
Answers & Comments
var
a, b, i: longint;
function f (x1: longint):longint;
var i: longint;
begin
if x1<=-3 then f:=5*sqr(x1)+x1
else
if x1 in [-3..0] then f:=sqr(x1)-2
else f:=2*x1-1;
end;
begin
writeln ('Введите a, b: ');
readln (a, b);
for i:=a to b do writeln ('f(', i:3, ') = ', f(i));
end.
//second
varn, j: longint;
sum: real;
function f(I: longint):real;
begin
f:=(1-3*i)/(2*(i-1));
end;
begin
write ('Введите n: ');
readln (n);
for j:=2 to n do sum:=sum+f(j);
write ('Сумма: ', sum);
end.