- •Лабораторна робота № 14-15
- •Частина і
- •Частина іі
- •Лабораторна робота № 16-17
- •Частина і.
- •Частина іі.
- •Частина і Завдання
- •Лабораторна робота № 20
- •Лабораторна робота № 22-23
- •Лабораторна робота № 24
- •Лабораторна робота № 25 - 26
- •Частина і Завдання
- •Частина іі Завдання
- •Лабораторна робота № 27
- •Лабораторна робота № 28
- •Лабораторна робота № 29
- •Лабораторна робота № 30
- •Лабораторна робота № 31
- •Лабораторна робота № 32
Частина іі.
Обчислити значення Z(x) за формулами, що наведені нижче (у відповідності з варіантом). Розрахунок Y1(x) Y2(x) повинен проводитись за допомогою підпрограм-функцій.
Завдання:
Я розробив інтерфейс, вид якого зображений на рисунку:
Та ввів наступний програмний код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function Y1(x:real):real;
function Y2(x:real):real;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Y1(x:real):real;
begin
Y1:=(1-sqr(x))/2;
end;
function Y2(x:real):real;
begin
Y2:=2*cos(x-sqr(x));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,z:real;
begin
x:=strtofloat(edit1.Text);
if x<0 then z:=2+sqr(sin(Y1(x)));
if x>=0 then z:=sqr(Y2(x));
Memo1.Lines.Add('x='+floattostr(x)+' '+'y1(x)='+floattostr(y1(x)));
Memo1.Lines.Add('x='+floattostr(x)+' '+'y2(x)='+floattostr(y2(x)));
Memo1.Lines.Add('z='+floattostr(z));
end;
end.
Висновок: В ході лабораторної роботи набув навичок розробки та налагодження програм з використанням власних процедур та функцій.
ЛАБОРАТОРНА РОБОТА № 18-19.
Створення програми, що використає компонента уведення Tеdіt, Tmemo, події компонента TButton, секції ініціалізації й фіналізації модуля а також текстові файли для зберігання результатів.
Мета: вивчення прийомів створення користувальницького інтерфейсу, з перерахованими можливостями.
Частина і Завдання
Розробити програму яка розміщає у файл дані про студентів. До складу даних входять прізвище, номер групи й рік народження студента.
Я розробив інтерфейс, вид якого показаний на рисунку:
Та ввів наступний програмний код:
var
Form1: TForm1;
F: TextFile;
SS: String;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Clear; {Очищення поля Edіt1}
edit2.Clear; {Очищення поля Edіt2}
edit3.Clear; {Очищення поля Edіt3}
Memo1.Clear; {Очищення поля Memo1}
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add('Студент '+Edit1.Text+' гр. '+Edit2.text+' рік народж. '+Edit3.text); {Додавання рядка в Memo1}
SS := Memo1.Text;
Edit1.SetFocus; { Повернення фокуса уведення елементу Edіt1}
end;
initialization
AssignFile(F, 'D:\Student\25\MyFіle1.txt'); // призначити шлях до файлу F
Rewrite(F); // заново відкрити файл F для запису
finalization
Writeln(F, SS); // записати рядок SS у файл F
CloseFile(F); // закрити файл F
Висновок: В ході лабораторної роботи я вивчив прийоми створення користувальницького інтерфейсу, з перерахованими можливостями.
Лабораторна робота № 20
Створення та налагодження програми з використанням компонента TListBox.
Мета: Набуття навичок розробки та налагодження програм з компонентом TListBox.
Розробка інтерфейса
Для виконання даної лабораторної роботи я розробив інтерфейс вид якого показаний на малюнку:
Та ввів наступний програмний код:
procedure TForm1.Button1Click(Sender: TObject);
const
DISCOUNT=20; //скидка 20 процентов
Var
Strana:string;
Time:real; //длительность разговора
PAY : real; {цена одной минуты разговора }
Day, code : integer; { день недели }
Summa : real; { стоимость разговора }
begin
{получить исходные данные}
if ListBox1.ItemIndex=-1 then
Showmessage('укажите страну')
else begin
{С учетом того, что список отсортирован}
case ListBox1.ItemIndex of
0: Pay:=2.5;
1: Pay:=2.8;
2: Pay:=1.2;
3: Pay:=0.6;
else
ShowMessage('страны нет в списке');
end;
Strana:= ListBox1.Items.Strings[ListBox1.ItemIndex];
end;
//Time := StrToFloat(Edit1.Text);
val(Edit1.Text,Time, code);
if (code)<>0 then
begin
showmessage ('Введіть текст');
exit;
end
else
begin
Day:=UpDown1.Position;
{ Вычислить стоимость разговора }
Summa := PAY*Time;
{ Если день суббота или воскресенье, то уменьшить стоимость на величину скидки }
if (Day = 6) OR (Day = 7)
then Summa := Summa* (100-DISCOUNT)/100;
{ вывод результата вычисления }
Label4.caption := 'Страна - '+Strana+'. К оплате - '
+FloatToStr(Summa) +' грн.';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
Висновок: В ході лабораторної роботи набув навичок розробки та налагодження програм з компонентом TListBox.