y"> {TODO -oUser -cConsole Main: Insert code here}
end.
Завдання № 17
Завдання до роботи:
1. Розробити інтерфейс програми із застосуванням компонентів: Edit, Memo, MaskEdit, BitBtn, Button, Label.
2. Розробити алгоритм вирішення задачі в відповідності з варіантом завдання.
. Реалізувати розр?? лений алгоритм в рамках раніше створеного інтерфейсу.
. Перевірити працездатність програми за допомогою тестового набору даних.
. Оформити звіт і здати роботу викладачеві.
Малюнок 2.17.- Запущена головна форма
Лістинг:
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, StdCtrls, Buttons, jpeg;=class (TForm): TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn;
btn7: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TImage; btn1Click (Sender: TObject); btn16Click (Sender: TObject); btn2Click (Sender: TObject); btn3Click (Sender: TObject ); btn4Click (Sender: TObject); btn5Click (Sender: TObject); btn9Click (Sender: TObject); btn7Click (Sender: TObject); btn8Click (Sender: TObject); btn6Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; Unit2, Unit7, Unit10, Unit12, Unit13, Unit14, Unit3, Unit16, Unit17, Unit18, Unit19, Unit20, Unit23, Unit22;
{$ R * .dfm} TForm1.btn1Click (Sender: TObject) ;. show; .Hide ;; TForm1.btn16Click (Sender: TObject) ;;; TForm1.btn2Click (Sender: TObject) ; .show; .Hide ;; TForm1.btn3Click (Sender: TObject) ;. show; .Hide ;;; TForm1.btn5Click (Sender: TObject) ;. Hide; .show ;; TForm1.btn9Click (Sender: TObject);.show; .Hide ;; TForm1.btn7Click (Sender: TObject) ;. show; .Hide ;; TForm1.btn8Click (Sender: TObject) ;. Hide; .show ;; TForm1.btn6Click (Sender: TObject) ;. show ; .Hide ;;
end.
Завдання № 18
Текст завдання: «Картотека фільмів». За обраному зі списку жанру фільму на екран повинен виводитися список фільмів відносяться до даного жанру.
Малюнок 2.18.- Додаток картотека фільмів в дії
Лістинг: TForm8.btn1Click (Sender: TObject); cbb1.ItemIndex=0 then.Items.Clear; .Items.Add ( 21 і більше ); 1.Items.Add ( laquo ; американський пиріг );
lst1.Items.Add ( проект ІКС );
lst1.Items.Add ( однокласники );
lst1.Items.Add ( тато Досвідос );
end; cbb1.ItemIndex=1 then.Items.Clear; .Items.Add ( 13/13/13 ); 1.Items.Add ( Паранормальне явище: Мітка Диявола raquo ;);
lst1.Items.Add ( Маніяк з твіттера );
lst1.Items.Add ( Закляття );
lst1.Items.Add ( прокляття чаки );
end; cbb1.ItemIndex=2 then.Items.Clear; .Items.Add ( Адреналін 1,2 ) ;. Items.Add ( Форсаж ) ;. Items.Add ( Убітьбілла1, 2 ) ;. Items.Add ( Вассаби ) ;. Items.Add ( Леон ) ;; cbb1.ItemIndex=3 then.Items.Clear; .Items.Add ( laquo ; Титанік ); 1.Items.Add ( Втеча з Шоушенка );
lst1.Items.Add ( Зелена миля );
lst1.Items.Add ( Реквієм за мрією );
lst1.Items.Add ( Хатіко: Вірний друг );
end;
lst1.Items.Add ( Санта Барбара );
lst1.Items.Add ( Не родись вродливою );
lst1.Items.Add ( Карпов ) ;;; TForm8.btn2Click (Sender: TObject) ;;; TForm8.btn3Click (Sender: TObject) ;. Hide; .show ;;
end.
Завдання № 19
Текст завдання: Створити додаток Тест.
Малюнок 2.19.- Додаток тест запущено
Лістинг:
procedure TForm9.btn1Click (Sender: TObject);:=0; RG1.itemindex=- 1 ( нечегоневибрано ) elserg1.itemindex=0x:=x + 1; rg2.itemindex=-1 ( нечегоневибрано ) elseRG2.itemindex=2x:=x + 1; rg3.itemindex=- 1 ( нечегоневибрано ) elseRG3.itemindex=2x:=x + 1; rg4.itemindex=- 1(laquo;нечегоневыбраноraquo;)elseRG4.itemindex=0x:=x+1;x:=x+1;(laquo;вашрезультатraquo; + inttostr (x)) ;; TForm9.btn3Click (Sender: TObject) ;. Close; .Close ;; TForm9.btn2Click (Sender: TObject) ;. hide; .show;
end;.
Завдання № 20
Текст завдання:
) встановлювати кількість стовпців і рядків квадратної таблиці StringGrid рівними числу, запро...