У роботі розглядаються
- Об'єктно-орієнтоване програмування
- Середовище програмування Delphi
- Створення проєктів
- Обчислення степеня числа
- Програмний код на Delphi
Лабораторна робота №1 з курсу «Об'єктно-орієнтоване програмування»
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Комп’ютерні науки
Кафедра:
Кафедра автоматизованих систем управління
Інформація про роботу
Рік:
2013
Тип роботи:
Лабораторна робота
Предмет:
Об’єктно-орієнтоване програмування
Група:
КН-11
Коротко про документ
Про що ця робота
У документі наведено звіт про виконання лабораторної роботи з об'єктно-орієнтованого програмування. Розглянуто створення простого проєкту для обчислення степеня числа в середовищі Delphi.
Зміст і розділи
- Мета роботи
- Завдання
- Текст програми
- Результат
- Висновок
Для кого:Студенти технічних спеціальностей, що вивчають об'єктно-орієнтоване програмування та середовище Delphi.
Викладачі:Викладач кафедри
Ключові поняття
Delphiоб'єктно-орієнтоване програмуваннялабораторна роботаTFormкомпонентпрограмний кодобчисленнязміннапроцедураінтерфейс
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти України
Національний університет «Львівська політехніка»
Кафедра автоматизованих систем управління
Лабораторна робота №1
з курсу
«Об'єктно-орієнтоване програмування»
Середовище програмування DELPHI
Мета роботи: Вивчення основних опцій та можливостей меню для створення проектів у середовищі програмування Delphi
Завдання Обчислення N-го степеня випадкового числа з діапазону [2..10]. N-задається з клавіатури.
Текст програми:
unit lab1_1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var dobytok,chuslo:integer;
i: integer;
cod:integer;
ed:string[9];
begin
Val(Edit1.Text,chuslo,cod);
dobytok:=1;
for i:=1 to chuslo do
dobytok:=dobytok*i;
if chuslo=0 then dobytok:=0;
Str(dobytok:9,ed);
Edit2.Text:=ed;
end;
end.
Результат
Висновок:
На лабораторній роботі я вивчив основні опції та можливості меню для створення проектів у середовищі програмування Delphi.
Допоможи студентському архіву
Ми допомогли тобі — допоможи наступному студенту
Оголошення від адміністратора
Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!