Zostavte program pre výpočet a tlač hodnoty y=x/x-3 .hodnota x vystupuje z klavesnice. :)
program funkcia;
var
x:real;
y:real;
begin
write('zadaj x');
readln (x);
if (x <>3) then y=x/x-3;
writeln ('vysledna hodnota funkcie y',y:5:2);
readln;
end.
program funkcia;
var
x:real;
begin
write('zadaj x: ');
readln(x);
if (x<>0) then writeln('vysledna hodnota funkcie y=-2')
else writeln('0 nepatri do def. oboru');
readln;
end.
:P
a nemyslela si nahodou y=x/(x-3)? tak ci tak podla mna su tu obe riesenia (ci ako nazvat to prve) trochu zle.
no ba, tak by to malo byt...tak a nevedel by si potom napisat, ako by to malo byt ?? :)
Quote from: kingushka on 08.11.2011, 02:29:16
no ba, tak by to malo byt...tak a nevedel by si potom napisat, ako by to malo byt ?? :)
sak tak isto len v tom programe zadas y=x/(x-3)
tiez si nesom isty ci tam nechyba else, teda ci to tam v Pascale musi byt abo ne
to na ktorej fakulte sa toto prebera ? ci to este stredna skola ? :D
Quote from: DeViLvs on 08.11.2011, 01:30:12
a nemyslela si nahodou y=x/(x-3)? tak ci tak podla mna su tu obe riesenia (ci ako nazvat to prve) trochu zle.
čo sa ti nepáči na mojom riešení? :)
Quote from: Agamemnon on 08.11.2011, 03:08:11
čo sa ti nepáči na mojom riešení? :)
sry, trochu mi splynuli pixely a videl som 'vysledna hodnota funkcie y=2' namiesto y=-2, beriem spat. :)
Quote from: kingushka on 08.11.2011, 02:29:16
no ba, tak by to malo byt...tak a nevedel by si potom napisat, ako by to malo byt ?? :)
Ako pise Havran, v prvom rieseni namiesto then y=x/x-3; daj then y=x/(x-3);
Mi to pripada tak, ze sa tu zbehli stredoskolacky a nas zneuzivaju :D