Иван Родькин
Иван Родькин

Помогите перевести на C#

Статическая реализация очереди на основе массива

unit Queue; { Очередь FIFO - кольцевая }
Interface
const SIZE=...; { предельный размер очереди }
type data = ...; { эл-ты могут иметь любой тип }
Procesure QInit;
Procedure Qclr;
Function QWrite(a: data) : boolean;
Function QRead(var a: data) : boolean;
Function Qsize : integer;
Implementation { Очередь на кольце }
var QueueA : array[1..SIZE] of data; { данные очереди }
top, bottom : integer; { начало и конец }
Procedure QInit; {** инициализация - начало=конец=1 }
begin top:=1; bottom:=1; end;
Procedure Qclr; {**очистка - начало=конец }
begin top:=bottom; end;
Function QWrite(a : data) : boolean; {** запись в конец }
begin
if bottom mod SIZE+1=top then { очередь полна } QWrite:=false
else begin
{ запись, модификация указ. конца с переходом по кольцу }
Queue[bottom]:=a; bottom:=bottom mod SIZE+1; QWrite:=true;
end; end; { QWrite }
Function QRead(var a: data) : boolean; {** выборка из начала }
begin
if top=bottom then QRead:=false else
{ запись, модификация указ. начала с переходом по кольцу }
begin a:=Queue[top]; top:=top mod SIZE + 1; QRead:=true;
end; end; { QRead }
Function QSize : integer; {** определение размера }
begin
if top <= bottom then QSize:=bottom-top
else QSize:=bottom+SIZE-top;
end; { QSize }
END.

ЮЧ
Юлия Чивилева

Да где ж вы беретесь-то, а?
http://otvet.mail.ru/answer/451173779

Похожие вопросы
C/C++ -помогите написать программу на C++
Программисты помогите! есть код на C/C++
Помогите Пожалуйста c английским!!! Перевести надо
C# C++ Зачача, одно действие помогите
Кто может перевести программу с Бейсика на C++Builder?
Помогите перевести из c# и j# в vb
Помогите с C++
Как перевести цифры из char в int(C++)
помогите перевести программу с Turbo Pascal на Turbo C+
Перевести часть кода C++ в Pascal