Автоматизация технологического проектирования. Смирнов О.Л. - 49 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

49
можностей оптимизатора по числу переменных, обычных и бинарных,
а также по числу ограничений. Чтобы облегчить процесс описания ис-
следовательских задач с большим числом переменных и ограничений,
предлагается пример программы на Турбо-Паскале (загрузочный модуль
TASK.EXE), иллюстрирующий принцип создания таких описаний. Ниже
приводится текст программы:
program Task;
uses Crt;
const Sc1='C1 – правая часть неравенств: (5…15)';
Sc2='C2 – число членов в неравенстве: (1...3)';
Sn1='N1 – число переменных: (2...210)';
Sn2='N2 – число неравенств: (2...130)';
Sl1='L1 – длина строки целевой функции: (2...10)';
Sl2='L2 – длина строки неравенств: (2...4)';
Svv='Введите параметры задачи: C1, C2, N1, N2, L1, L2';
var I, J, K:word;F:text;S:string;C1, C2, N1, N2, L1, L2:byte;
procedure Zend;
begin WriteLn('END');WriteLn(F, 'END'); Close(F) end;
begin TextAttr:=Blue shl 4+Yellow;ClrScr;Randomize;
GotoXY(13, 2); Write(Svv);
repeat GotoXY(15, 3);ClrEol;Write(Sc1);ReadLn(C1);
until (C1>4) and (C1<16);
repeat GotoXY(14, 4);ClrEol;Write(Sc2);ReadLn(C2);
until (C2>0) and (C2<4);
repeat GotoXY(20, 5);ClrEol;Write(Sn1);ReadLn(N1);
until (N1>1) and (N1<211);
repeat GotoXY(20, 6);ClrEol;Write(Sn2);ReadLn(N2);
until (N2>1) and (N2<131);
repeat GotoXY(14, 7);ClrEol;Write(Sl1);ReadLn(L1);
until (L1>1) and (L1<11);
repeat GotoXY(17, 8);ClrEol;Write(Sl2);ReadLn(L2);
until (L2>1) and (L2<5);
GotoXY(25, 9);Write('Введите имя файла:');ReadLn(S);
Assign(F, S);ReWrite(F);
Write('MAX'); Write(F, 'MAX');
for I:=1 to N1 – 1 do
begin if I mod L1 = 0 then begin WriteLn;WriteLn(F) end;
Write('X', I, '+');Write(F, 'X', I, '+');

Страницы