Pomoc s domácím úkolem – Pascal – Fórum – Programujte.com

Potřebovala bych pomoct s tímto domácím úkolem.Vůbec si s tím nevím rady...Mám jenom část..
Mám sestavit program, který určí výslednou teplotu vody, při smíšení 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.
--
--
--
Vím, že ta kalorimetrická rovnice má vzorec:--- m1 * c * (t-t1) + C * (t-t1) = m2 * c * (t2-t) ---
a zatám mám z programu toto:
--
Uses crt;
const c = 4200;
var t1,t2,m1,m2,c:real;
begin
writeln('Hmotnost 1 [kg]: ');
readln(t1);
writeln('Teplota 1 [K]: ');
readln(m1);
writeln('Hmotnost 2 [kg]: ');
readln(t2);
writeln('Teplota 2 [K]: ');
readln(m2);
m1*c*(t-t1)+D*(t-t1)= m2*c*(t2-t)
writeln;
writeln('Celkova teplota po smichani:');
end.

Podle mne je zbytečné zpočítávat do rovnice i původní teplo C * (t - t1) - nebo co to je, opravte mě, jestli se mýlím :-)... čili rovnice by vypadala asi nějak: c1 * m1 * (t1 − t) = c2 * m2 * (t − t2) a jestli-že se jedná o tutéž vodu, pak c1 = c2 a jde krátit, čili výsledná rovnice by byla pouze: m1 * (t1 − t) = m2 * (t − t2)

Co se týče programu, tak nemůžeš mít stejný identifikátor pro dvě a víc symblů - máš tam "c" jako konstantu i proměnnou.
Používání knihovny CRT, když z ní žádnou funkci nebereš je také zbytečné (kompiler by to měl sice odstranit sám, ale proč si přidělávat práci :-) )
No a co se týče tý nabídky OPAKOVÁNÍ nebo skončení, tak to musíš buď celé uzavřít do cyklu, nebo tam definovat návěstí (návěstí se učiteli předpokládám nebude líbit - není-li tak zvrhlý jako já ;-) )

čili to vidím asi takhle:

var

  m1,t1,t,m2,t2 : real; {vsechny promenne z rovnice budou zde}

  ukonci : char; {pomocna promenna, ktera uchova hodnotu jestli chci pokracovat nebo ukoncit}

begin

  ukonci := 'n'; {jaka koliv hodnota, krome 'a', coz znamena ukonceni programu}

  while ukonci <> 'a' do

  begin

    write('Zadej hmotnost 1 [kg]: ');

    readln(m1);

    write('Zadej teplotu 1 [K]: ');

    readln(t1);

    write('Zadej hmotnost 2 [kg]: ');

    readln(m2);

    write('Zadej teplotu 2 [K]: ');

    readln(t2); {az sem je to jasny, ted se ale rovnice musi predelat do tvaru t = xxx, nebo pouzit dalsi pomocnou promennou}

    t := (m1 * t1 + m2 * t2) / (m1 + m2); {m1 + m2 se nesmi rovnat nule}

    writeln('Celkova teplota je: ',t);

    writeln('Chcete-li ukoncit program napiste 'a': ');

    readln(ukonci);

  end;

end.

To Wimby :moc ti děkuju..Jenom mi to hlásí chybu u ---writeln('Chcete-li ukoncit program napiste 'a': ');--- u toho 'a'.

To Malirka : Tak v pořádku už mi to jde..Musela jsem tam totiž dát--Writeln('Chcete-li ukoncit program "a": ');--

tak ono se da dat v retezci ' ... akorat se pise jako tusim '''' proste 4x ' nebo nejak podobne hodnekrat

Jo, to je fakt, za to se omlouvám

To KIIV : Přesně dvakrát.