Описываем очередь
uses crt;
type pLE = ^tLE; { tip = ukazatel }
tLE = record {ukazatel na :}
next: pLE; {sleduushii ukazatel}
data: integer; {tekushii element тип исправь на массив или char - если нужно}
end;

Queue = record{ukazatel na :}
head: pLE; {nachalo ocheredi}
tail: pLE; {konec ocheredi }
end;


Создание очереди
procedure create_list(var s: PLE; n:integer); {inicializaciya i dobavlenie elementov}
var i: integer;
begin
i:=1;
randomize;
s := nil;
while n>0 do {sluchaino ot 0 do n}
begin
new(p); {inicializaciya novogo ukazatelya}
p^.data := random(n); {znachenie elementa ocheredi cherez ukazatel} поставь readln, если нужно).
p^.next := s;
s := p;
dec(n);
end;

Вывод на экран
procedure print_list (s: pLE; n: integer); {vivod na ekran ne bolshe 100 elementov}
var test,i: integer;
begin
while n>0 do
begin
write(s^.data,' ');
s:=s^.next;
dec(n);
end;
writeln; writeln;
end;
end;


begin
clrscr;
write('Opredelite kol-vo elementov v spiske : '); readln(n);

create_list(s,n);
print_list(s,n);

readkey;
end.

Оффтоп:
Может кто-нибудь написать простенькую программу на любом языке, которая бы без остановки нажимала на пробел (для Cs1.6, чтоб распрыжку делать =))) ).
Если можно чтоб активировалась при нажатии, например, CTRL+кнопка, и чтоб вырубалась также))).

Желательно бинарик. Огромное спасибо.

program lab2;
const p=3.14;
var c,d:real;
x1,x2,k,result:real;
z1,z2,z3:real;
begin

k:=c*10+d;
d:=9-4*c;
x1:=(-3+sqrt(d))/2;
x2:=(-3-sqrt(d))/2;
if x2>x1 then begin k:=x1; x1:=x2; x2:=k; end;



z1:=(sin(abs(c*(x1*x1*x1)+d*sqr(x2)-c*d )));
z2:=sqrt(sqr(c*sqr(x1*x1)+d*sqr(x2)-x1)+pi);
z3:=tan(c*SQR(x1*x1)+d*sqr(x2));
result:=(Sqr(z1*z1))/(z2)+z3
writeln(result);
readln;
end.

Нужны исходники простого, можно и сложного телефонного справочника)
желательно на C++ но приветствуется и Delphi
Заранее очень ОГРОМНОЕ спасибо и по возможности +++

uses crt;
const N = 50; {maksimalnoe kolvo zapisei v baze}

type PData = ^TData; {ukazatel na zapis}
TData = record {zapis}
name : string[20]; {name}
adress: string[30]; {adress}
tel : extended; {telefon}
end;

var base : array [1..N] of PData; {Massiv ukazatelei (indeksov)}
R: integer; {R - tekushee kolvo zapisei}
select: integer;

var f: file of TData; {file}
P,S,Snext : PData; {ukazatel}

procedure add (var base: array of Pdata; var R: integer); {dobavit zapis}
var select: char;
begin
new(p); {inicializaciya novogo ukazatelya}
R:=R+1; {tekushee kolvo ukazatelei}

write('ь ',R,' ”?Ћ [1..20] : '); readln(P^.name);
write('Ђ¤аҐб [1..30] : '); readln(P^.adress);
write('’Ґ«Ґд®* [1..11] : '); readln(P^.tel);
base[R]:=P; {zapisali v massiv ukazatelei}
end;


procedure del (var base: array of Pdata; var R: integer); {udalit zapis}
var select,L: integer;
tmp: Pdata;
begin
write('“Є*¦ЁвҐ *®¬Ґа г¤*«пҐ¬®© §*ЇЁбЁ ®в 1 ¤® ',R); readln(select);
for L:=select to R-1 do base[L]:=base[L+1];
R:=R-1; {udalili odnu zapis}
end;

procedure print (const base: array of Pdata; const R: integer); {vivod po indeksam}
var L: integer;
begin
clrscr;
gotoxy( 5,1); write('”?Ћ'); gotoxy(25,1); write('Ђ„ђ…‘'); gotoxy(55,1); write('’…‹…”ЋЌ');

for L:=1 to R do
begin
gotoxy( 1,L+2); write('#',L);
gotoxy( 5,L+2); write(base[L]^.name,' ');
gotoxy(25,L+2); write(base[L]^.adress);
gotoxy(55,L+2); write(base[L]^.tel:10:0);
end;
writeln; writeln;
end;


begin {telo programmi}
clrscr;

while select <> 7 do
begin {menu na ekran}
writeln('0.Џа®б¬®ва бЇа*ў®з*ЁЄ*');
writeln('1.„®Ў*ўЁвм §*ЇЁбм');
writeln('2.“¤*«Ёвм §*ЇЁбм');
writeln('3.‚л室');
readln(select);
case select of
0: print(base,R); {vivod bazi na ekran}
1: add(base,R); {dobavit zapis}
2: del(base,R); {udalit zapis}
4: select:=7; {vihod}
end;
write('Ќ*¦¬ЁвҐ «оЎго Є«*ўЁиг '); readkey; clrscr;
end;
end.

Добрые люди помогите создать программку на паскале, пожалуйста помогите бедному студенту ((((
а то завтра мне ######
вот задача:
------------------------------
Даны с и d. Вычислить

A=((sin(abs(c*x1^3+d*x2^2-c*d)))^3)/(sqr((c*x1^3+d*x2^2-x1)^2+3.15))+tg(c*x1^3+x2^2)

где : x1-больший, х2-меньший корень уравнения
x1^2-3*x2-│c*d│=0
------------------------------