Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 73
1

Два параллельных зеркала

24.09.2013, 17:01. Показов 2096. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Два параллельных зеркала А и В обращены друг к другу. При падении луча на зеркало А он ослабляется на Т [%], а при его падении на зеркало В - на Р [%]. Определить, после скольких отражений луч, попеременно отражаясь то от зеркала А,то от зеркала В, ослабеет более чем
в 50 раз. Первоначально он попадает на зеркало А.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.09.2013, 17:01
Ответы с готовыми решениями:

Как запустить два параллельных процесса в Pascal?
Т.е. два куска кода должны выполнятся одновременно, при чем в ходе выполнения второго процесса...

Составьте программу, определяющую, учатся ли два школьника в параллельных классах
Помогите, пожалуйста. Составьте программу, определяющую, учатся ли два школьника в параллельных...

склеил два зеркала на свою голову
может кто подскажет, что не так. есть два зеркала - vagondom.com и ermak.grouptm.ru. Находился...

Два параллельных цикла
Приветствую, не могу сообразить, как правильно реализовать систему. Нужно сделать два цикла,...

1
Модератор
10076 / 5417 / 3356
Регистрация: 17.08.2012
Сообщений: 16,578
24.09.2013, 18:27 2
Лучший ответ Сообщение было отмечено Светлана25 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Mirror;
 
var t, p, x: real;
    i: integer;
 
begin
  write('Enter percent of radiation absorption for mirror A: ');
  readln(t);
  t := (100 - t) / 100;
  write('Enter percent of radiation absorption for mirror B: ');
  readln(p);
  p := (100 - p) / 100;
  i := 0;
  x := 1;
  while x >= 1 / 50 do
    begin
      i := i + 1;
      if odd(i) then x := x * t else x := x * p
    end;
  writeln;
  writeln('Number of mirror A reflection: ', i div 2 + i mod 2);
  writeln('Number of mirror B reflection: ', i div 2);
  readln
end.
Добавлено через 36 минут
И ещё. Правило форума 5.4. Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.
1
24.09.2013, 18:27
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
24.09.2013, 18:27
Помогаю со студенческими работами здесь

Два параллельных Cursor
Вообщем стоит следующая задача: Все дело происходит в хранимке. необходимо пройтись по двум...

Два параллельных окна
Абстрактно говоря, задача состоит в следующем: есть окно1, в которое юзер вводит некоторый текст...

Два длинных параллельных проводника
Два длинных параллельных проводника, находящиеся на расстоянии d друг от друга, соединены с одного...

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

Как взаимодействуют два параллельных проводника, если электрический ток в ни протекают в одном направлении?
Как взаимодействуют два параллельных проводника, если электрический ток в ни протекают в одном...

Два шара подвешены на параллельных нитях одинаковой длины так, что они соприкасаются
Два шара подвешены на параллельных нитях одинаковой длины так, что они соприкасаются. Масса...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Как определить адрес, из которого локальный репозиторий Git был клонирован
bytestream 21.01.2025
В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса. При работе с Git разработчики часто сталкиваются с необходимостью. . .
Какая разница между операторами == и === в сравнениях в JavaScript
bytestream 21.01.2025
В мире веб-разработки JavaScript занимает особое место как динамический язык программирования, предоставляющий разработчикам широкий набор инструментов для создания интерактивных веб-приложений. . . .
Из чего и как собрать свой домашний кинотеатр
bt_guru 21.01.2025
Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .
Ошибки стиральных машин
bt_guru 21.01.2025
Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .
Копирование (маппинг) объектов в JavaScript
bytestream 21.01.2025
В современной разработке программного обеспечения копирование объектов представляет собой фундаментальную операцию, которая требует особого внимания и понимания. Маппинг объектов в JavaScript – это. . .
Как работать с Apache Kafka в C# .NET
bytestream 21.01.2025
Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки больших объемов информации в реальном времени. Эта система,. . .
Как использовать RabbitMQ в C# .NET
bytestream 21.01.2025
RabbitMQ представляет собой мощный брокер сообщений, который эффективно решает эту задачу, обеспечивая надежную передачу данных между множеством приложений. Этот инструмент реализует протокол AMQP. . .
Как объединить последние коммиты в Git
bytestream 21.01.2025
В мире разработки программного обеспечения система контроля версий Git стала незаменимым инструментом для управления исходным кодом. Одной из наиболее полезных, но порой сложных для освоения функций. . .
Как запушить новую локальную ветку (branch) в удалённый репозиторий Git и отслеживать её
bytestream 21.01.2025
В современной разработке программного обеспечения система контроля версий Git стала неотъемлемым инструментом для эффективного управления кодом и организации командной работы. Одной из ключевых. . .
Как создать директорию и все родительские директории, указанные в пути, с помощью Python
bytestream 21.01.2025
Python предоставляет мощные инструменты для работы с файловой системой через встроенные модули os и pathlib, которые значительно упрощают процесс манипуляции директориями. Эти модули содержат. . .
Как работать с массивами в JavaScript
bytestream 21.01.2025
Массивы в JavaScript представляют собой один из фундаментальных типов данных, который позволяет хранить упорядоченные коллекции различных элементов в одной переменной. Эта структура данных является. . .
Какая максимальная длина адреса (URL) в различных браузерах и стандартах
bytestream 21.01.2025
В современном мире интернет-технологий URL-адреса (Uniform Resource Locator) играют фундаментальную роль в функционировании веб-пространства. Эти уникальные идентификаторы ресурсов стали неотъемлемой. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru