Var S, chislo: string; i,A,B,C,E: integer; Begin B := 0; WriteLn('Введите выражение: '); ReadLn(S); i := S.length; While (i > 0) do begin Case S[i] of '+': begin val(chislo,A,E); B := B + A; chislo := ''; end; '-': begin val(chislo,A,E); B := B - A; chislo := ''; end; else chislo := S[i] + chislo; End; i := i - 1; end; if (chislo <> '') then begin val(chislo,A,E); B := B + A; end; WriteLn(B); End.
1) создание, подготовка к работе, а так же определение параметров функции 2) a) нет возвращаемого значения, то есть функция что-то делает, но не возвращает ничего б) возвращает то значение, которое вы скажете вернуть, можно использовать данный тип функции, как переменную, например, функция возвращает принятое число в случае, если это число больше нуля, -1, если меьше нуля. Таким образом можно использовать ее в любых конструкция, к примеру, условных.
если function()>0 то вывести число иначе вывести "отрицательное"
S, chislo: string;
i,A,B,C,E: integer;
Begin
B := 0;
WriteLn('Введите выражение: ');
ReadLn(S);
i := S.length;
While (i > 0) do
begin
Case S[i] of
'+':
begin
val(chislo,A,E);
B := B + A;
chislo := '';
end;
'-':
begin
val(chislo,A,E);
B := B - A;
chislo := '';
end;
else
chislo := S[i] + chislo;
End;
i := i - 1;
end;
if (chislo <> '') then
begin
val(chislo,A,E);
B := B + A;
end;
WriteLn(B);
End.
2) a) нет возвращаемого значения, то есть функция что-то делает, но не возвращает ничего
б) возвращает то значение, которое вы скажете вернуть, можно использовать данный тип функции, как переменную, например, функция возвращает принятое число в случае, если это число больше нуля, -1, если меьше нуля. Таким образом можно использовать ее в любых конструкция, к примеру, условных.
если function()>0 то вывести число иначе вывести "отрицательное"