Dobry den, program, ktery vyrabi zadane reseni by mohl vypadat treba takto:
program ovocinar;
uses dos;
begin
writeln('-----------------------------------------------');
writeln('PROGRAM OVOCINAR 1.0 - copyright katherin 2007');
writeln('-----------------------------------------------');
writeln('RESIENIE ULOHY:');
writeln('1. typ bedne- objem: 5 kg, pocet 2');
writeln('2. typ bedne- objem: 9 kg, pocet 3');
writeln('3. typ bedne - objem: 15 kg, pocet 1');
writeln('4. typ bedne - objem: 21 kg, pocet 1');
writeln('5. typ bedne- objem: 26 kg, pocet 1');
writeln('6. typ bedne- objem: 31 kg, pocet 2');
writeln('');
writeln('Riesenie c. 1: (0, 0, 1, 1, 0, 0)');
writeln('Riesenie c. 2: (1, 0, 0, 0, 0, 1)');
writeln('Riesenie c. 3: (2, 0, 0, 0, 1, 0)');
writeln('');
writeln('Celkovy pocet rieseni: 3');
writeln('Optimalny pocet bedni: 2');
writeln('Optimalne riesenia: 1., 2. ');
end.
--
<http://forum.pspad.com/read.php?1,43491,43605>
PSPad freeware editor http://www.pspad.com
