odpor a vykon: (ak som nasiel dobre vzorce
)
Kód:
program Mirco828; //vytvoril neznamy
//na vypocet odporu a vykonu
var U,I :integer;
begin
writeln ('Zadaj napatie U');
readln(U);
writeln('Zadaj prud I');
readln(I);
writeln('Odpor R je ',U/I ,' vykon P je',U*I);
readln;
end.
ak si dobre pamatam co je absolutna hodnota tak to je tu:
Kód:
program Mirco828; //vytvoril neznamy
//na vypocet absolutnej hodnoty a druhej mocniny cisla x
var x,abs :integer;
begin
writeln ('Zadaj cislo x');
readln(x);
if x<0 then abs:=0-x;
if x>=0 then abs:=x;
writeln('Druha mocnina je ',x*x ,' absolutna hodnota je ',abs);
readln;
end.
Choď na stránku: