- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Az USA nem akarja visszafogni Kína növekedését
- Mikrotik routerek
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- ASUS routerek
- Kínában túl sok az EV, fokozódik az árháború
- A pápa egyre jobban tart a romlott AI veszélyeitől
- Microsoft Office és Office 365 topic
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Milyen switch-et vegyek?
Új hozzászólás Aktív témák
-
VladimirR
nagyúr
válasz gyuszmok #650 üzenetére
procedure kiir(mit:string);
begin
writeln('ezt irtad: '+mit);
end;
procedure beolvas(var mibe:string);
begin
write('irjal be valamit: ');
readln(mibe);
end;
s: string;
begin
beolvas(s);
kiir(s);
end.
2:
var tomb:array[1..15] of string;
i: byte;
begin
for i:=1 to 15 do
tomb[i]:='ez a tomb'+i+'. eleme';
for i:=1 to 15 do
writeln tomb[i];
end.
[Szerkesztve] -
lamadou
senior tag
hello! szerintetek ennek a programnak mit kellene csinálnia?
program prim;
uses crt;
var i,k,s : integer;
begin
clrscr;
s:=10;
for i:=1 to 10 do
begin
for k:=2 to i-1 do
begin
if i mod k <s then s:=i mod k;
end;
if s>0 then writeln(i);
end;
readkey;
end.
én úgy gondoltam, hogy kiírja a prímeket 10-ig, de nem. csak az 1, 2, 2-at. Hol a hiba? -
Lortech
addikt
Leírnád, hogy hogy gondolkodtál? Nézegetten az előzőt is, de elég nehezen fogom fel. Az s változó szerepét nem nagyon tudom hova tenni. Pl megadsz neki más értéket, és akkor is ugyanaz lesz az eredmény.
Az előzőt amúgy erre javítottam ki, vagyis inkább átírtam:
program prim;
uses crt;
var i,k : integer;
volt:boolean;
begin
clrscr;
for i:=2 to 10 do
begin
volt:= false;
for k:=2 to i-1 do
begin
if i mod k =0 then volt:=true;
end;
if volt=false then writeln(i);
end;
readkey;
end.
[Szerkesztve]Thank you to god for making me an atheist
-
lamadou
senior tag
Úgy gondolkodtam, hogy megviszgálom az összes számot 10-ig(vagy amennyit oda írok), hogy mennyi maradékot ad 2-től i-1-ig az összes egésszel osztva. az s változó arra szolgált, hogy az eddigi legkissebb maradékot számolja. Ha az összes osztóval (i-1) végzett, akkor prímszám esetén s nagyobb lesz mint 0. Ha egyenlő nullával akkor nem prím. Amúgy ezt procitesztre is lehet használni. Mondjuk átírod 10000-re a 10-eseket, és leméred mennyi időbe tellett amíg kiszámolta. Amúgy én a te programodat nem igazán értem. Leírnád te is, hogy hogyan gondoltad?
tényleg: nem tudtok valami parancsot amivel időt lehet mérni? Tehát amikor elkezd számolni ''elindítja a stoppert'', amikor végez akkor meg leállítja?
[Szerkesztve] -
lamadou
senior tag
közben szépítettem a progit:
program prim;
uses crt;
var i,k,s,szam,ig,tol : integer;
begin
clrscr;
writeln('Add meg mettől szeretnéd vizsgálni a számokat!');
readln(tol);
writeln('Add meg meddig szeretn‚d viszgálni a számokat!');
readln(ig);
s:=ig;
for i:=tol to ig do
begin
for k:=2 to i-1 do
begin
if i mod k <s then s:=i mod k;
end;
if s>0 then begin
writeln(i);
szam:=szam+1;
end;
s:=ig;
end;
writeln('Összesen ',szam,' prímet találtam, a választott tartományban.');
readkey;
end.
Így szebb nem? -
Lortech
addikt
A változtatás abban van a tiedhez képest, hogy egy logikai segédváltozóval vizsgáltam meg, hogy prím-e, illetve ezzel jeleztem. Ha volt osztója ( ha ''külső for ciklus indexe'' mod ''belső for ciklus indexe''=0), akkor nem prím (volt:=false lett), és ki lett íratva. Egyébként fejlettebb megoldás az, hogy csak a vizsgálandó szám négyzetgyökéig keresi és nézi az osztókat. (szerk: lehet még sokkal tovább is szépítgetni persze, van pár jó ötlet a linken)
Én is csináltam belőle benchmarkot, meg többen is rajtam kívül, csak tudnám merre van...
Bővebben: link
[Szerkesztve]Thank you to god for making me an atheist
-
gyuszmok
tag
Folyamatábrához tudtok olyan oldalt linkelni ahonnan normálisan kivehető, hogy milyen jelzés mire való?
-
Sianis
addikt
válasz gyuszmok #666 üzenetére
Szia!
2. Folyamatábra (flowchart): Alapelemeit Neumann dolgozta ki. Az egyes szerkezeti elemek között nyilakkal jelöljük a végrehajtási sorrendet.
Folyamatábra alakzatok:
Téglalap: Valamilyen értékadó utasítás, vagy eljárás. (pl k:=15;)
Rombusz, vagy lapos hatszög: Egy, vagy többágú kiválasztás. ( k=15? vagy igaz, hamis kiment pl)
Paralelogramma: Adatáramlás. (Érték bekérése, érték kiírás, writeln, readln)
Kör: Vezérlõ utasítások. (Start, End, ezekből csak egy-egy van program elején, és végén) -
jeszi
tag
Olyan Pascal program kéne, melyben szimplex módszer van. Tud valaki segíteni?
(Természetesen a kód kéne)
[Szerkesztve]Nem félek a haláltól, majdcsak túlélem valahogy!
-
Panzermeyer
tag
üdv oll, eljárásokban és függvényekben tud valaki segíteni nekem?
ha tud akkor adok icq vagy msn címet isWhen you stop telling lies about me, I will stop telling the truth about you.
-
b14
senior tag
válasz Panzermeyer #670 üzenetére
milyen eljérésok kellenek? msnem van.
''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
válasz Panzermeyer #672 üzenetére
Felvettelek.
''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
AND1
őstag
Kérdés emberek:
Hol tudok végre normális Tp-t szeretni ami elindul xp alatt? Mert ahányat szedtem az eddig hibát írt ki indításnál. Most találtam egy Rie Pascal nevü wines tp clone-t, nem is rossz, csak demo és nem enged menteni.
Hmm?Egy régi PH-s.
-
VladimirR
nagyúr
tp fizetos, abbol imho nem talalsz
freepascal? Bővebben: link -
AND1
őstag
Ez sem az igazi. Nekem kicsit bonyolult is. Valami más nincs?
Egy régi PH-s.
-
AND1
őstag
Haliho...
Tanulgatom, de hát nem nagyon megy Kérdés... holnap kéne írnom suliba progit jegyre de nem tudok magamtól. Van olyan Pascalos aki itt lesz topic (PH!) közelben 10-11 között? Ha nem menne bemásolnám feladatot és ha lenne vki aki segítőkész segíthetne nekem. hm?Egy régi PH-s.
-
Rover623
félisten
Érdekes, csak nekem működik minden rendesen...?
Persze néha felmegy 50%-ra, amikor minden műx...de hát azért van a HT...
A FreePascal nekem is szimpi...csak a baj, hogy a fő project-emet nincs erőm átírni bele, pedig évek óta korlátoz már a TP...
Persze ha te átültetnéd a 143.000 soros kis utility-met...meghálálnám pár rekesz bambival...primus inter pares
-
gammar
csendes tag
Hogyan lehetne egy 20-30 szamjegyu szamot definialni, tehat longintnal vmivel jobb kellene
-
rOwLeY
őstag
HELP!
Fontos lenne a segítségetek:
Egy olyan progi kell amiben bekérsz tökmind1 mennyi nevet, és ABC sorrendben írja ki őket!
Semmi ötlet nem jut a eszembe!
THX! -
Sianis
addikt
Találtam neked egy kódot is:
procedure rendez;
var i, j: integer;
begin
for i:=1 to meret do
for j:=1 to i-1 do
if(t[j] > t[j+1] then { csere }
begin
w := t[j];
t[j] := t[j+1];
t[j+1] := w;
end;
end;
A rendezés neve buborék rendezés, tehát ami nem megfelelő az jön fel, mint a buborék. Jó kis találmány ez bizony! Ha frodítod a feltételt, akkor fordítva rendez. Nagyon egyszerű! Remélem neked beválik. -
b14
senior tag
uses crt;
var i, j ,k:integer; s:array [1..100] of string; w:string;
begin
clrscr;
i:=0;
repeat
inc(i);
write('Az '+i+'. érték: ');readln(s[ i ]); {A *-gal lehet megszakítani a bevitelt}
until s[ i ]<>'*';
k:=i;
for i:=1 to k do
for j:=1 to i-1 do
if(s[j] > s[j+1] then { csere }
begin
w := s[j];
s[j] := s[j+1];
s[j+1] := w;
end;
clrscr;
for i:=1 to k do writeln('Sorba rakva az '+i+'érték: '+s[ i ]);
end.
[Szerkesztve]''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
rOwLeY
őstag
Bárki aki tudja kérem segítsen,fontos lenne!!
-
Cimbi_88
csendes tag
b14 ha szarúl írod meg neki a programot akkor nem csoda hogy nem megy neki ahúgy egy pár helyej full szar.
Új hozzászólás Aktív témák
- Xbox Series X|S
- Milyen légkondit a lakásba?
- EA Sports WRC '23
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Spórolós topik
- Az USA nem akarja visszafogni Kína növekedését
- World of Tanks - MMO
- BestBuy topik
- Autós topik látogatók beszélgetős, offolós topikja
- További aktív témák...