Temperaturumrechner K->°C und umgekehrt

Freeprogs.iphpbb.com
Verfügbare Informationen zu "Temperaturumrechner K->°C und umgekehrt"

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: Dragorad - vpascal
  • Forum: Freeprogs.iphpbb.com
  • Forenbeschreibung: Der Ort zum Austauschen selbst Programmierter Programme!
  • aus dem Unterforum: Quellcodes
  • Antworten: 3
  • Forum gestartet am: Mittwoch 04.04.2007
  • Sprache: deutsch
  • Link zum Originaltopic: Temperaturumrechner K->°C und umgekehrt
  • Letzte Antwort: vor 16 Jahren, 11 Monaten, 4 Tagen, 46 Minuten
  • Alle Beiträge und Antworten zu "Temperaturumrechner K->°C und umgekehrt"

    Re: Temperaturumrechner K->°C und umgekehrt

    Dragorad - 25.04.2007, 21:12

    Temperaturumrechner K->°C und umgekehrt
    Der Titel sagt eigentlich schon alles ...

    PS: die Unit uneu müsste ich schonmal gepostet haben ...
    Code: program   test;
    uses      crt,uneu;
    const     esc=#27;
    var       i,tgradc,tkelvin:integer;

    {----------------------------------------------------------------------------}

    begin     repeat
               clrscr;
               writexy(1,1,'TEMPERATURUMRECHNER');
               for i:= 1 to 80 do writexy(i,2,'-');
               writexy(1,4,'(K)elvin -> Grad Celsius');
               writexy(1,5,'(G)rad Celsius -> Kelvin');
               case upcase(readkey) of
                'K':begin
                     repeat
                      gotoxy(1,4);clreol;
                      gotoxy(1,5);clreol;
                      writexy(1,4,'Temperatur in Kelvin: ');
                      readln(tkelvin);
                      tgradc:=tkelvin-273;
                      writexy(1,5,'Temperatur in Grad Celsius:');
                      writexynr(29,5,tgradc);
                      writexy(1,25,'Zum Beenden [ESC] drücken.');
                     until readkey=esc;
                    end;
                'G':begin
                     repeat
                      gotoxy(1,4);clreol;
                      gotoxy(1,5);clreol;
                      writexy(1,4,'Temperatur in Grad Celsius: ');
                      readln(tgradc);
                      tkelvin:=tgradc+273;
                      writexy(1,5,'Temperatur in Kelvin:');
                      writexynr(29,5,tkelvin);
                      writexy(1,25,'Zum Beenden [ESC] drücken.');
                     until readkey=esc;
                    end
               end;
               writexy(1,25,'Zum Beenden [ESC] drücken.');
              until readkey=esc;
    end.



    Re: Temperaturumrechner K->°C und umgekehrt

    vpascal - 24.05.2007, 16:09


    Cool Danke. Der Rest dieses Threads ist nach Off-Topic umgezogen!



    Re: Temperaturumrechner K->°C und umgekehrt

    Dragorad - 25.05.2007, 12:56


    OK^^



    Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken



    Weitere Beiträge aus dem Forum Freeprogs.iphpbb.com

    Lotterieprogramm - gepostet von vpascal am Mittwoch 04.04.2007



    Ähnliche Beiträge wie "Temperaturumrechner K->°C und umgekehrt"

    Übersetzungen auf Deutsch-Albanisch (und umgekehrt) - lule_dele (Montag 24.09.2007)
    Beeinflussung der RH durch die VH und umgekehrt ! - Georg (Mittwoch 08.02.2006)
    Thema adeln umgekehrt - dr--snugggels (Mittwoch 16.08.2006)
    Zahlenspam mal umgekehrt - Die Vampiritterin (Montag 23.10.2006)