IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Очереди
FLO
сообщение 11.04.2006 9:24
Сообщение #1


Гость






ПОмогите плиз!!! Натолкните на путь истинный!
Пусть задана очередь, состоящая из чисел n1,n2,n3,..,nk. Составить программу, которая определяла бы количество положительных и отрицательных чисел.
Огромное спасибо!
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Flo
сообщение 16.04.2006 14:26
Сообщение #2


Гость






Что-то не получается.. Нужна ваша помощь.. Не откажите, ПЛИЗ!!!
Код
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.
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 24.06.2025 13:12
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"