49100 (572280), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

Memo1.Lines.LoadFromFile('result.txt');

Memo1.Visible:=True;

Label4.Visible:=False;

Label5.Visible:=False;

Label6.Visible:=False;

ListBox1.Visible:=False;

StringGrid1.Visible:=False;

Form1.Height:=430;

Memo1.SetFocus;

Form1.Position:=poScreenCenter;

end;

//Створення файлу з перевіркою його існування

rocedure TForm1.FormActivate(Sender: TObject);

begin

fname:='result.txt';

AssignFile (f, fname);

If FileExists('result.txt')= False Then

begin

rewrite(f);

CloseFile(f);

end;

end;

//Очищення полів введення

rocedure TForm1.BitBtn3Click(Sender: TObject);

begin

P5;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

P5;

end;

//Вихід з програми

rocedure TForm1.N7Click(Sender: TObject);

begin

Close;

end;

//Виведення довідки

rocedure TForm1.N8Click(Sender: TObject);

begin

end;

procedure TForm1.N9Click(Sender: TObject);

begin

ShowMessage('Навчальна програма табулювання функції.' + #13 +

' Версія 1.0');

end;

end.

Список використаної літератури

1. Б.Іванов “Дискретная математика. Алгоритмы и программы”.

2. В. Турский. «Методология программирования».

3. «Требования и спецификации в разработке программ.» М. Мир, 1984.

4. Конспект лекцій з предмету.

5. Інтернет мережа..

Характеристики

Список файлов ответов (шпаргалок)