Консольные приложения.
Цель занятия: Закрепление навыков работы с файлами на языке программирования
Создание консольного приложения.
Для создания консольного приложения необходимо:
Выберите в меню File – New – Console Application.
Введите следующий программный код:
Var I : integer;
f : textfile;
begin
AssignFile(f,'u:\Date.dat');
RewRite(f);
for i := 1 to 10 do
begin
WriteLn(f,sqr(i));
end;
CloseFile(f);
WriteLn(DateTimeToStr(now));
ReadLn
end.
Задание:
1. Объясните, что делает программа и для чего предназначены консольные приложения.
2. Создайте консольное приложение для решения следующих задач:
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти произведение чисел, больших 5
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти сумму чисел, больших 5
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти произведение этих чисел.
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти сумму квадратов этих чисел.
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти сумму нечётных чисел.
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти сумму чисел, кратных двум.
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти произведение нечётных чисел.
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти количество чисел, кратных трём.
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти произведение чисел, кратных двум.
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти наибольшее из этих чисел.
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти наименьшее из этих чисел.
В текстовый файл записать все простые числа в диапазоне от 2 до х, где х вводится с клавиатуры.
3. Ответьте на вопросы:
-Что такое файл? Виды файлов при работе в Object Pascal.
-Основные операции при работе с файлами.
Знакомство со средой программирования Delphi.
Цель занятия: Изучение свойств и методов формы.
ЗАДАЧА 1. Свойства формы. Поменяйте следующие свойства формы:
заголовок Form1 изменить на ЗАДАЧА, для этого измените свойство Caption формы;
измените высоту формы на 120 ед., ширину на 150 ед., для этого измените свойства Height, Width;
измените цвет формы с серого на голубой (свойство Color);
измените свойство BorderStyle на bsDialog;
На событие создания формы напишите процедуру (для этого двойной щелчок по форме или в инспекторе объектов Object Inspector перейдите на вкладку Events и двойной щелчок справа от события OnCreate):
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('Я создаюсь');
end;
На событие нажатие левой кнопки мыши напишите процедуру:
procedure TForm1.FormClick(Sender: TObject);
begin
form1.Height:=350;
form1.Width:=500;
end;
На событие нажатия клавиши напишите процедуру:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
randomize;
form1.Color:=random($02FFFFFF);
Form1.Caption:=Key;
end;
На событие закрытия формы напишите процедуру:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Добро пожаловать в среду Object Pascal!!!Закрыть?', mtConfirmation,[mbYes,mbNo],0)=mrYes
then CanClose:=true else
CanClose:=False;
end;
ЗАДАЧА 2. Основные компоненты вкладки Standard: Label (метка), Edit (окно ввода-вывода), Memo,…
поместите на форму компонент label1;
измените цвет формы на clBackground;
измените свойство BorderStyle на bsNone;
измените свойство Caption для компонента label1 на Delphi;
измените цвет метки на жёлтый;
измените начертание, размер шрифта и цвет букв для компонента Label1, для этого нажмите на кнопку
;
поместите на форму компонент Button1;
измените свойство Caption компонента Button1 на ЗАКРЫТЬ;
На событие нажатие кнопки Button1 напишите процедуру:
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
ЗАДАЧА 3. Перенос данных с поля ввода в метку:
поместите на форму компонент Edit1;
добавьте на форму ещё один компонент класса TButton и измените свойство Caption компонента Button на НАЖМИ МЕНЯ;
измените свойство Text компонента Edit1 на пустое значение;
На событие нажатия кнопки Button2 напишите процедуру:
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:=Edit1.Text;
end;
ЗАДАЧА 4. Организуйте работу следующим образом: при нажатии на левую кнопку мыши на форме цвет формы меняется на красный, а в поле ввода появляется строка «Здравствуйте, господа», а при нажатии на кнопку Button2 цвет формы меняется на аквамариновый, а в поле ввода появляется строка «Здравствуйте, господа».
ЗАДАЧА 5. Организуйте работу следующим образом: если в поле ввода Edit введено число, большее 21, то свойству Caption для метки Label1 присвойте значение «Почему Вы сегодня работаете?», иначе полю Memo1 присвоить значение «Почему Вы сегодня учитесь?».
Поместите на форму компонент класса TMemo1;
Для события нажатия на Enter на компоненте Button2 напишите процедуру:
procedure TForm1.Button2Enter(Sender: TObject);
begin
if StrToInt(Edit1.Text)>21 then
begin
Label1.Caption:='';
Memo1.Text:='Почему Вы сегодня учитесь?';
end;
end;
В эту же процедуру добавьте, если введено число, меньшее 21, то…
ЗАДАЧА 6. В тетради создайте перечень наиболее типичных свойств формы в виде таблицы: Свойство формы | Описание свойства. Метод формы | описание метода.