Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
12 / 11 / 2
Регистрация: 13.09.2012
Сообщений: 147
1

Заполнить массив целых чисел случайным образом

07.07.2013, 13:12. Показов 1966. Ответов 4
Метки нет (Все метки)

Добрый день, прошу помочь решить эту сложную (для меня задачку). Спасибо за внимание к теме. Заполнить массив целых чисел случайным образом. Размерность массива не ограничена (в рамках динамической памяти), задается с клавиатуры. Определить, сколько места занимает в динамической памяти данный массив, а также: упорядочить массив по возрастанию.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.07.2013, 13:12
Ответы с готовыми решениями:

Заполнить случайным образом двумерный массив размерностью n на n
Заполнить случайным образом двумерный массив размерностью n на n. Обнулить минимальные элементы...

Заполнить случайным образом двумерный массив размерностью n на n
Заполнить случайным образом двумерный массив размерностью n на n. Поменять местами...

Заполнить случайным образом двумерный массив размерностью N x N
Заполнить случайным образом двумерный массив размерностью N x N. Поменять местами элементы...

Заполнить массив из десяти элементов случайным образом
Помогите пожалуйста решить задачу) Заполнить массив из десяти элементов случайным образом:целыми...

4
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,262
Записей в блоге: 1
08.07.2013, 10:53 2
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
31
Type Ttype=byte;
     mas=array[1..1] of Ttype;
Var A:^mas;
    i,j,n:integer;
    t:Ttype;
Begin
    write('Введите n: ');readln(n);
    GetMem(A,n*Sizeof(Ttype));
    {$R-}
    writeln('Исходный массив');
    For i:=1 to n do
     Begin
      A^[i]:=random(30);
      write(A^[i]:3);
     End;
    writeln;
    writeln('Массив из ',n,' элементов занял = ',n*Sizeof(Ttype));
    For i:=n downto 2 do
     For j:=2 to i do
      if A^[j]<A^[j-1] then
      Begin
        t:=A^[j];
        A^[j]:=A^[j-1];
        A^[j-1]:=t;
      End;
    writeln('Преобразованный массив');
    For i:=1 to n do
     write(A^[i]:3);
    FreeMem(A,n*Sizeof(Ttype));
    readln;
End.
1
12 / 11 / 2
Регистрация: 13.09.2012
Сообщений: 147
08.07.2013, 11:09  [ТС] 3
Спасибо, подскажите пожалуйста как еще в паскале абс убрать ошибку при запуске в этой строке FreeMem(A,n*Sizeof(Ttype)); - неверное количество фактических параметров...
0
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,262
Записей в блоге: 1
08.07.2013, 11:19 4
Цитата Сообщение от YamateH Посмотреть сообщение
Спасибо, подскажите пожалуйста как еще в паскале абс убрать ошибку при запуске в этой строке FreeMem(A,n*Sizeof(Ttype)); - неверное количество фактических параметров...
я это для TP делал,для ABC без понятия,или у тебя ABC.Net?
1
12 / 11 / 2
Регистрация: 13.09.2012
Сообщений: 147
08.07.2013, 11:28  [ТС] 5
Цитата Сообщение от CodeR Посмотреть сообщение
я это для TP делал,для ABC без понятия,или у тебя ABC.Net?
Скачал TP, работает) у меня просто Pascal ABC был, скачивал его давно, - для графиков по мне так он удобней. Спасибо за помощь еще раз.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.07.2013, 11:28

Заполнить случайным образом одномерный массив из n элементов
Заполнить случайным образом одномерный массив из n элементов и определить минимальную сумму...

Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 9
Помогите написать пожалуйста программы! №1. Одномерный массив из 7 элементов заполнить случайным...

Заполнить массив из 14 элементов случайным образом целыми значениями, лежащими в диапазоне от -8 до 13
Для выбора действия испол. комбинированный список! Заполнить массив из 14 элементов случайным...

Заполнить массив из 14 элементов случайным образом целыми значениями, лежащими в диапазоне от -8 до 13
Заполнить массив из 14 элементов случайным образом целыми значениями, лежащими в диапазоне от -8 до...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru