DP.36 · Радиотехника
Задача
По коду вида 104 определить ёмкость в разных единицах.
Алгоритм
Первые две цифры — мантисса, третья — степень десятки: 104 = 10 * 10^4 = 100000 пФ.
Исходный код
⇩ Скачать 36-kod-kondensatora.dpr
program KodKondensatora;
{$mode delphi}{$apptype console}
uses SysUtils, Math;
var code: string; d, mult: Integer; pf: Double;
begin
Write('Код конденсатора (напр. 104): '); ReadLn(code);
if Length(code) = 3 then begin
d := StrToInt(Copy(code, 1, 2));
mult := StrToInt(Copy(code, 3, 1));
pf := d * Power(10, mult);
end
else
pf := StrToFloat(code);
WriteLn(Format('Ёмкость = %.0f пФ = %.3f нФ = %.5f мкФ', [pf, pf / 1000, pf / 1e6]));
ReadLn;
end.
Пояснения
Copy извлекает подстроку по позиции и длине. Тема связана с онлайн-справочником по конденсаторам.