Hirdetés
-
PROHARDVER!

Új hozzászólás Aktív témák
-
amargo
addikt
hi
C ben megcsináltam, de pascalra nem tudom.. de ebből már kilehet bogozni
de azt nem tudom, hogy pl, ha rajta hagyod a kezed a spacen akkor mit csináljon a program, de ez itt a dupla és akárhány spacét is csak 1nek veszi. a mondat elejét se érdemes spacevel kezdeni ezért azt se számolja.
amargo
char vmi[40]; //ez tetszoleges lehet.. de file bol is belehet olvasni és utána tömbe rakni vagy közvetlen..
int er; //ez a vegeredmény tárolja
void main(void)
{
clrscr();//ez csak képernyotorles
printf(''bevitel : '');
gets(vmi); //itt tárolja el azt amit bevittél
for(int i=0;i<=sizeof(vmi);i++) //ez a magja, lényegiben a tömbön végig fut
{
if(vmi==32 && vmi[i+1]!=NULL) //itt ellenörzöm a karaktert és, hogy létezik e leütés
{
if(vmi[i+1]!=32)//itt végzek még egy ellenörzést, hogy a space után már nem állhat még egy..
er++;
}
}
if(vmi[0]==32) //ez az eleje space lett kezdve akkor azt kivonja.
er=er-1;
printf(''elvalaszto : %d'' ,er); //kiírja a végeredményt
} -
amargo
addikt
hi!
a program elvét letudom írni, de pascalban nem tudom.
a billről bevitt adatot, gondolom tömbe tárolod. ezzen a tömbön futsz végig és a space karaktert figyeled.. (C-ben: ' ', de ascii=32), és amint talál egy spacet akkor azt 1nek veszi.. persze utána nem állhat még egy space.
amargo -
KovacsUr
addikt
Ha jól fogtam fel,
[Szerkesztve: Nem jó, a fórummotor nem szereti a kódot. Inkább elküldtem mailben
]
De most mi lesz? Bevágod a programlistát?
Meg kellene érteni, mit is csinál a program, és legalább annyira megbarátkozni a Pascal utasításrendszerével, hogy valami ilyesmit le tudj kódolni, ha már a fejedben megvan az algoritmus...
----------------
Szerkesztve (21:44): Visszadobta a freemail a levelet, mondván, tele a postaládád... Így megy ez.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Újszerű Apple Macbook Air 13 - M2 - 8/256GB (MLY33MG/A) éjfekete - 141 Ciklus - 1+ év garancia - HUN
- Nintendo Switch Oled-ek Picofly chippel okosított Dual Boot Hekate Tinfoil CFW RP2040
- Iphone 15 pro - Natural 128GB - Karcmentes, 90% akku
- 2021 MacBook Pro 14 16GB RAM 512GB SSD - Magyar Bill - 97% akku 100ciklus
- !!!Csapj le rá, mielőtt túl késő!!! Új (bontatlan) 1024 GB/1 TB OLED Steam Deck eladó
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Macbook Pro M1 Pro 32/512GB // Számla // Garancia //
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Xbox Series X /// 2 TB Model! // Számla + 1 év garancia
- Apple iPhone 13 128GB / 12 hónap jótállással!
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi





