Простые задачи

[Slava333777]

помогите решить
1- составить программу вычисления значения функций y=Xкв/2 +(Xкв/2)кв +3
кв - в квадрате
2-составить программу вычисления первых 10 членов последовательности Xn=Nкв+5
n и N-одно и тоже число,только в 1м случае n-это основание,а во 2м случае-просто число

[sir.andrey]

Сообщение от Slava333777

помогите решить
1- составить программу вычисления значения функций y=Xкв/2 +(Xкв/2)кв +3
кв - в квадрате

Принимай

program one;
var x:integer;
function y(x:integer):real;
begin
y:=sqr(x)/2+sqr(sqr(x)/2)+3;
end;
begin
writeln ('vichislenie funkcii');
write ('vvedite x=');
readln (x);
writeln ('znachenie fynkcii=',y(x));
end.

[Stilet]

Ну первая допустим может выглядеть так:

MODULE Функция;
IMPORT StdLog,Math;

PROCEDURE do*;
VAR x,y:REAL;
BEGIN
 StdLog.Clear;
 StdLog.String('X');StdLog.Tab;StdLog.String('Y');
  StdLog.Ln;
 REPEAT
  x:=x+1;
  y:=x*x/2+Math.Power(x*x/2,2)+3;
  StdLog.Real(x);StdLog.Tab;StdLog.Real(y);
  StdLog.Ln;
 UNTIL x>10; 
END do;

END Функция.
Функция.do;

Вот результат:

X Y
1.0 3.75
2.0 9.0
3.0 27.75
4.0 75.0
5.0 171.75
6.0 345.0
7.0 627.75
8.0 1059.0
9.0 1683.75
10.0 2553.0
11.0 3723.75

А вот вторую я не понял...

[Slava333777]

Спасибо большое !!!!!!!!!!!!люди помоги со второй задачкой!

[sir.andrey]

Намбер ту

program posledovat;
var n,k:integer; x:array [1..50] of real;
begin
write('n=');
readln (k);
for n:=1 to k do begin
                 x[n]:=sqr(n)+5;
                 writeln ('X',n,'=',x[n]);
                 end;
end.

Если чо, это на паскале!

[Slava333777]

Во второй задаче n-это как основание у X,а N-это просто число,равное n,но только в квадрате.Больше я ничего не знаю!))

[sir.andrey]

Значит я сделал правильно!

[Slava333777]

Спасибо блин такое огромное!!!!!!!)))
Счастья,здоровья и успехов в жизни вам,добрый человек!!!)))

[Stilet]

Хм... Я всегда думал что основание это номер системы счисления...

[sir.andrey]

Сообщение от Stilet

Хм... Я всегда думал что основание это номер системы счисления...

В нашем случае, основание это номер члена последовательности!