как в pascal ABC одной программой запустить другую?
5-9 класс
|
Посмотри в 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.
Другие вопросы из категории
условие:
составить программу, которая выводит на экран значение выражения X- в десятой степени, при условии X<5
????????????????????????????????????????????????????????????????????
в детском саду 52 ребенка. Каждый из них любит пирожоное или морожоное.Половина детейц любит пирожоное, а 20 человек-пирожное и мороженое.Сколько детей любит морожное?
а) Множество всех цифр: 7, 5, 4, 2, 9, 0, 3, 1, 8.
б) Множество времен года: ЗИМА, ЛЕТО, ИЮЛЬ, ОСЕНЬ.
В классе 1110₂ мальчиков и 1101₂ девочек. сколько человек в классе (в десятичной системе счисления)
Запишите римское число CDLXV в десятичной системе счисления.
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
использовать цикл с предусловием, другого не проходили
ОЧЕНЬ СРОЧНО ПОЖАЛУЙСТА!!!!!
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Помогите!
Нужно "превратить" одно слово в другое вот пры
Ночь -> День
Рота -> Полк
Бант -> Коса
Бег -> Шаг
Море -> Суша
Миг -> Век
Расскажите еще,чем может отличаться одна программа от другой,если её будут выполнять разные объекты-исполнители.
Заранее благодарю!!!)))