Дмитрий Сергиенко (все сообщения)

В var добавь
Temp : real;
Flag : Boolean;
в текст программы
for j:=1 to 6 do
begin
repeat
Flag := False;
for i := 1 to 5 do
if m[i,j] < m[i + 1,j] then begin
Temp := m[i,j];
m[i,j] := m[i + 1,j];
m[i + 1,j] := Temp;
Flag := True;
end;
until Flag = False;
end;
если правильно понял то вот так, ну а вывести матрицу думаю сможешь

Есть файл на сервере, к примеру site.ru/1.txt, нужно программно считать данные к примеру в Memo1. Знаю как сделать методом ftp, а как можно реализовать его иначе?

Тип - Порог - Максимальное значение - Количество значащих цифр - Объем (байт)

Real 2.9E-39 - 1.7Е38 - 11-12 - 6

Single 1.5E-45 - 3.4Е38 - 7-8 - 4

Double 5.0E-324 - 1.7Е308 - 15-16 - 8

Extended 3.4E-4932 - 1.IE4932 - 19-20 - 10

Comp 1.0 - 9.2Е18 - 19-20 - 8

Currency 0.0001 - 9.2Е14 - 19-20 - 8
С подобных типов вроде все перечислил, а тебе важна величина значения или точность?

да кстати, виноват, по у нужно прописать, что бы в нужный нас момент dy:=dy*(-1)*sin(z) где z - угол наклона плоскости

вот так выглядит мой)))

делал когда-то программку по типу вируса "Печенька" тоже интересно было, и написать не сложно

я к примеру пишу в Delphi 7, как то роднее) нашел такую что и под семерку подходит. motorway11 - был у меня похожий вирус, заражал все что компилировал, достал его в папке с библиотеками, удалил и все прошло, там пару файлов поменять надо было.