- Google Pixel 10 és 10 Pro összehasonlító gyorsteszt
- iOS alkalmazások
- Google Pixel topik
- iPhone topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- OnePlus 8 Pro - a túlgondolt
- Xiaomi 15 Ultra - kamera, telefon
- Bemutatkozott a Poco X7 és X7 Pro
- Kijelző került a kamerasávra a Xiaomi 17 Pro és 17 Pro Max hátulján
- Telekom mobilszolgáltatások
Ú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
- Tyű-ha Lenovo Thinkpad X1 Carbon G8 Profi Érintős Laptop 14" -50% i7-10610U 4Mag 16GB/512GB FHD IPS
- AKCIÓ BONTATLAN GARIS IPHONE 16 PRO ÉS PRO MAX MINDEN SZÍNBEN ÉS TÁRHELLYEL 1 ÉV GARANCIÁVAL
- iPhone 17 Air - összes tárhely és szín bontatlan, viszonteladótól független 1év Apple garanciális
- iPhone 13 128GB midnight-black, független + extra tokok
- Bontatlan E olvasó..
- Apple MacBook Air M2,8/256GB,Dobozával,12 hónap garanciával
- Xiaomi Redmi 9 32GB, Kártyafüggetlen, 1 Év Garanciával
- Lenovo ThinkCentre M920q/ Dell OptiPlex 3070/ Hp EliteDesk 800 G4-G5 mini, micro PC-Számla/garancia
- Apple iPhone 11 64GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 13 Pro 128GB Silver -1 ÉV GARANCIA - Kártyafüggetlen, MS3387, 96% Akkumulátor
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest