Кто подскажет как сложить две циклические суммы, что не так у меня при их сложении?

Question

[Vladislav200164]

Задание

Программа до procedure Sum1 правильная, на procedure Sum1 выбивает ошибку инструкции, что не так?

Program Func;
Type func=function(x:integer):real;
Var S1,S2:real;
n1,m1,n2,m2:integer;
r:text;

{$F+}
Function f1(x:integer):real;
Begin
f1:=(x+2)/(x+5);
End;

Function f2(x:integer):real;
Begin
f2:=5/(x*x)-ln(x)/ln(10);
End;
{$F-}

Procedure Sum(n,m:integer;f:func;Var S:real);
Var x:integer;
Begin
S:=0;
For x:=n to m do S:=S+f(x);
End;

Begin
Assign(r,'res7-ind');Rewrite(r);
Writeln('n1,m1=');Readln(n1,m1);
Sum(n1,m1,f1,S1);
Writeln(r,'S1=',S1:8:5);
Writeln('n2,m2=');Readln(n2,m2);
Sum(n2,m2,f2,S2);
Writeln(r,'S2=',S2:8:5);

Procedure Sum1;
Var Sum1:real;
Begin
Sum1:=0;
Sum1:=S1+S2;
End;
Sum1(S1,S2);
Writeln (r,'Sum1=',Sum1:8:5);
Close(r);
End.

Answer 1

[Hemul GM]

Блоки расставьте нормально и всё увидите сами.

Comments

[Vladislav200164]

Hemul GM не совсем понял что вы имеете ввиду?

[Hemul GM]

Vladislav200164, вы потерялись в операторных скобках. Операторные скобки - это begin/end. Расставьте их как нужно. Сделайте отступы и увидите свою ошибку.

[Vladislav200164]

Hemul GM, уже это исправил но в выводном файле (res7-ind) ничего не вывело

[Vladislav200164]

Hemul GM, у меня получается S1,S2 yjhvfkmyj c S3 проблемы
Program Func;
Type func=function(x:integer):real;
Var S1,S2,S3:real;
n1,m1,n2,m2:integer;
r:text;

{$F+}
Function f1(x:integer):real;
Begin
f1:=(x+2)/(x+5);
End;

Function f2(x:integer):real;
Begin
f2:=(5/(x*x)-ln(x));
End;
{$F-}

Procedure Sum(n,m:integer;f:func;Var S:real);
Var x:integer;
Begin
S:=0;
For x:=n to m do S:=S+f(x);
End;

Procedure Sum1;
Var S3:real;
Begin
S3:=0;
S3:=S1+S2;
End;

Begin
Assign(r,'res7-ind');Rewrite(r);
Writeln('n1,m1=');Readln(n1,m1);
Sum(n1,m1,f1,S1);
Writeln(r,'S1=',S1:8:5);
Writeln('n2,m2=');Readln(n2,m2);
Sum(n2,m2,f2,S2);
Writeln(r,'S2=',S2:8:5);
Readln(S1,S2);
Writeln(S3, S3:8:5);
Close(r);
End.

[Hemul GM]

Vladislav200164, и где ты вызываешь Sum1?

[Vladislav200164]

Hemul GM, у меня было так. но не работало
Readln(S1,S2);
Sum1(S1.S2);
Writeln(S3, S3:8:5);
Close(r);
End.

[Vladislav200164]

Hemul GM, просто не особо шарю в паскале, поэтому не знаю как более правильнее

[Hemul GM]

Vladislav200164, так может ты запятую там поставишь, а не точку?

[Vladislav200164]

Hemul GM, программа запрашивала точку но не с ней не работает, ставил уже и запятую, и точку с запятой, но ничего не работает

[Hemul GM]

Vladislav200164, у Sum1 у тебя вообще нет параметров.
Что тут сложного? Смотри что ты вызываешь, что передаешь. Это основы любого языка. Не обязательно паскаля.

[Hemul GM]

Vladislav200164, внизу же описаны ошибки. Всё сказано что не так

Answer 2

[User700]

А почему sum это процедура, а не функция. Она же считает 1 значение. И тогда можно так
Sum(n1,m1,f1) + Sum(n2,m2,f2)
Также не понятно зачем Sum1. И что там происходит... S3 она не выводит. Да и для сложения двух результатов вряд-ли нужна отдельная процедура.