Форум программистов, компьютерный форум, киберфорум
Праздники и поздравления
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/36: Рейтинг темы: голосов - 36, средняя оценка - 4.64
Dragokas
Эксперт WindowsАвтор FAQ
17161 / 7215 / 865
Регистрация: 25.12.2011
Сообщений: 11,013
Записей в блоге: 16
1

Весна :)

24.03.2013, 22:37. Просмотров 7127. Ответов 7

С весенним настроением наших любимых пользователей, в частности раздела Batch, поздравляет sov44 !!!

И дарит интересный практичный подарок:

Bash
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
@echo off
SetLocal enabledelayedexpansion
color 1a
title Расчёт индекса массы тела и идеального веса
mode con: cols=70 lines=26
echo.
echo.
set /p rost="Мой рост в см. :                      "
set /p wes="Мой вес в кг. :                       "
set /p pol="Мой пол [м\ж] :                       "
set /p woz="Мой возраст :                         "
set /p grd="Моя окружность грудной клетки в см. : "
 
echo.
set /a ii=%rost%
set /a ind=%wes%*1000000/(%ii%*%ii%)
set uu=%ind:~0,2%
Echo.
Echo               Мой индекс массы тела %UU%
Echo.
Echo  Индекс массы тела менее 18    - Недостаточная масса тела
Echo  Индекс массы тела от 18 до 30 - Норма
Echo  Индекс массы тела от 30 до 35 - Предожирение
Echo  Индекс массы тела от 35 до 40 - Ожирение 1 степени
Echo  Индекс массы тела от 40 до 45 - Ожирение 2 степени
Echo  Индекс массы тела более 45    - Ожирение 3 степени 
 
if /i "%pol%"=="м" set /a ivh=48+11*(%ii%-150)/10
if /i "%pol%"=="ж" set /a ivh=45+9*(%ii%-150)/10
 
echo.
echo.
echo  Мой идеальный вес по Хаммонду (рост и пол)  :               %ivh% кг.
 
if "%woz%" LEQ 40 (set /a ivb=%ii%-110) else (set /a ivb=%ii%-100)
echo  Мой идеальный вес по Броку (рост и возрост) :               %ivb% кг.
 
set /a ivbh=%ii%*%grd%/240
echo  Мой идеальный вес по Брудхарду (рост и окружность груди) :  %ivbh% кг.
 
set /a ivl=(%ii%-100)-((%ii%-150)/2)
echo  Мой идеальный вес по Лоренцу (рост) :                       %ivl% кг.
 
if /i "%pol%"=="м" set /a ivk=((400*%ii%/254)-128)*453/1000
if /i "%pol%"=="ж" set /a ivk=((350*%ii%/254)-108)*453/1000
 
echo  Мой идеальный вес по Куперу (рост) :                        %ivk% кг.
echo.
 
pause>nul



Сделано со вкусом и по науке.
Спасибо sov44 !!!!!

Кликните здесь для просмотра всего текста
Весна :)


Скачать скрипт в готовом виде можно по ссылке ниже:
2
Вложения
Тип файла: zip ind_massy1.zip (859 байт, 238 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2013, 22:37
Ответы с готовыми решениями:

Весна.....
Ух не думал, что буду спрашивать совета, но как говорят - "не зарекайся". В общем картина маслом:...

Студенческая весна
Скоро студенческая весна-для студентов очередной повод выпить. решили выступить. с чем...

Весна, усталость, авитаминоз.
Не могу, не хочу, все надоело, работа раздражает, семья утомляет. Знакомо? Это состояние называют...

Вывести название соответствующего времени года («зима», «весна», «лето», «осень»)
Данный номер месяца - целое число в диапазоне 1-12 (1 - январь, 2 - февраль и т. Д.). Вывести...

7
-Naka
22 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 8
25.03.2013, 05:48 2
Щас буду вешаться...
0
Dragokas
Эксперт WindowsАвтор FAQ
17161 / 7215 / 865
Регистрация: 25.12.2011
Сообщений: 11,013
Записей в блоге: 16
25.03.2013, 14:04  [ТС] 3
-Naka, неужели такая худенькая?
0
-Naka
22 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 8
25.03.2013, 21:45 4
Вот как раз с худобой проблем нет... Я так думаю, что хохлушки вообще худенькими не бывают
0
Charles Kludge
Клюг
7658 / 3173 / 383
Регистрация: 03.05.2011
Сообщений: 8,381
26.03.2013, 10:00 5
Цитата Сообщение от -Naka Посмотреть сообщение
хохлушки вообще худенькими не бывают
В Питере - бывают.
0
dev.Free
Заблокирован
27.03.2013, 13:02 6
-Naka, ДА
0
Dragokas
Эксперт WindowsАвтор FAQ
17161 / 7215 / 865
Регистрация: 25.12.2011
Сообщений: 11,013
Записей в блоге: 16
04.04.2013, 00:17  [ТС] 7
А вот и мое ответное поздравление
Цветная роза с использованием только встроенных команд консоли
Уточню, что Microsoft не предусмотрела изначально, чтобы в консоли можно использовать одновременно более 1 цвета шрифта/фона без сторонних средств на DOS-е.
Пришлось прибегнуть к одному трюку, ранее нигде не опубликованному.

Bash
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
@echo off&:: Want something special :)
::                                                          $ by Alex Dragokas $
SetLocal EnableDelayedExpansion EnableExtensions
if "%~1"=="" Call :SetBuffer Set
Color 9A
md "%temp%\_bin2" 2>nul 
pushd "%temp%\_bin2"
 
for /f "delims=[]" %%N in ('find /n "My_Beautiful_Rose" ^<"%~f0"') do set /a num=%%N
for /F "delims=" %%A in ('more +%num% ^<"%~f0"') do (
  Set /a n+=1
  if !n! LEQ 20 Call :ColorText "%%A" "1C"
  if !n! GTR 20 if !n! LEQ 27 Call :ColorText "%%A" "1D"
  if !n! GTR 27 if !n! LEQ 32 Call :ColorText "%%A" "1A"
  if !n! GTR 32 if !n! LEQ 45 Call :ColorText "%%A" "1A"
  if !n! GTR 45 if !n! LEQ 49 Call :ColorText "%%A" "1E"
  if !n! GTR 49 Call :ColorText "%%A" "08"
)
 
popd
Call :SetBuffer Recover
rd /s /q "%temp%\_bin2"
del Reg_Console_backup.reg>nul
pause>nul
goto :eof
 
:ColorText %1-in.Text %2-in.Color.HEX
  echo.>"%~1"
  findstr /V /a:%~2 "1" "*" 2>nul
  del /f "%~1"
Exit /B
 
::Setting screen buffer width = current width +2 to hide ":" in the Findstr command.
::However, the settings are static now. Needs few more code to recode x10 to x16 scales.
:SetBuffer %1-in.Operation.Set.or.Recover
if "%~1"=="Recover" (2>nul 1>&2 reg import Reg_Console_backup.reg& exit /B)
::making backup
reg export "HKCU\Console" Reg_Console_backup.reg
::making permanent backup
echo n| copy /-Y Reg_Console_backup.reg Reg_Console_backup_permanent.reg
::Creating modifications to registry
(
echo Windows Registry Editor Version 5.00
echo [HKEY_CURRENT_USER\Console\%%SystemRoot%%_system32_cmd.exe]
echo "ScreenBufferSize"=dword:3e80051
echo "WindowSize"=dword:0038004e
) > Reg_Console_Mod.reg
::Apply it
reg import Reg_Console_Mod.reg
del Reg_Console_Mod.reg
::Restarting CMD on the another thread using new environment
start cmd /c "%~f0" next
Exit
 
:My_Beautiful_Rose
                                  _
                    'M,        .mM'
                     IMIm_  _,mIM'
                     ,MI''IM,mIMm
          'IMmm,    ,IM____IM_'IM,           ,m'
             'IMMIMMIMm_,IM'___'IM''==mm_,mIM'
            ,mIM'____'MIM'______IM,__,mIMIM'
 ,mMIMIMIIMIMM,______,mM'______,IMIMIMIMMM'
IMM,_______'IMM,____,M'______,IIM'_____'MM,
 'IMM,________'IM,_,M'_____,IM'_________'IM,
    'IMm_______'IMMM______,IM'___________'IM,
      'Mm________'IM______MM'______________'IM,
       IM,________IM______MM_________________'IM,
        MM,_______IM,_____'IM_________________'IM
        'IM,______'IM,_____'IM,________________IM; .
         'IM,______'IM,______'IM________.,mmmIMMMMMMMm,_
           IM,______'IM,______IM,__.mIMIMM''''._.._'IMMMM
           'IM,______'IM______mIMIMM''._._._._._.,mM'   'M
            IMm,_____;IM___,IIMM'_._._._._._..,mMM'
            'IMMIMIMMIMM,,IMM'_._._._._.,mMMMMM'
             ,IM'._._.'IMIM'._._._.,mMMMMMMMM'
           ,IM_._._._.,IMM'._._._,mMMMMMMMMM'
          IM._._._.,mIIMM,._._..mMMMMMMMMMM'
         ,M'..,mIMMIMMIMMIMmmmMMMMMMMMMМММ'
         IM.,IMI'''        ''IIMMMMMMMMMMM
        ;IMIM'                  ''IMMMMMMM
        ''                         'IMMMMM
                                     'IMMM                                    ,
                                      'IMM,                                   ,
                                       'IMM                                   ,
                                        'MM,                                  ,
                                         IMM,                                 ,
                                         'IMM           .mIMMIMMIMMIMMIMM,    ,
                   .,mIMMIMMIMM,_,mIMM,   IMM'        ,mIM'._._._._'IM,..M,   ,
                 ,IMMM'_._._._'IMM._'M,   IMM       ,IM'._._._.__-_-;IM__M,   ,
               .mIM'_._._.__(_.-'IM._MM   'MM,    ,M'._._.--_+_.;mIMIMIM,_M,  ,
              ,IM'._._.__(_._.-;,IMIMIMMM__IMM   ,M'._.__(_.-mIM''   'IM,-M   ,
             ,IM'._._._(_._.-;,mIM'  `'IMM_IMM   IM._.__(_.mM'         'IMI   ,
            ,IM_._.__(_._.-;,mIM'      'IMMMMM   MM,.__(_,mM            'M'   ,
            IM'._.__(_._.;,mIM'          'IIMMM_,IMIM,.,IM'                   ,
            IM_._._(_._.,mIM'              IMMMMMMM'_'''                      ,
            `IM,.__(_;,mIM'                 IIMMM                             ,
             'IMI,_(),mIM'                   IMMM                             ,
               'IMMMM'                    '''IMM                              ,
                 ''                        __IMM                              ,
                                          __IMM                               ,
                                           IMM'''                             ,
                                            IMM                               ,
                                            IMM                               ,
                                            IMM                               ,
                                          '''IMM                              ,
                                            IMM                               ,
                                            IMM                               ,
                                            IMM__                             ,
                                           IMM''                              ,
Весна :)
2
Вложения
Тип файла: zip My_Rose.zip (1.6 Кб, 226 просмотров)
Catstail
Модератор
25769 / 13286 / 2513
Регистрация: 12.02.2012
Сообщений: 21,791
07.04.2013, 15:18 8
Dragokas! Нет слов... Снимаю шляпу!
0
07.04.2013, 15:18
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2013, 15:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Во введенной дате определить время года (зима, весна, лето. осень)
Во введенной дате определить время года (зима, весна, лето. осень).

Создать перечисляемый тип данных GOD – лето, осень, зима, весна
Задача 1 - Создать перечисляемый тип данных GOD – лето, осень, зима, весна. Вывести порядковые...

Написать процедуру, которая выводит на экран время года ( весна, лето, осень, зима)
Написать процедуру, которая выводит на экран время года ( весна, лето, осень, зима). Номер месяца...

В зависимости от номера месяца вывести, какое это время года: весна, осень, лето или зима
доброго времени суток! помогите пожалуйста решить несколько задач 2. В зависимости от номера...


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

Или воспользуйтесь поиском по форуму:
8
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.