Delphi для начинающих )))

[Recorder=)]

Все знают что в консольных приложениях в делфи на русском писать нельзя...

но тут янаткунулся вот на што...

function Rus(mes: String): String;
var i: Integer;
begin
for i:=1 to Length(mes) do
case mes of
'А'..'п': mes:=Chr(Ord(mes)-64);
'р'..'я': mes:=Chr(Ord(mes)-16);
end;
Result:=mes;
end;

в результате
потом можно writeln(rus('клёвая функция'))

вот...


а теперь вопрос...
никак не могу понять просчто в этой функции написано...кто нить знает???

[Siquell]

function Rus(mes: String): String;
var i: Integer;
begin
for i:=1 to Length(mes) do
case mes of
'А'..'п': mes:=Chr(Ord(mes)-64);
'р'..'я': mes:=Chr(Ord(mes)-16);
end;
Result:=mes;
end;

карочь у тя есть строка... функция делает вот что:
берет каждую букву.. и по ascii таблице отнимает от её номера 64 если это в пределах от 'А'..'п' и отнимает 16 если 'р'..'я'... после этого каждую новую цифру аский таблици вновь заменяет на символ!
В результате получается массив из букв равный Result;
Вроде всё...

[Recorder=)]

эт наверно потомучто я орд и мес не знаю что такое)

[Siquell]

эт наверно потомучто я орд и мес не знаю что такое)

да я вот тоже вспоминал =))

[Recorder=)]

када объясняли, яникак не мог понять зачем они нужны...

вот оказываеца пригодились....


а тада аски так устроена, что еси отнять 64 то получица нормальная буква чтоли?

[Siquell]

када объясняли, яникак не мог понять зачем они нужны...
вот оказываеца пригодились....
а тада аски так устроена, что еси отнять 64 то получица нормальная буква чтоли?

ну найди таблицу да глянь.. и почему.. это в зависимости от того что введешь!

[Recorder=)]

када объясняли, яникак не мог понять зачем они нужны...
вот оказываеца пригодились....
а тада аски так устроена, что еси отнять 64 то получица нормальная буква чтоли?

ну найди таблицу да глянь.. и почему.. это в зависимости от того что введешь!

я понял 64 или 16....

[Siquell]

я понял 64 или 16....

не понял твоего вопроса.. или ты это сам себе?

[Recorder=)]

я понял 64 или 16....

не понял твоего вопроса.. или ты это сам себе?

ясам по себе....


слушай а скольки битную таблицу над брать....32?

или яне так понял?

[Игорь]

Или прога-транслит. Из прописных в строчные. Там (кажется) как раз интревал 64 символа.

Или простенький шифратор - на выходе result выглядит белибердой, а обратная прога в нормальную фразу перегоняет.

Или из кодировки в кодировку (DOS-Koi8)

Если честно - лень таблицу искать, сравнивать. А вобще-то интересно стало.

[Siquell]

Или из кодировки в кодировку (DOS-Koi8)
Если честно - лень таблицу искать, сравнивать. А вобще-то интересно стало.

вот один раз я так попался на этих кодировках.. у мя там задание какое то было.. уже не помню... с русским алфавитом.. и там вот косяки всё время всплывали.. скока я не пытался.. так и не вышло перешифровать.. столько в инете искал.. там есть исходники.. а не катит ))

[Recorder=)]

я замучался...
тема такая...
Сгенерировать массив А размером 10х10 из случайных дробных чисел в диапозоне от 0 до 9. Определить и вывести на экран массив В размером 10х10 равным А, но чтобывсе элементы главной диагонали, являлись произведением по соответствующим столбцам.(т.е.
а(1,1)=a(1,2)*a(1,3)*a(1,n) n от 0 до 9)

массив А я создал, числами заполнил, массив В создал, вроде как переназначил элементы.

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

так вот в результатом является вывод на экран массива А и элементов главной диагонали массива В, только вот они какие-то очень большие получаются...

кому не лень, проверьте, мож ошибки какие???





program lab3_1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type MArray = array[0..9, 0..9] of real;
var a:MArray;
b:MArray;
i,g:integer;
k:real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('massiv A');
for i:= 0 to 9 do
begin
for g:=0 to 9 do
begin
a[i,g]:=random(900)/100;
write (a[i,g]:3:2);
write(' ')
end;
writeln;
end;
b:=a;
writeln('massiv b');
k:=1;
for i:=0 to 9 do
begin
for g:=0 to 9 do
begin
if i<>g then begin
k:=b[i,g]*k; end;
end;
b[i,i]:=k;
end;
for i:= 0 to 9 do
begin
write (b[i,i]:3:2);
write(' ') ;
writeln;
end;


readln;
end.

[Абориген]

совет на будущее: пиши код, чтобы было понятно, где у тебя какие логические блоки (например, циклы с помощью табуляции, да и пустые строчки между блоками операций не помешают).
А то написал все в кучу, даже смотреть не приятно.

[Siquell]

кому не лень, проверьте, мож ошибки какие???

у тя дельфя то есть? вот и тренься.. ))

[Quos]

Ну представь себе среднее число по главной диагонале...допустим 6.55 и возвели его в 10 степень получаем 145349318,52847813494150390625.

Да нормуль получаеться =)