В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Ozabo4eniy
Ozabo4eniy
18.04.2022 14:50 •  Информатика

Напишите сообщение о машинных системах счисления.
Даю 30-

Показать ответ
Ответ:
natashasheh
natashasheh
15.02.2021 00:40
PascalABC.NET 3.2

uses GraphABC;

begin
  var xc:=300;
  var yc:=250;
  var r:=150;
  var dx:=Trunc(r*cos(Pi/3));
  var dy:=Trunc(r*sin(Pi/3));
  Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
    (xc-dx,yc+dy),(xc+dx,yc+dy));
  r:=r-10;
  dx:=Trunc(r*cos(Pi/3));
  dy:=Trunc(r*sin(Pi/3));
  Pen.Color:=clRed;
  Brush.Color:=Pen.Color;
  Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
    (xc-dx,yc+dy),(xc+dx,yc+dy));
  Font.Color:=clWhite;
  Font.Size:=50;
  Font.Style:=fsBold;
  SetCoordinateOrigin(xc-90,yc-40);
  Write('STOP');
end.

Нужно нарисовать дорожный знак стоп в паскале. буду !
0,0(0 оценок)
Ответ:
sonya19970
sonya19970
07.10.2022 10:32
# coding: utf-8
# Python 3.X

'''
Программа просит ввести основание
и прилегающую высоту треугольника,
присваивает введённые значения
переменным a и h, вычисляет площадь
треугольника и печатает значения
a, h и площади треугольника.
Вычисление площади треугольника
оформлено в виде вс
функции.
'''

def trig_area(a, h):
    a = 0.5 * a * h
    if a.is_integer():
        return int(a)
    else:
        return a

a = int(input('Введите основание: '))
h = int(input('Введите прилегающую высоту: '))
print('\nОснование: {}\nВысота: {}\nПлощадь: {}'.format(a, h, trig_area(a, h)))
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота