Перфокарты. Впервые были применены в «интеллектуальных машинах» коллежского советника Корсакова. По сути, это двумерный битовый массив(матрица). Всего на одну перфокарту можно было записать 24 машинных слова.
Procedure DigitReplace(Source,Replaced:integer; var Result:string); var SourceStr,ReplacedStr:string; MaxDigit:char; PosMax,i:integer; begin Str(Source,SourceStr); Str(Replaced,ReplacedStr); MaxDigit:=' '; for i:=1 to Length(SourceStr) do if SourceStr[i]>MaxDigit then MaxDigit:=SourceStr[i]; for i:=Length(SourceStr) downto 1 do if SourceStr[i]=MaxDigit then begin Delete(SourceStr,i,1); Insert(ReplacedStr,SourceStr,i) end; Result:=SourceStr end;
var n,c:integer; r:string;
begin Write('Введите исходное число: '); Readln(n); Writeln('Введите число для замены: '); Readln(c); DigitReplace(n,c,r); Writeln('Результат: ',r); end.
// PascalABC.NET 3.3, сборка 1562 от 02.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var ИсходноеЧисло:=ReadlnString('Введите исходное целое число:'); var МассивЦифрЧисла:=ИсходноеЧисло.ToCharArray; var МестоМаксЦифры:=МассивЦифрЧисла.IndexMax; var МестоМинЦифры:=МассивЦифрЧисла.IndexMin; If МестоМинЦифры>МестоМаксЦифры then Swap(МестоМинЦифры,МестоМаксЦифры); ИсходноеЧисло:=ИсходноеЧисло?[:МестоМинЦифры+1]+ ИсходноеЧисло?[МестоМаксЦифры+2:]; Writeln('Результат замены: ',ИсходноеЧисло) end.
Пример Введите исходное целое число: 1402956387 Результат замены: 1456387
