Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2024
Тип роботи:
Звіт
Предмет:
Об’єктно-орієнтоване програмування
Група:
КН-30
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет «Львівська політехніка»
Кафедра АСУ
Звіт
до лабораторної роботи №1
з курсу “Об'єктно орієнтоване програмування”
Варіант 8
Бунь І.П.
Мета роботи: Вивчення основних опцій та можливостей меню для створення проектів у середовищі програмування Delphi
Порядок роботи:
По рекомендованих літературних джерелах ознайомитися з системою меню, засобами створення та відлагодження проектів в середовищі програмування Delphi.
Набрати та відлагодити текст проекту.
При відлагодженні вставити точки зупинки;
Відкрити вікно спостереження за змінними.
Змінити поточне значення деякої змінної.
Відкрити зовнішній відлагоджувач
Здійснити пошук оголошень.
Вставити текстову заготовку.
Ознайомитись з роботою Довідника.
Використати контекстну підказку.
Завдання
Обчислення суми N-х степенів всіх чисел від 2 до випадкового числа з діапазону [2..10]. N-задається з клавіатури.
Текст Програми
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
N:integer;
R:integer;
i:integer;
j:integer;
sum:longint;
step:longint;
begin
if Length(Form1.Edit1.Text)>0 then
begin
try
N:=strtoint(Form1.Edit1.Text);
except
on EConvertError do
ShowMessage( 'Степінь введено не вірно');
end;
randomize;
sum:=0;
R:=random(8)+2;
Label1.Caption:='Згенеровано число ='+ inttostr(R);
try
for i:=2 to R do
begin
step:=i;
for j:=1 to N-1 do
step:=step*i;
sum:=sum+step;
end;
except on EOverFlow do
ShowMessage('Результат перевищуэ число допстимих значень');
end;
Form1.Edit2.Text:=inttostr(sum);
end;
end;
end.
Скріншоти роботи програми:
Висновок: На цій лабораторній роботі я ознайомився з основою використання візуального середовища Делфі:створення проектів, управлінням основними об’єктами палітри компонентів ,створення власних процедур та функцій з використанням властивостей компонентів.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора