Pascal užduotis

Sveiki, namų darbų gavau pascal užduotį, bet net neisivaizduoju kaip padaryt.

Nuotrauka: http://s10.postimage.org/49jvzwlmf/ithomework.jpg

Pasirašai tris funkcijas atlikti veiksmams:

• (-1)ⁿ (čia ir if'o užtenka)
• xⁿ (ciklas)
• n! (taip pat ciklas, rasi google)

O pagrindinėje programoje leidi ciklą nuo 1 iki n kur skaičiuoja pagal reikiama formule (-1)ⁿ*xⁿ/n!. Formule susidėlioji iš savo funkcijų.

Jei kils neaiškumų klausk.

Pasirašai tris funkcijas atlikti veiksmams:

• (-1)ⁿ (čia ir if'o užtenka)
• xⁿ (ciklas)
• n! (taip pat ciklas, rasi google)

O pagrindinėje programoje leidi ciklą nuo 1 iki n kur skaičiuoja pagal reikiama formule (-1)ⁿ*xⁿ/n!. Formule susidėlioji iš savo funkcijų.

Jei kils neaiškumų klausk.

Man čia viskas neaišku, nes mano informatikos mokytojas nieko neaiškindamas duoda užduotys ir visa klasė sėdi ir nieko nesupranta. Jei aiškintu kaip daryti, tai gal suprasčiau, bet kai neaiškina, tai pačiam sunku susigaudyti. Bent būtų parodes vieną pavyzdį kaip daryti, tai pagal pavyzdį padaryčiau namų darbus.

Hmm. Programą parašyt galiu, bet tau iš to jokios naudos nebus.Galiu paaiškint, bet kad negaišti be reikalo laiko paklausiu, kiek jau esate pažengę programavime? Mokate funkcijas, ciklą, sąlygos sakinį (if) (šių trijų reikės programai)?

P.S. Dėl mokytojų tai dažnas reiškinys kad neaiškina.

Hmm. Programą parašyt galiu, bet tau iš to jokios naudos nebus.Galiu paaiškint, bet kad negaišti be reikalo laiko paklausiu, kiek jau esate pažengę programavime? Mokate funkcijas, ciklą, sąlygos sakinį (if) (šių trijų reikės programai)?

 

P.S. Dėl mokytojų tai dažnas reiškinys kad neaiškina.

if funkciją moku, o kitų pavadinimų atrodo net nesu girdėjas, bet gal ir žinau, nes mums ten neaiškina kaip kas vadinasi, o tėsiog parašo funkciją ir tiek. Galėtum parašyti programą, o aš jau panagrinėčiau kaip ten kas.

program uzduotis;
var n, x: integer;
s: real;

function fakt(a: integer): integer; //faktorialo funkcija
var i, at: integer;
begin
 at:= 1;
 for i:=1 to a do
  at:= at* i;
 fakt:= at;
end;

function laip(a: integer): integer; //x kelimo laipsniu funkcija
var i, at: integer;
begin
 at:= 1;
 for i:=1 to a do
  at:= at* x;
 laip:= at;
end;

function vien(a: integer): integer; //-1 kelimo laipsniu funkcija
begin
 if a mod 2 = 1 then
  vien:= -1
 else
  vien:= 1;
end;

var i: integer;
begin
 write('x: ');
 readln(x);
 write('n: ');
 readln(n);
 s:= 1;
 for i:=1 to n do
  s:= s+ vien(i) * laip(i) / fakt(i);
 writeln('S= ',s:6:2);
 readln;
end.

Gali būt klaidų, rašiau tiesiai į forumą.

EDIT: Patikrinau, radau porą klaidų. Ištaisyta.

program uzduotis;
var n, x: integer;
s: real;

function fakt(a: integer): integer; //faktorialo funkcija
var i, at: integer;
begin
 at:= 1;
 for i:=1 to a do
  at:= at* i;
 fakt:= at;
end;

function laip(a: integer): integer; //x kelimo laipsniu funkcija
var i, at: integer;
begin
 at:= 1;
 for i:=1 to a do
  at:= at* x;
 laip:= at;
end;

function vien(a: integer): integer; //-1 kelimo laipsniu funkcija
begin
 if a mod 2 = 1 then
  vien:= -1
 else
  vien:= 1;
end;

var i: integer;
begin
 write('x: ');
 readln(x);
 write('n: ');
 readln(n);
 s:= 1;
 for i:=1 to n do
  s:= s+ vien(i) * laip(i) / fakt(i);
 writeln('S= ',s:6:2);
 readln;
end.

 

Gali būt klaidų, rašiau tiesiai į forumą.

 

EDIT: Patikrinau, radau porą klaidų. Ištaisyta.

Ačiū labai. Pats tokios programos tikrai neparašyčiau.

P.S. Šitą programą galima parašyti kaip nors lengviau? Nes aš 11kl ir tikrai neparašyčiau tokios programos :D Čia tik šiaip klausiu.

Na aš ir vienuoliktoj klasėj :) O programa parašyt galima be funkcijų, viska sukelt į S skaičiavimo ciklą.