Программа 5:
#
# (c) NaaMan
import math
print( 'Введите через пробел длины сторон: ')
a, b, c = map( float, input().split())
if a+b>c and a+c>b and b+c>a:
d = list((a,b,c))
d.sort()
a,b,c = d
if a*a + b*b == c*c:
print('Треугольник прямоугольный')
else:
x = (a*a + b*b - c*c) / (2 * a * b)
gamma = math.acos(x)
grd = gamma / math.pi * 180
print('Угол С = %3.4f градусов'% grd)
else:
print('Таких треугольников не существует!')
Программа 6:
#
# (c) NaaMan
import math
print( 'Введите через пробел a и b: ')
a, b = map( int, input().split())
print( 'Введите через пробел c и d: ')
c, d = map( int, input().split())
print( 'Максимальное из двух меньших - ', max( min( a, b), min( c, d)))
Программа 7:
#
# (c) NaaMan
import math
print( 'Выберите режим перевода')
print( '0 - из градусов в рад')
print( '1 - из рад в градусы')
n = int( input( '> '))
x = float( input( 'Введите меру угла: '))
if n:
res = x / math.pi * 180 # rad -> grad
else:
res = x * math.pi / 180 # grad -> rad
print( 'Результат: %3.4f'% res)
Объяснение:
program z1;
uses GraphABC;
var t:integer;
begin
SetWindowSize(400,400);
write('Введите показания температуры: ');
read(t);
SetPenWidth(3);
if t<=0 then
begin
SetPenColor(clBlue);
Line (150,200,200,150);
Line (200,150,250,200);
Line (250,200,200,250);
Line (200,250,150,200);
FloodFill(200,200,clSkyBlue);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100)
end
else
begin
SetPenColor(clYellow);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100);
SetBrushColor(clYellow);
Circle(200,200,50)
end
end.
Объяснение:
Вводим температуру
Если t <= 0 рисуем снежинку, иначе (если t > 0) рисуем солнышко
Объяснение:
Ақпараттарды қорғау ауданында ең негізгі заны 26 маусымда 1998 жылы еңгізілген. Ол № 233-1 “Қазақстан Республикасының халық қауыпсыздығы туралы” заны, 22 бабы. “ақпараттық қауыпсыздықты қамтамасыз ету” Қазақстан Республикасында ақпараттық ресурстарды қолдану және қалыптастыру кезінде пайда болған қатынасты жинақтау, сақтау, тарату және қолданушыларға құжаттық ақпараттарды қамтамасыз етеді, сонымен қатар ақпараттық технологияларды құру және қолдану кезінде, ақпаратты қорғау кезінде қамтамасыз етеді.
Мемлекттік органдарда, ұйымдарда, тәуелсіздік формасына қарамастан, азаматтар мен қызметкер адамдарға занға байланысты мынадай шараларды міндетті түрде қолдамауға қажет:
Қазақстанның ақпараттық тәуелділігіне;
Басқа мемлекеттер тарапынан ақпараттық жаулап алу;
Президент, Парламент, Правительство және Қазақстан Республиаксының халықтық қаупсыздық күшінің ақпараттық изоляциясын қаматамасыз етуде.
Халықтын қауыпсыздығына күмән келтіретін әрекеттерді қолдануға тиым салынады, мысалы:
мемлекеттік қүпия жұмыстармен айналысқан қызметшілер бес жыл бойы Қазақстан Республика шек арасынаң тұрақты тұрғын жерін ауыстыруға болмайды.
Қазақстан Республика территориясында халықтың қауыпсыздығына күмән келтіретін жазба ақпататтарды, радио- және теледидарда шетелдік массалық ақпараттарды таратуға болмайды.
Мемлекеттін мүдесіне байланысты жұмыс бабындағы немесе басқада бір ақпараттарды жаюға болмайды
шетел адамдарға тура немесе жанама түрінде 20 шақты проценттік акция пакеттерін қолдануға, білуге, пайдалануға болмайды