МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

Удмуртский государственный университет Факультет информационных технологий и вычислительной техники

Отчет по лабораторной работе №1

по дисциплине “Информатика и программирование”

 

 

 

 

 

Выполнил:

Студент 1-го курса

гр. А ЗСБ-230700-11(К)

Зиянгирова Альбина Р.

 

 

 

Принял:

Старший преподаватель

Дунаев Д.А.

  

Ижевск 2012 

Содержание

1. Решение задач в среде разработки программ Delphi

1.1 Задача № 1 «Моя первая программа» 16

1.2 Задача № 2 Создание консольного приложения 17

1.3 Задача № 3 «Приветствие» 19

1.4 Задача № 4 «Случайный выбор» 21

1.5 Задача № 5 Изменение заголовка формы 23

1.6 Задача № 6 «Двигающая кнопка» 25

1.7 Задача № 7 «Альбом» 26

1.8 Задача № 8 Работа с меню 28

1.9 Задача № 9 Случайный выбор из списка 31

1.10 Задача № 10 Простейший плеер 33

1.11 Задача № 11 «Прыгающая кнопка» 35

1.12 Задача № 12 «Таблица умножения» 37

1.13 Задача № 13 Применение полос прокрутки 40

1.14 Задача № 14 «Светофор» 43

1.15 Задача № 15 «Ханойские башни» 46

2. Решение задач в среде разработки программ Turbo Pascal

Заключение ………………………………………………………………

1. Решение задач в среде разработки программ Delphi

1.1 Задача № 1 «Моя первая программа»

Цель работы - создать программу, выполняющую следующие действия:

1. После запуска программы появляется окно.

2. Для выхода из программы необходимо щелкнуть мышью на кнопке «Закрыть».

Рисунок 1

Листинг программы:

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Close;

end;

end.