Описание процедуры

[phantom4eg]

Ребят помогите разобраться..
Описать процедуру, которая :
а) проверяет упорядочены ли элементы списка по алфавиту (элементы типа = 'а'..'z');
б) находит сумму первого и последнего элементов списка (элементы типа Real);

[Stilet]

Что такое "список" в твоем понимании.

[alex_fcsm]

ИМХО делать лучше функции

const n=10;
type  TComp=array[1..n] of char;

var x:TComp;
    i:integer;
    flag:boolean;
procedure Sort(a:TComp; var res:boolean);
var i:integer;
begin
res:=true;
for i:=1 to n-1 do
 if a[i]>a[i+1] then res:=false;
end;

begin
for i:=1 to n do
 x[i]:=chr(random(26)+97);
Sort(x,flag);
if flag then writeln('Sort')
   else writeln('No');
end.

P.S. Сорри, не обратил внимания, что нужен список и сделал на массивах

Тогда посмотри эту тему

[phantom4eg]

Как я понял на лекции это структура данных где каждый элемет связан со следующим посредством указателя...

[phantom4eg]

Ребят... Извините за наглость я просто действительно ничего не соображаю в этом.. завтра уже сдать надо... выручет может кто нибудь.. у нас это не профилирующий предмет.. сдать-то надо

[alex_fcsm]

uses crt;

type TList = ^Node;
      node=record
        x:char;
        next:TList;
      end;

var head,k:TList;
    s:string;
    f:boolean;
    x:char;
    i,n:integer;

procedure Insert(var l,m:TList;x:char);
var cur:TList;

begin
  cur:=l;
while cur^.next<>nil do
 cur :=cur^.next;
 cur^.next:=m;
 m^.next:=nil;
 m^.x:=x;
end;

procedure Print;
var cur:TList;
begin
cur:=head^.next;
while cur<> nil do
begin
 write(cur^.x);
 cur:=cur^.next;
end;
end;

procedure Look(var f:boolean);

var cur:TList;
    s:char;
begin
  f:=true;
  cur :=head^.next;
  s:=head^.x;
  while cur<>nil do
   begin
    if cur^.x<s then f:=false;
    s:=cur^.x;
    cur:=cur^.next;
   end;

end;

begin
writeln('Сколько символов?');
readln(n);
clrscr;
f:=false;
New(head);
head^.next:=nil;
head^.x:=#3;
for i:=1 to n do
  begin
  read(x);
  new(k);
  Insert(head,k,x);
 end;
Look(f);
if f then writeln('Sort')
   else writeln('NO');
Print;
end.

uses crt;

type TList = ^Node;
      node=record
        x:real;
        next:TList;
      end;

var head,k:TList;
    x:real;
    i,n:integer;

procedure Insert(var l,m:TList;x:real);
var cur:TList;

begin
  cur:=l;
while cur^.next<>nil do
 cur :=cur^.next;
 cur^.next:=m;
 m^.next:=nil;
 m^.x:=x;
end;

procedure Print;
var cur:TList;
begin
cur:=head^.next;
while cur<> nil do
begin
 write(cur^.x);
 cur:=cur^.next;
end;
end;

procedure Look;

var cur:TList;
    s:real;
begin
  cur :=head^.next;
  s:=cur^.x;
  while cur<>nil do
   begin
   if cur^.next=nil then writeln('Сумма:',s+cur^.x);
    cur:=cur^.next;
   end;
end;

begin
writeln('Сколько чисел?');
readln(n);
clrscr;
New(head);
head^.next:=nil;
head^.x:=0;
for i:=1 to n do
  begin
  read(x);
  new(k);
  Insert(head,k,x);
 end;
Look;
Print;
end.

[phantom4eg]

Спасибо громаднейшее выручил