Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Обработка символьных данных сложной структуры Составить программу для обработки информации о студентах. Каждый студент характеризуется совокупность признаков. Фамилия имя отчество Год рождения Пол Оценки по физике Оценки по математике... https://www.cyberforum.ru/ pascal/ thread1391922.html Pascal Сформировать на экране заданное изображение
Написать программу на Паскале,которая формирует на экране изображение.
Pascal Движение по лабиринту: Определить и вывести на экран кратчайшее расстояние Задача: Задано поле МхN клеток, в которых расположены нули и единицы.Его называют лабиринтом, а единицы стенами.Необходимо определить и вывести на экран кратчайшее расстояние из клетки (x, y) в... https://www.cyberforum.ru/ pascal/ thread1391886.html Pascal Ввести два натуральных числа, каждое из которых содержит по 1000 знаков. Вывести их разность Сроч но! Ввести два натуральных числа, каждое из которых содержит по 1000 знаков. Вывести их разность. Гарантируется, что второе число не превосходит первое. https://www.cyberforum.ru/ pascal/ thread1391880.html
Pascal Определить, сколько возможно построить различных программ для исполнителя, которые преобразуют число х в у
У некоторого исполнителя, обрабатывающего числа, есть три команды: +1, +2, *3. Исполнитель получает на вход некоторое число и программу, представляющую собой некоторую последовательность...
Pascal Нарисовать узор в графическом режиме https://www.cyberforum.ru/ pascal/ thread1391861.html
Здравствуйте! Нужно написать программу в графическом режиме, которая выводит изображенный ниже узор. Использовать циклы.
Pascal Как запустить программу? что прописать в bat-файле, который открывает пример в паскале? если можно пропишите код и объясните пожалуйста https://www.cyberforum.ru/ pascal/ thread1391674.html Pascal С клавиатуры последовательно вводятся символы до первого символа "!" Подсчитать количество символов ";"
С клавиатуры последовательно вводятся символы до первого символа "!" Подсчитать количество символов ";" Использовать while do для решения задачи. Помогите, пожалуйста.
Pascal Во введенной строке подсчитайте количество определенных символов https://www.cyberforum.ru/ pascal/ thread1391535.html
Во введенной строке подсчитайте количество символов "*" и символов "!".
Pascal Программа, инвертирующая слова в строке Ребя нужно написать программу которая инверсирует строку. Вот программа(но она не меняет слова местами, пример :ввод 123 abc, вывод cba 321, А нужно чтобы было 321 cba) var s: string; ... https://www.cyberforum.ru/ pascal/ thread1391440.html
Поиск в графе в ширину заданном списками инциденций Pascal
Добрый день. Пытаюсь написать функцию поиска в ширину в графе, заданным списками инциденций. Работает не правильно, пропускает вершины. Помогите пожалуйста разобраться с программой. program...
Pascal Протабулировать функцию на промежутке с заданным шагом Протабулировать функцию у = 4cos (х2-2) на промежутке с шагом h = 0,02. Результаты вычислений вывести на экран в виде таблицы. Вычислить сумму первого и последнего значений функции. https://www.cyberforum.ru/ pascal/ thread1391302.html
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6163 / 3692 / 2555
Регистрация: 22.11.2013
Сообщений: 10,522
Записей в блоге: 1
12.03.2015, 17:54 0

Использование имени массива как параметра функции - Pascal - Ответ 7332106

12.03.2015, 17:54. Показов 1475. Ответов 2
Метки (Все метки)

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

Решение

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
32
33
34
const
  n=5;
type
  TMatrix = array [1..n,1..n] of Integer;
 
function  Clc(const a: TMatrix; c1, c2: Integer): Integer;
var
  m1, m2, i: Integer;
begin
  m1:=a[1,c1]; m2:=a[1,c2];
  for i:=2 to n do begin
    if a[i,c1]>m1 then m1:=a[i,c1];
    if a[i,c2]>m2 then m2:=a[i,c2];
  end;
  Clc:=Abs(m1-m2);
end;
 
var
  a: TMatrix;
  i, j: Integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(100); Write(a[i,j]:4);
    end; WriteLn;
  end;
  repeat
    Write('Индексы 2-х столбцов: '); ReadLn(i,j);
  until (i in [1..n]) and (j in [1..n]) and (i<>j);
  WriteLn('Модуль разности максимальных элементов заданных столбцов: ',
    Clc(a, i, j));
end.


Вернуться к обсуждению:
Использование имени массива как параметра функции Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2015, 17:54
Готовые ответы и решения:

Использование имени процедуры в качестве параметра другой процедуры
Для заданного массива В составить процедуру, определяющую отрезок, на который попадают заданного...

Использование имени процедуры в качестве параметра другой процедуры
Составить программу по заданному условию.Первая часть условия является заданием на разработку...

Использование массива как параметра функции
Для получения результата составить функцию, исходными данными которой являются два массива Х1,...

Использование массива как параметра функции
Для получения результата составить функцию, исходными данными которой являются два массива X1, X2,...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2015, 17:54

Использование имени процедуры в качестве параметра другой процедуры
Help! Для массива С из n элементов составить процедуру, которая находит значения m наименьших его...

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

Использование массива как параметра функции
Ребята, невероятно срочно нужна помощь с программой) &quot;Для получения результата составить...

Использование массива, как параметра функции
Нашёл данную статью https://www.cyberforum.ru/cpp-beginners/thread1634378.html и заинтересовался,...

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