Já mám úkol:
Sestavte program, který určí výslednou teplotu vody, při smísení dvou různých množství vody o různých teplotách (použití kalorimetrické rovnice).
Vstup: - hmotnost a teplota prvního vzorku vody
- hmotnost a teplota druhého vzorku vody
Výstup: Výsledná teplota po smíchání
Program po zobrazení výsledné teploty nabídne možnost řešit další úlohu nebo skončit.
A já ho vytvořila, normálně se spustí a najednou, když zadám hodnoty, tak se to ukončí..Mrkněte se někdo na to co tam mám špatně.
uses crt;
var c,m1,t1,t,m2,t2:real;
ukonci:char;
begin
repeat
TextColor(Green);
Writeln;
Writeln('--- Program na vypocet kalimetricke rovnice ---');
writeln;
TextColor(White);
Write('Zadejte hmotnost 1 [kg]: ');
Readln(m1);
Writeln;
Write('Zadejte teplotu 1 [K]: ');
Readln(t1);
Writeln;
Write('Zadejte hmotnost 2 [kg]: ');
Readln(m2);
Writeln;
Write('Zadejte teplotu 2 [K]: ');
Readln(t2);
c:=c*(m2*(t2 - t)/t-t1)-m1;
Writeln('Celkova teplota je: ',round(c),'sputnu);
Write('Chcete-li ukoncit program stisknete "a": ');
ukonci:=upcase(readkey);
until ukonci='A';
end.
Fórum › Pascal
Pomoc s úkolem
To co přiřazuješ k proměnný 'c' je zcela náhodný číslo, pravděpodobně vyjde -m1
Ale jinak - program se ukončí, protože pokud until vyhodnotí true, tak už za ním není žádný příkaz, který by mu v tom zabránil.
Mělo by bohatě stačit na konec napsat READLN; což ukončí program až když se stiskne ENTER
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 3 hosté
Podobná vlákna
Pomoc, pomoc s úkolem (matice v Delphi) — založil maxikp
Pomoc s ukolem — založil Janickaaa1919
Pomoc s úkolem — založil Markéta
Pomoc s úkolem v C++ — založil zaltex
Pomoc s úkolem v C — založil Thill
Moderátoři diskuze