Посмотри в Help'е функцию Exec. У меня Turbo Pascal поэтому пример оттуда
Program StartApl;
{$M $4000, 0, 0 } { 16Kб стек, нет кучи } uses Crt, Dos; var ProgramName, CmdLine : String; begin
ClrScr; Write('Имя программы для запуска (с путём) : '); ReadLn(ProgramName); Write('Параметры командной строки ', ProgramName, ' : '); ReadLn(CmdLine); WriteLn('Пробую запустить...'); SwapVectors; Exec(ProgramName, CmdLine); SwapVectors; WriteLn('... вернулся из Exec'); { Была ошибка ? } if DosError <> 0 then WriteLn('Ошибка DOS #', DosError) else WriteLn('Запуск был удачным. Код выхода = ', DosExitCode); end.
const N = 12; var a: array[1..N] of integer; c, d, k, count, sum, i: integer; begin writeln('Введите промежуток: '); readln(c, d); writeln('Введите k: '); readln(k); for i := 1 to N do begin a[i] := random(30); write(a[i], ' '); if(a[i] > 0) and (a[i] mod k = 0) then inc(count); end; for i := c to d do begin sum := sum + a[i]; end; writeln; writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum); if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count); end.
Посмотри в Help'е функцию Exec. У меня Turbo Pascal поэтому пример оттуда
Program StartApl;
{$M $4000, 0, 0 } { 16Kб стек, нет кучи }
uses Crt, Dos;
var ProgramName, CmdLine : String;
begin
ClrScr;
Write('Имя программы для запуска (с путём) : ');
ReadLn(ProgramName);
Write('Параметры командной строки ', ProgramName, ' : ');
ReadLn(CmdLine);
WriteLn('Пробую запустить...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('... вернулся из Exec');
{ Была ошибка ? }
if DosError <> 0 then WriteLn('Ошибка DOS #', DosError)
else WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
end.
const
N = 12;
var
a: array[1..N] of integer;
c, d, k, count, sum, i: integer;
begin
writeln('Введите промежуток: '); readln(c, d);
writeln('Введите k: '); readln(k);
for i := 1 to N do begin
a[i] := random(30);
write(a[i], ' ');
if(a[i] > 0) and (a[i] mod k = 0) then inc(count);
end;
for i := c to d do begin
sum := sum + a[i];
end;
writeln;
writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum);
if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count);
end.