Задача: Дано натуральное число n. Вычислить выражение ...

[NoSiK]

Здравствуйте вот есть 6 заданий которые не то,что бы не получается,а вообще не знаю с чего начать...(
пробовал читать учебники,но чет не то...слишком замудренно....(если кто-то знает где есть учебное пособие по паскалю или делфи (для полных чайников в подробными объяснениями или с картинками) убедительная просьба прислать ссылку ,лучше те ссылки которыми сами пользовались и вам помогло.
Я не хочу,что бы мне просто написали прогу,а вместе с ней объеснили, как делать...
Если кто-то может помочь выполнить их и хотя бы в кратце объяснить как такого типа задачи решаються буду очень признателен!

Вот 1 из них:

1.Дано натуральное число n. Вычислить:
1/(1^2 + 2^2) + 1/(2^2 + 3^2) + 1/(3^2 + 4^2) +...+1/(n-1)^2 + n^2 ;

если кто-то выручит буду очень признателен!
(кстате был приятно удивлен,что есть такой БЕСПЛАТНЫЙ форум....во многих надо платить, причем не малые суммы)

КОРОЧЕ ДАВАЙТЕ ВМЕСТЕ УЧИТЬСЯ)
Только препода надо)

[Stilet]

Так на паскале или на Делфи?
Разница всетки есть.

[dr.Chas]

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

Вот 1 из них:
1.Дано натуральное число n. Вычислить:
1/(1^2 + 2^2) + 1/(2^2 + 3^2) + 1/(3^2 + 4^2) +...+1/(n-1)^2 + n^2 ;

Что то больное сложное задание для начинающего. На заочном учитесь?

[NSvirus]

Если хотите, могу вам объяснить как решаются такие задачи.
Пишете мне в icq.

[NoSiK]

Лучше на паскале...
учюсь на очном и это еще не сложное по словам препода)

[Sasha_Smirnov]

Sub СуммаРяда()
Dim An, n, Nmax, S, denominator 'объявление переменных'

Do                                              'цикл ввода (с примитивной проверкой соответствия)'
    Nmax = InputBox("Число Nmax — число слагаемых (членов ряда) минус 1.", Format(Date, "dddd"), 5)
    If Not IsNumeric(Nmax) Then MsgBox "«" & Nmax & "» не подходит — нужно натуральное число > 1."
Loop Until IsNumeric(Nmax) And Nmax > 0

For n = 2 To Nmax           'цикл вычисления членов ряда и их суммы'
        denominator = (n - 1) ^ 2 + n ^ 2 'у Вас в задаче здесь не хватает внешних скобок'
        An = 1 / denominator
        S = S + An
        
        answer = MsgBox("Для n = " & n & " сумма ряда " & vbCr & vbCr & _
        "S = " & FormatNumber(S, 17) & ";" & String(3, vbCr) & _
 _
        n - 1 & "-й член ряда" & vbCr & vbCr & _
        "A(" & (n - 1) & ") = " & "1/" & denominator & ";" & vbCr & vbCr & _
        "A(" & (n - 1) & ") ~ " & An & "." & vbCr & vbCr & "Продолжить?", vbInformation + vbYesNo)
        If answer = vbNo Then Exit For
Next n

End Sub

[NoSiK]

Огромное спасибо,но что это?)))
Как это же переделать в паскале?

[ОДИНОЧЕСТВО В СЕТИ]

s:=0;
for i:=1 to n-1 do
s:=s+1/(sqr(i)+sqr(i+1));
writeln(s);

[NoSiK]

Как будет выглядеть вся программа?
И что такое i ???
Набираю:

Var n,s,i:real;
begin
 write(n);
 read(n);
 write(i);
 read(i);
 s:=0;
 for i:=1 to n-1 do
 s:=s+1/(sqr(i)+sqr(i+1));
 write('s=',s);
end.

Ошибка при компиляции(
И если можно в кратце в каких типах задач используется fot to do и как это дословно переводится, и русским языком объяснить как они работают)
Зарание благодарю!

[ОДИНОЧЕСТВО В СЕТИ]

Var s:real;
i,n:integer;
begin
read(n);
s:=0;
for i:=1 to n-1 do
s:=s+1/(sqr(i)+sqr(i+1));
write('s=',s:6:3);
readln;
end.