Hirdetés
- Kompatibilis lett az Android Quick Share és az Apple AirDrop
- Akciófigyelő: Black Friday kedvezmények az EarFun cuccaira
- Akciófigyelő: Huawei Black Friday akciók a tudatos életvitel jegyében
- Részletes fotókon a Honor robotkaros telefonja
- Ezekkel a kiegészítőkkel még sokoldalúbb eszközzé válik az Armor Pad 5
- iPhone topik
- Google Pixel topik
- Samsung Galaxy S23 Ultra - non plus ultra
- Ezek a OnePlus 12 és 12R európai árai
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy Watch6 Classic - tekerd!
- Motorola Edge 50 Ultra - szépen kifaragták
- Android alkalmazások - szoftver kibeszélő topik
- Milyen hagyományos (nem okos-) telefont vegyek?
- Xiaomi 15 - kicsi telefon nagy energiával
Új hozzászólás Aktív témák
-
-
khalox
őstag
válasz
KovacsUr
#214
üzenetére
Na... csak bökte a csőrömet... bibi.
Deeeee van NaN:
PROGRAM ieee1(OUTPUT);
VAR no_num : REAL;
pos_inf, neg_inf : REAL;
null : REAL;
BEGIN
null := 0E0;
no_num := null / null;
pos_inf := 1E0 / null;
neg_inf := -1E0 / null;
Writeln(no_num, ' ', pos_inf, ' ', neg_inf);
END.
Kimenet:
XL Pascal NaN +INF -INF
Gnu Pascal NaNQ INF -INF
(FreePascal: const NaN = 0/0;
és voilá).
Persze egyik sem turbo pascal, de szabványos (annak kell lennie - még a bitsorrendje is rémlik lebegőpontos ábrázoláskor). De, hogy a VAL nem ezt adja vissza, az tényleg szinte biztos, szal igazad van...
[Szerkesztve] -
B-52
csendes tag
válasz
KovacsUr
#176
üzenetére
Hello!
Sajna csak 16-s tud kezelni jobb tipppeket szivesen fogadok, egyébkén nem régen programozok tehát ne képzald, hogy netán profilennék ezért ha van információd azt érthetően küld.Ja a jövőhéten készlesz a torpedó alapverziója majd ha érdekel elküldhetem.
Na hello.:y -
b14
senior tag
válasz
KovacsUr
#120
üzenetére
Hello
Mindenesetre kosz a megoldasokat, de enmashogy oldottam meg, de az kicsit hosszabb.
Leirom, hogy mas talan megnezi.
biztos van benne hiba, mert fejbol irom.
uses crt;
var
szam,hosszusaga:longint;
filetemp
ext;
ch:char;
begin
writeln('Kerek egy szamot');
readln(szam);
assign(filetemp,'c:\nemkell.txt');
rewrite(filetemp);
write(filetemp,szam);
close(filetemp);
assign(filetemp,'c:\nemkell.txt');
reset(filetemp);
repeat
read(filetemp,ch);
hosszusaga:=hosszusaga+1
until eof(filetemp);
close(filetemp);
writeln('A szam hossza: ',hosszusaga);
end.
Bocsesz a zold kis pofiert,de a kettospont t az a pofi es mashogy nem tuttam
[Szerkesztve] -
-
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
. Ha mégis, bocsi.
ext;
Új hozzászólás Aktív témák
- Apple iPhone 17 Air 256,Új, Bontatlan,36 hónap garanciával
- Samsung Galaxy A53 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- HIBÁTLAN iPhone 12 Pro 512GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3684, 100% Akkumulátor
- GYÖNYÖRŰ iPhone 12 mini 256GB Black-1 ÉV GARANCIA -Kártyafüggetlen, MS3626, 100% Akkumulátor
- Apple iPhone 14 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest