Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
102 / 89 / 75
Регистрация: 04.11.2011
Сообщений: 1,811
1

Статический в динамический массив

02.11.2015, 19:33. Показов 1275. Ответов 3
Метки нет (Все метки)

Помогите переписать программу(чтобы использовался динамический массив)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Var A:array[1..20,1..20] of integer;
    X:array[1..20] of byte;
    i,j,n:byte;
    pr:longint;
Begin
    write('Введите N: ');readln(n);
    pr:=1;
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
        pr:=pr*A[i,j];
      End;
      if A[i,i]<1 then X[i]:=0 
       else X[i]:=1;
      writeln;
    End;
    writeln('Полученный массив');
    For i:=1 to n do
     write(X[i]:2);
    writeln;
    writeln('Произведение матрицы = ',pr);
    readln;
End.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2015, 19:33
Ответы с готовыми решениями:

Как преобразовать статический массив в динамический?
uses crt; const nmax=100; var a:array of integer; n,i,i1,k:byte; begin clrscr; randomize;...

Последовательность и статический массив
помогите пожалуйста . навалилось очень много заданий , и со всеми справиться не могу помогите с...

Заменить статический массив на динамический
program massiv; type mass=array of real; var m: mass; var i,x: integer; var min: real; begin...

Статический одномерный массив
Помогите пожалуйста написать программу на паскале.Заранее спасибо Есть 3 статических одномерных...

3
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
02.11.2015, 19:40 2
какой паскаль?
0
102 / 89 / 75
Регистрация: 04.11.2011
Сообщений: 1,811
02.11.2015, 19:47  [ТС] 3
ABC
0
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
02.11.2015, 19:51 4
Лучший ответ Сообщение было отмечено Xo6ut как решение

Решение

для FPC:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
const
    convert: Array[Boolean] Of Byte = (1, 0);
var
    a: Array Of Array Of ShortInt;
    x: Array Of Boolean;
    i, j, n: Byte;
    pr: Extended;
begin
    repeat
        Write('Введите N: '); ReadLn(n);
    until (n > 0);
    pr := 1;
    SetLength(a, n, n); SetLength(x, n);
    for i := 0 to n - 1 do
    begin
        for j := 0 to n - 1 do
        begin
            a[i, j] := Random(31) - 15;
            Write(a[i, j]:4);
            pr := pr * a[i, j];
        end;
        WriteLn;
        x[i] := (a[i, i] < 0);
    end;
    Write('Полученный массив:');
    for i := 0 to n - 1 do
        Write(convert[x[i]]:2);
    WriteLn;
    Write('Произведение матрицы = ', pr:0:0);
end.
Добавлено через 1 минуту
по идее и под abc должон завестись. разве что с SetLength(array, n, m) проблема возникнет.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2015, 19:51

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Изменить статический массив на динамический
Нужно сделать так, чтобы программа была написана через динамический массив Program A14_4; uses...

Динамический массив в статический
Есть метод, который принимает в качестве параметра статический массив типа double. В этот метод...

Статический и динамический массив
Помогите пожалуйста. Мучаюсь уже месяцю Даны статический и динамический массивы одинаковой...

Динамический и статический массив
Подскажите, в чем разница. Имеется статический массив, который просто задается: long mas = { 0 };...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.