Par radiāniem Pascalā.

[Poss]

Sveiki, būtu pateicīgs, ja kāds varētu palīdzēt ar padomu. Lieta tāda, ka man ir jāuzraksta programma rindas aprēķinam (rekursīvā formula etc), bet mana funkcija ir y=(cosx)^2 un argumenta x pieaugums ir no 0 līdz Pi/2 ar soli Pi/90, tātad argumentam jābūt radiānos, bet es nekādi nevaru saprast, kā likt argumenta pieaugumu radiānos. Pārējais problēmas nesagādā un viss kodā ir pareizi, ja neskaita to, ka nezinu, kā rakstīt radiānus paskālā.
Mans kods ir šāds:
while x<=90/(180*Pi) do
begin
S:=1-x*x;
A:=-2*x*x;
k:=2;
while ABS (A)> 0.00001 do
begin
A:=(-A*4*x*x)/(2*k*(2*k-1));
S:=S+A;
k:=k+1
End;
y:=sqr(Cos(x));
x:=x+2/(180*Pi);
.
Tātad problēma ir ar argumentu, lūdzu palīdziet! Paldies!

[Ēriks Klotiņš]

Kur tiesi ir problēma?

argumenta pieaugums radiānos, grādos vai sviestmaizēs programmas kodā izskatās identiski..

[Poss]

(10.12.2009 18:27 )Ēriks Klotiņš rakstīja:  Kur tiesi ir problēma?

argumenta pieaugums radiānos, grādos vai sviestmaizēs programmas kodā izskatās identiski..

Problēma ir kā attēlot radiānos paskālā! Izskatās identiski? tad kā ir tas identiski? Karoče, man x vajag radiānos, kā to pieraksta? es nekur nevaru atrst. Tipa, lai Viens y=sqr(Cos(x)) x būtu 0, tad Pi/90 tad 2Pi/90, bet tā lai Pi būtu nevis kā Pi, bet radiānos!

[Dr. evel]

ja tev vajag liidz pi/2 tad

(10.12.2009 17:04 )Poss rakstīja:  while x<=90/(180*Pi) do

ar taadu nosaciijumu cikls tev ies liidz 1/(2pi), lai ietu liidz pi/2 vajag while (x<=pi/2) vienkaarshi, un katru reizi pieskaiti pi/180(tas ir, 1 graadu) ja tu tik ljoti gribi to soli veikt radiaanos, tad uz kalkulatora izreekini cik aptuveni ir 3,14159/180 un katru reizi pieskaiti to skaitli, liidz sasniedz skaitli(atkal izreekini uz kalkulatora cik ir 3,14159/90)

[Mezha_lauminja]

Problēma ir kā attēlot radiānos paskālā! Izskatās identiski? tad kā ir tas identiski? Karoče, man x vajag radiānos, kā to pieraksta? es nekur nevaru atrst. Tipa, lai Viens y=sqr(Cos(x)) x būtu 0, tad Pi/90 tad 2Pi/90, bet tā lai Pi būtu nevis kā Pi, bet radiānos!
[/quote]

nekaa neatteelo! tie visi programmai ir tikai skailji! tu vienkaarshi raksti vai nu 180 vai 3,14... to noziimee identiski. ar graadiem/radiaaniem tu straadaa tikai savaa galvaa, tavai paskaala programmai tie ir tikai skailji... un ja tev lietotaajs ievada 3,14 bet tu gribi taalaak funkcijai padot 180 (vai tik pat labi otraadi), tad tu uzraksti komandu, kas to paarveido.

P.S.
1 radiaans = 180/pi graadi, un attieciigi 1 graads = pi/180 radiaani. No taa var izdomaat, ka x graadi radiaanos ir x*pi/180 un y radiaani graados ir y*180/pi. To vareeja apskatiities arii vikipeedijaa...

[Ēriks Klotiņš]

Reku būs piemērs:

Kods:

function Rad2Deg(x:double):double;
begin
result := x*180/3.14;
end;

var x:double;
begin
x := 0;
clrscr;
repeat
writeln('Cos no ',Rad2Deg(x):5:2,' gradiem ir, Cos(x):5:2);

x:= x+ 3.14/180 * 10; { ik pa 10 radianiem }
until  x> 2*3.14; { tas pats, kas 360 grādi}

end.

rakstju no galvas, tā ka var uzreiz nekompileties

[tomaac]

Tas jau vienalga - radiānos vai grādos. Pascal cos funkcijai var padot tikai radiānus, tev vienkārši jātaisa cikls par radiāniem un tad jārēķina cik šajos radiānos sanāk grādu.
Nu līdzīgi ja tev būtu nevis radiāni un grādi, bet gan centimetri un metri. Tu taisītu soli pa centimetriem, bet tad pārrēķinātu skaitli metros un funkcijai padotu metrus.
Nu kkā tā laikam.