Egy feladat megoldása programozható számológéppel
Tarcsay Tamás
2004/09/13 16:22
404 megtekintés
A cikk már legalább egy éve nem frissült, az akkor még aktuális információk lehet, hogy mára elavultak.
Már többször előfordult oldalainkon, hogy számítógépes feladatmegoldást mutattunk be. Következzen most egy példa, amit TI83-as géppel oldottunk meg!

A Matematika Tanítása című módszertani folyóirat tanárok számára indított feladatrovatában 243. szám alatt szerepelt a következő feladat

Egy szigorúan monoton sorozat tagjai azok és csak azok a pozitív egész számok, amelyek nem négyzetszámok, és nem is köbszámok. Határozzuk meg a sorozat 2004. elemét! A TI83-as gépre készített, alábbiakban közölt programocska, meg tud birkózni ezzel a feladattal.

:0 ->N
:0 ->K
:Lbl 1
:N+1 ->N
:0 ->L
:Lbl 2
:L+1 ->L
:If L^3=N
:Goto 1
:If L^2<N
:Goto 2
:K+1 ->K
:Disp (K,N)
:If K<2004
:Goto 1
:Stop

Ezzel a programmal kapott futási eredmény : 2058. Hangsúlyozzuk, hogy a számítógépes mód csak az egyik lehetőség a megoldásra.

Egy Pascal-program:

Major Tamás tanítványunk készítette el a feladat megoldását elvégző Pascal-programot:

Program sorozat;
Var
nvk : boolean;
i : integer;
k : integer;
q : integer;
p : integer;
r : real;

BEGIN
i:=0;
k:=2;
q:=1;
nvk := FALSE;

WriteLn('Kisz molja a sorozat p-edik elem,t');
Write('p:= ');
ReadLn(p);

While i

Begin
While q<=Trunc(sqrt(k)) Do
BEGIN
r:=k/q;
r:=r/q;
IF r=q THEN nvk:=TRUE;
q:=q+1;
END;

IF sqrt(k)/Trunc(sqrt(k))=1 THEN nvk:=TRUE;

IF nvk=FALSE THEN i:=i+1;

nvk:=FALSE;
q :=1;
k :=k+1;
End;
WriteLn('');
Write('A sorozat ',p,'-dik eleme : ');
Write(k-1);
ReadLn;
END.

Csatlakozz hozzánk!

Ajánljuk

European Schoolnet Academy Ingyenes online tanfolyamok tanároknak
School Education Gateway Ingyenes tanfolyamok és sok más tanárok számára
All you need is code Minden a kódolás tanulásához
eBiztonság Minősítés Minősítési rendszer oktatási intézményeknek