Anonymní profil Black – Programujte.com

To Ace McIntosh : Já spíš vůbec nevím jak napsat a jak má vypadat ten kod..Nechceš mi ho prosímtě napsat?

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.

To CommanderZ : Já jsem prostě dlouho chyběl a tak to nevím, jestli ti to stačí.

Potřebuju pomoct s úkolem na programování...Prostě nevím, a jestli někdo napíšete jak by to mělo vypadat..Zadání je:
Sestavte program, který načte číselné hodnoty ze vstupního souboru ROZDEL.TXT a vypočte a vypíše jejich průměr.
Poté vypíše přehled vstupních hodnot, které jsou menší než průměr, a přehled vstupních hodnot, které jsou větší než průměr.
Tady je vstupní soubor: http://www.vyuka.odbskmb.cz/IKT-3L/data/ROZDEL.TXT

To KIIV : To se ti říká, kdyý jsem zařátečník...Zkus mi to teda napsat a uvidíme, jak je to jednoduchý..

Ahoj.Prosím Vás můžete mi někdo pomoct se seminární prací do školy z programování Pascal.Já prostě vůbec nevím jak na to.Moc děkuju tomu kdo mi pomůže.Tady je zadání mé práce:
Sestavte program, který si vyžádá zadání tří číselných hodnot - velikostí stran trojúhelníka.
Poté program vyhodnotí, zda je možné ze stran zadaných velikostí sestrojit trojúhelník, y výsledek oznámí.
V případě, že trojúhelník sestrojit lze, program ověří, zda je pravoúhlý a výsledek rovněž oznámí.

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

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

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.