Hirdetés
- Ha nem növelnéd feleslegesen a villanyszámlád, a Chieftecnek van pár új ajánlata
- ARC vs eARC — Ilyet is tud a HDMI-d? 🤨
- A következő évtizedbe repíti a NAND hatékonyságát a Samsung új kutatása
- ASUS blog: kisebb, de nem gyengébb – a mini PC-k forradalma
- 5 kilowattos GPU-k előtt nyitná meg az utat az Intel
- Meghalt a Windows 10, éljen a Windows 10!
- Apple asztali gépek
- Kormányok / autós szimulátorok topikja
- Androidos fejegységek
- M.2 csatlakozók terén (is) jónak ígérkezik az MSI közelgő AMD-s alaplapja
- Gaming notebook topik
- Projektor topic
- Azonnali alaplapos kérdések órája
- Milyen monitort vegyek?
- Plazma TV topic
Új hozzászólás Aktív témák
-
#899
b14
senior tag
Drótszamár
#897
b14
senior tag
válasz
Drótszamár
#897
üzenetére
A read tudtommal egy karit olvas be bill.-ről, mert filenél azt csinálja.
-
#772
b14
senior tag
Zsolteeeee
#771
b14
senior tag
válasz
Zsolteeeee
#771
üzenetére
Talán létezik vmi rename() eljárás.
-
b14
senior tag
válasz
#57764352
#111
üzenetére
HIHI
Az osztoit igy lehet meghatarozni egy szamnak (pascal megoldas, c-ben is kuldhetem, ha kell):
{osztoi.pas}
uses crt;
var a, b, szam, r , i, h,g : longint;
aszamai, bszamai: array [1..200] of longint;
begin
writeln('Kerem az ''A'' erteket');
readln(a);
writeln('Kerem a ''B'' erteket');
readln(b);
clrscr;
writeln('A szamai: ');
writeln;
for szam := a downto 1 do
begin
clrscr;
r:=0;
writeln('Most ',szam);
for i:=szam downto 1 do
begin
if szam mod i = 0 then
begin
writeln(szam div i);
inc(r);
aszamai[r]:=szam div i;
end;
end;
writeln;
writeln;
h:=r;
writeln('Ez osszesen ',r,' szam volt');
readkey;
end;
clrscr;
writeln('B szamai: ');
writeln;
for szam := b downto 1 do
begin
clrscr;
r:=0;
writeln('Most ',szam);
for i:=szam downto 1 do
begin
if szam mod i = 0 then
begin
writeln(szam div i);
inc(r);
bszamai[r]:=szam div i;
end;
end;
writeln;
writeln;
g:=r;
writeln('Ez osszesen ',r,' szam volt');
readkey;
writeln('Kozos osztoik: ');
for i:=1 to h do for r:=1 to g do if r = i then writeln(i);
end.
Ez egy eleg hosszu megoldas, igazabol nagyon is rogtonzott, lehet, hogy van benne hiba.
Legnagyobb kozos osztot ugyan ezen az alapon, csak egy kicsit kell rajta szerkeszteni, a relatív prímek csak egy kicsit belenyulni a legnagyobb kozos oszto progi
De juteszembe: if r = 1 then writeln('RELATÍV PRÍMEK!');
Ha kell meg tudom csinalni a tobbit is!
[Szerkesztve] -
b14
senior tag
HI
Csak maert mar regen erdekel: Mite jelent a neved? Vagy semmi jelentese nincs?
Es az alairasodnak van valami ertelme, legalabbis en ugy gondolom.
''ritka dolog, de ez ertelmes hozzaszolasod volt.'
koszonom az ertekelesedet, majd dicsekszek vele tarsasagban.' Ezen nevetni kene?
Egyebkent a te nem tudsz megserteni- bol a nem tudsz volt nekem ertekes.
'Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.'
marpedig azt neked kell megtenni, annal nagyobbat mennel jobban nem ertesz hozza. - THX a batoritast, ha annak kell venni.
'Egyebkent az egeszet megicsinaltam vonalak nelkul'
ha megirtal egy komplett amobaprogramot akkor rendkivul erdekes hogy nem birod begepelni azt a peldat amit irtak neked es ami egy vacak vonalat huz a vacak formra.
Az egeszet nem nagy dolog megcsinalni, csak szeretem latni, hogy mit csinalok -
b14
senior tag
HI
amugy nem veszem sertesnek a hozzaszolasod, mert te nem tudsz engem megserteni. -ezt nem ertettem teljesen, de a programot nezve nem is szamit.
Probalkoztam a tobbi forumon ennek keresesevel, de ezzel a tobbiek nme nagyon foglalkoztak (lealabbis en nem talaltam megoldast).
azert segiteni megprobalok, mert a szocsatabol nem lesz amoba -ritka dolog, de ez ertelmes hozzaszolasod volt.
Egyebkent az egeszet megicsinaltam vonalak nelkul, de ugy megis ''szebb'' lenne az egesz. Ha gondolod elkuldom, vagy valami.
Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.
Remelem valaki tud segiteni -
b14
senior tag
hi
tisztelt vénahűtős
Kerlek vedd eszre, hogy egy sorral arrabb raktam a kezem a gepelesnel es az volt a problema a 'venahhutessel'
Egyebkent nem tudok meg ugy programozni delphiben hogy runtime visible legen egy line, mert akkor ki sem irtam volna a problamam ezert kerek segitseget, de a sorcsapos hulyeseg egyaltalan nem erdekel, sosem voltam alkoholista, es remelem nem is leszek, es ha a 'rajzolasrol' van szo akkor mint a problememmal kapcsolatos hozzaszolasomnal se konkretan rajzolasrol volt szo, hanem vektor graphics-rol, a problema meg mindig fenn all szamomra, remelem, hogy segitseg erkezik ra.
Hello, es ha durvan fogalmaztam, sertegetesnek tunne, akkor kerlek ne vegg annak.
Bye.
--
b14
exit -
b14
senior tag
hi
Ha pld a form1-bol az uses sorba felveszem a unit2-t akkor meg tudom hivni az form2-t a form2.show- val. Ez eddig OK. de mar hogy tudnam a masikkal is megcsinalni ezt, mivel ha a unit2- nel is ugyanezt csinalom akkor korkoros unit reference = circular unit reference to 'unit1'.
Bocs mar megolva
[Szerkesztve] -
b14
senior tag
Hi
Ez a prog ''tikositana'' bar nem nagy cucc de szeretnem meg csinalni.
Mi benne a hiba?
var i:integer;
c:char;
s
caption;
begin
for i:=1 to length(form1.Edit1.Text) do
begin
c:=chr(255-(ord(form1.Edit1.text)));
s:=c;
form1.Edit1.Text:=s;
end;
szerkesztett:
Ezt a hibauzenetet adja:
Project Project1.exe raised exception class EAccess Violation with message 'Acess violation at address 0044F14A in module 'Project1.exe'. Write address 00000000'. Process stopped. Use Step or Run to continue.
[Szerkesztve]
kat _okra?
caption;Új hozzászólás Aktív témák
- exHWSW - Értünk mindenhez IS
- Milyen okostelefont vegyek?
- Call of Duty: Black Ops 7
- Kamionok, fuvarozás, logisztika topik
- Luck Dragon: Asszociációs játék. :)
- Mibe tegyem a megtakarításaimat?
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Motorola Edge 60 Fusion - nem csak a forma időtálló
- sziku69: Szólánc.
- One otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- RYZEN 7 7800X3D 32 GB DDR5 RTX 3080 Ti 12GB 1TB M.2
- Lenovo ThinkPad P15 Gen 1 Tervező Vágó Laptop -50% 15,6" i7-10750H 32/512 QUADRO T1000 4GB
- Dell LAtitude 7490 FHD, TOUCH, i7-8565U CPU, 16GB DDR4, 512GB SSD, 27% ÁFÁS SZÁMLA, 1ÉV GARANCIA!
- Üzletből, Lenovo garanciával ThinkPad E14 Gen 5/ Intel Core i5-1335u/16GRAM/512SSD/FULL HD +kijelző
- HP Elitebook 840 G6 FHD, i7-8565U CPU, 16GB DDR4, 512GB SSD, 27% ÁFÁS SZÁMLA, 1ÉV GARANCIA!
- Fotó állvány eladó
- AKCIÓ! Honor 200 Lite 8GB 256GB mobiltelefon garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 13 Pro Max 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3685 100% Akkumulátor
- Lenovo T14 Thinkpad Gen3 WUXGA IPS i5-1245U vPro 10mag 16GB 512GB Intel Iris XE Win11 Pro Garancia
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: Laptopműhely Bt.
Város: Budapest