Halli Hallo,
hab mal wieder Probleme mit den Hausaufgaben
Bei diesem Programm ist das Problem mit den Kommazahlen, ich hätte gerne eine normale ausgabe der kommazahlen aber er zeigt mir nur 1,100000000000+0002 oder ähnlich an.
Delphi-Quellcode:
program Trainierenrichtig;
{$APPTYPE CONSOLE}
uses
SysUtils;
var mp,alter,Hf:integer;
fp,ap:real;
begin
Writeln ('Trainieren sie richtig?');
writeln ('~~~~~~~~~~~~~~~~~~~~~~~');
write ('Wie alt sind sie:'); readln (alter);
MP:=220;
fp:=(MP/100)*50;
ap:=(MP/100)*75;
writeln ('Maxpuls:',mp);
write ('Puls sollte zwischen',fp);
write('und',ap);
write ('liegen');
readln;
end.
Dieses Programm läuft leider überhaupt nicht und ich hab keine Ahnung warum
Delphi-Quellcode:
program Benzinverbrauch;
{$APPTYPE CONSOLE}
uses
SysUtils;
var km_alt,km_neu,fahrstrecke,tankmenge,durchschnitt,preis,kosten,durchschnittsverbrauch
:real;
begin
writeln ('Berechnung des durchschnittlichen Benzinverbrauchs in l/100km');
writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
write ('alter Km-stand:'); readln (km_alt);
write ('neuer Km-Stand:'); readln (km_neu);
write ('Tankmenge in l:'); readln (tankmenge);
write ('Preis in € pro l:'); readln (preis);
writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
fahrstrecke:=km_neu-km_alt;
durchschnitt:=tankmenge/fahrstrecke*100;
kosten:=durchschnittsverbrauch*durchschnitt:5:2,'l/100km';
writeln ('Die Benzinkosten:'), kosten:5:2,'fuer 100km';
Readln;
end.
Der Fehler soll hier sein
Zitat:
kosten:=durchschnittsverbrauch*durchschnitt:5:2,'l/100km';
Wäre nett wenn ihr mir helfen könntet
Mit freundlichen Grüßen
Rayzen