Евгений Ульяров (все сообщения)

Вот че у меня получаеться.
uses graph;
const zoom = 100;
var x,y,w : Real;
grDriver : Integer;
grMode : Integer;
I,J : Integer;
Color : Byte;
function f(x,y : real):real;
begin
f:=4*x*x+4*x*y+6*y*y-17*x;
end;
begin
w := 1/zoom;
grDriver := Detect;
InitGraph(grDriver,grMode,'c:\tp\bg i\');
For I := 0 To GetMaxX Do
Begin
For J := 0 To GetMaxY Do
Begin
X := (GetMaxX/2-I)/zoom;
Y := (GetMaxY/2-J)/zoom;
Color := Round(f(x,y));
If ((X > -w) And (X < w))
Or ((Y > -w) And (Y < w))
Then Color := 0;
PutPixel(I, J, Color);
End;
End;
readln;
CloseGraph;
end.

Они пишут чтобы было интересней работать чтобы кнопочки цветные были и окошки.

Хорошо что вы справились со своей ошибкой.Тему можно закрыть

Конечно оптимизирует ОС для работы с популярными программами. Тогда каким еще испортить жизнь человека своими платными программами

А для чего он еще и нужен чтобы звонить ,слушать музыку и играться.

Скажу, что это очень тяжело распознать рукописный почерк так как надо учитывать каждый крючок в букве. FineReader тоже не идеально распознает рукописный текст.

Оль, попадаются еще такие которые не могут объяснить что им надо написать

Должно выглядеть все так

Код
uses JPEG; procedure JPEGtoBMP( const FileName: TFileName); var jpeg: TJPEGImage; bmp: TBitmap; begin jpeg := TJPEGImage.Create; try jpeg.CompressionQuality := 100 ; {Default Value} jpeg.LoadFromFile(FileName); bmp := TBitmap.Create; try bmp.Assign(jpeg); bmp.SaveTofile(ChangeFileExt(FileName, '.bmp' )); finally bmp.Free; end; finally jpeg.Free; end; end;

Вот наткнулся на статью интересную для всех программистов и будущих программистов. 20 вопросов на собеседовании. Причем из них мне задали 15 на моем собеседовании
http://www.caseclub.ru/articles/asks.html