ada/DB.mephi_ada
1
0
Fork 0
mirror of https://github.com/ada-dmitry/DB.mephi_ada.git synced 2026-09-23 23:50:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

switch device

Browse Source
This commit is contained in:
ada-dmitry
2024-03-30 17:33:32 +03:00
parent 4623603411
commit 33a666eadb
5 changed files with 253 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BD_4s/task3.sql
+32
View File
@@ -0,0 +1,32 @@
DO $$
DECLARE
board CHAR(8)[][] := ARRAY[
ARRAY['б', 'ч', 'б', 'ч', 'б', 'ч', 'б', 'ч'],
ARRAY['ч', 'б', 'ч', 'б', 'ч', 'б', 'ч', 'б'],
ARRAY['б', 'ч', 'б', 'ч', 'б', 'ч', 'б', 'ч'],
ARRAY['ч', 'б', 'ч', 'б', 'ч', 'б', 'ч', 'б'],
ARRAY['б', 'ч', 'б', 'ч', 'б', 'ч', 'б', 'ч'],
ARRAY['ч', 'б', 'ч', 'б', 'ч', 'б', 'ч', 'б'],
ARRAY['б', 'ч', 'б', 'ч', 'б', 'ч', 'б', 'ч'],
ARRAY['ч', 'б', 'ч', 'б', 'ч', 'б', 'ч', 'б']
];
BEGIN
RAISE NOTICE 'Шахматная доска:';
FOR i IN REVERSE 1..8 LOOP
RAISE NOTICE '%', board[i];
END LOOP;
RAISE NOTICE 'Размещение фигуры А на клетке A5:';
board[8 - 5 + 1][ASCII('A') - 64] := 'A';
FOR i IN REVERSE 1..8 LOOP
RAISE NOTICE '%', board[i];
END LOOP;
RAISE NOTICE 'Размещение фигуры У на клетке H4:';
board[8 - ч + 1][ASCII('H') - 64] := 'У';
FOR i IN REVERSE 1..8 LOOP
RAISE NOTICE '%', board[i];
END LOOP;
END $$;