![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
FLO |
![]()
Сообщение
#1
|
Гость ![]() |
ПОмогите плиз!!! Натолкните на путь истинный!
Пусть задана очередь, состоящая из чисел n1,n2,n3,..,nk. Составить программу, которая определяла бы количество положительных и отрицательных чисел. Огромное спасибо! |
Ozzя |
![]()
Сообщение
#2
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: ![]() ![]() ![]() |
|
Flo |
![]()
Сообщение
#3
|
Гость ![]() |
Что-то не получается.. Нужна ваша помощь.. Не откажите, ПЛИЗ!!!
Код 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. |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
А потому что НЕ НУЖНО все запихивать в основную программу. В Паскале есть процедуры и функции, и вся работа с очередями построена именно на них.
Тебе привели ссылку на работающий модуль, ты сюда выложил какой-то бред, и теперь хочешь, чтобы это работало? Не будет оно работать. |
FLO |
![]()
Сообщение
#5
|
Гость ![]() |
начало написал..
Typeа вот как посчтитать кол-во положительных и отрицательных элементов - не знаю.. помогите, пожалуйста.. |
volvo |
![]()
Сообщение
#6
|
Гость ![]() |
Ты видишь здесь какие-то процедуры (например, Put - для занесения в очередь)? Я - не вижу.
А разбирать приведенный тобой код... Зачем оно надо? Тебе же привели ссылку на реализацию очереди. Нет, ты снова пишешь все сам, причем в куче. Ты хочешь свой велосипед? Так пиши, но это же будет твой велосипед, и сделать ты его должен сам... |
FLO |
![]()
Сообщение
#7
|
Гость ![]() |
у меня файл этот присоединенный не открывается..
![]() |
![]() ![]() |
![]() |
Текстовая версия | 2.06.2023 17:49 |