Лабораторная работа по "Информационным системам и программированию"
Автор: Радмир Чуриков • Июнь 19, 2020 • Лабораторная работа • 947 Слов (4 Страниц) • 409 Просмотры
Министерство науки и высшего образования Российской Федерации
Федерального государственного бюджетного образовательного учреждения высшего образования
Московский государственный технический университет имени Н. Э. Баумана
(национальный исследовательский университет)
Московский техникум космического приборостроения
ЛАБОРАТОРНАЯ РАБОТА №6
Специальность: 09.02.07_01 Информационные системы и программирование – квалификация «Администратор баз данных»
Группа ТБД-41.
Проверил | И. А. Тамахина |
Разработала | Р. С. Чуриков. |
Москва 2020
СОДЕРЖАНИЕ
1 Постановка задачи 3
2 Интерфейс программы 3
3 Текст программы 4
4 Контрольный пример 11
5 Вывод 3
2
1 Постановка задачи
Написать программу, которая будет выводить на экран фамилию и имя.
2 Интерфейс приложения:
Интерфейс приложения показан на рисунке 2.1:
[pic 1]
Рисунок 2.1 – «Интерфейс приложения»
Входные данные: Имя и Фамилия
Выходные данные: Вывод фамилии и имени на экран, с помощью графических примитивов.
3
2 Текст программы
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
with Paintbox1.Canvas do
begin
MoveTo(10,50);//Р
LineTo(10,10);
LineTo(30,10);
LineTo(30,30);
LineTo(10,30)
end;
with Paintbox1.Canvas do
begin
MoveTo(40,50);//А
LineTo(50,10);
LineTo(60,50);
MoveTo(55,30);
LineTo(45,30)
end;
with Paintbox1.Canvas do
begin
MoveTo(70,50);//Д
LineTo(70,40);
MoveTo(73,40);
LineTo(80,10);
LineTo(87,40);
MoveTo(73,40);
LineTo(90,40);
LineTo(90,50);
MoveTo(70,40);
LineTo(90,40);
end;
with Paintbox1.Canvas do
begin
MoveTo(100,50);//M
LineTo(100,10);
LineTo(110,30);
LineTo(120,10);
LineTo(120,50);
end;
4
with Paintbox1.Canvas do
begin
MoveTo(130,10);//И
LineTo(130,50);
LineTo(150,10);
LineTo(150,50);
...