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

Составить программу которая запрашивает размеры ( длину и ширину ) прямоугольника и вычесляет его периметр

Показать ответ
Ответ:
Irinad27
Irinad27
18.04.2023 16:16

1)

var

 D: array[1..20] of integer;

 i, min: integer;

begin

min := 100; // минимальное значение

for i:=1 to 20 do

begin

  D[i] := random(100);

  if D[i] < min then

    min := D[i];

end;

write(min);

end.

2)

var

 B: array[1..30] of integer;

 i, sum, count: integer;

 srAr: real;

begin

 count := 0; // количество чисел больших среднего арифметического

 sum := 0; // сумма всех чисел массива

 for i := 1 to 30 do

 begin

   B[i]:= random(30) + 20;

   sum := sum + B[i];

 end;

 srAr := sum / 30; // среднее арифметическое

 

 for i := 1 to 30 do

   if B[i] > srAr then

     count := count + 1;

   

 write(count);

end.

0,0(0 оценок)
Ответ:
Vasianeumaha
Vasianeumaha
28.04.2021 16:04
Пусть Чертёжник стоит в точке (0,0). Выполняя программу, Чертёжник нарисует цифры 1-9 и 0, в таком виде, как они пишутся на почтовых конвертах (см. рисунок). В фигурных скобках - комментарии, они не выполняются.

использовать Чертежник
алг Циферки
нач
{рисуем 1}
  поднять перо
  сместиться в точку (2, 1)
  опустить перо
  сместиться в точку (2, 3)
  сместиться в точку (1, 2)
{рисуем 2}
  поднять перо
  сместиться в точку (3, 3)
  опустить перо
  сместиться в точку (4, 3)
  сместиться в точку (4, 2)
  сместиться в точку (3, 1)
  сместиться в точку (4, 1)
{рисуем 3}
  поднять перо
  сместиться в точку (5, 3)
  опустить перо
  сместиться в точку (6, 3)
  сместиться в точку (5, 2)
  сместиться в точку (6, 2)
  сместиться в точку (5, 1)
{рисуем 4}
  поднять перо
  сместиться в точку (7, 3)
  опустить перо
  сместиться в точку (7, 2)
  сместиться в точку (8, 2)
  поднять перо
  сместиться в точку (8, 3)
  опустить перо
  сместиться в точку (8, 1)
{рисуем 5}
  поднять перо
  сместиться в точку (10, 3)
  опустить перо
  сместиться в точку (9, 3)
  сместиться в точку (9, 2)
  сместиться в точку (10, 2)
  сместиться в точку (10, 1)
  сместиться в точку (9, 1)
{рисуем 6}
  поднять перо
  сместиться в точку (12, 3)
  опустить перо
  сместиться в точку (11, 2)
  сместиться в точку (11, 1)
  сместиться в точку (12, 1)
  сместиться в точку (12, 2)
  сместиться в точку (11, 2)
{рисуем 7}
  поднять перо
  сместиться в точку (13, 3)
  опустить перо
  сместиться в точку (14, 3)
  сместиться в точку (13, 2)
  сместиться в точку (13, 1)
{рисуем 8}
  поднять перо
  сместиться в точку (15, 3)
  опустить перо
  сместиться в точку (15, 1)
  сместиться в точку (16, 1)
  сместиться в точку (16, 3)
  сместиться в точку (15, 3)
  поднять перо
  сместиться в точку (15, 2)
  опустить перо
  сместиться в точку (16, 2)
{рисуем 9}
  поднять перо
  сместиться в точку (17, 1)
  опустить перо
  сместиться в точку (18, 2)
  сместиться в точку (18, 3)
  сместиться в точку (17, 3)
  сместиться в точку (17, 2)
  сместиться в точку (18, 2)
{рисуем 0}
  поднять перо
  сместиться в точку (19, 1)
  опустить перо
  сместиться в точку (19, 3)
  сместиться в точку (20, 3)
  сместиться в точку (20, 1)
  сместиться в точку (19, 1)
{возвращаемся в начало}
  поднять перо
  сместиться в точку (0, 0)
кон

Нужно написать алгоритм рисования цифр 1,2,3,4,5,6,7,8,9,0 в чертёжнике.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота