Вернуться   Компьютерный форум > Компьютеры > Программы > Программирование
 
 
Опции темы
Старый 24.11.2010, 21:01   #1 (ссылка)
Новичок
 
Регистрация: 10.11.2010
Сообщений: 3
Репутация: 0
Post Динамические массивы в pascal

у меня проблема с программой:
Type
IntArray = Array of LongInt;
Function GetDigits (n: LongInt): IntArray;
var
x: IntArray;
begin
while(n<>0) do
begin
SetLength(x, Length(x)+1);
x[Length (x)-1]:= n Mod 10;
n:= n div 10;
end;
GetDigits := x
end;
Function Krasota (x: IntArray): Boolean;
var
t, res, k: integer;
begin
t:=Length (x);
k:=0;
for i:=2 to t do
begin
If (x[i-1]=x[i]) then
begin
k:=1;
end;
end;
Krasota:=(k = 0);
end;
var
n, i, k res: Integer;
a: IntArray;
begin
readln(n);
k:=0;
i:=1;
While (k<>n) do
begin
If (Krasota (GetDigits (i)) then
begin
res:=i;
inc(k);
end;
inc(i);
end;
writeln(res);
readln;
end.
выдает следующие ошибки:
1. в строке "IntArray = Array of LongInt; ошибка 92:" Предполагается "[" или "("
2. в строке " Function GetDigits (n: LongInt): IntArray;" Ошибка 34: Ошибочный тип результата функции
Объясните пожалуйста как правильно описать динамический массив, и можно ли в результате работы функции указывать тип динамического массива. (программу желательно написать с использованием функций)
Вот условие:
Назовем число красивым если в его записи каждая цифра встречается один раз. Так ,например, число 312 красивое, а 999 - нет. Напишите программу которая находит К-атое по величине условие. число k вводится с клавиатуры. (в самом решении могут быть ошибки, но важно поянть две указанных выше)
deryck вне форума  
Ads
 


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal abc Wenera Программы 0 29.11.2010 20:03
Где можно скачать Turbo Pascal 7.0 без вирусов. cosmos4230 Программирование 2 03.10.2010 18:17
Pascal. Надеюсь здесь мне помогут с подпрограммой? зверрюга Программирование 2 19.06.2010 23:39
Массивы, Паскаль Анюта01 Программирование 1 01.04.2010 16:41
Двумерные массивы ZONDO Программирование 1 23.03.2010 16:39
Помошь с Pascal Чистый листочек Программирование 9 08.03.2010 07:35
Переход с Pascal на C++ Garf Программирование 1 07.03.2010 01:22
Как изучить синтаксис Pascal 7.0 s1gm@ Программирование 3 27.01.2010 08:59
Ссылка на Pascal s1gm@ Программирование 3 24.01.2010 23:39
Нужно решить задачу массивы на с Digkill Программирование 0 22.01.2010 17:54
Pascal нужна помощь, совсем запутался ( ZONDO Программирование 8 08.12.2009 19:26
Задача про перекресток (Turbo Pascal) NeedForSpeert Программирование 0 07.12.2009 22:18


Текущее время: 20:31. Часовой пояс GMT +4. Powered by vBulletin® Version 5.8.9
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.