Ознакомление с ООП
Автор: Анастасия Соловей • Сентябрь 4, 2021 • Лабораторная работа • 939 Слов (4 Страниц) • 203 Просмотры
Министерство науки и высшего образования Российской Федерации
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Московский государственный технический университет имени Н.Э. Баумана
(национальный исследовательский университет)»
Московский техникум космического приборостроения
ЛАБОРАТОРНАЯ РАБОТА № 1
по теме: Ознакомление с ООП
Специальность: 09.02.07 Информационные системы и программирование ⎯ квалификация «Администратор баз данных»
Группа ТБД-41
Проверил | И.А. Тамахина |
Разработал | А.А. Соловей |
Москва
2021
Содержание
1. Постановка задачи 2
2. Интерфейс приложения 3
3. Входная информация 5
4. Выходная информация 6
5. Листинг 7
6. Контрольный пример 13
7. Вывод 16
Постановка задачи
ВАРИАНТ 20 |
Даны F, P, Q. Определить [pic 1]; [pic 2]; [pic 3]. |
Интерфейс приложения
[pic 4]
Рисунок 2.1 – Интерфейс программы (Пример)
[pic 5]
Рисунок 2.2 – Интерфейс программы (Условие)
[pic 6]
Рисунок 2.3 – Интерфейс программы (Об авторе)
Входная информация
F, P, Q – переменные вещественного типа
Выходная информация
K, N, D – переменные вещественного типа
Листинг
Unit1
implementation
Uses Unit2, Unit3;
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button4Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Edit1.Clear;
Form1.Edit2.Clear;
Form1.Edit3.Clear;
Label4.Caption:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
var k,f,p,q,n,d:real;
s1,s2,s3:string[7];
code: integer;
begin
val(form1.Edit1.Text,f,code);
val(form1.Edit2.Text,p,code);
val(form1.Edit3.Text,q,code);
if (f=0) or (p=0) then
begin
form1.label4.font.color:=clRed;
form1.label4.font.size:=12;
form1.label4.caption:='Ошибка';
end
else
begin
k:=((f*f)+0.5*(sqr(p+q)))/(f*p);
if (f=0) or (p=0) then
begin
form1.label4.font.color:=clRed;
form1.label4.font.size:=14;
form1.label4.caption:='Ошибка';
end
else
begin
n:=abs(k-1.3);
if n<0 then
begin
form1.label4.font.color:=clRed;
form1.label4.font.size:=12;
form1.label4.caption:='Ошибка';
end
else
begin
d:=sqrt(10*n);
str(k:3:3,s1);
str(n:3:3,s2);
str(d:3:3,s3);
form1.Label4.Font.color:=clBlack;
form1.Label4.caption:='Ответ: '+'K='+s1+chr(13)+'N='+s2+chr(13)+'D='+s3;
end;
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Button5Click(Sender: TObject);
...