- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- weiss: Logi MX Master 3S FW NEM frissítés
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- btz: Internet fejlesztés országosan!
- bambano: Bambanő háza tája
- eBay-es kütyük kis pénzért
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Ú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
Hirdetés
- Thermaltake Toughpower SFX Platinum 1000W
- Gigabyte B650M Aorus Elite AX ICE + 3 év garancia
- Sony DSC-HX300 digitális fényképező + 3 extra akksi + 8GB memóriakártya + Hama Star 700 állvány
- BESZÁMÍTÁS! LENOVO LOQ 15APH8 15 notebook - R7 7840HS 16GB DDR5 1TB SSD RTX 4060 6GB WIN11
- BESZÁMÍTÁS! ASUS TUF A15 FA507NV 15 notebook - R7 7735HS 32GB DDR5 512GB SSD 1TB SSD RTX 4060 6GB W
- Apple iPhone 16 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- Akció! Apple MacBook Pro 16 M4 Pro - M4 Pro 24GB 512GB SSD garanciával hibátlan működéssel
- Fujitsu USB Port Replicator PR09 docking station (1x5K vagy 2x4K felbontás) (DisplayLink)
- HP EliteBook 830 G8 i5-1135G7 16GB 256GB 1 év garancia
Állásajánlatok
Cég: FOTC
Város: Budapest