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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.02.2014, 02:46   #1
_domenik_
 
Регистрация: 30.10.2013
Сообщений: 3
По умолчанию помогите изменить программу

переделать данную программу чтобы минимум и максимум считались при помощи процедуры
Код:
type mas=array of integer;
var X,Y:mas;
m,n,i,Xmax,Ymin:integer;
Z:real;
Procedure proc(A:mas;k:integer):integer;
var max,min:integer;
begin
max:=0;min:=0;
for I := 1 to k do
  begin
    if max<A[i] then
      max:=A[i];

    if min>A[i] then
      min:=A[i]
  end;
if k=n then
proc:=max
else
proc:=min;
end;

begin
write('vedite dlinu massiva X=');readln(n);
write('vedite dlinu massiva Y=');readln(m);
Setlength(X,n);
for I := 1 to n do
  begin
    X[i]:=1+random(100);
    write(X[i],' ');
  end;
  writeln;
setlength(Y,m);
for I := 1 to m do
  begin
    Y[i]:=1+random(100);
    write(Y[i],' ');
  end;
writeln;
Z:=(proc(X,n)-proc(Y,m))/2;
writeln('Z=',Z:10:4);
readln;
end.

Последний раз редактировалось Simply-Art; 25.02.2014 в 05:27.
_domenik_ вне форума
Старый 25.02.2014, 02:49   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

У процедуры нет результата, такой код:
Цитата:
Z:=(proc(X,n)-proc(Y,m))/2;
Тупо не работает, и никогда не будет. Измените процедуру на функцию.

И да, ошиблись разделом. Паскаль чуть ниже.
Человек_Борща вне форума
Старый 25.02.2014, 02:54   #3
_domenik_
 
Регистрация: 30.10.2013
Сообщений: 3
По умолчанию

не то копирова)
Код:
type mas=array of integer;
var X,Y:mas;
m,n,i,Xmax,Ymin:integer;
Z:real;
function func(A:mas;k:integer):integer;
var max,min:integer;
begin
max:=0;min:=0;
for I := 1 to k do
begin
if max<A[i] then
max:=A[i];

if min>A[i] then
min:=A[i]
end;
if k=n then
func:=max
else
func:=min;
end;

begin
write('vedite dlinu massiva X=');readln(n);
write('vedite dlinu massiva Y=');readln(m);
Setlength(X,n);
for I := 1 to n do
begin
X[i]:=1+random(100);
write(X[i],' ');
end;
writeln;
setlength(Y,m);
for I := 1 to m do
begin
Y[i]:=1+random(100);
write(Y[i],' ');
end;
writeln;
Z:=(func(X,n)-func(Y,m))/2;
writeln('Z=',Z:10:4);
readln;
end.
программа на delphi написанна

Последний раз редактировалось Simply-Art; 25.02.2014 в 05:27.
_domenik_ вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуеться изменить программу tyttyt Фриланс 0 18.11.2012 05:42
Assembler. Помогите изменить программу. karmultuk Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 11.01.2010 12:24
Помогите изменить программу Dmit Софт 0 18.06.2009 22:07
Изменить программу HECTOR.A. Помощь студентам 0 05.06.2009 00:06