Delphi-Quellcode:
var
wert : string;
wiederstand : string;
tolerance: string;
prozent: extended;
wiederstand := floattostr((strtofloat(wert)*10000));
*****z.B.
tolerance := floattostr( (strtofloat(wiederstand)/100)*prozent);
prozent:=(1);
Und hier die rechnung für Toleranz minimum
Delphi-Quellcode:
(floattostr(((strtofloat(wiederstand)-tolerance)/
1))+' Ohm');
und maximum
Delphi-Quellcode:
(floattostr(((strtofloat(wiederstand)+tolerance)/
1))+' Ohm');
mit den Formeln hab ich so meine probleme