Правила форума
Прочтите прежде чем задавать вопрос!
program proizv_4isel;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows;
type
Tinfo= integer;
TList=^TElem;
TElem= record
info: Tinfo;
next: TList;
end;
procedure create_spisok (var p:TList; info:Tinfo); // создание списка
begin
if p<>nil then create_spisok (p^.next,info)
else begin
new(p);
p^.info:=info;
p^.next:=nil
end;
end;
procedure zap_spisok (var p:TList; n:integer); // заполнение списка
var e,i: integer;
begin
if n<0 then begin
writeln ('список создать нельзя');
readln;
exit
end
else
if n=0 then begin
writeln ('список пуст');
readln;
exit
end;
if n>0 then
begin
for i:=1 to n do
begin
writeln('введите числа');
readln(e);
create_spisok(p,e)
end;
end;
end;
//ищем произведение чисел
function Proiz (L,p: TList): Tinfo;
begin
p:=L;
result:=0;
while p<>nil do
begin
result:=result+p^.info;
p:=p^.next;
end;
end;
//печать
procedure Print_Proizv (r: Tinfo);
begin
writeln('произведение чисел= ');
writeln®;
end;
// печать списка
procedure printList (l: TList);
var
p: TList;
begin
p:=L;
while p<>nil do
begin
write(p^.info,' ');
p:=p^.next;
end;
writeln;
end;
var
p,L: TList;
r,n,info: Tinfo;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
writeln('введите кол-во чисел');
readln(n);
Create_spisok(L,info);
zap_spisok(L,n);
r:=proiz(L,p);
Print_proizv®;
writeln('введенный список');
printList(L);
readln
end.
не могу понять, пишет что p и info не могут быть инизиализированны. решил посмотреть какой список выводит, так он мне кроме вводимых чисел еще и 5 сначала выводит. откуда появилась, ума не приложу. и произведение считает не правильно. так вроде подумать, все элементарно, но не могу увидеть как исправить ошибки в алгоритмах..
Сообщение отредактировано: Insomnia -
