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

Разведчик передал в штаб радиограмму:
— • — • — • • • — • — • — — • •
В этой радиограмме содержится последовательность букв,в которой встречаются только буквы А, Д, К, С, Ы.
Каждая буква закодирована с азбуки Морзе. Разделителей между кодами букв нет. Запишите в ответе переданную последовательность букв.
Нужный фрагмент азбуки Морзе приведён ниже:
А: • —
Д: — • •
К: — • —
С: • • •
Ы: — • — —

Показать ответ
Ответ:
Angel4892
Angel4892
02.11.2022 19:29
Ошибка, которую "заметил" компилятор, состоит в нарушении запрета на модификацию параметра цикла For в теле цикла. Для Ваших целей надо было использовать цикл с итерацией, например такой:

  r := 460;
  while r >= 100 do
  begin
    circle(620, 480, r);
    r := r - 35
  end;

В соответствии с алгоритмом, программа должна нарисовать концентрические окружности, центр которых имеет координаты 620;480, а радиус уменьшается от 460 до 100 с шагом 35. После окончания рисования производится заливка различными цветами областей, начальные точки которых указаны своими координатами, а границей области является какая-либо ранее нарисованная линия.
Попробуйте выполнить эту программу...
0,0(0 оценок)
Ответ:
aleksandrp462
aleksandrp462
29.06.2021 13:59
Подобные задачи ("значение, которое получат переменные..."), когда для получения ответа надо выполнять цикл значительное количество раз в реальном программировании не имеют никакого смысла.  Всегда можно сделать трассировку и посмотреть. Ниже - пример такой трассировки.

var
  s, d: real;
  i: integer;

begin
  writeln('Трассировка начата');
  s := 0;
  for i := 1 to 49 do
  begin
    d := i * (i + 1);
    s := s + 1 / d;
    writeln('i=', i:2, ', d=', d:4, ', s=', s:8:6);
  end;
  writeln('Трассировка завершена');
  writeln('S=', s);
end.

Трассировка начата
i= 1, d=   2, s=0.500000
i= 2, d=   6, s=0.666667
i= 3, d=  12, s=0.750000
i= 4, d=  20, s=0.800000
i= 5, d=  30, s=0.833333
i= 6, d=  42, s=0.857143
i= 7, d=  56, s=0.875000
i= 8, d=  72, s=0.888889
i= 9, d=  90, s=0.900000
i=10, d= 110, s=0.909091
i=11, d= 132, s=0.916667
i=12, d= 156, s=0.923077
i=13, d= 182, s=0.928571
i=14, d= 210, s=0.933333
i=15, d= 240, s=0.937500
i=16, d= 272, s=0.941176
i=17, d= 306, s=0.944444
i=18, d= 342, s=0.947368
i=19, d= 380, s=0.950000
i=20, d= 420, s=0.952381
i=21, d= 462, s=0.954545
i=22, d= 506, s=0.956522
i=23, d= 552, s=0.958333
i=24, d= 600, s=0.960000
i=25, d= 650, s=0.961538
i=26, d= 702, s=0.962963
i=27, d= 756, s=0.964286
i=28, d= 812, s=0.965517
i=29, d= 870, s=0.966667
i=30, d= 930, s=0.967742
i=31, d= 992, s=0.968750
i=32, d=1056, s=0.969697
i=33, d=1122, s=0.970588
i=34, d=1190, s=0.971429
i=35, d=1260, s=0.972222
i=36, d=1332, s=0.972973
i=37, d=1406, s=0.973684
i=38, d=1482, s=0.974359
i=39, d=1560, s=0.975000
i=40, d=1640, s=0.975610
i=41, d=1722, s=0.976190
i=42, d=1806, s=0.976744
i=43, d=1892, s=0.977273
i=44, d=1980, s=0.977778
i=45, d=2070, s=0.978261
i=46, d=2162, s=0.978723
i=47, d=2256, s=0.979167
i=48, d=2352, s=0.979592
i=49, d=2450, s=0.980000
Трассировка завершена
S=0.98

В исходном тексте программы была синтаксическая ошибка: после оператора S:=0 отсутствовала точка с запятой, на что немедленно указал компилятор.
Практически смысл имеет "трассировка на бумаге" для нескольких выполнений тела цикла с тем, чтобы убедиться в правильности работы алгоритма. И не более того.
Анализ программы показывает, что она вычисляет сумму вида
S=\Sigma^{49}_{i=1} \frac{1}{i(i+1)}
В книге "Интегралы и ряды" М.Прудников и др.., М,: Наука, 1981 на стр. 601 приводится формула 4.1.4.2
\Sigma^n_{k=1} \frac{1}{k(k+m)}= \frac{n}{m} \Sigma^m_{k=1} \frac{1}{k(k+n)}; \\ n=49, m=1 \to \frac{n}{m} \Sigma^m_{k=1} \frac{1}{k(k+n)}=\frac{49}{1} \Sigma^1_{k=1} \frac{1}{k(k+1)}= \frac{49}{1*(1+49)}= \frac{49}{50}=0.98

Итак, сумма может быть легко вычислена для любого количества повторений цикла. Нужно ли вообще в таких случаях писать программу?

Это был урок для делающих первые шаги в увлекательном мире программирования.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота