- Samsung Galaxy Watch7 - kötelező kör
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Szívós, szép és kitartó az új OnePlus óra
- Honor Magic6 Pro - kör közepén számok
- Csak semmi szimmetria: flegma dizájnnal készül a Nothing Phone (3)
- Mobil flották
- iPhone topik
- Vivo V50 5G - új is, nem is
- Poco X3 Pro - hardverfrissítés
- Telekom mobilszolgáltatások
Aktív témák
-
QuarK
senior tag
Sztem ez rögvest zárva lesz, de nyugodtan tedd fel a kérdést mondjuk a Turbo pascal - elakadtam totyikban, biztos hamar meg lesz válaszolva. Amúgy ha jól sejtem, akkor a pow() c függvényre volna szükséged pascalban...
-
gErYoN
tag
A második kérdést akkor szerintem hagyjuk is!
-
gErYoN
tag
válasz
REAL WORLD #3 üzenetére
Hát most erre mit mondjak? Már megnyitottam! Elnézést akkor mindenkitől, csak én is szerettem volna létrehozni egyet mert sürgős! Na mindegy akkor zárható vagy tudom is én!
-
gErYoN
tag
(Bocsesz hogy ilyen soká írtam, hogy mi a bajom csak kicsit hosszúra sikerült!!)
1., Itten van egy program:
program gyokketto;
{$X+}
uses crt;
var ak,fk,k:real; {ak=alsókorlát, fk=felsőkorlát, k pedig az aktuális szám}
begin
clrscr;
ak:=1;
fk:=2;
k:=(ak+fk)/2;
repeat
if sqr(k)>2 then fk:=k
else ak:=k;
k:=(ak+fk)/2;
until abs(fk-ak)<0.000001;
writeln (k);
readln;
end.
Szal ez gondolom nem olyan nagy szám, de kérdésem, hogy a 0.000001 helyére hogyan lehetne egy bekért számot felhasználni úgy hogy negatív egész kitevőjűs hatványa legyen a határ. Azt nem tudom, hogy hogy kell hatványozni a pascalban negatív kitevővel. Amúgy a cuccot egy függvénybe szeretném megcsinálni, csak nem tom, hogy kell hatványozni.
A következő progit nemsoká leírom!
A {$N+/-} minek a fordítói direktívája? a numerikus társterület emulációé? Valahogy így rémlik, de nem vagyok benne biztos!
Somebody help! -
REAL WORLD
tag
És fel is teszed?
-
Miracle
senior tag
te mar kvázi-tag vagy, ha jol latom, nem tudom elkepzelni, hogy mindeddig ugy forumoztal itt, hogy nem vetted eszre
a: a kereses menut a forum jobb szelen
b: a sok bezart topicot, amit nem kellett volna megnyitni, csak megkeresni.
en mar eszrevettem mindkettot, ezert NEKED, HELYETTED rakerestem a pascalra:
Pascal help : Bővebben: link
Turbo Pascal : Bővebben: link
Turbo Pascal : Bővebben: link
Turbo Pascal - Elakadtam: Bővebben: link
es ez csak az 1. oldal
ennek fenyeben probalok rad nezve nem degradalo magyarazatot talalni erre a topicra, de nem megy.
[Szerkesztve] -
gErYoN
tag
Sziasztok, két kérdésem lenne:
Aktív témák
Hirdetés
- Egyedi PC összeszerelés Tökéletes színséma, prémium kábelmenedzsment, alkatrészfestés!
- Lenovo Ideapad 330S-15IKB / I5 /20GB RAM / GTX 1050 / M.2 SSD
- Gamer PC - i3 12100f, RTX 3070 és 16gb DDR5 + GARANCIA
- Lenovo ThinkPad T14 Gen 5 Ultra-I7/64GB/512SSD/Érintőképernyő/garancia
- Lenovo ThinkPad T14 G3 I5-1245U/32GB/1TBSSD/Érintőképernyő/Garanciás.
- BESZÁMÍTÁS! ASUS B450 R7 1700X 16GB DDR4 512GB SSD RX 580 8GB Rampage SHIVA Corsair 450W
- Laptop felvásárlás , egy darab, több darab, új , használt ! Korrekt áron !
- Lenovo ThinkPad 40AF docking station (DisplayLink)
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD RTX 2070 8GB Rampage SHIVA FSP 650W
- Prémium PC házak akár 20-40% kedvezménnyel eladók garanciával, számlával!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged