Hirdetés
- Samsung Galaxy A55 - új év, régi stratégia
- A Vivo X300 Ultra lehet az első telefon két 200 MP-es kamerával
- Samsung Galaxy A54 - türelemjáték
- Nothing Phone (3) – tervezett kaotika
- Samsung Galaxy S25 - végre van kicsi!
- Apple Watch Sport - ez is csak egy okosóra
- iPhone topik
- IFA 2025: Telepcsere kikapcsolás nélkül
- Honor 400 Pro - Gép a képben
- Google Pixel 10 Pro XL – tíz kicsi Pixel
Ú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] -
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] -
#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
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.
-
#79
TheVeryGuest
senior tag
MasOyama
#77
-
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. -
#68
Steelheart
senior tag
Steelheart
senior tag
Végigolvastam... Siralmas. -
#65
Darth_Revan
veterán
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
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
- Gamer AMD Ryzen 3700X (8 core) / 16GB DDR4 / RX 6700 XT 12GB / 1TB SSD /
- Gamer Ryzen 7 3700x (8core) / 16GB DDR4 / RTX 3070 Ti 8GB/512GB NVME SSD/
- Makulátlan iPhone 16 Pro Max 256GB, fekete titán színben, garisan eladó!
- Gamer Ryzen 5 5600 / 16GB DDR4 / RTX 3060 12GB / 512GB NVME SSD /
- Gamer pc RYZEN 5500/16GB DDR4/RX 7600 8GB/512GB SSD/Új számítógép 3év garanciával
- Vadiúj gèpházak! Gamereknek ès Akiknek fontos a külső!
- Samsung Galaxy A23 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy A22 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Steam, EA, Ubisoft és GoG játékkulcsok, illetve Game Pass kedvező áron, egyenesen a kiadóktól!
- Új MSI 17 Raider GE78 QHD 240Hz i9-13980HX 24mag 32GB 2TB SSD Nvidia RTX 4090 16GB 175W Beszámítás!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest