- 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?
- Mikrotik routerek
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- XPEnology
Új hozzászólás Aktív témák
-
gaben
aktív tag
Hi!
Megint lenne egy kis gondom...
Mit jelent az ,hogy ,, ERROR 4: Duplicate indentifier (atlag).'' ?
egy átlag számoló programot csinálnák.
Ebben a sorban van a hiba:
atlag: real;
Tud valaki valamit erre? -
9CS
senior tag
Nekem is Pascalos gondom lenne, első házimat irogatom és valami nagyon nem jó.
Procedure Lentivonal; {Egy vonal lent}
Var i : byte;
gotoxy(1,25);
for i:=1 to 80 do
begin
write(chr(178));
end;
itt lenne egy kis darabja a programnak, nem tudom jo elgondolás-e de ez most mindegy. Ugyanis a fordító azt mondja hiányzik egy '':'' a gotoxy es a (1,25) kozott, de ha beirom akkor meg a zarojel a baja... Nekem meg, hogy nem is kéne oda '':''. Valamkinek ötlete esetleg?'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
gaben
aktív tag
Mondja már meg valaki ,hogy hogy lehet egy adott szövege egymás mellé írni?
Azt tudom,hogy egymás alá gotoxy,de egymás mellé?
Egy sort milyen utasítádssal lehet tele írni Pl.:@-jellel? -
gaben
aktív tag
Tehát akkor gotoxy-val lehet azt is megcsinálni,hogy a szöveg ne egymás alá,hanem egymás mellé kerüljön?
A gotoxy szt tudom, ahogy én használtam a szöveg így jelent meg:gaben
gaben
gaben
Nekm így kéne:gaben gaben gaben
tehát egymás mellé
? -
Darth_Revan
veterán
Na igen,most már ok Gabennak...
Néha a legegyszerűbb dolgok,a legnehezebbek...
[Szerkesztve] -
gaben
aktív tag
Van valami hülye Pascalos könyvem,aztán abba vannak feladatok...
Köszi,mostmár ok...
[Szerkesztve] -
Steelheart
senior tag
Végigolvastam... Siralmas.
XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi
-
MasOyama
őstag
Hogy tudom kiíratni egy elemet?
writeln(nyeremeny);
Ezzel az a baj, hogy csak 5 számíg írja ki.
Ha így csinálom, akkor se jó:
writeln(nyeremeny:20);
Amugy a változó longint, és kb. 10 számíg kéne kiíratni.PCMENTOR - Számítógép és Laptop Szerviz
-
MasOyama
őstag
Akkor elmondom kicsit részletesebben.
var nyeremeny: longint;
begin
nyeremeny:=0;
itt van egy számolás rész.
nyeremeny:=kettes*700+harmas*9000+negyes*500000;
writeln(nyeremeny);
end.
Az a baj, hogy amíg csak 5 számot kell kiírnia, addig jól számol, és ki is írja, de amint 6-20 számot kéne kiírnija(mondjuk 2000 kettes, és 30 hármas, és 10 négyes esetén), nem írja ki csak 5 ig, és nem számol jól.
Amugy ez egy lotto program, de 120 soros, azért nem írtam be.PCMENTOR - Számítógép és Laptop Szerviz
-
MasOyama
őstag
Igen, erre gondoltam én is, de van ennél nagyobb?
PCMENTOR - Számítógép és Laptop Szerviz
-
TheVeryGuest
senior tag
Használj lebegőpontos típust (float, double), vagy ha ragaszkodsz az integerekhez, mondjuk nem 700, 9000, 500000 szórzót használsz, hanem 7, 90, 5000-et és a végén a kiírt szám után odaírod stringként a '00'-t.
“Perfection is attained not when there is nothing more to add, but when there is nothing more to remove” Antoine de Saint-Exupéry
-
MasOyama
őstag
válasz TheVeryGuest #79 üzenetére
Erre gondoltam én is, de ha lenne 8-9 számjegy, akkor így sporolnék 2-t, és az még mindig 6-7, és 5-ig működik. Amugy a pascal szerint:10 számjegyig lenne jó a longint, és ez a legnagyobb.
PCMENTOR - Számítógép és Laptop Szerviz
-
KovacsUr
addikt
-
TheVeryGuest
senior tag
A 10 számjegy korrekt, mert ha 32 bites a long, akkor 2.147.483.647 a teteje. Ezek szerint ott valami más gond lesz, ha nincs elírva semmi. Rakj egy watch-ot nyeremeny változóra és traceld végig a programodat, így megnézheted, hogy a változóval van-e baj vagy a kiíratással.
“Perfection is attained not when there is nothing more to add, but when there is nothing more to remove” Antoine de Saint-Exupéry
-
TheVeryGuest
senior tag
Fura, nálam FreePascal 0.9.2-vel megy zsírul 9 számjegy longint-tel.
“Perfection is attained not when there is nothing more to add, but when there is nothing more to remove” Antoine de Saint-Exupéry
-
MasOyama
őstag
Ennyi lenne. Kicsit rövidítettem. De persze még nincs kész:
program otoslotto;
uses newdelay,crt,graph;
var szamok,tszamok,tippek : array [0..4] of integer;
i,j,k,talalat,szam : integer;
a,b : boolean;
hanyszor,huzasokszama,befektetett : longint;
egytalalat,kettalalat,haromtalalat,negytalalat,ottalalat : integer;
nyeremeny :longint;
begin
randomize;
clrscr;
talalat := 0;
kettalalat:=0;
haromtalalat:=0;
negytalalat:=0;
ottalalat:=0;
befektetett:=0;
nyeremeny:=0;
writeln('Hany huzss legyen?');
readln(huzasokszama);
for i:=0 to 4 do
begin
repeat
a:=false;
writeln('K‚rem adja meg ',i+1,' szamot!');
readln(tippek);
if (tippek > 90) OR (tippek < 1) then
begin
textcolor(red);
writeln('Hibas szamot adott meg. A megadhato szamok: 1-90-ig.');
a := true;
textcolor(7);
end;
if i>0 then for j:=0 to i-1 do
begin
if tippek = tippek[j] then
begin
textcolor(red);
writeln('Mar van ilyen szam!');
a:= true;
textcolor(7);
end;
end;
until a=false;
end;
for hanyszor:=1 to huzasokszama do begin
for i:=0 to 4 do
begin
repeat
a:=false;
szamok := random(90)+1;
if i>0 then for j:=0 to i-1 do
begin
if szamok = szamok[j] then
begin
a:=true;
end;
end;
until a=false;
end;
for i:=0 to 4 do
begin
for j:=0 to 4 do
begin
if szamok = tippek[j] then
begin
tszamok[talalat] := szamok;
talalat:=talalat+1;
end;
end;
end;
write('Sorsolt szamok:');
for i:=0 to 4 do
begin
write(szamok,' ');
end;
writeln;
if talalat=2 then kettalalat:=(kettalalat+1);
if talalat=3 then haromtalalat:=(haromtalalat+1);
if talalat=4 then negytalalat:=(negytalalat+1);
if talalat=5 then ottalalat:=(ottalalat+1);
talalat:=0;
end;
nyeremeny:=kettalalat*700+haromtalalat*9600+negytalalat*500000+ottalalat*100000000;
writeln(nyeremeny);
writeln('Kettalalat: ',kettalalat,'');
writeln('Haromtalalat: ',haromtalalat,'');
writeln('Negytalalat: ',negytalalat,'');
writeln('Ottal lat: ',ottalalat);
befektetett:=huzasokszama*150;
writeln('A befektetett osszeg: ',befektetett,'');
writeln('A nyeremenyed: ',nyeremeny);
writeln('Esely a kettesre: 1:',huzasokszama/kettalalat:2:0,'');
writeln('Esely a harmasra: 1:',huzasokszama/haromtalalat:2:0,'');
writeln('Esely a negyesre: 1:',huzasokszama/negytalalat:2:0,'');
writeln('Esely az otosre: 1:',huzasokszama/ottalalat:2:0,'');
readln;
end.
[Szerkesztve]PCMENTOR - Számítógép és Laptop Szerviz
-
zenit
tag
Szerintem az a baj, hogy ebben a sorban:
nyeremeny:=kettalalat*700+haromtalalat*9600+stb...
a jobb oldalon Integer-ek vannak, így a Pascal belül Integerekkel is számol, és csak a végeredményt konvertálja LongInt-re.
Ellenben, ha összes ''talalat'' változódat átírod LongInt-re, akkor nem fog túlcsordulni: egytalalat,kettalalat,haromtalalat,negytalalat,ottalalat : longint;
[Szerkesztve] -
Sikoly
tag
Sziasztok!
Lenne egy hatalmas problémám
Jövőhéten érettségizek számtech-ből és a követekező lenne a gond:
hogy tudom pascalban, az ''n'' faktorálist meghatározni (itt most rekurzióra gondolok)
Vmikor tanultam, de teljesen kiesett az egész, szóval ha vki tudna nekem segíteni, azt nagyon megköszönném!
[Szerkesztve]---
-
Sikoly
tag
Sziasztok!
Lenne egy hatalmas problémám
Jövőhéten érettségizek számtech-ből és a követekező lenne a gond:
hogy tudom pascalban, az ''n'' faktorálist meghatározni (itt most rekurzióra gondolok)
Vmikor tanultam, de teljesen kiesett az egész, szóval ha vki tudna nekem segíteni, azt nagyon megköszönném!
[Szerkesztve]---
-
net84
őstag
hello!
sajnos sokat nem segíthetek, már régen volt, mikor pascalba ilyeneket csináltam (most már max csak párhuzamos portot programozok ). Ha jól értettem, hogy mit keresel, akkor neked a következő sorra van szükséged, amit a (tömb esetén) a ''type'' és a ''var'' elött írsz be:
const n=20;
Erre volt szükséged?Read only...
-
Sikoly
tag
Hmmm nem gondoltam, hogy ilyen hamar megérkezik a válasz, a feltett kérdésemre (ezért extra köszönet mindenkinek!)
Csak van egy kis gond....
Nem hittem volna, h ilyen hamar elfelejtem a pascal, de ez a középiskolai oktatás...
Szóval remélem tudnátok megint segíteni rajtam, az alábbi dolog lenne a baj:
program faktorialis;
var result,n:integer;
function faktorialis(n:longint):longint;
begin
if n=0 then
result:=1
else
result:=n*faktorialis(n-1)
end.
és a hibaüzenet:
fakt.pas(3,21) Error: overloaded identifier FAKTORIALIS isn't a function
fakt.pas(8,26) Fatal: Syntax error, . expected but ( found---
-
Sikoly
tag
Működik!!!!!!!!!! jeahhhhhhh 100000 köszi mindenkinek!
Még el tudnátok mondani annak az elvét, hogy lehet meghatározni egy számról h primszám-e ill a LNKO és LKKT meghatározása h történik?
Remélem nem kérek sokat!
[Szerkesztve]---
-
Sikoly
tag
Vki help lécci mer két nap múlva érettségi
---
Új hozzászólás Aktív témák
- iPhone topik
- gban: Ingyen kellene, de tegnapra
- Milyen légkondit a lakásba?
- Fűnyíró topik
- Luck Dragon: Asszociációs játék. :)
- Xbox tulajok OFF topicja
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Milyen okostelefont vegyek?
- OLED TV topic
- AMD Navi Radeon™ RX 7xxx sorozat
- További aktív témák...