Модули

[stud3nt]

Провести вычисления. Необходимые для вычислений функции (факториал, возведение в степень и т.д.) описать в модуле.

На 5 задачу есть модуль:

Unit MyUnit3;
 interface
 const n=10;
 const m=10;
 function maxx(v:array of integer):integer;
 function minn(v:array of integer):integer;
 implementation
 function maxx(v:array of integer):integer;
Var i,max:integer;
begin
 max:=v[low(v)];
  for i:=low(v) to high(v)  do
  if v[i]>max then max:=v[i];
 maxx:=max;
end;
 function minn(v:array of integer):integer;
Var i,min:integer;
begin
 min:=v[low(v)];
  for i:=low(v) to high(v) do
  if v[i]<min then min:=v[i];
 minn:=min;
 end;
end.

нужна еще программа.. не понимаю смысл чего из модуля нужно кидать в программу(
мне нужно получить в итоге файл *.exe

[MadReason]

подключаешь в основную программу модуль

Uses MyUnit3;

и просто используешь его функции макс и мин.

[stud3nt]

Сообщение от MadReason

подключаешь в основную программу модуль

Uses MyUnit3;

и просто используешь его функции макс и мин.

так, тоесть я создаю новый проект.
и пишу там:

Uses MyUnit3;
Var i,max:integer;
begin
   max:=v[low(v)];
    for i:=low(v) to high(v)  do
    if v[i]>max then max:=v[i];
   maxx:=max;
end;
   function minn(v:array of integer):integer;
Var i,min:integer;
begin
   min:=v[low(v)];
    for i:=low(v) to high(v) do
    if v[i]<min then min:=v[i];
   minn:=min;
  end;
end.

так чтоль?

[MadReason]

нет, у тебя те подпрограммы уже реализованы, когда их нужно применить в основной программе,пишешь например

max:=maxx(массив чисел из которых нужно найти макс);

причем этот твой модуль не для 5ой задачи, а для 7ой скорее, но и для 5 можно применить, но "неправильным кодом" это будет

[Roof]

нну вот как вариант, основываясь на прошлых решениях твоей задачи номер 7 (исключая решения с с динамическими структурами):

Модуль с функциями и процедурами (MASS.PAS):

Unit mass;
interface
  type mas = array [1..20] of real;
  procedure FillMas (var x : mas; xa : integer);
  function MaxinMas (x : mas; xa : integer) : real;
Implementation 

{Procedura zapolneniya massiva}
procedure FillMas (var x : mas; xa : integer);
var xi : integer;
begin
  for xi := 1 to xa do
  begin
    x[xi] :=(random(101));
    x[xi] := (x[xi] - 50)/10;
    write(x[xi]:4:1, '  ');
  end;
  writeln;
end;

{funkciya poiska maksimal'nogo elementa v massive}
function MaxinMas (x : mas; xa : integer) : real;
var xi : integer;
    max : real;
begin
  max := x[1];
  for xi := 2 to xa do
    if x[xi] > max then
      max := x[xi];
  MaxinMas := max;
end;

end.

Вот код программы, использующий функции и процедуры модуля MASS.PAS:

program MyProg7;
uses crt, mass; {podklyu4enie moduley}
var x,y,z: mas;
    xmax, ymax, zmax, t : real;
    nx, ny, nz: integer;


begin
  clrscr;
  randomize;
  write (' Vvedite koli4estvo elementov x: ');
  readln (nx);
  write (' Vvedite koli4estvo elementov y: ');
  readln (ny);
  write (' Vvedite koli4estvo elementov z: ');
  readln (nz);
  fillMas(x, nx);
  fillMas(y, ny);
  fillMas(z, nz);
  xmax := maxinmas(x, nx);
  ymax := maxinmas(y, ny);
  zmax := maxinmas(z, nz);

  if (xmax <= 0) then
    t := 1 + sqr(xmax)
  else
    t := (ymax + zmax)/2;

  write('Zna4enie t = ', t:4:3);
  readln;
end.

Предварительно скомпилируй модуль MASS.PAS и получишь файл MASS.TPU, затем компилируй саму программу. Должно все работать. Для чего вообще нужны модули? Мы в них описываем типы, константы, переменные, процедуры и функции, которые потом можем использовать в своих программах. Модули можно использовать в дугих программах своих, а еще это упрощает и нахождение ошибок восприятие общей структуры программного кода

так чтоль?

Введи в google моудли паскаль - там написано - как

[stud3nt]

биг спасибо вам! Все работает!
Осталось с 5 задачей как то разобраться..

вот рабочий текст из темы "процедуры и функции":

uses crt;
Var a,b:real;
    n,i,x,s,q,v,k,z : integer;
 function min(c,d:real) : real;
begin
    if c<d then min:=c else min:=d;
end;
 function max(c,d:real):real;
begin
 if c<d then max:=d else max:=c;
end;
 function s1(x:real;n:integer):real;
Var i:integer;s:real;
begin
   s:=1;
 for i:=1 to n do
   s:=s*x;
 if n<0 then s:=1/s;
   s1:=s;
end;
begin clrscr;
   writeln('BBeguTe a,b');
   readln(a,b);
   writeln('BBeguTe n');
   readln(n);
   writeln('Rezultat = ',min(a,b*n)+max(a*n-b,a+b)-min(s1((a-b),n),s1((a+b),n))+max(s1(a,n-1),s1(b,n+1)):4:1);
   readln;
end.

[stud3nt]

Сообщение от Roof

Для чего вообще нужны модули? Мы в них описываем типы, константы, переменные, процедуры и функции, которые потом можем использовать в своих программах. Модули можно использовать в дугих программах своих, а еще это упрощает и нахождение ошибок восприятие общей структуры программного кода

не ну я как бы примерно понял что к чему, но не разбираюсь что где что..
с логикой у меня плохо...

[Roof]

Сам модуль (SIMPLE.PAS):

Unit simple;
interface
  function min(c,d:real) : real;
  function max(c,d:real):real;
  function s1(x:real;n:integer):real;
Implementation 

function min(c,d:real) : real;
begin
  if c<d then min:=c else min:=d;
end;

function max(c,d:real):real;
begin
  if c<d then max:=d else max:=c;
end;

function s1(x:real;n:integer):real;
Var i:integer;s:real;
begin
   s:=1;
 for i:=1 to n do
   s:=s*x;
 if n<0 then s:=1/s;
   s1:=s;
end;
end.

Код программы:

program MyProgram5;
uses crt, simple;
Var a,b:real;
    n,i,x,s,q,v,k,z : integer;
begin clrscr;
   writeln('BBeguTe a,b');
   readln(a,b);
   writeln('BBeguTe n');
   readln(n);
   writeln('Rezultat = ',min(a,b*n)+max(a*n-b,a+b)-min(s1((a-b),n),s1((a+b),n))+max(s1(a,n-1),s1(b,n+1)):4:1);
   readln;
end.

Правильность расчета значений не проверял.

не ну я как бы примерно понял что к чему, но не разбираюсь что где что..
с логикой у меня плохо...

Очень сомневаюсь, что с логикой проблемы. Дело в желании достичь, на мой взгляд.

[stud3nt]

все супер! Коли в 5 задаче в процедурах и функциях все хорошо считало, тут тоже правильно. Препод покрайней мере не придерался)
желание достичь то бывает, но когда задают по пачке задач, и когда по этой пачке в каждый последующий день сдавать надо.. тут уж..извините.. не для моего слабого мозга в области паскаля)

[Roof]

Наздоровье
Твои решения - твоя Жизнь
Удачи