Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вставить после каждого минимального элемента максимальный Помогите решить! Пусть дана последовательность из N элементов. Увеличьте ее, вставив после каждого минимального элемента максимальный. ЖДУ https://www.cyberforum.ru/ pascal/ thread99210.html Определить количество строк матрицы, не содержащих ни одного нулевого элемента Pascal
Задание: Целочисленная прямоугольная матрица заполняется с помощью генератора случайных чисел значениями из промежутка . Определить количество строк, не содержащих ни одного нулевого элемента. P....
Pascal логическая функция\процедура Задача 1 Составить логическую функцию, проверяющую, упорядочены ли по возрастанию элементы непустого файла целого типа. Отладить функцию на модельной задаче Задача 2 Составить процедуру,... https://www.cyberforum.ru/ pascal/ thread99188.html Pascal Игра Cчиталка очередь. реализовать игру считалка, начав отчет от первого, удалять каджый k-ый элемент (k задано). Выводить удаляемые элементы. https://www.cyberforum.ru/ pascal/ thread99172.html
След матрицы, обмен строки и диагонали Pascal
1 задание Ввести квадратные матрицы X1 N1×N1 , X2 N2×N2 и X3 N3×N3 . Найти минимальное из 3-х чисел: Tr1 , Tr2 , Tr3 , каждое из которых является следом соответствующей матрицы (суммой...
Pascal модули Сгенерировать случайным образом и вывести на экран 11 окон разного цвета. Сгенерировать последовательность группы звуков, составляющих гамму. Создать комбинированное меню. Создать каталог под именем... https://www.cyberforum.ru/ pascal/ thread99150.html
Pascal Значение функции https://www.cyberforum.ru/ pascal/ thread99143.html
Задачка не сложная: Вычислить значение функции f(a,b ), нужно решить с помощью подпрограмм. uses crt; function ONE(x,y:real):real; var k:real; begin k:=sqr(x)+x*y+sqr(y); ONE:=sqrt(k);...
Pascal Рекурсия с точностью
Даны действительные числа x и ε (ε > 0). Последовательность a1, a2, … образована по следующему закону: a1= x; далее, для n=2, 3, … выполнено: an=sqrt(abs(4*sqr(an-1)-2*x)); С помощью рекурсии...
Pascal Найти минимальный элемент для каждой строки матрицы https://www.cyberforum.ru/ pascal/ thread99127.html
Для каждой строки матрицы найти минимальный элемент и записать их в одномерный массив. Матрицу ввести с клавиатуры.
Pascal Вычисление выражения Найти значение функции y(x) при заданном x(задается с клавиатуры). Используя стандартные функции вычислить целую часть числа y11= и y22= ( целая часть). Записать выражение, зависящее от координат... https://www.cyberforum.ru/ pascal/ thread99126.html
Необходимо переделать прогу что б в ней присутствовали процедуры Pascal
Необходимо переделать задачу что б в ней присутствовали процедуры Вычислить элементы массива а,i,j=1,...,n, по заданному вектору x=(xi),i=1,...,n,<=20, а членами разложения функции sin(xi) в ряд...
Pascal Для каждой строки матрицы найти минимальный элемент Для каждой строки матрицы найти минимальный элемент и записать их в одномерный массив. Матрицу ввести с клавиатуры. https://www.cyberforum.ru/ pascal/ thread99124.html
1063 / 130 / 34
Регистрация: 09.10.2009
Сообщений: 271
26.02.2010, 09:39 0

Описать тип указатель, базовым типом которого является массив - Pascal - Ответ 568891

26.02.2010, 09:39. Показов 2392. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

если правильно поняла и нужен просто один указатель на один массив из 50 эл-тов

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
const n = 50;
type 
   tArr = Array[1..n] of real; - тим массива
   pArr = ^tArr;  - тип указатель на массив
 
var p: pArr;  i: integer;
 
begin 
  new(p); - выделили динамически память под то, на что указывает р
 
  for i := 1 to n do p^[i] := 0; 
 
  p^[1] := 2.25;
  p^[4] := 3.5;
  p^[5] := 3.5;
  p^[6] := 3.5;
 
  writeln('El-ti massiva :');
  for i := 1 to n do 
     write(p^[i]:4:2, ' ');
  readln; 
 
  dispose(p);   освободили память, адрес которой содержится в р
 
end.


Вернуться к обсуждению:
Описать тип указатель, базовым типом которого является массив Pascal
3
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2010, 09:39
Готовые ответы и решения:

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

Как проверить, что тип T является типом Nullable<T1>?
Как проверить, что тип T является типом Nullable&lt;T1&gt;, где T1 неизвестный тип?

Что называется базовым типом множества
Следующий вопрос, что называется базовым типом множества? Я предполагаю следующий ответ: это тип...

Массив: Поменять местами столбец, произведение элементов которого является наименьшим, со столбцом, сумма элементов которого является наибольшей
Дана матрица вещественных чисел. Поменять местами столбец, произведение элементов которого является...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2010, 09:39

Заданные множественные числа элементов с базовым типом byte: А=[1,3,5,7,9], В=[3, 5, 9]
Выбрать все элементы множественного числа А, что не принадлежат В, и вывести их значение на печать....

Как можно выполнить преобразование списка с базовым типом в список с производным?
Поодиночке я делаю это с помощью такого конструктора: DerivedClass(BaseClass bc) {}...

Объект с базовым типом вектор и производным матрицей.Нужно лишь несколько советов
Необходимо произвести скалярное умножение двух векторов и суммирование матрицы. Пытался делать,но...

Даны 2 множества А и В с одним и тем же базовым типом. Определить новое множество ,равное пересечению А и В.
Даны 2 множества А и В с одним и тем же базовым типом. Определить новое множество ,равное...

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