| |
|
|
p.specht
|
Windowtitle "Eierformel"
' Fun-Programa (C)2009 by P. Pájaro carpintero, sin Gewähr. Urheber siehe "Q:"!
declarar t!,d!,t_wasser!,t_start!,t_innen!,sw%
T_Wasser!=99.8' para Seehöhe 130 m
mientras que 1
cls
imprimir ""
imprimir " Empirische Formel, en una Frühstücks-Ei perfekt a kochen"
imprimir ""
imprimir " Q: kochen.exp.univie.ac.at/ostern_Ei.html"
imprimir " +--------------------------------------------------------------------+"
imprimir " ! Formel: t = 0.0016*d^2*ln(2*(t_Wasser-t_Start)/(t_Wasser-t_Innen)) !"
imprimir " +--------------------------------------------------------------------+"
imprimir ""
imprimir " d = Ei-Durchesser en mm, mejor dijo: Der Durchmesser"
imprimir " uno Röhre, por el el Ei gerade todavía durchginge."
imprimir ""
imprimir " t_Wasser = kochend, en Meereshöhe 100°C, Hochgebirge 96,5°"
imprimir ""
imprimir " t_Start = Ei-Temperatur beim Einlegen en kochendes Wasser:"
imprimir " Aus Kühlschrank: 4°C, sonst Raumtemperatur(~20°C)"
imprimir ""
imprimir " t_Innen = WEICHES EI: 62°C (Ovalbumin-Gerinnung schützt Dotter)"
imprimir " HARTES EI: 82°C (Eigelb stockt)"
imprimir " Ergebnis:"
imprimir ""
imprimir " t = Kochdauer en Min. de Einlegen en viel kochendes Wasser"
imprimir " ----------------------------------------------------------------------"
imprimir
Localizar 24,4: imprimir "Ei-Durchmesser en mm (meist 40-50): ";:input d!
Localizar 25,4: imprimir "Ei-Temperatur vorher: ";:input T_Start!
Localizar 26,4: imprimir "Weich = 0, Hart = 1: ";:input sw%
T_Innen! = 62*(sw%=0) + 85*(sw%=1)
if (T_Wasser!-T_Innen!)>0
if (2*(T_Wasser!-T_Start!)/(T_Wasser!-T_Innen!))>0
T! = 0.0016*d!*d!*ln(2*(T_Wasser!-T_Start!)/(T_Wasser!-T_Innen!))
más
Imprimir ""
Imprimir " Ein Straussen-Ei???" : waitInput: romper
endif
más
imprimir ""
imprimir " So va's no!" : waitInput : romper
endif
imprimir
imprimir " +--------------------------------------------------------------------+"
imprimir " ! Ihr ";
if sw%=0: imprimir "weiches ";:endif
if sw%=1: imprimir "hartes ";:endif
imprimir "Ei benötigt genau ";
if int(t!)>0: imprimir int(T!);" Minuten";:endif
if (int(t!)>0) AND (int(t!)<t!):imprimir " y ";:endif
if (int(t!)<t!):imprimir int((t!-int(t!))*60+.5); " Sekunden!";:endif
imprimir tab(73);"!"
imprimir " +--------------------------------------------------------------------+"
beep
WaitInput
endwhile
end
|
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 12.04.2021 ▲ |
|
|
|
|
ByteAttack | Como podría Yo all el Jahre sin la Formel leben! |
|
|
| |
|
|
|
p.specht
| Ergänzung: Minimalistische Eieruhr
Como el entsprechenden Küchengeräte más schwierig en Sekundengenauigkeit einzustellen son, el perfekte Frühstücks-Ei (normale Größe) aber en meiner Seehöhe genau 2 Minuten y 43 Sekunden Kochzeit benötigt, Yo me erlaubt, Dieter Zornow's Millisekunden-Formatierung para media Bedarf y XProfan 11.2a a adaptieren. Weiterer Vorteil: Puedo el Alarmlautstärke así einstellen, Yo el Zeitablauf schlimmstenfalls auch aún en Nebenraum hören sería.
Nach el heutigen Wissensstand restos el Cholesterinspiegel beim Verzehr de Eiern en el Rahmen uno ausgewogenen Ernährung en el meisten Menschen relativ konstant. Studien stellten no Zusammenhang zwischen una regelmäßigen Eierkonsum (a a sechs Eiern pro Semana) y Herzerkrankungen fest.
|
|
|
| Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 19.05.2021 ▲ |
|
|
|
|
RudiB. |
Sorry...bringt me Fehlermeldung... |
|
|
| |
|
|
|
p.specht
| Gracias para el Referencia. Mi Tastatur spinnt manchmal, como fueron 2 W eingestreut wo ellos no hingehörten. Fehler Fijo y oben korrigiert! Gruss |
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 20.05.2021 ▲ |
|
|
|