Kezdőoldal » Számítástechnika » Programozás » Segitene valaki? elakadtam...

Segitene valaki? elakadtam egy fuggveny megirasa kozben. Mi a hiba?

Figyelt kérdés

program PRIM_OSZTOT_TALAL_KILEP_BOOLEAN;

var i,n:longint;

k:boolean;

begin

Write('N:');ReadLn(n);

i:=2;k:=true;

repeat

if n mod i=0 then k:=false;

i:=i+1;

until (i>Sqrt(n)) or not k;

if k then WriteLn('Prím') else WriteLn('Nem prím');

end.


2011. nov. 29. 16:35
 1/5 A kérdező kommentje:

Elnezest, ez a hibas nem az



function prim;

var i:szam,integer

szamlalo:integer

begin

szamlalo:=0

for i:= 1to 10

if szam mod i=0 then

szamlalo:=szamlalo+1;

if szamlalo:=2 then

writeln('Prim szam')

else writeln('Nem prim szam')

end.

2011. nov. 29. 16:54
 2/5 coopper ***** válasza:

Szia.


Szam éréke micsoda ?

Nem kellene bekérni ?

Az "I" Ciklus miért csak 10-ig megy ?

Elvileg a bekért szám gyökéig kellene menni. - Sqrt(szam)

2011. nov. 29. 17:29
Hasznos számodra ez a válasz?
 3/5 coopper ***** válasza:

Ja és ha a szám gyökéig megy a ciklus akkor nem 2-re kell vizsgálni, hanem csak 1-re (mivel csak 1-gyel osztható)

if szamlalo=1 then


Azon kivűl tele van szintaktikai hibával :

1. Pascalban majdnem minden sor végre pontosveszőt kell tenni igy : 2,3,5,11 sor végére is.


2. Ez a sor igy van jól :

var i:szam,integer -> var i:szam:integer ;


3. A feltételnél nem "legyen egyenlő" csak "egyenlo" :

if szamlalo:=2 then -> if szamlalo=2 then


Hát nagyából ennyi.

2011. nov. 29. 17:37
Hasznos számodra ez a válasz?
 4/5 coopper ***** válasza:
*var i,szam:integer ;
2011. nov. 29. 17:38
Hasznos számodra ez a válasz?
 5/5 anonim ***** válasza:
A "program PRIM_OSZTOT_TALAL_KILEP_BOOLEAN;" közelebb van a megoldáshoz, a not k-t zárójelbe kell írni. Az 1-et prímnek veszi holott nem az a 2-t meg nem holott prím. A többi a longint-on ábrázolható több pozitív számról jól dönti el hogy prím e.
2011. nov. 29. 22:28
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:





Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!