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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2017, 14:23   #1
0525
 
Регистрация: 09.11.2017
Сообщений: 9
По умолчанию Модуль

Модуль :
Код:
unit modul;
interface
const n=5;
type mas=array[1..n] of integer;
procedure massiv(var a:mas);
function min(a:mas):integer;
procedure zero(var a:mas);
implementation
procedure massiv(var a:mas);
var i:integer;
begin
writeln('Введите ',n,' элементов массива, целые числа');
for i:=1 to n do
read(a[i]);
end;
function min(a:mas):integer;
var i,m:integer;
begin
m:=1;
for i:=2 to n do
if a[i]<a[m] then m:=i;
min:=m;
end;
procedure zero(var a:mas);
var i:integer;
begin
for i:=min(a)+1 to n do
a[i]:=0;
writeln;
writeln('Массив после замены');
for i:=1 to n do
write(a[i],' ');
end;
end.
Программа :
Код:
uses modul;
var a:mas;
begin
massiv(a);
zero(a);
end.
Мне нужно сделать 1) вывод в самой программе и то, что 2) находится до процедур сделать опять же в программе. Как это сделать?
0525 вне форума Ответить с цитированием
Старый 19.12.2017, 14:33   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от 0525 Посмотреть сообщение
Как это сделать?
что сделать? Выкинуть модуль и всё, что в нём есть написать в коде основной программы?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.12.2017, 14:39   #3
0525
 
Регистрация: 09.11.2017
Сообщений: 9
По умолчанию

Не нужно модуль выкидывать. В этом то и заключается смысл задачи)
Сделайте просто вывод в самой программе. Потому , что то, как я обратился из программы к модулю - преподавателю не понравилось)
0525 вне форума Ответить с цитированием
Старый 19.12.2017, 14:49   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Ну коль смог там вывод сделать, что мешает его перетащить в другое место?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 19.12.2017, 14:49   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от 0525 Посмотреть сообщение
Сделайте просто вывод в самой программе
зачем, если он есть в модуле?

он такое хочет?

Код:
....
procedure zero(var a:mas);
var i:integer;
begin
   for i:=min(a)+1 to n do a[i]:=0;
end;
Код:
uses modul;
var a:mas;
  i:integer;
begin
  massiv(a);
  zero(a);

  {вывод массива a}
  WriteLn('Массив после замены');
  for i:=1 to n do write(a[i],' ');
  WriteLn;

end.
Цитата:
Сообщение от 0525 Посмотреть сообщение
Потому , что то, как я обратился из программы к модулю - преподавателю не понравилось)
что конкретно не понравилось?

p.s. может быть, преподаватель подозревает, что модуль написали не Вы и не понимаете, как он работает?
и хочет проверить ваши знания?

Последний раз редактировалось Serge_Bliznykov; 19.12.2017 в 14:52.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В модуль поместить функции сортировки символьных и числовых массивов. Подключить созданный модуль и применить эти функции к вводим Tuns Помощь студентам 6 27.05.2014 15:07
Создать собственный модуль и программу, использующую этот модуль. Oraner Паскаль, Turbo Pascal, PascalABC.NET 2 02.12.2012 13:15
Модуль Graph или графический модуль Seferus Паскаль, Turbo Pascal, PascalABC.NET 0 11.12.2011 13:15
модуль SaDaKo C++ Builder 0 24.09.2011 13:53
Типизированные файлы, модуль Crt, Модуль Graph Kate_Fleur Помощь студентам 1 06.05.2010 17:43