Друг попросил задачку решить

← →
YurikGL © (2005-12-15 21:40) [0]

А его попросили об этом девушки с эконом факультета....
тексты задач:

1. Вывести на экран вертикальные толстые линии с двоичным представлением: 0101010101010101 1100011000110001 1111110011111100 0111011101110111 1110001110001110 1111000000001111 2. С помощью динамической переменной выведите текст "Изучайте Паскаль", движущийся вертикально сверху вниз.

Задачи надо решить на паскале... Вторую он решил :) Спрашивает что-бы могла означать первая.

← →
Джо © (2005-12-15 21:41) [1]

Включаю мощный телепатор :) Ну, может, что-то вроде штрихкода? То есть - единица - есть линия, 0 - нет.

← →
YurikGL © (2005-12-15 21:43) [2]

Это тексты ЦЕЛИКОМ.... больше ничего не прилагается.... :)

← →
Zeqfreed © (2005-12-15 21:45) [3]

YurikGL © (15.12.05 21:40)
Может надо вывести три линии шириной в 16 пикселей, а эти группы чисел являются шаблоном/кистью (в терминологии Photoshop и Windows)?

← →
YurikGL © (2005-12-15 21:46) [4]

Главный вопрос: что есть "двоичное представление"...

← →
Джо © (2005-12-15 21:47) [5]

> [4] YurikGL © (15.12.05 21:46)
> Главный вопрос: что есть "двоичное представление"...

Главный вопрос - что это за "девушки с экономического" с такими вопросами?

← →
Джо © (2005-12-15 21:48) [6]

Кстати, что имеется в виду во (2) задаче?

← →
YurikGL © (2005-12-15 21:49) [7]

> Кстати, что имеется в виду во (2) задаче?

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

Куда там "динамическую" переменную засунуть - не знаю... вроде все со статической делается...

← →
Джо © (2005-12-15 21:49) [8]

[7] YurikGL © (15.12.05 21:49)
Ото ж и я недоумеваю :*)

← →
имя (2005-12-15 21:51) [9]

Удалено модератором

← →
Kerk © (2005-12-15 21:51) [10]

Нефиг ламерство поощрять. Пусть сами решают. Что за двойные стандарты?

← →
Anatoly Podgoretsky © (2005-12-15 21:53) [11]

YurikGL © (15.12.05 21:40)
Познакомь

← →
имя (2005-12-15 21:54) [12]

Удалено модератором

← →
YurikGL © (2005-12-15 21:54) [13]

Может, в графическом режиме отбразить 0-ли и 1-цы выстроенные в толстые линии?

> Нефиг ламерство поощрять. Пусть сами решают. Что за двойные
> стандарты?

Сам то можешь решить в такой трактовке? ;-)

← →
YurikGL © (2005-12-15 21:55) [14]

> Anatoly Podgoretsky © (15.12.05 21:53) [11]
> YurikGL © (15.12.05 21:40)
> Познакомь

Вас? С парнем девушки с эконома?

← →
vrem (2005-12-15 21:57) [15]

То девушки то парни :)

← →
Zeqfreed © (2005-12-15 21:57) [16]

procedure TForm1.Button1Click(Sender: TObject); const Brush1 = "0101010101010101 1100011000110001 1111110011111100"; Brush2 = "0111011101110111 1110001110001110 1111000000001111"; var i, j : Integer; begin Image1.Width := 540; Image1.Height := 400; Image1.Canvas.Brush.Color := clBlack; for i := 0 to 19 do for j := 1 to 56 do begin if (i mod 2) = 0 then begin if (Brush1[j] <> " ") and (StrToInt(Brush1[j]) = 1) then Image1.Canvas.Rectangle(j*10, i*20, j*10 + 10, i*20 + 20); end else begin if (Brush2[j] <> " ") and (StrToInt(Brush2[j]) = 1) then Image1.Canvas.Rectangle(j*10, i*20, j*10 + 10, i*20 + 20); end; end; end;

Вот я написал так, как понимаю. Вроде красивые вертикальные линии получаются :)

← →
Девушка © (2005-12-15 21:57) [17]

> vrem (15.12.05 21:57) [15]

Лучше б задачу помог решить....

← →
имя (2005-12-15 21:59) [18]

Удалено модератором

← →
Девушка © (2005-12-15 22:01) [19]

> Парень девушки с эконома (15.12.05 21:59) [18]

Я не его.... и вообще не та... но вроде ж в паскакале надо было?

← →
имя (2005-12-15 22:02) [20]

Удалено модератором

← →
vrem (2005-12-15 22:04) [21]

ну тогда поскакали! :)

← →
имя (2005-12-15 22:05) [22]

Удалено модератором

← →
Zeqfreed © (2005-12-15 22:06) [23]

Парень девушки с эконома (15.12.05 22:02) [20]
А может ещё ботиночки кому почистить? Я думал, что требуется лишь идея, а тут опять "дай код!" :(

← →
имя (2005-12-15 22:08) [24]

Удалено модератором

← →
имя (2005-12-15 22:10) [25]

Удалено модератором

Всем спасибо... реализуем предложенную идею.... если у кого-то есть другие идеи "что бы это могло означать" - пишите :)

См [10]. Идею подкинули. Не можешь сам решить, пусть девушка решает - она все-таки учится.

YurikGL © (15.12.05 22:13) [26]
если у кого-то есть другие идеи "что бы это могло означать" - пишите :)

Юрик, ну ты чего? А почему бы просто у препода не спросить? :))

> См [10]. Идею подкинули. Не можешь сам решить, пусть девушка
> решает - она все-таки учится.

Аналогично....

> Юрик, ну ты чего? А почему бы просто у препода не спросить?
> :))

Можно... если только сдавать не завтра сутра.... :) А то, что довели до такого состояния это, конечно, неправильно...

← →
vrem (2005-12-15 22:26) [30]

Согласен с [1], 1 = чёрная, 0=белая линия,
накрайняк пару вариантов сделать, для экономического хватит,
в паскале этом 7-м через Line,
штрихкод выглядит по магазинному ;)

А может, это цвет линий? Правда, непонятно, как он закодирован.

> YurikGL © (15.12.05 22:13) [26]
> Всем спасибо... реализуем предложенную идею.... если у кого-
> то есть другие идеи "что бы это могло означать" - пишите
> :)

Может, что-то вроде этого?
procedure TForm1.Button2Click(Sender: TObject); const Masks: array [0..5]of WORD=($5555,$C631,$FCFC,$7777,$E38E,$F00F); var i, j : Integer; begin Image1.Width := 480; Image1.Height := 300; Image1.Canvas.Brush.Color := clBlack; for j:=0 to 5 do for i:=0 to 15 do if ((Masks[j] shr i) and 1)<>0 then Image1.Canvas.Rectangle(i*5+j*80,0,i*5+j*80+5,300); end;

Хм. На экфаке МГУ проходят смысл страшнах аббревиатур SSH, SSE, HTTP, HTML, FTP и много еще всяких. Никто не знает, зачем. Я тоже структуру МЧС изучал и рассчитывал зоны эвакуации при какой-то там аварии на хим. заводе. Чего мне делать никогда не причедся, и никакого "уровня общей культуры и развития мышления" это не добавляет.

> На экфаке МГУ проходят смысл страшнах аббревиатур SSH, SSE,
> HTTP, HTML, FTP и много еще всяких. Никто не знает, зачем.

Для ликбеза, возможно.

> Для ликбеза, возможно.

Возможно. Хотя, как я понял голова у них не тем занята, поэтому в одно ухо - и через другое. Впрочем, в любом ВУЗе/факультете есть "левые" предметы.

Друг попросил задачку решить Найти похожие ветки