1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
В общем пытаюсь создать программа Модуль юнит, и ТПУ никак создать не могу... Не понимаю что писать в Interface
Вот что есть:
unit Denis; Interface Procedure Info; Function FindMin... Implementation Uses CRT; const max=10; type Masiv=array[1..max]of integer; function FindMin(mas:Masiv):integer; var min,i,n:integer; begin min:=mas[1]; for i:=2 to 10 do if mas[i]<min then min:=mas[i]; Result:=min end; end.
И
uses Denis; var a:Masiv; i,s,n:integer; begin for i:=1 to max do a[i]:=random(300)-150; writeln('Min el v massive raven:',FindMin(a)); end.
В общем пытаюсь создать программа Модуль юнит, и ТПУ никак создать не могу... Не понимаю что писать в Interface
Вот что есть:
unit Denis; Interface Procedure Info; Function FindMin... Implementation Uses CRT; const max=10; type Masiv=array[1..max]of integer; function FindMin(mas:Masiv):integer; var min,i,n:integer; begin min:=mas[1]; for i:=2 to 10 do if mas[i]<min then min:=mas[i]; Result:=min end; end.
И
uses Denis; var a:Masiv; i,s,n:integer; begin for i:=1 to max do a[i]:=random(300)-150; writeln('Min el v massive raven:',FindMin(a)); end.
Там (в твоем случае) должны бьть: 1. описание константы max; 2. описание типа Masiv; 3. объявление заголовка FindMax - точно так же, как оно появляется дальше.
то есть:
unit Denis;
Interface
const max=10;
type Masiv=array[1..max]of integer;
{ Procedure Info; // этой процедуры нету (пока?) } Function FindMin(mas:Masiv):integer;
Implementation
Uses CRT;
function FindMin(mas:Masiv):integer; var min,i,n:integer; begin min:=mas[1]; for i:=2 to 10 do if mas[i]<min then min:=mas[i]; Result:=min end;
end.
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой