FreePascal.ru

Спасибо.
Блин отчего такие сложности с кириллицей.

Глава 44. немогу собрать в кучу разъехавшийся мозг

Задание на слабо (Б)
{P_44_5}


Function UpCode(arg:char):char;
var Kir : set of 'а'..'я';
Lat : set of 'a'..'z';

Begin
if arg in Kir then UpCode:=ord(arg)+33;
if arg in Lat then UpCode:=ord(arg)+26 ...

Спасибо

компилятор искал не там где надо... ссылочку не подкинете?

При компиляции какого либо кода, с созданием текстового файла вся кириллица в текстовике имеет какую то другую кодировку.
Как настроить кодировку в FPC, для адекватного восприятия в Windows 7

Подскажите, кто знает

Спасибо

{P_43_2 QuickSort}
const CSize=10;
type TNumbers = array [1..CSize] of integer;
var
Arr:TNumbers;
Procedure QuickSort(var arg: TNumbers; aL,aR: integer);
var
L,R: integer;
M,T: integer;
begin
L:=aL; R:=aR;


M:=(arg[L]+arg[(L+R ...

один в один.. сидел просматривал... символ к символу... почти ( ещё строку randomize; добавил перед заполнением)
может быть фпс неможет загнать этот цикл сам в себя?? на каком компиляторе проверялось?

Наткнулся на ошибку в коде второго примера.. запуск программы вывел мне странный реультат:
До сортировки:
549
593
716
845
603
858
545
848
424
624

После сортировки:
424
549
545
845
603
858
716
848
593
629


Из примера видно, что элементы попеременно поменялись местами:
2 с 9 , 1 со 2 , 3 с 6

Не ...