Даны прямоугольные координаты x и y некоторой точки. определить ее полярные координаты. (сделать на free basic)

Sub z() dim k as integer dim m as integer dim p as single dim i as integer dim j as integer dim n as integer dim x as integer k = inputbox("количество округов") m = inputbox("количество партий") p = inputbox("порог явки изберателей (в %)") s = "выборы состоялись в округах: " for i = 1 to k     for j = 1 to m         x = inputbox("округ " & i & ". голосов за партию №" & j)         n = n + x     next j     x = inputbox("округ " & i & ". не голосовало")     if (n / (n + x) * 100) > p then s = s & i & "; "     n = 0 next i msgbox (s) end sub

Приход нового времени радикально изменил и социальные стороны жизни общества. многие ученые и практики пришли к выводу, что сегодня жизнедеятельность - это процесс, который может иметь место только тогда, когда человек располагает информацией, которая одновременно определяет и жизнеспособность общества.      эти тезисы воспринимаются как постулат, определенная данность, хотя, по мнению ф.уэбстер, «не удается установить, каким образом информация заняла центральное место в обществе, она настолько важна, что даже стала фактором создания общества нового типа».        изменения самым прямым образом касаются и места человека в информационном мире. человек меняется в соответствии с вектором информационно-технических характеристик общества. однако это совсем не пассивное принятие новых условий производства и потребления. человек выступает субъектом информационной реальности, далеко выходящей за информационно технические характеристики. информатизация повседневной жизни и появление нового информационного поля человеческого бытия не проходит бесследно для жизненного мира человека. в электронном пространстве изменяются поведенческие стандарты и ценностные ориентации личности.