Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Модуль Unit

Автор: Student91 16.03.2011 14:27

В общем пытаюсь создать программа Модуль юнит, и ТПУ никак создать не могу... Не понимаю что писать в Interface sad.gif

Вот что есть:


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.



Автор: TarasBer 16.03.2011 15:52

interface

Function FindMin(mas:Masiv):integer;

implementation

Автор: Lapp 16.03.2011 15:55

Цитата(Student91 @ 16.03.2011 10:27) *

В общем пытаюсь создать программа Модуль юнит, и ТПУ никак создать не могу... Не понимаю что писать в Interface sad.gif

Вот что есть:

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.

Автор: volvo 16.03.2011 16:24

Result скорее всего не сработает. Турбо Паскаль все-таки (было упоминание о TPU), надо будет сделать

...
FindMin := min;
...

Автор: Lapp 16.03.2011 16:33

Цитата(volvo @ 16.03.2011 12:24) *
Result скорее всего не сработает. Турбо Паскаль все-таки (было упоминание о TPU),
Логично )).
У меня, по всей видимости, "ТПУ" не проассоциировалось достаточно четко с TPU smile.gif.

Автор: Student91 22.03.2011 22:06

ВСЕМ СПАСИБО!!! ВСЕ ВЫШЛО! good.gif