Массив

[Zhuk.]

Помогите с задачкой.....
Постройте с помощью массива стек из 6 строковых элементов. Разместите в стеке шесть элементов: ‘name’, ‘fio’, ‘ves’, ‘age’, ‘rost’, ‘dlina’. Удалите из стека два элемента ‘dlina’ и ‘fio’ и добавьте новый элемент ‘size’. Результаты как промежуточных, так и конечных результатов отобразить на экране.

[Utkin]

a = [‘name’, ‘fio’, ‘ves’, ‘age’, ‘rost’, ‘dlina’]
puts a
a.pop
puts a
a.pop
a.pop
a.pop
a.pop
puts a
a.push 'size'

Навскидку, не проверял.

[Stilet]

Или типа:

MODULE Стеки;
IMPORT StdLog;
VAR
 Стек:ARRAY(10) OF ARRAY(250) OF CHAR;
 УказательСтека:INTEGER;

PROCEDURE pop(Элемент:ARRAY OF CHAR);
VAR i:INTEGER;
BEGIN
 i:=0;
 IF УказательСтека<10 THEN
  INC(УказательСтека);
  StdLog.String('Вносим');StdLog.Tab;
  StdLog.String(Элемент);
  WHILE (Элемент[i]#CHR(0))&(i<50) DO
   Стек[УказательСтека][i]:=Элемент[i];
   INC(i);
  END;
  Стек[УказательСтека][i]:=CHR(0);
 ELSE
  StdLog.String('Стек переполнен');
 END; 
 StdLog.Ln;
END pop;

PROCEDURE push;
BEGIN
 IF УказательСтека>0 THEN
  StdLog.String('Выносим');StdLog.Tab;
  StdLog.String(Стек[УказательСтека]);
  DEC(УказательСтека); 
 ELSE
   StdLog.String('Стек пуст');
 END;
 StdLog.Ln;
END push;

PROCEDURE do*;
BEGIN
 pop('name');
 pop('fio');
 pop('ves');
 pop('age');
 pop('rost');
 pop('dlina');
 push; push; push;push; push;
 pop('size');

END do;

BEGIN
 StdLog.Clear;
 УказательСтека:=0;
END Стеки.

Стеки.do;

Результат:

Вносим name
Вносим fio
Вносим ves
Вносим age
Вносим rost
Вносим dlina
Выносим dlina
Выносим rost
Выносим age
Выносим ves
Выносим fio
Вносим size

Utkin

F#. дружище?

[Utkin]

Сообщение от Stilet

F#. дружище?

Нет, я в последнее время больше по Руби прикалываюсь. Интересный язык, вызывает ностальгию по QBasic, но с другой стороны имеется строгость Паскаля... + все является объектом, даже числа тоже объекты и имеют свои методы...

[Zhuk.]

спасиб за помощь