Вопрос № 30523: доброе время суток!!!!
у меня такое задание
с помощью указательного типа вывести все эл-ты массива в обратном порядке
подскажите плиз что и где у меня не правильно
program ukazat_tip;
{$APPTYPE CONSOLE}
uses
SysUtils...
Вопрос № 30.523
доброе время суток!!!!
у меня такое задание
с помощью указательного типа вывести все эл-ты массива в обратном порядке
подскажите плиз что и где у меня не правильно
program ukazat_tip;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
list_r=^chis;
chis=record
value_:string;
next:list_r;
end;
const n=3;
a:array[1..n] of string=('roma','vasya','max');
var
m_list,current:list_r;
//s,s1,s2:string
i,i1:integer;
begin
//new(m_list);
//current:=m_list;
for i:=1 downto n do
begin
current^.value_:=a[i];
end;
writeln(a[i]);
readln;
end;
end.
Отправлен: 30.11.2005, 17:42
Вопрос задал: Sexy (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: sir henry
Здравствуйте, Sexy!
А при чем тут указатели? Вывести массив в обратном порядке можно с помощью конструкции For .. DownTo .. Do. Указатели здесь нужны так-же, как в бане лыжи.
Если Вы имели в виду что-то иное, то уточните вопрос.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 30.11.2005, 18:13