ПОмогите плиз!!! Натолкните на путь истинный!
Пусть задана очередь, состоящая из чисел n1,n2,n3,..,nk. Составить программу, которая определяла бы количество положительных и отрицательных чисел.
Огромное спасибо!
Полная версия: Очереди
Что-то не получается.. Нужна ваша помощь.. Не откажите, ПЛИЗ!!!
Код
Type
Fifo=^Elem;
Elem=record;
Data:real;
Next:fifo;
End;
Var
nachalo, p, last:fifo;
n,x,Pol,Otr:integer;
begin
writeln(‘vvedite n:’);
readln(n);
nachalo:=nil;
last:=nil;
while n>0 do
begin
write(x);
if nachalo=nil then
begin
new(nachalo);
nachalo^.data:=x;
nachalo^.next:=nil;
last:=nachalo;
end
else
begin
new(p);
p^.data:=x;
p^.next:=nil;
last^.next:=p;
last:=last^.next;
end;
end;
p:=nachalo;
Pol:=0;
Otr:=0;
While p<>nil do
Begin
If p^.data>0 then Pol:=Pol+1 else Otr:=Otr+1;
P:=p^.next;
End;
Writeln(Pol; Otr)
End.
Fifo=^Elem;
Elem=record;
Data:real;
Next:fifo;
End;
Var
nachalo, p, last:fifo;
n,x,Pol,Otr:integer;
begin
writeln(‘vvedite n:’);
readln(n);
nachalo:=nil;
last:=nil;
while n>0 do
begin
write(x);
if nachalo=nil then
begin
new(nachalo);
nachalo^.data:=x;
nachalo^.next:=nil;
last:=nachalo;
end
else
begin
new(p);
p^.data:=x;
p^.next:=nil;
last^.next:=p;
last:=last^.next;
end;
end;
p:=nachalo;
Pol:=0;
Otr:=0;
While p<>nil do
Begin
If p^.data>0 then Pol:=Pol+1 else Otr:=Otr+1;
P:=p^.next;
End;
Writeln(Pol; Otr)
End.
А потому что НЕ НУЖНО все запихивать в основную программу. В Паскале есть процедуры и функции, и вся работа с очередями построена именно на них.
Тебе привели ссылку на работающий модуль, ты сюда выложил какой-то бред, и теперь хочешь, чтобы это работало? Не будет оно работать.
Тебе привели ссылку на работающий модуль, ты сюда выложил какой-то бред, и теперь хочешь, чтобы это работало? Не будет оно работать.
начало написал..
Typeа вот как посчтитать кол-во положительных и отрицательных элементов - не знаю.. помогите, пожалуйста..
EXO=^O;
O=record;
Data:real;
Next:EXO;
End;
Var
i,a:integer;
x1,x2:EXO;
procedure WriteO(var x1,x2:EXO);
var
u:EXO;
begin
x1:=nil;
x2:=nil;
writeln(‘vvedite elementi ocheredi. Konec vvoda-0’);
read(i);
while i<>0 do
begin
new(u);
u^.data:=I;
u^.next:=nil;
if x1=nil then x1:=u else x2^.next:=u;
x2:=u;
read(i);
end;
end;
begin
writeO(x1,x2)
Ты видишь здесь какие-то процедуры (например, Put - для занесения в очередь)? Я - не вижу.
А разбирать приведенный тобой код... Зачем оно надо? Тебе же привели ссылку на реализацию очереди. Нет, ты снова пишешь все сам, причем в куче. Ты хочешь свой велосипед? Так пиши, но это же будет твой велосипед, и сделать ты его должен сам...
А разбирать приведенный тобой код... Зачем оно надо? Тебе же привели ссылку на реализацию очереди. Нет, ты снова пишешь все сам, причем в куче. Ты хочешь свой велосипед? Так пиши, но это же будет твой велосипед, и сделать ты его должен сам...
у меня файл этот присоединенный не открывается.. 
(
(
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.