Даю 100 БАЛЛОВ за решение 2х задач на ПАСКАЛЕ! (10 класс)
Даю 100 БАЛЛОВ за решение 2х задач на ПАСКАЛЕ! (10 класс)
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,f:integer;
Write('Введите a,b: '); Read(a,b);
for var x:=a to b do begin
if x<=-3 then f:=5*x*x+x
else
if x<1 then f:=x*x-2
else f:=2*x-1;
Writeln(x:5,f:10)
end
end.
Пример
Введите a,b: -6 10
-6 174
-5 120
-4 76
-3 42
-2 2
-1 -1
0 -2
1 1
2 3
3 5
4 7
5 9
6 11
7 13
8 15
9 17
10 19
begin
var n:=ReadInteger('N=');
Writeln('S=',Range(2,n).Aggregate(0.0,(i,j)->i+(1-3*j)/(2*(j-1))))
end.
Пример
N= 10
S=-16.3289682539683
Гость//first
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.
Не нашли ответ?
Похожие вопросы