Существуют специальные таблицы кодировки символов, в которых каждому символу соответствует свой уникальный номер.
На фото часть одной из таких таблиц.
А ниже программка на паскале, иллюстрирующая работу этих функций:
program aaa;
//Chr (x), Ord (x), Pred (x), Succ (x),
var x: integer; y,z: string;
begin
//присвоим переменной у значение символа под номером 102:
y:=chr(102);
writeln('chr(102)= ',y);
//присвоим переменной x номер позиции символа а в таблице кодировки Windows ASCII:
x:=ord('f');
writeln('ord(''f'')= ',x);
//а теперь возьмем символ русского алфавита "Ф":
x:=ord('Ф');//
writeln('ord(''Ф'')= ',x);
//Теперь нам нужен символ, следующий, например, за символом Ю:
y:=succ('Ю');
writeln('succ(''Ю'')= ',y);
//Или символ, предществующий символу Я:
y:=pred('Я');
writeln('pred(''Я'')= ',y);
end.
Результат работы программы:
chr(102)= f
ord('f')= 102
ord('Ф')= 212
succ('Ю')= Я
pred('Я')= Ю
Var
a, b, c, d, e, n: integer;
begin
n := 0;
for a := 1 to 9 do
for b := 0 to 9 do
for c := 1 to 9 do
for d := 0 to 9 do
for e := 0 to 9 do
if (10 * a + b) * c = (10 * d + e) then n := n + 1;
Writeln(n)
end.
Тестовое решение:
<span>196</span>
Var
h,x,y:real;
begin
writeln('Введите значения k и h');
readln(x,h);
y:=2;
while y<=3.000001 do begin //3.000001 преодолевает погрешность накопления y
writeln(y:6:3,ArcCos(y/x):6:3);
y:=y+h
end
end.
Тестовый прогон:
Введите значения k и h
4.5 0.1
2.000 1.110
2.100 1.085
2.200 1.060
2.300 1.034
2.400 1.008
2.500 0.982
2.600 0.955
2.700 0.927
2.800 0.899
2.900 0.870
3.000 0.841
<em>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,6,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var t:=a.ElementsWithIndexes.MinBy(x->x[2]);
Writeln('Min: A[',t[0]+1,',',t[1]+1,']=',t[2])
end.
<u>Пример</u>
*** Исходный массив ***
-30 55 92 98 96 29
-41 -11 -94 72 -3 -91
64 48 10 10 -85 91
------------------------
Min: A[2,3]=-94
Алгоритмы c ветвлениями.
Форма организации действий, при которой в зависимости от выполнения некоторого условия совершается одна или другая последовательность шагов