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

[LOVELY]

Народ, нужна помощь в решении такой задачи...(сессия)

Даны следующие типы данных:

type AdresaCelula=^Celula;
Celula=record
Info:integer;
Urm:AdresaCelula; end;

Нужно написать программу с использованием подпрограмм, которая создаёт односвязный список и вычисляет сумму положительных значений из полей Info ячеек созданного списка.

Срочно нужно, помогите, плиз...

[Викдон]

насколько срочно?

[LOVELY]

Сообщение от Викдон

насколько срочно?

на завтра...не позже...

[Викдон]

type AdresaCelula=^Celula;
 Celula = record
 Info:integer;
 Urm:AdresaCelula;
 end;

var haid,tail,p:AdresaCelula;
    c:char;

Procedure InstallSpisok (var golova,hvost:AdresaCelula);
begin
 while true do
  begin
    if golova=nil then
     begin
      new(golova);
      hvost:=golova;
      golova^.Urm:=nil;
     end
    else
     begin
      new(hvost^.Urm);
      hvost:=hvost^.Urm;
      hvost^.Urm:=nil;
     end;
      write('Введите целое число: ');
      readln(hvost^.info);
      write('Продолжить ввод чисел? Y/N');
       readln(c);
        if (c='n') or (c='N') then
          break;
    end; {while}
end;

Procedure Summa (golova,hvost,p:AdresaCelula);
var summa:integer;
begin
summa:=0;
 p:=golova;

 if p=hvost then   {Если в списке один элемент}
  if p^.info>0 then
   begin
    summa:=p^.info;
    writeln('Сумма положительных элементов: ',summa);
   end;

  while p<>hvost do
   begin
     if (p^.info>0) then
      summa:=summa+p^.info;
     p:=p^.Urm;

     if p=hvost then
       begin
        if (p^.info>0) then
         summa:=summa+p^.info;
         write('Сумма положительных элементов = ',summa);
        end;
    end;{while}


end;


begin

InstallSpisok(haid,tail);
Summa(haid,tail,p);
readln;
end.

Не забудь про отзыв)))

[LOVELY]

Сообщение от Викдон

type AdresaCelula=^Celula;
 Celula = record
 Info:integer;
 Urm:AdresaCelula;
 end;

var haid,tail,p:AdresaCelula;
    c:char;

Procedure InstallSpisok (var golova,hvost:AdresaCelula);
begin
 while true do
  begin
    if golova=nil then
     begin
      new(golova);
      hvost:=golova;
      golova^.Urm:=nil;
     end
    else
     begin
      new(hvost^.Urm);
      hvost:=hvost^.Urm;
      hvost^.Urm:=nil;
     end;
      write('Введите целое число: ');
      readln(hvost^.info);
      write('Продолжить ввод чисел? Y/N');
       readln(c);
        if (c='n') or (c='N') then
          break;
    end; {while}
end;

Procedure Summa (golova,hvost,p:AdresaCelula);
var summa:integer;
begin
summa:=0;
 p:=golova;

 if p=hvost then   {Если в списке один элемент}
  if p^.info>0 then
   begin
    summa:=p^.info;
    writeln('Сумма положительных элементов: ',summa);
   end;

  while p<>hvost do
   begin
     if (p^.info>0) then
      summa:=summa+p^.info;
     p:=p^.Urm;

     if p=hvost then
       begin
        if (p^.info>0) then
         summa:=summa+p^.info;
         write('Сумма положительных элементов = ',summa);
        end;
    end;{while}


end;


begin

InstallSpisok(haid,tail);
Summa(haid,tail,p);
readln;
end.

Не забудь про отзыв)))

Спасибо))))))) вы меня спасли))) отзыв оставила))

[Викдон]

обращайся если что 466-410-310!!