Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
#1 11. 06. 2011 13:52 — Editoval Škůby (11. 06. 2011 13:56)
FreePascal - auta
Zdravím, myslíte, že by toto šlo nějak změnit? Program funguje, ale učitel mi řek, že ho mám přepsat...aby vypadal jinak, ale měl stejný funkce. Vůbec si nevím rady.
Code:
uses crt;
var
v1, s1, t1 : real;
v2, s2, t2 : real;
begin
ClrScr;
write('Zadejte trasu 1. auta v km:= ');
readln(s1);
write('Zadejte trasu 2. auta v km:= ');
readln(s2);
ClrScr;
write('Zadejte cas 1. auta v hodinach:= ');
readln(t2);
write('Zadejte cas 2. auta v hodinach:= ');
readln(t2);
ClrScr;
v1:= s1/t1;
v2:= s2/t2;
if(v1 > v2) then
begin
write('Auto cislo 1 bylo rychlejsi o ', v1-v2:1:0 , ' km/h');
readln();
end
else
if(v2 > v1) then
begin
write('Auto cislo 2 bylo rychlejsi o ', v2-v1:1:0 , ' km/h');
readln();
end
else
if(v2=v1) then
begin
write('Obe auta mela stejnou rychlost');
readln();
end
end.
Offline
- (téma jako vyřešené označil(a) Škůby)
#3 11. 06. 2011 14:21
Re: FreePascal - auta
↑ janca361: jako program funguje, ale podělila jsem se o to s jednim kamarádem a mám možnost to přepracovat. Aby to fungovalo stejně, ale měla jsem jinej postup. Ale mě přijde, že tenhle postup je snad jediný řešení xD
Offline
#4 11. 06. 2011 14:27
- janca361
- .
- Příspěvky: 3284
Re: FreePascal - auta
Napadla mě jedna úprava....
Code:
if(v1 > v2) then
begin
write('Auto cislo 1 bylo rychlejsi o ', v1-v2:1:0 , ' km/h');
readln();
end
else
if(v2 > v1) then
begin
write('Auto cislo 2 bylo rychlejsi o ', v2-v1:1:0 , ' km/h');
readln();
end
else
if(v2=v1) then
begin
write('Obe auta mela stejnou rychlost');
readln();
endšlo by to převédst na
Code:
if podminka1 then prikazy
else if podminka2 then prikazy
else prikazyV tvém případě by to bylo takto:
(Odpadne 1 podmínka)
Offline
#5 11. 06. 2011 14:44
Re: FreePascal - auta
↑ janca361: Děkuju za pomoc :) Jestli bude mít učitel výhrady, tak se ho zeptám, jak to jde tada ještě jinak :D
Offline
#6 11. 06. 2011 14:52
- janca361
- .
- Příspěvky: 3284
Re: FreePascal - auta
↑ Škůby:
Není zač.
Označuj prosím svoje témata za vyřešená.
Offline