Задание 13

Выдать статистику по городам и годам окончания вашего государ­ства. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица на­чинается с заголовка: ГОРОД <название> - ВСЕГО <цифра>, не равная ну­лю, а заканчивается перечнем годов окончания с цифрами, не равными нулю.

create procedure zapr8_13 as

declare @gk char (2)

declare @ng char(20)

declare @it1 int

declare @it2 int

declare @itall int

declare @ng1 char (20)

declare y cursor for

select vuz_gorod.nazvanie_goroda, gok , count (*)

from azer

join vuz_gorod on vuz_k = cod_vuza

group by gok, vuz_gorod.nazvanie_goroda

select @it2=0

select @itall=0

open y

fetch y into @ng, @gk, @it1

if (@@fetch_status=-2)

begin

print 'Ошибка при выполнении первого FETCH'

close y

return

end

if (@@fetch_status=-1)

begin

print 'Данные не найдены'

close y

return

end

select @ng1=@ng

print @gk+' - '+str(@it1, 4)

select @it2=@it2+@it1

select @itall=@itall+@it1

while (@@fetch_status=0)

begin

fetch y into @ng, @gk, @it1

if (@ng1 != @ng)

begin

print 'Город ' + @ng1 + ' - ' +str(@it2, 4)

select @ng1=@ng

select @it2=0

end

if (@@fetch_status=-1)

break

print @gk+' - '+str(@it1, 4)

select @it2=@it2+@it1

select @itall=@itall+@it1

end

close y

if (@@fetch_status=-2)

begin

print 'Ошибка при выполнении первого FETCH'

return

end

print 'Город ' + @ng + ' - ' + str(@it2, 4)

print '_______________________________________________'

print 'Всего- '+str(@itall, 4)

deallocate y

return

Задание 14

Выдать статистику по лицам мужского пола вашего государства по всем городам и учебным заведениям. Отчет должен начинаться соот­ветствующим заголовком. Далее должна следовать совокупность таблиц, каждая из которых включает перечень учебных заведений одного города с цифрами, не равными нулю (последняя строка таблицы представляет со­бой: ГОРОД <название> - ВСЕГО <цифра>, где <цифра> ^= 0). Заканчива­ется отчет цифрой - общим количеством записей по запросу (т. е. всего мужчин).

create procedure zapr8_14 @res int output as

declare @gor char (20)/*переменная для названия города*/

declare @yz char (25)/*переменная для названия учебного заведения*/

declare @it1 int/*переменная для итога по полю название учебного заведения*/

declare @it2 int/*переменная для итога по полю название города*/

declare @itall int/*переменная для итога по всему запросу*/

declare @gor1 char (20)/*переменная для названия города*/

declare y cursor for

select vuz_gorod.nazvanie_goroda,vuz_gorod.nazvanie_vuza,count(*)

from azer join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

where vuz_gorod.nazvanie_stran like 'АЗЕРБАЙДЖАН%' and pol='Ì'

group by vuz_gorod.nazvanie_goroda,vuz_gorod.nazvanie_vuza

select @it2=0

select @itall=0

open y

fetch y into @gor,@yz,@it1

if(@@fetch_status=-2) begin

print 'Ошибка при выполнении первого FETCH'

close y

return

end

if(@@fetch_status=-1) begin

print 'Данные не найдены'

close y

return

end

select @gor1=@gor

print @yz+' - '+str(@it1)

select @it2=@it2+@it1

select @itall=@itall+@it1

while (@@fetch_status=0)

begin

fetch y into @gor,@yz,@it1

if (@gor1!=@gor) begin

print 'город '+@gor1+' - '+str(@it2)

select @gor1=@gor

select @it2=0

end

if(@@fetch_status=-1) break

print @yz+' - '+str(@it1)

select @it2=@it2+@it1

select @itall=@itall+@it1

end

close y

if(@@fetch_status=-2) begin

print 'Ошибка при выполнении FETCH'

return

end

print 'город '+@gor+' - '+str(@it2)

print '-----------------------------------------'

print 'всего по запросу- '+str(@itall)

select @res=@itall

deallocate y

return

declare @answer int

exec zapr8_14 @answer output

select 'Èòîã = ',@answer