24.11.2010, 21:01 | #1 (ссылка) |
Новичок
Регистрация: 10.11.2010
Сообщений: 3
Репутация: 0
|
Динамические массивы в 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 вводится с клавиатуры. (в самом решении могут быть ошибки, но важно поянть две указанных выше) |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
Опции темы | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |