Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
DevioLab
CRYPTO TRADING AUTOMATION
LIVE
AUTOMATED CRYPTO TRADING • BINANCE
Автоматизуйте свій
криптопортфель
Торгові боти DevioLab аналізують крипторинок,
автоматично відкривають і закривають позиції
та керують вашим портфелем на Binance 24/7.
CRYPTO
80 Bots
BINANCE
Spot Trading
TRADING
24 / 7
deviolab.com
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра автоматизованих систем управління
Інформація про роботу
Рік:
2013
Тип роботи:
Лабораторна робота
Предмет:
Об’єктно-орієнтоване програмування
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти України
Національний університет «Львівська політехніка»
Кафедра автоматизованих систем управління
Лабораторна робота №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.
31.03.2013 00:18
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора