Решить задачи, включив требуемые процедуры и функции в состав модуля Unit.

[Veronika_13]

Составить функцию для нахождения точного значения суммы натуральных чисел, в десятичной записи которых более 20 знаков.Pascal ABC

[BDA]

Длинная арифметика в помощь. Сложение - самая легкая операция из возможных. Наработки какие-нибудь есть?

[Veronika_13]

program lab_5;
uses crt, modd;
var
n,n1:byte;
sum,y,err:integer;
begin clrscr;randomize;
writeln('1 chislo =');
read(n);
writeln('2 chislo =');
read(n1);
writeln('1 sformirovannoe = ');
zvezda(n);
writeln('2 sformirovannoe = ');
zvezda(n1);
sum:=y+n1;;
writeln('Summa =',y);
readkey
end.

unit mod1;
interface
var i:integer;
    s:string[80];
    n,n1:byte;
sum,y,err:integer;
function zvezda(n:byte):real;
implementation
function zvezda(n:byte):real;
    begin
     i:=1;
     s:='';
      while i<=n do
       begin
        s:=s+'1';
         inc(i);
       end;
     writeln(s);  Val(s[80],y,err);
    end;
end.

[BDA]

Ничего не понял. Что по Вашей задумке должен делать этот код?

[Veronika_13]

просто сложить, но как тут пристроит функцию не знаю, поэтому что-то выдумала

[BDA]

var
  s1, s2, res: string;
  k, p, i, j, z: integer;
  
function max(a, b: integer): integer;
begin
  if a > b then
    max := a
  else
    max := b;
end;

begin
  readln(s1);
  readln(s2);
  k := max(length(s1), length(s2));
  p := k - length(s1);
  for i := 1 to p do
    s1 := '0' + s1;
  p := k - length(s2);
  for i := 1 to p do
    s2 := '0' + s2; 
  res := '';
  z := ord('0');
  p := 0;
  for i := k downto 1 do
  begin
    j := ord(s1[i]) + ord(s2[i]) - 2 * z + p;
    res := chr(j mod 10 + z) + res;
    p := j div 10;
  end;
  if p > 0 then
    res := chr(p + z) + res;
  writeln(res);
end.

Вот на коленке набросанный код для сложения двух строк-чисел.

[Veronika_13]

а что делать с " у которых больше 20 знаков". с проверкой вот этого.

[BDA]

Из справки Pascal ABC:

Строки в Pascal ABC имеют тип string и состоят из не более чем 255 символов.

Так что результат может иметь максимальную длину в 255 символов.

[Veronika_13]

Спасибо большое

как изменить код,что бы складывалось не только два числа, а столько сколько задать с клавиатуры?

program lab_5;
uses crt, modul;
var a: array [1..50] of integer;
   res: string;
  k,l ,p,n, i, j, z: integer;

begin

writeln('Ââåäèòå êîëè÷åñòâî
 ýëåìåíòîâ');
readln(n);
  writeln('Ââåäèòå ýëåìåíòû');
  for  l:=1 to n do
  readln(a[l]);
  k := max(length(s1), length(s2));
  p := k - length(s1);
  for i := 1 to p do
    s1 := '0' + s1;
  p := k - length(s2);
  for i := 1 to p do
    s2 := '0' + s2;
  res := '';
  z := ord('0');
  p := 0;
  for i := k downto 1 do
  begin
    j := ord(s1[i]) + ord(s2[i]) - 2 * z + p;
    res := chr(j mod 10 + z) + res;
    p := j div 10;
  end;
  if p > 0 then
    res := chr(p + z) + res;
  write('ðåçóëüòàò:',res);
end.

[BDA]

2 пути:
1) оформить код сложения в виде функции и вызывать с нужными параметрами

var
  s1, s2: string;
  
function max(a, b: integer): integer;
begin
  if a > b then
    max := a
  else
    max := b;
end;

function add(s1, s2: string): string;
var
  res: string;
  k, p, i, j, z: integer;
begin
  k := max(length(s1), length(s2));
  p := k - length(s1);
  for i := 1 to p do
    s1 := '0' + s1;
  p := k - length(s2);
  for i := 1 to p do
    s2 := '0' + s2; 
  res := '';
  z := ord('0');
  p := 0;
  for i := k downto 1 do
  begin
    j := ord(s1[i]) + ord(s2[i]) - 2 * z + p;
    res := chr(j mod 10 + z) + res;
    p := j div 10;
  end;
  if p > 0 then
    res := chr(p + z) + res;
  add := res;
end;

begin
  readln(s1);
  readln(s2);
  writeln(add(s1, s2));
end.

var
  sum, a: string;
  n, i: integer;
...
begin
  readln(n);
  sum := '0';
  for i := 1 to n do
  begin
    readln(a);
    sum := add(sum, a);
  end;
  writeln(sum);
end.

2) правильно "сплести" операцию сложения и цикл считывания новых чисел