С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
19 / 19 / 0
Регистрация: 24.10.2012
Сообщений: 72

Запуск модуля

19.12.2012, 22:20. Показов 505. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый вечер. Нужно сделать программу, которая запустит модуль. Буду благодарен за помощь



В нем содержатся такие задания:

1. Процедура введения прямоугольной матрицы размером m x n.
2. Процедура формирования прямоугольной матрицы размером m x (n1+n2) из двух матриц размером m x n1 и m x n2
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
  unit ap9;
 
interface
const
     n=5;
     m=5;
type matr=array[1..m,1..n] of integer;
procedure vvod(var a:matr; var n,m:integer; ch:char);
Procedure vyvod(a:Matr;n,m:integer);
Procedure slog(a1,a2:Matr;Var a:Matr;n,n1,n2:integer);
function element(a:matr; n,m:integer):real;
 
 
implementation
 
procedure vvod;
var i,j:integer;
begin
    writeln('vvedite kolichestvo strok matrici ',ch,' m=');
     read(m);
    writeln('vvedite kolichestvo slobcov matrici ',ch,' n=');
    read(n);
    writeln('vvedite matricu ',ch,'(',n,',',m,'):');
     for i:=1 to m do
      begin
       for j:=1 to n do
        begin
        write('vvedite', ch, '[',i,',',j,']:');
        readln(a[i,j]);
        end;
 
        end;
       end;
 
Procedure vyvod;
var
   i,j:integer;
begin
     for i:=1 to m do begin
         for j:=1 to n do
             write(a[i,j],'   ');
             writeln;
         end;
end;
 
 
  Procedure slog;
    Var i,j:integer;
  begin
  for i:=1 to m do
      for j:=1 to n1+n2 do
      begin
      if j<=n1 then a[i,j]:=a1[i,j];
      if j>n1 then a[i,j]:=a2[i,j-n1];
      end;
end;
 
 
type
Matrtype=array[1..m,1..n] of real;
 
function element(a:matr; n,m:integer):real;
var
i,j,min:integer;
 
 
begin
min:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
 
end;
 
end.
Добавлено через 4 минуты
Еще там ошибка, скорее всего, в функции на 62 строчке и ниже.
1
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.12.2012, 22:20
Ответы с готовыми решениями:

В начало каждого модуля должен быть помещен комментарий, описывающий функции данного модуля
Очень нужна ваша помощь. Пожалуйста, кто знает, помогите с этой задачей. Задача на тему: Использование процедур и функций Примечание: В...

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

запуск модуля из модуля (Sub test() CommandBars(1).Enabled = False load module2.test1 End Sub)
Sub test() CommandBars(1).Enabled = False load module2.test1 End Subвот что-то типа такого и не воркает.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.12.2012, 22:20
Помогаю со студенческими работами здесь

Запуск модуля из другого модуля
Возможно ли запустить весь модуль целиком из события формы? Sub Кнопка_Click() Module1 End SubПри ссылке на модуль выдает ошибку:...

Запуск модуля в Python
Начал изучение языка программирования Python пару дней назад. По ходу разбираюсь с функциями и всем остальным, но всегда возникает какие-то...

Запуск модуля приложения из памяти
Есть приложение, в нем находится некий модуль с процедурой. Мне нужно выполнить эту процедуру не запуская приложение. К примеру, я...

Запуск программы из стандартного модуля
Люди подскажите пожалуйста, как мне из формы, вызвав событие _Click, запустить процедуру из стандартного модуля? (не из объектного модуля,...

Таймер: запуск модуля каждые 15 секунд
Есть модуль который надо запускать каждые 15 секунд как реализовать средствами vba?


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru