Kezdőoldal » Számítástechnika » Programozás » Első 20 prímszám kiírása Free...

Első 20 prímszám kiírása Free Pascalban. Hogyan?

Figyelt kérdés
2012. jan. 31. 17:56
1 2
 11/15 iostream ***** válasza:
62%

1. Jézusom, ez a nyelv gusztustalanabb, mint amire emlékeztem. Indentálással együtt.

2. Szerintem nem teszel jót a kérdezőnek, ha kész megoldást adsz a kezébe.

2012. febr. 1. 11:55
Hasznos számodra ez a válasz?
 12/15 anonim ***** válasza:

"1. Jézusom, ez a nyelv gusztustalanabb, mint amire emlékeztem. Indentálással együtt."

Az oldal lenyeli az indentációt, ezen kívül sok mindent lenyel amit nem kéne és találkoztam vele,általában elég bénaság az oldal részéről azt kell mondjam, de nem én terveztem az oldalt, akkor máshogy lenne , de nem is akarom felsorolni. Amúgy nem tudom mi a bajod a nyelvvel, típus biztosabb és memória biztosabb mint a c nyelv, és pl. a programozók "kedvenc" hibáját if (i=1) {...} c-ben, itt nem lehet elkövetni, lehet mondani hogy figyeljen oda bla-bla-bla, nem akarok belemenni a részletekbe, meg nem is a c nyelvet szidom, tudom hogy az az egyik leggyakrabban használt prog. nyelv meg nem a pascal nyelvet akarom magasztalni, de nincs vele különösebb bajom stb.


@11:46 Prog

Ez még mindig nem jó, de ne te old meg a kérdező helyett.

2012. febr. 1. 12:46
Hasznos számodra ez a válasz?
 13/15 Prog válasza:
Oké,már nem lesz negyedik megoldási kísérletem:D De ez a harmadik változat miért nem jó?
2012. febr. 1. 13:13
Hasznos számodra ez a válasz?
 14/15 A kérdező kommentje:

program prim;

uses crt;

var vizsgalt, i, primek, osztok:integer;

BEGIN

clrscr;

vizsgalt:=1;

primek:=0;

while primek<20 do

Begin

vizsgalt:=vizsgalt+1;

osztok:=0;

for i:=1 to (vizsgalt div 2) do

if (vizsgalt mod i = 0) then osztok:=osztok+1;

if osztok<2 then

Begin

writeln(vizsgalt);

primek:=primek+1;

end;

End;

readln;

END.

2012. febr. 1. 14:55
 15/15 anonim ***** válasza:

@13:13 Miért nem jössz rá magadtól? Kérdéssel felelek: Az 1 mióta prímszám?


@14:55 Elegendő lett volna a legfeljebb a négyzetgyökéig vizsgálni a számot. Hogy lehet hogy már egyből jól működő megoldást írsz ide? Talán kipróbáltad előtte? Nem úgy mint a kolléga. NAGYON jó.

2012. febr. 1. 17:12
Hasznos számodra ez a válasz?
1 2

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!