- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Mobil flották
- Apple iPhone 17 - alap
- Hetekig bírják töltő nélkül a Huawei sportórái
- Samsung Galaxy A36 5G - a középső testvér
- Milyen okostelefont vegyek?
- Fotók, videók mobillal
- Yettel topik
- Samsung Galaxy A54 - türelemjáték
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
Ú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
- Kecskemét és környéke adok-veszek-beszélgetek
- Milyen TV-t vegyek?
- Revolut
- Kerékpárosok, bringások ide!
- Autóápolás, karbantartás, fényezés
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Víz- gáz- és fűtésszerelés
- Mikrotik routerek
- Dell notebook topic
- További aktív témák...
- GoPro Ultra Wide Lens Mod - Hero 13 akciókamerákhoz
- Lucky Miner, Bitcoin Miner, LV07, 1TH/S, 25W fogyasztással, Win 3.125 BTC Bitcoin Crypto Solo Miner
- Lenovo Quectel EM05-G FRU szám: 5W10V25829 DELL WWAN DW5825e-eSIM WWAN modemek
- Gamer márkás erős kezdő alapgép - HP OMEN by HP Obelisk Desktop 875
- Whell stand pro Logitech
- Zebra ZP505 EPL hőpapíros címkenyomtató
- Asus ROG Zephyrus G15 - 15.6" 4K 120Hz - Ryzen 7 6800HS - 24GB - 512GB - RTX 3060 - 2 hó garancia -
- Apple iPhone 13 128 GB Fekete 1 év Garancia Beszámítás Házhozszállítás
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 14 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3532, 93% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest