Объединение двух программ в одну

@Tmesser · Регистрация: 18.12.2010

Author24 — интернет-сервис помощи студентам

Народ, да помогите же )))))

@EvilVoodoo · 11.11.2011, 14:00

В чем именно вам помочь?
Я не вижу описания проблемы в этом топике, ни попыток вашего решения назревшей проблемы.
Вы ровным счетом ничего не сказали и просите помощи.
Здесь телепатов нет.

@Tmesser · 11.11.2011, 21:18 **[ТС]**

Извините))
Нужно обединить две програми. Они полностью однаковие, ток разние входние данние (масив)
1 програма:

Pascal

Uses Dos,Crt;
Const 
 Max = 657;
 Buf:Array[1..Max,1..2] Of Word =( {$I scer.INC} (0,0));
 
var
  I,CurP : Word;
  CurTick : longInt;
  ZTick:array[1..Max] of longInt;
 
{$F+}
procedure Play1C; interrupt;
var
  Hr : word;
begin
  if CurTick = 0 then begin
     Hr := Buf[CurP,1];
     if Hr<>0 then Sound(Hr)
              else NoSound;
     Inc(CurTick);
     Exit
  end;
  Inc(CurTick);
  if CurTick >= ZTick[CurP] then begin
     CurP := (CurP mod Max) + 1;
     CurTick := 0;
     Exit
  end;
end;
{$F-}
var
  Old1c : pointer;
 
begin
  CurP := 1;  CurTick := 0;
  for I:=1 to Max do
        ZTick[I]:=round(Buf[I,2]*0.018);
  GetIntVec($1C,Old1c);
  SetIntVec($1C,addr(Play1C));
  ReadLn;
  SetIntVec($1C,Old1c);
  NoSound
end.

2 програма:

Pascal

Uses Dos,Crt;
Const 
 Max = 657;
 Buf:Array[1..Max,1..2] Of Word =( {$I scer.INC} (0,0));
 
var
  I,CurP : Word;
  CurTick : longInt;
  ZTick:array[1..Max] of longInt;
 
{$F+}
procedure Play1C; interrupt;
var
  Hr : word;
begin
  if CurTick = 0 then begin
     Hr := Buf[CurP,1];
     if Hr<>0 then Sound(Hr)
              else NoSound;
     Inc(CurTick);
     Exit
  end;
  Inc(CurTick);
  if CurTick >= ZTick[CurP] then begin
     CurP := (CurP mod Max) + 1;
     CurTick := 0;
     Exit
  end;
end;
{$F-}
var
  Old1c : pointer;
 
begin
  CurP := 1;  CurTick := 0;
  for I:=1 to Max do
        ZTick[I]:=round(Buf[I,2]*0.018);
  GetIntVec($1C,Old1c);
  SetIntVec($1C,addr(Play1C));
  ReadLn;
  SetIntVec($1C,Old1c);
  NoSound
end.

Разбежности в :

Pascal

1 2	Max = 657; Buf:Array[1..Max,1..2] Of Word =( {$I scer.INC} (0,0));

Pascal

1 2	Max = 111; Buf:Array[1..Max,1..2] Of Word =( {$I holms.INC} (0,0));

В итоге нужно получить програму:
вопрос: виполнить 1 програму или 2. и от ответа действовать дальше.

я думал сделать так:
в начале дать 2 разних масива Buf1 и Buf2, а потом в зависимости от ответа масиву Buf присвоить или масив Buf1 или же Buf2. Помогите пожалуйста.

@EvilVoodoo · 11.11.2011, 21:31

Не помню как в паскале обстоят дела с динамическими массивами. Вообще можно использовать их.
Ну либо ваш способ. Вам помощь в реализации нужна?

@Tmesser · 11.11.2011, 21:37 **[ТС]**

очень)

@Tmesser 57 / 57 / 8 Регистрация: 18.12.2010 Сообщений: 387
		1
	Объединение двух программ в одну 11.11.2011, 12:51. Показов 1978. Ответов 4 Метки нет (Все метки) Народ, да помогите же ))))) 0

@EvilVoodoo 259 / 94 / 24 Регистрация: 18.04.2011 Сообщений: 719 Записей в блоге: 1
	11.11.2011, 14:00	2
	В чем именно вам помочь? Я не вижу описания проблемы в этом топике, ни попыток вашего решения назревшей проблемы. Вы ровным счетом ничего не сказали и просите помощи. Здесь телепатов нет. 0

@EvilVoodoo 259 / 94 / 24 Регистрация: 18.04.2011 Сообщений: 719 Записей в блоге: 1
	11.11.2011, 21:31	4
	Не помню как в паскале обстоят дела с динамическими массивами. Вообще можно использовать их. Ну либо ваш способ. Вам помощь в реализации нужна? 0

@Tmesser 57 / 57 / 8 Регистрация: 18.12.2010 Сообщений: 387
	11.11.2011, 21:37 [ТС]	5
	очень) 0