Parašė altenis· 2011 Kov. 27 20:03:52
#1
Sveiki,
Taigi pradėjau savarankiškai mokytis Pascal, ir čia užduosiu klausimus į kuriuos tikiuosi Jūs atsakysite ir padėsite man.
Tai vat įrašiau šį kodą:
program Funkcijos;
uses Math;
var z,x0:integer;
// I pvz.
function Funkcija : integer;
Begin
Funkcija := 5;
end;
// II pvz.
function Sim(a:char) : integer;
Begin
Sim:= Ord(a);
end;
// III pvz. Rasti funkcijos F(x) = x + 2 * x - sinx reiksme taske x0 = 1
function F(x:integer) :real;
Begin
F:= x + 2 * x - sin(x);
end;
begin
// I pvz.
z:= Funkcija + 7;
Writeln(z:4);
// II pvz.
Writeln('Simbolio a kodas: ', Sim('a'));
// III pvz.
x0 := 1
Writeln('Funkcijos reiksme: ', F(x):4:2);
Readln;
end.
Ir man rodo klaidą 3 pavyzdyje. Šioje eilutėje:
Writeln('Funkcijos reiksme: ', F(x):4:2);
Niekaip nesuprantu kas čia blogai.