Очереди, queue Опции

[Гость_Boris]

m=3.
Вот.Можешь *.pas выложить. Но всё рвно - я же пробовал - пишет не так!Ё

[volvo]

Гость_Boris

Ну Вы же свои посты-то хоть читайте!

const m=2
...
...
put(1)
put(2)
put(3)
writeln(get)
writeln(get)
writeln(get)
put(4)
writeln(get)

[GoodWind]

const m=2

можт промазал мимо клавиши ;) :D

[Гость_Boris]

Да, извини.
Тогда как ты написал должно получится:
1
2
0
4

[volvo]

Гость_Boris

Код

const
 m = 2;

var
 a: array[1 .. m] of integer;
 first, last: integer;
 overflow: boolean;

procedure init;
 begin
   first := 0; last := 0;
 end;

function get: integer;
 begin
   overflow := false;
   get := a[1];
   if last > 0 then dec(last);
   move(a[2], a[1], (m - 1)*sizeof(integer));
   a[m] := 0;
 end;

function put(x: integer): boolean;
 begin
   overflow := overflow or (last = m);
   inc(last, byte(not overflow));
   a[last] := x;
   put := overflow
 end;

begin
 init;
put(1);
put(2);
put(3);
writeln(get);
writeln(get);
writeln(get);
put(4);
writeln(get);
end.

Результат выводимый программой:
1 3 0 4

P.S. Проверьте правильность на бумаге, в конце концов!!!
Что еще не в порядке?

[Гость_Boris]

It's good. I am glad. Thank all and good bye.


ПЕРВОД:
Это хорошо. Я рад. благодярю всех, и до свидания.

Сообщение отредактировано: Oleg_Z - 11.11.2004 10:40

[Гость_Boris]

А можно вместо этих "конечных" нулей написаит например, очередь полна:
одни вариант: вместо каждого, а второй - вместо всех

[volvo]

Ну не выводит моя программа нули при полной очереди. Только при пустой.
Ответ - "Да, Можно".

Но у меня к Вам встречный попрос - сколько времени Вы занимаетесь программированием? Неужели даже это нельзя сделать самостоятельно?

[Гость_Boris]

2 недели ... и то не охотно.
Ну что - можно?

[volvo]

Если

2 недели ... и то не охотно.

то нельзя. Я могу помочь с решением, но писать ЗА кого-то да еще с такими запросами - :no:

[Altair]

:P
Абалдеть
он еще и не доволен...
Гость_Boris, вам уже решили задачу, если хочется ее модернезировать
то делайте это сами...

volvo, не сервер запросов ведь

[Гость_Boris]

Ну а как этц цифру 0 преоразовать в символ и добавить к ней символы?

[APAL]

Как-как - читай встроенный HELP.
Если с английским туго - скачай русскоязычную версию хелпа.
Если и качать не хочется - воспользуйся поиском по форуму.