Частина тексту файла (без зображень, графіків і формул):
{
procedure menu;
Begin
ClrScr;
Writeln;
Writeln(' <<<Меню Програми>>>');
Writeln;
Writeln(' ------------------------------------');
Writeln(' 1. Створити файл та внести інформацію.');
Writeln(' 2. Вивести на екран інформацію з файлу.');
Writeln(' 3. Додати інформацію у файл.');
Writeln(' 4. Відправлення потягу у місто X.');
Writeln(' 5. Виделення файлу.');
Writeln(' 6. Прибуття потягу у місто Х з часом Y.');
Writeln(' 0. Вихід.');
Writeln(' ------------------------------------');
Writeln;
Write(' Ваш вибір: ');
Readln(Sel);
Case Sel of
1:CreatFile;
2:ReadFile;
3:Add;
5:delete;
0:Halt;
End;
end;
}
Ви не можете залишити коментар. Для цього, будь ласка, увійдіть
або зареєструйтесь.
Ділись своїми роботами та отримуй миттєві бонуси!
Маєш корисні навчальні матеріали, які припадають пилом на твоєму комп'ютері? Розрахункові, лабораторні, практичні чи контрольні роботи — завантажуй їх прямо зараз і одразу отримуй бали на свій рахунок! Заархівуй всі файли в один .zip (до 100 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!