xfile, Oracle - rextester

Language: Layout:

-- 1. Используем средства СУБД Oracle
-- 1.1. создаем и выводим основную таблицу средствами СУБД Oracle
DROP TABLE TV\\  
CREATE TABLE TV (name VARCHAR2(40), brand VARCHAR2(10),
                                     diagonal NUMBER(2), technology VARCHAR2(41), 
                                     sizetv NUMBER(10),  brightness NUMBER(4), 
                                     powertv NUMBER(3),  price NUMBER(6) )\\  
TRUNCATE TABLE TV\\  
INSERT INTO TV VALUES ('SonyKD-75X9405C', 'Sony', 75, 'затворная', 192*104*32, 565, 264, 471000)\\   
INSERT INTO TV VALUES ('PanasonicTX-65CZR950', 'Panasonic', 65, 'поляризационная', 145*92*31, 216, 201, 918000)\\   
INSERT INTO TV VALUES ('PanasonicTX-58DXR800', 'Panasonic', 58, 'затворная', 138*83*36, 531, 99, 195000)\\   
INSERT INTO TV VALUES ('PanasonicTX-65DXR900', 'Panasonic', 65, 'затворная', 146*89*33, 950, 220, 330000)\\  
INSERT INTO TV VALUES ('SonyKD-65XD9305', 'Sony', 65, 'затворная', 146*89*28, 480, 157, 229000)\\   
INSERT INTO TV VALUES ('SamsungUE65KS9590', 'Samsung', 65, '-', 144*92*38, 1189, 110, 235000)\\  
INSERT INTO TV VALUES ('LG 65UF950V', 'LG', 65, 'поляризационная', 146*90*25, 268, 115, 230000)\\  
INSERT INTO TV VALUES ('PanasonicTX-65DXR780','Panasonic', 65, 'затворная', 145*90*36, 454, 108, 209500)\\   
INSERT INTO TV VALUES ('Philips65PUS8700', 'Panasonic', 65, 'затворная', 156*91*27, 281, 163, 179800)\\   
INSERT INTO TV VALUES ('Philips65PUS6521', 'Philips', 65, '-', 146*90*26, 346, 155, 131100)\\   
INSERT INTO TV VALUES ('PanasonicTX-65CXW704', 'Panasonic', 'затворная', 146*89*40, 416, 145, 146500)\\ 
INSERT INTO TV VALUES ('SamsungUE60JU6850', 'Samsung', 60, '-', 136*83*37, 344, 199, 101800)\\ 
INSERT INTO TV VALUES ('TelefunkenXU65A441', 'Telefunken', 65, 'поляризационная', 146*90*34, 239, 118, 70000)\\   
INSERT INTO TV VALUES ('TCLU58578065', 'TCL', 58, '-', 131*83*28, 262, 78, 50000)\\

SELECT * FROM TV\\  
SELECT * FROM TV WHERE price > 170000\\

DROP TABLE TVAccessory\\   
CREATE TABLE TVAccessory (name VARCHAR2 (35), brand VARCHAR2(15),  
                                                      type VARCHAR2(41), guarantee VARCHAR2(16),
                                                      material VARCHAR2(14), color VARCHAR2(22), price NUMBER(6) )\\   
TRUNCATE TABLE TVAccessory\\   
INSERT INTO TVAccessory VALUES ('Microsoft XBOX 360 250gb', 'Microsoft', 'Игровая консоль', '1год', 'АБС', 'белый', 45590)\\   
INSERT INTO TVAccessory VALUES ('Samsung  DVD-C450K', 'Samsung', 'DVD плеер', '6 месяцев', 'пластик', 'черный', 1395)\\   
INSERT INTO TVAccessory VALUES ('Sony PlayStation 3 Super Slim 500gb', 'Sony', 'Игровая консоль', '1год', 'АБС', 'белый', 14099)\\    
INSERT INTO TVAccessory VALUES ('LG DVX - 490H', 'LG', 'DVD плеер', '6 месяцев', 'пластик', 'черный', 3290)\\   
INSERT INTO TVAccessory VALUES ('Acer E4W Silver', 'Acer', '3D-очки', '3 месяца', 'пластик', 'черный', 1990)\\ 
INSERT INTO TVAccessory VALUES ('Gal AR-170 Black', 'Gal', 'Антенна телевизионная', '1год', 'Сталь', 'серебристый', 1990)\\    
INSERT INTO TVAccessory VALUES ('ДУ One For All Contour TV', 'One For All', 'Пульт', '1год', 'пластик', 'черный', 990)\\

SELECT * FROM TVAccessory\\   
SELECT * FROM TVAccessory WHERE price > 1900\\

-- 2. используем PL/SQL для обработки наборов данных (коллекций) (PL/SQL BLOCK FOR COLLECTIONS)
DECLARE                                                                                                    
   -- 2.1. создаем курсоры (указатели на данные таблицы) (common cursors used for all collections)
   CURSOR CursorName          IS SELECT name FROM TV;
   CURSOR CursorNameExpensive IS SELECT name FROM TV WHERE price > 170000;

CURSOR CursorBrand          IS SELECT brand FROM TVAccessory;
   CURSOR CursorBrandExpensive IS SELECT brand FROM TVAccessory WHERE price > 1900;

-- 2.2. объявляем ассоциативные массивы (declaration for associate arrays) 
   TYPE CharList_name IS TABLE of TV.name%type INDEX BY binary_integer; 
   NameList_name CharList_name; 
   counter_name integer :=0;

NameList_name_expensive CharList_name; 
   counter_name_expensive integer :=0;

TYPE CharList_brand IS TABLE of TVAccessory.brand%type INDEX BY binary_integer; 
   NameList_brand CharList_brand; 
   counter_brand integer :=0;

NameList_brand_expensive CharList_brand; 
   counter_brand_expensive integer :=0;

BEGIN 
   -- 2.3. добавляем элементы ассоциативных массивов и выводим на экран  
   dbms_output.put_line('Элементы ассоциативного массива (associate array) с помощью курсора CursorName');
   FOR rec IN CursorName LOOP 
      counter_name := counter_name + 1; 
      NameList_name(counter_name) := rec.name; 
      dbms_output.put_line('Номер элемента: '||counter_name||;', значение элемента:'||NameList_brand(counter_name)); 
   END LOOP; 
   
   dbms_output.put_line('Элементы ассоциативного массива (associate array) с помощью курсора CursorNameExpensive');
   FOR rec IN CursorNameExpensive LOOP 
      counter_name_expensive := counter_name_expensive + 1; 
      NameList_name_expensive(counter_name_expensive) := rec.name; 
      dbms_output.put_line('Номер элемента: '||counter_name_expensive||;', значение элемента:'
                           ||NameList_name_expensive(counter_name_expensive)); 
   END LOOP;

dbms_output.put_line('Элементы ассоциативного массива (associate array) с помощью курсора CursorBrand');
   FOR rec IN CursorBrand LOOP 
      counter_brand := counter_brand + 1; 
      NameList_brand(counter_brand) := rec.name; 
      dbms_output.put_line('Номер элемента: '||counter_brand||;', значение элемента:'||NameList_brand(counter_brand)); 
   END LOOP; 
   
   dbms_output.put_line('Элементы ассоциативного массива (associate array) с помощью курсора CursorBrandExpensive');
   FOR rec IN CursorBrandExpensive LOOP 
      counter_brand_expensive := counter_brand_expensive + 1; 
      NameList_brand_expensive(counter_brand_expensive) := rec.brand; 
      dbms_output.put_line('Номер элемента: '||counter_brand_expensive||;', значение элемента:'
                           ||NameList_brand_expensive(counter_brand_expensive)); 
   END LOOP;

END;


Absolute service time: 1.06 sec, absolute service time: 1,07 sec