Эту колдунью зовут Кодировка КОИ-8. Таблица кодирования: А-Ю, Б-А, В-Б, Г-Ц, Д-Д, Е-Е, Ж-Ф, З-Г, И-Х, Й-И, К-Й, Л-К, М-Л, Н-М, О-Н, П-О, Р-П, С-Я, Т-Р, У-С, Ф-Т, Х-У, Ц-Ж, Ч-В, Ш-Ь, Щ-Ы, Ъ-З, Ы-Ш, Ь-Э, Э-Щ, Ю-Ч, Я-Ъ, Ё-╦ Таблица построена так. Слева стоят буквы по русскому алфавиту, а справа русские буквы, соответствующие английскому алфавиту. @ - Ю (код 40), A - А (41), B - Б, C - Ц, D - Д, E - E, F - Ф, и т.д. Буква Ё - 33-ья в алфавите, она выбивается из ряда в 32 буквы, поэтому превращается не в букву, а в элемент псевдографики. И еще меняется регистр, 1-ая буква маленькая, остальные большие.
Const a=5.1; x=3.29; var Y,Z:double; begin Y:=2*exp(4*x)+arctan(x/a); Z:=cos(x*sqr(x))+sqr(sin(x)); Writeln('Y=',Y,', Z=',Z) end.
Результат выполнения программы: Y=1038354.42291114, Z=-0.472433980670957
const m=6; n=8; var a:array[1..m,1..n] of double; b:array[1..m*n] of double; i,j,k,imax,imin:integer; t:double; begin // Инициализация А и формирование В Randomize; Writeln('Исходный массив A'); k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=10*Random-5; { случайное число на [-5;5] } Write(a[i,j]:8:4); t:=cos(a[i,j]); if (t>=0) and (t<0.5) then begin Inc(k); b[k]:=a[i,j] end end; Writeln end; // Вывод сформированного массива В Writeln('Исходный массив В'); for i:=1 to k do Write(b[i]:8:4); Writeln; // Поиск максимума и минимума с последующим обменом их местами imax:=1; imin:=1; for i:=2 to k do if b[i]<b[imin] then imin:=i else if b[i]>b[imax] then imax:=i; t:=b[imax]; b[imax]:=b[imin]; b[imin]:=t; // Вывод результирующего массива В Writeln('Результирующий массив В'); for i:=1 to k do Write(b[i]:8:4); Writeln end.
1)5
2)0
3)16.25
4)1.0
5)5.0
1)0
2)1
3)8
4)1
5)9