Форум программистов, компьютерный форум, киберфорум
alhaos
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  

Задача: Лыжник в первый день пробежал 10 км.

Запись от alhaos размещена 30.03.2021 в 09:02
Показов 3253 Комментарии 8
Метки powershell

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
<#
.SYNOPSIS
    Problema: Лыжник в первый день пробежал 10 км.
.DESCRIPTION
    1. Начав тренировки, лыжник в первый день пробежал 10 км.
    2. Каждый следующий он увеличивал пробег на 10% от пробега предыдущего дня.
    
    Определить:
    а) пробег лыжника за первый, второй, …, десятый день тренировок;
    б) какой суммарный путь он пробежал за первые 7 дней тренировок.
#>
 
param(
    # Initial Distance in kilometers
    [Parameter()]
    [ValidateRange(1, 100)]
    [int]
    $initialDistance = 10,
 
    # Number of training days
    [Parameter()]
    [ValidateRange(1, 100)]
    [int]
    $trainingDaysNumber = 7,
 
    # Day Increased Result In Percent
    [Parameter()]
    [ValidateRange(1, 100)]
    [int]
    $DayIncreasedResultInPercent = 10
    
)
 
$DayIncreasedResultInDecimalFraction = $DayIncreasedResultInPercent * .01
 
$result = 1..($trainingDaysNumber - 1) | ForEach-Object {[PSCustomObject]@{LapNumber = 1; Distance = $initialDistance}} {
    [PSCustomObject]@{
        LapNumber = $_ + 1
        Distance = $initialDistance * [math]::Pow((1 + $DayIncreasedResultInDecimalFraction), $_) 
    }
}
 
$repoertRows =, "====================="
$repoertRows +=, ("{0,11}{1,10}" -f  "LapNumber", "Distance")
 
$result | ForEach-Object {
    $repoertRows +=, ("{0,11:d}{1,10:N}" -f  $_.LapNumber, $_.Distance)
}
$repoertRows +=, "====================="
$repoertRows +=, ("Total distance: {0:N}" -f ($result | Measure-Object Distance -Sum | ForEach-Object Sum))
$repoertRows +=, "====================="
$repoertRows
Метки powershell
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 8
Комментарии
  1. Старый комментарий
    proc.raku
    Code
    1
    2
    3
    4
    5
    6
    7
    8
    
    #!/usr/bin/env raku
    # Язык программирования Raku ( бывший Perl 6 )
    #    1. Начав тренировки, лыжник Сидоренко в первый день пробежал 10 км.
    #    2. Каждый следующий он увеличивал пробег на 10% от пробега предыдущего дня.
     
    my $distance := 10, * × 1.1 ... ∞;
    say "Расклад за 10 дней для лыжника Сидоренко(Трудовые Резервы) $distance[^10] км" 
    say "Суммарный путь лыжника Сидоренко за первые 7 дней тренировок { $distance[^7].sum } км"
    Bash
    1
    
    raku proc.raku
    output:
    Code
    1
    2
    
    Расклад за 10 дней для лыжника Сидоренко(Трудовые Резервы) 10 11 12.1 13.31 14.641 16.1051 17.71561 19.487171 21.4358881 23.57947691 км
    Суммарный путь лыжника Сидоренко за первые 7 дней тренировок 94.87171 км

    PS:установка под Windows
    PowerShell
    1
    
    choco install rakudostar
    Запись от volodin661 размещена 30.03.2021 в 13:02 volodin661 вне форума
  2. Старый комментарий
    и даже так последовательность отработает ( самому задать первые три члена ):

    Bash
    1
    
    raku -e 'my $distance := 10,11,12.1 ... ∞; say "Расклад за 10 дней лыжника Сидоренко $distance[^10] км"'
    Запись от volodin661 размещена 30.03.2021 в 13:12 volodin661 вне форума
  3. Старый комментарий
    Аватар для alhaos
    Вы все меня raku покусать хотите...
    Запись от alhaos размещена 30.03.2021 в 15:40 alhaos вне форума
  4. Старый комментарий
    Аватар для alhaos
    я не то чтобы сильно против... с Powershell закончу сначала.
    Запись от alhaos размещена 30.03.2021 в 15:42 alhaos вне форума
  5. Старый комментарий
    Цитата Сообщение от volodin661

    Расклад за 10 дней для лыжника Сидоренко(Трудовые Резервы)
    10 11 12.1 13.31 14.641 16.1051 17.71561 19.487171 21.4358881 23.57947691 км
    Суммарный путь лыжника Сидоренко за первые 7 дней тренировок 94.87171 км
    А программисты знают, что такое округление. А то один результат (23.57947691 км) выглядит так:
    23 км 579 метров 476 миллиметров 910 микрон. Никогда не видел лыжников с микроскопом...
    Запись от wer1 размещена 30.03.2021 в 17:05 wer1 вне форума
  6. Старый комментарий
    Bash
    1
    2
    3
    4
    
    raku -e '
    my $distance := 10,11,12.1 ... ∞;
    say "Расклад за 10 дней лыжника Сидоренко: ", $distance[^10].fmt: "%.1fкм", ", "
    '
    output:
    Расклад за 10 дней лыжника Сидоренко: 10.0км, 11.0км, 12.1км, 13.3км, 14.6км, 16.1км, 17.7км, 19.5км, 21.4км, 23.6км
    Запись от volodin661 размещена 12.04.2021 в 13:25 volodin661 вне форума
  7. Старый комментарий
    я не то чтобы сильно против.
    Очень сложный.
    Большой. Бешеное количество операторов и служебных слов.
    Очумеешь.

    Но киллер-фичи - огонь.
    Ни у кого нет.

    А новые регулярные выражения + грамматики так просто чума.
    И никакого больше PCRE )

    И всё это практически на голом энтузиазме, финансирование мизерное. Это вам не жырный Пытон от Гугля.

    ======

    Рекомендую параллельно с Powershell смотреть в сторону F#.
    Весьма интересен, весьма; функциональный + гибридный и варится кастрюле CLR/CTS
    Запись от volodin661 размещена 12.04.2021 в 13:39 volodin661 вне форума
  8. Старый комментарий
    Интерес к Raku в российской федерации = 0.00001
    В пределах статистической погрешности.
    На форуме за 5 лет ни одного вопроса.
    Запись от volodin661 размещена 12.04.2021 в 13:44 volodin661 вне форума
 
Новые блоги и статьи
Был там один разговор по поводу свободы в материальном мире.
kumehtar 19.08.2026
Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .
Когда логика программы не спасает от человеческих ошибок
Maks 18.08.2026
В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит
kumehtar 17.08.2026
Мысли в слух
kumehtar 17.08.2026
Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега
Maks 17.08.2026
Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru