Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: eZkimo klausimai

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.