- A világűrbe repíti az AI-t az NVIDIA és a Starcloud
- Kézikonzoltól a gamer PC-ig minden területet lefedne a Corsair új SSD-je
- Hidat épített az NVIDIA a hagyományos és a kvantumszámítógépek közé
- Villámgyorsan töltődhet be minden a PNY új SSD-jével
- A Kensington új terméke mindent megtesz, hogy kímélje csuklódat
- Milyen billentyűzetet vegyek?
- Bluetooth hangszórók
- Kormányok / autós szimulátorok topikja
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Gaming notebook topik
- Milyen videókártyát?
- John Carmack csalódott a DGX Sparkban
- Ipari mennyiségű szuperszámítógéppel dagasztaná az AI lufit az USA
- Milyen RAM-ot vegyek?
- TCL LCD és LED TV-k
Új hozzászólás Aktív témák
-
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 -
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?
-
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] -
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] -
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] -
#83
TheVeryGuest
senior tag
TheVeryGuest
senior tag
Fura, nálam FreePascal 0.9.2-vel megy zsírul 9 számjegy longint-tel.
-
#82
TheVeryGuest
senior tag
MasOyama
#80
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.
-
#80
MasOyama
őstag
TheVeryGuest
#79
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.
-
#79
TheVeryGuest
senior tag
MasOyama
#77
-
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. -
#68
Steelheart
senior tag
Steelheart
senior tag
Végigolvastam... Siralmas. -
#65
Darth_Revan
veterán
Na igen,most már ok Gabennak...
Néha a legegyszerűbb dolgok,a legnehezebbek...
[Szerkesztve] -
-
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? -
alitak
senior tag
Én is megcsináltam:
program elso;
var szam:integer;
begin
writeln('Adj meg egy szamot, eldontom paros-e: ');
readln(szam);
if szam mod 2 = 0 then writeln('Ez a szam paros!')
else writeln('Ez a szam paratlan');
readln;
end.
Na hát ennyi! Mondjuk én is idén keztem, de nekem teccik. Főleg hogy megszoktam a ;-őt soronként -
#45
Keitaro
addikt
Darth_Revan
#42
Keitaro
addikt
válasz
Darth_Revan
#42
üzenetére
Nézd meg a TextColor és TextBackground parancsokat kezdetnek. Kép beszúrása húzósabb
-
#42
Darth_Revan
veterán
Sziasztok!
Az lenne a kérdésem,hogy minden program amit Pascalban írúnk csak fekete háttér+fehér betű kombóval müxik? Nem leeht ezeket a szineket megváltoztatni,vagy esetleg képeket beszúrni? Nincsenek ilyen parancsok? -
gaben
aktív tag
Hülye ez a pascal....
Na ezt írja.
File Edit Run Compile Options Debug Break/watch
Ň════════════════════════════════════ Edit ════════════════════════════════════Ş
│Error 85: '';'' expected │
│program elso │
│var szam:integer │
│begin │
│readln (szam); │
│if szam mod 2=0 then │
│writeln 'páros' │
│else writeln 'páratlan' │
│readln; │
│end. │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
├─────────────────────────────────── Watch ────────────────────────────────────┤
│ │
└──────────────────────────────────────────────────────────────────────────────┘
F1-Help F5-Zoom F6-Switch F7-Trace F8-Step F9-Make F10-Menu NUM -
gaben
aktív tag
Most tanulom a tb-t, és már az elején elakadtam.....
Mi a hiba ebben?
A program bekér egy számot, majd megállapítja a számról,hogy páros-e vagy páratlan?
program elso;
var szam:integer;
begin
readln [szam]; (mindig ebben a sorban ír hibát ,,error 86 ';' ''
if szam mod 2=0 then
writwln 'páros'
else writeln 'páratlan'
readln;
end.
Régen láttam már mezei pascalt. 
). 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:
Végigolvastam... Siralmas.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Milyen billentyűzetet vegyek?
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Számtech boltosok memoárjai, azaz amikor kiborulunk...
- Háztartási gépek
- GL.iNet Flint 2 (GL-MT6000) router
- EA Sports WRC '23
- One otthoni szolgáltatások (TV, internet, telefon)
- A fociról könnyedén, egy baráti társaságban
- Bluetooth hangszórók
- Kedvcsinálót kapott az Avatar: Frontiers of Pandora - From the Ashes
- További aktív témák...
- BESZÁMÍTÁS! 10TB WD Purple Pro SATA HDD meghajtó garanciával hibátlan működéssel
- REFURBISHED - Targus Universal USB 3.0 DV1K-2K Compact docking station (DisplayLink)
- Bomba Ár! Lenovo ThinkPad E14 G2 AMD - Ryzen 5 I 8GB I 256SSD I 14" FHD I HDMI I W11 I Gari
- Samsung Galaxy Z Fold 4 256GB,Újszerű,Dobozával, 12 hónap garanciával
- Bomba ár! Lenovo ThinkPad L490 - i5-G8 I 16GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest