16.03.2011, 23:06 | #1 (permalink) |
Новичок
Регистрация: 16.03.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы
Написать программу размещения элементов заданного вектора в обратном порядке (без использования дополнительного массива). P.S. задача по паскалю. |
16.03.2011, 23:06 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка вам будет полезна информация которая содержится в данных обсуждениях Массивы Массивы |
17.03.2011, 09:47 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const N=16; VAR A:Array[0..N] of Byte; i,d:Byte; BEGIN Randomize; For i:=0 to N do begin A[i]:=Random(100); Write(A[i]:4); end; Writeln; Writeln; For i:=0 to (N div 2) do begin d:=A[i]; A[i]:=A[N-i]; A[N-i]:=d; end; For i:=0 to N do Write(A[i]:4); Writeln; ReadLn; END. |
|
31.03.2011, 20:59 | #5 (permalink) |
Новичок
Регистрация: 16.03.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
большое спасибо)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.04.2011, 00:19 | #9 (permalink) | |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
вот что нашел
Попробуйте создавать их динамически, в куче - Heap (GetMem, FreeMem). Работать с ними нужно через указатели. или Цитата:
еще скачайте книгу В.В. Фаронов. Turbo Pascal в подлиннике. Наиболее полное руководство |
|
08.04.2011, 09:32 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Здрасьте пожалуйста приехали! Нету, стало быть? И указателей нету? И с каких это пор? И что же тогда в нем есть?
А вот и вариант программы, использующий как раз то, чего в Паскале якобы нет: Код:
TYPE T=Array[0..1] of Byte; VAR A:^T; d:^Byte; i,N:Byte; BEGIN {$R-} Write('N= '); ReadLn(N); GetMem(A, SizeOf(Byte)*(N+1)); Randomize; For i:=0 to N do begin A^[i]:=Random(100); Write(A^[i]:4); end; Writeln; Writeln; New(d); For i:=0 to (N div 2) do begin d^:=A^[i]; A^[i]:=A^[N-i]; A^[N-i]:=d^; end; Dispose(d); For i:=0 to N do Write(A^[i]:4); Writeln; FreeMem(A, SizeOf(Byte)*(N+1)); ReadLn; END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|