|
zadach247.BAS |
|
{* Задача247 *}REM basic ' Металлургический завод в январе, феврале и марте 2001 г. выпустил 1500, 1780' и 2050 т меди. Представить эти данные в виде горизонтальной гистограммы.' Каждый столбец должен иметь формат: месяц:**..**(значение).CLS
PRINT
PRINT "Январь :"; String$(1500 / 100, "*"); " (1500)"
PRINT "Февраль :"; String$( CInt(1780 / 100), "*"); " (1780)"
PRINT "Март :"; String$( CInt(2050 / 100), "*"); " (2050)"
End
|