как в pascal ABC одной программой запустить другую?
Предмет:
ИнформатикаАвтор:
kennyПосмотри в 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.
Автор:
tyrellДобавить свой ответ
В библиотеке 690 книг, из них 48 - на английском языке, остальные на русском. Какова вероятность, что на английском языке? (с точностью до 0,01)
Тело массой 10 кг кинули вверх со скоростью 10 м/с. Какая его кинетическая энергия на высоте 5 м?Сопротивлением воздуха пренебречь.
Газ сжимают под давлением 200кПа,затрачивая на это работу 60кДж.На сколько изменится объём газа?
Предмет:
МатематикаАвтор:
esthero13mОтветов:
Смотреть