Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 22.04.2014, 13:30   #1
Алексей1994
Пользователь
 
Регистрация: 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.
Спасибо за внимание!!!!!
Алексей1994 вне форума
Старый 22.04.2014, 13:38   #2
AnryKZKZ
Пользователь
 
Регистрация: 15.04.2014
Сообщений: 62
По умолчанию

Не совсем понятно - в чем проблема? Часть функций / процедур перенесите в отдельный модуль. А из главной программы вызывайте процедуры / функции.
AnryKZKZ вне форума
Старый 22.04.2014, 13:41   #3
Алексей1994
Пользователь
 
Регистрация: 25.03.2014
Сообщений: 21
По умолчанию

Можете показать на примере одной из моих программ. Просто не много не понял. Думаю так будет понятнее и со вторым я уже справлюсь сам. Если конечно вам не сложно.
Алексей1994 вне форума
Старый 22.04.2014, 14:03   #4
AnryKZKZ
Пользователь
 
Регистрация: 15.04.2014
Сообщений: 62
По умолчанию

ну примерно делается так:
модуль1
Код:
unit modul1;
interface
procedure P1;
procedure P2;
...
implementation
procedure P1;
begin
...
end;

procedure P2;
begin
...
end;
А в программе пишем
uses modul1;

Более точно и подробно есть в статьях:
http://life-prog.ru/view_algoritmleng.php?id=117
http://itteach.ru/pascal/pascal-modul-unit
AnryKZKZ вне форума
Старый 22.04.2014, 14:10   #5
Алексей1994
Пользователь
 
Регистрация: 25.03.2014
Сообщений: 21
По умолчанию

Огромное спасибо!!!
Алексей1994 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
библиотечные модули пользователя,модули 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