|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
22.04.2014, 13:30 | #1 |
Пользователь
Регистрация: 25.03.2014
Сообщений: 21
|
Модули.
Здравствуйте. Не владею модулями, но нужно написать программы с использованием модулей.Не сочтите за наглость попросить вашей помощи программисты.
Во текст программ: 1.Program Zamena; const N_max=100;M_max=100; type TMyArray=Array[1..N_max, 1..M_max] of Integer; var A:TMyArray; n, m, t: Integer; procedure Zapolnenie(var a:TMyArray); var i, j:byte; result: integer; begin For i:=1 to n do For j:=1 to m do a[i, j]:=random(20)-10; end; Procedure Poisk( var a:TMyArray); var i,j: byte; max1, n_max1:integer; begin for i:=1 to n do begin max1:=a[i, 1]; n_max1:=1; for j:=2 to m do if a[i, j]>max1 then begin max1:=a[i, j]; n_max1:=j; end; a[i, n_max1]:= -a[i, n_max1]; writeln('ìàêñèìàëüíûé ýëåìåíò â ', i, ' -é ñòðîêå ', max1); writeln('íîìåð ìàêñèìàëüíîãî ýëåìåíòà â ', i, ' -é ñòðîêå ', n_max1); end; end; Procedure Vivod ( var a:TMyArray); var i,j:byte; n_max1: integer; begin for i:=1 to n do begin for j:=1 to m do write(a[i,j], ' '); writeln; end; end; begin Writeln ('ââåäèòå êîëè÷åñòâî ñòðîê è ñòîëáöîâ ìàòðèöû'); Readln (n,m); Zapolnenie(a); Poisk(a); Vivod(a); end. И вторая: 2.var a: array[1..100, 1..100] of integer; i, j, k, n, m: integer; begin read(n, m); for i := 1 to n do for j := 1 to m do a[i,j] := (i-1)*m + j; WriteLn('Èñõîäíûé ìàññèâ: '); for i := 1 to n do begin for j := 1 to m do write(a[i, j]: 3); writeln; end; for i := n downto 1 do if a[i, 1] mod 3 = 0 then begin for k:=n downto i do for j := 1 to m do a[k+1, j] := a[k, j]; inc(n); for j := 1 to m do a[i, j] := 0; end; WriteLn('Ðåçóëüòèðóþùèé ìàññèâ: '); for i := 1 to n do begin for j := 1 to m do write(a[i, j]: 3); writeln; end; Readln end. Спасибо за внимание!!!!! |
22.04.2014, 13:38 | #2 |
Пользователь
Регистрация: 15.04.2014
Сообщений: 62
|
Не совсем понятно - в чем проблема? Часть функций / процедур перенесите в отдельный модуль. А из главной программы вызывайте процедуры / функции.
|
22.04.2014, 13:41 | #3 |
Пользователь
Регистрация: 25.03.2014
Сообщений: 21
|
Можете показать на примере одной из моих программ. Просто не много не понял. Думаю так будет понятнее и со вторым я уже справлюсь сам. Если конечно вам не сложно.
|
22.04.2014, 14:03 | #4 |
Пользователь
Регистрация: 15.04.2014
Сообщений: 62
|
ну примерно делается так:
модуль1 Код:
uses modul1; Более точно и подробно есть в статьях: http://life-prog.ru/view_algoritmleng.php?id=117 http://itteach.ru/pascal/pascal-modul-unit |
22.04.2014, 14:10 | #5 |
Пользователь
Регистрация: 25.03.2014
Сообщений: 21
|
Огромное спасибо!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
библиотечные модули пользователя,модули CRT и DOS | лерка:) | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 08.01.2012 14:57 |
Модули | Наташок | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 06.10.2010 16:26 |
Модули | taprot | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 02.06.2010 12:49 |
Модули | pasha92 | Помощь студентам | 0 | 25.12.2009 20:10 |
модули | felmor | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 18.05.2009 01:17 |