1. Ответ База данных (БД)–упорядоченная совокупность данных, предназначенных для хранения, накопления и обработки с помощью ЭВМ. Для создания и ведения баз данных


Параметры связи можно изменить, нажав на кнопку Объединение



Download 332,2 Kb.
bet3/3
Sana24.02.2022
Hajmi332,2 Kb.
#203048
1   2   3
Bog'liq
Билет 3

14.Параметры связи можно изменить, нажав на кнопку Объединение.
15.После установления всех необходимых параметров нажмите кнопку ОК.
Получим

16.Сохраним и закроем Схему БД

=================================================================================

2.Ответ
2.1.Загрузим MS Excel
Внесем в ячейку А1 любое число. В ячейку C1 наберем
=ЕСЛИ(ОСТАТ(A1;2)=0;"ЧЕТНОЕ";"НЕЧЕТНОЕ")Здесь .А1- ячейка, выбранная щелчком мыши ( 2 способ. ВЫБЕРЕМ В СТРОКЕ мастера ФУНКЦИЙ --- математическую ФУНКЦИЮ ЕСЛИ ().В качестве логического условия вставим ОСТАТ(А1;2)=0.При истинном значении этого выражения ставим значение «Четное», при ложном---«Нечетное»)
2.2.В ячейку C2 наберем = СТЕПЕНЬ(A1;4). Здесь А1-ячейка, выбранная щелчком мыши (2 способ. ВЫБЕРЕМ В СТРОКЕ мастера ФУНКЦИЙ --- математическую ФУНКЦИЮ СТЕПЕНЬ ()).


Решение.
Создадим новое приложение.

2.Вставим на форму 2 объекта TLable (Label1,label2), 1 объект TButton ( Button1).
3.Заменим Caption формы на Увеличение окна формы, свойство Width на 400, свойство Height на 400
4.Заменим Caption Button1 на ++
5.Заменим Caption Label1 на Высота и Caption Label2 на Ширина
Получим форму:

6.Обработаем событие , при котором при увеличении формы более, чем 500х600, выдается сообщение об этом.
Щелкнем по кнопке быстро 2 раза. Окажемся в коде программы в procedure TForm1.Button1Click(Sender: TObject);
Вставим между begin и end; строчки :
Label1.Caption:= 'Высота окна : '+ IntToStr(Form1.Height);
Label2.Caption:= 'Ширина окна: ' + IntToStr(Form1.Width);
if (Form1.Width<600) And (Form1.Height<500) then begin
Form1.Width:= Form1.Width+43; //увеличиваем ширину формы на 43
Form1.Height:= Form1.Height+40;//увеличиваем высоту формы на 40
Label1.Caption:= 'Высота окна : '+ IntToStr(Form1.Height);
Label2.Caption:= 'Ширина окна: ' + IntToStr(Form1.Width);
End else begin
ShowMessage('Размеры окна превысили по ширине-600 и высоте-500 !');
Form1.Button1.Enabled:= False; end;
end;
Запустим программу (F9).
Результат

Download 332,2 Kb.

Do'stlaringiz bilan baham:
1   2   3




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©www.hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish