Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
ПРАКТИЧНА РОБОТА №__
«Робота з текстовими файлами»
Криптографія
Закодувати введений текст, помінявши всі символи, на наступні їм, за значенням, з кодової таблиці ASCII. Наприклад, ввівши слово ’Мама та тато’ в результаті маємо отримати ’ Нбнб!уб!убуп’.
ПОРЯДОК РОБОТИ ПРОГРАМИ:
ТЕОРЕТИЧНІ ВІДОМОСТІ
І. Механізм роботи з файлами:
1. Зіставлення файлової змінної файлу на диску
Здійснюється процедурою Assign (від англ. Assign - призначити):
Assign(<Файлова змінна>, <Ім'я файлу>);
2. Відкриття файлу для читання здійснюється процедурою Reset (англ. Reset - скинути)
Reset (<Файлова змінна>) ;
3. Відкриття файлу для запису здійснюється процедурою Rewrite (англ. rite - перезаписати):
Rewrite (<Файлова змінна>) ;
4. Незалежно від типу файлу його закриття виробляється процедурою close (англ. Close - закривати):
Close(<Файлова змінна>);
ІІ. ФУНКЦІЇ ДЛЯ РОБОТИ З ЛІТЕРНИМ ТИПОМ(тип CHAR):
ПРАКТИЧНА РОБОТА.
|
Об’єкт |
Властивість |
Значення |
|
Label1 |
caption |
Ввести текст |
|
Label2 |
caption |
Закодувати введений текст, помінявши всі символи |
|
Label3 |
caption |
на наступні їм значення з кодової таблиці ASCII |
|
Label4 |
caption |
перетворений текст вивести на екран та записати у файл |
|
Button1 |
caption |
Записати текст у файл |
|
Button2 |
caption |
Закодувати текст |
|
Button3 |
caption |
Записати закодований текст |
|
Form1 |
caption |
КРИПТОГРАФІЯ – НАУКА ПРО КОДУВАННЯ |
|
ДЛЯ ВСІХ ОБ’ЄКТІВ |
Font |
ПІДІБРАТИ САМОСТІЙНО |
s1,s2:string ;
begin
AssignFile(f, ‘c:\file1.txt’);
Rewrite(f);
write(f, edit1.text);
closefile(f);
Reset(f);
readln(f,s1);
closefile(f);
end
var f:textfile;
s1:string ;
i:byte;
begin
AssignFile(f, ‘c:\file1.txt’);
Rewrite(f);
readln(f,s1);
for i:=1 to length(s1) do
begin
edit2.Text:=edit2.Text+ chr(Ord(s1[i])+1);
end
closefile(f);
end
var f2:textfile;
begin
AssignFile(f2, ‘c:\file2.txt’);
Rewrite(f2);
write(f2, edit2.text);
closefile(f2);
end
Передбачити в програмі наявність головного меню «Файл» наступного змісту та запрограмувати кнопки головного меню відповідно до їхніх назв.
Для програмування пункту «ПРО АВТОРА» використати процедуру ShowMessage – процедура виведення на екран простого діалогового вікна.
ShowMessage('Текст повідомлення');
Тобто програмний код розділу «Про автора» має наступний вигляд:
procedure TForm1.N6Click(Sender: TObject);
begin
ShowMessage('Програму виконали Петров П.П. та Іванов І.І.');
end;
Приклад виклику розділу «Про автора»