VPF::[Pascal] Динамический массив - Форум программистов

Tarantul2007

Дата 30.3.2007, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 5.3.2007

Репутация: нет
Всего: нет

Помогите разобраться с динамическими массивами потому что программа компилируется, но при вводе вылетает ! Почему ?
Это консольное приложение на Delphi ! Поэтому используется процедра Setlength.
program Array1;
{Дано целое число N.
Cформировать и вывести целочисленный массив размера N,
содержащий N первых положительных нечетных чисел: 1, 3, 5, … .
Использовать две процедуры:
первая формирует массив размера N, вторая выводит его на экран.}

Код


{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
type mas=array of ^integer;
var a:mas;
    n:integer;

procedure Form(var a:mas);
var i,m:integer;
begin
m:=1;
for i:=0 to n-1 do begin 
                            a[i]^:=m;
                            m:=m+2; 
                            end;
end;

procedure Vivod (a:mas);
var i:integer;
begin
for i:=0 to n-1 do write(a[i]^,' ');
end;

begin SetconsoleCP(1251);
SetconsoleoutputCP(1251);
repeat
write('Введите размер массива= ');
readln(n);
until (n>=20);
Setlength(a,n);
Form(a);
Vivod(a);
Setllength(a,0);
readln;
end.

M
Alexeis

Модератор: почему не было заголовка?

Используйте подсветку кода http://forum.vingrad.ru/index.php?showtopic=126445

Это сообщение отредактировал(а) Alexeis - 31.3.2007, 18:25

volvo877

Дата 30.3.2007, 21:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(Tarantul2007 @ 30.3.2007, 19:56

)

программа компилируется, но при вводе вылетает !

Потому, что не Array of ^Integer ... У тебя массив целых, а не указателей на целое...

Вот так:

Код


program Array1;
{$APPTYPE CONSOLE}

uses
  SysUtils, windows;

type mas=array of integer;
var a:mas;
    n:integer;

procedure Form(var a:mas);
var i,m:integer;
begin
m:=1;
for i:=0 to n-1 do begin 
                            a[i]:=m;
                            m:=m+2; 
                            end;
end;

procedure Vivod (a:mas);
var i:integer;
begin
for i:=0 to n-1 do write(a[i],' ');
end;

begin SetconsoleCP(1251);
SetconsoleoutputCP(1251);
repeat
write('Введите размер массива= ');
readln(n);
until (n>=20);
Setlength(a,n);
Form(a);
Vivod(a);
Setlength(a,0);
readln;
end.

Это сообщение отредактировал(а) volvo877 - 30.3.2007, 21:21

Tarantul2007

Дата 31.3.2007, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 5.3.2007

Репутация: нет
Всего: нет

Так с одномерном массивом разобрался теперь двумерный проблема таже вылетает !

Код


program Matrix98;
{Дана квадратная матрица A порядка M.
Повернуть ее на угол 180°
(при этом элемент A1,1 поменяется местами с AM,M,
элемент A1,2 - с AM,M-1 и т. д.).
Вспомогательную матрицу не использовать.
Использовать три процедуры: первая формирует матрицу порядка M,
вторая поворачивает матрицу на угол 180°, третья выводит матрицу на экран.}
{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
type mas=array of array of integer;
var a:mas;
    m:integer;

procedure Form(var a:mas);
var i,j:integer;
begin
randomize;
for i:=0 to m-1 do begin
for j:=0 to m-1 do a[i,j]:=random(20)-9;
end;
end;

procedure Povorot(var a:mas);
var i,j,z:integer;
begin
for i:=0 to m-1 do begin
for j:=0 to m-1 do begin
z:=a[i,j];
a[i,j]:=a[m-1,m-1];
a[m-1,m-1]:=z;
end;
end;
end;

procedure Vivod(a:mas);
var i,j:integer;
begin
for i:=0 to m-1 do begin
for j:=0 to m-1 do write(a[i,j],' ');
writeln;
end;
end;

begin
SetconsoleCP(1251);
SetconsoleoutputCP(1251);
repeat
write('Введите размер массива');
readln(m);
until m>=20;
Setlength(a,m);
Form(a);
Povorot(a);
Vivod(a);
Setlength(a,0);
readln;
end.

Программа еще не завершена поэтому не обращайте на вторую процедуру.

Это сообщение отредактировал(а) Tarantul2007 - 31.3.2007, 15:20

volvo877

Дата 31.3.2007, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(Tarantul2007 @ 31.3.2007, 15:16

)

теперь двумерный проблема таже вылетает

Само собой... Ты же его как одномерный инициализируешь... Надо вот так:

Код


Setlength(a, m, m); // <--- Теперь не должно вылетать

Tarantul2007

Дата 2.4.2007, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 5.3.2007

Репутация: нет
Всего: нет

Вроде разобрался вот только с задачей запутался

Код


program Matrix98;
{Дана квадратная матрица A порядка M.
Повернуть ее на угол 180°
(при этом элемент A1,1 поменяется местами с AM,M,
элемент A1,2 - с AM,M-1 и т. д.).
Вспомогательную матрицу не использовать.
Использовать три процедуры: первая формирует матрицу порядка M,
вторая поворачивает матрицу на угол 180°, третья выводит матрицу на экран.}
{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
type mas=array of array of integer;
var a:mas;
    m:integer;

procedure Form(var a:mas);
var i,j:integer;
begin
randomize;
for i:=0 to m-1 do begin
for j:=0 to m-1 do a[i,j]:=random(10);
end;
end;

procedure Povorot(var a:mas);
var i,j,tmp:integer;
begin
if odd(m)=false then begin
for i:=0 to m-1 do begin
for j:=0 to m-1 do begin
tmp:=a[i,j];
a[i,j]:=a[m-1-i,m-1-j];
a[m-1-i,m-1-j]:=tmp;
end;
end;
end
else
end;

procedure Vivod(a:mas);
var i,j:integer;
begin
for i:=0 to m-1 do begin
for j:=0 to m-1 do write(a[i,j],' ');
writeln;
end;
end;

begin
SetconsoleCP(1251);
SetconsoleoutputCP(1251);
repeat
write('Введите размер массива > 20 = ');
readln(m);
until m>=20;
Setlength(a,m,m);
Form(a);
writeln('----------------');
writeln('Начальный массив');
writeln('----------------');
Vivod(a);
Povorot(a);
writeln('---------------------------------');
writeln('Матрица повернута на 180 градусов');
writeln('---------------------------------');
Vivod(a);
Setlength(a,0);
readln;
end.

Не могу написать что-то процедуру поворота на 180 градусов!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »