-
Fototrend

Ú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!
- Macbook Pro 13" A1278 2011 eleje
- Patriot Viper Venom 2x16GB DDR5 6400MHz CL32 Eladó!
- iMac 21,5" 4K 2019 A2116 i7 3.2/16/512/RP555X + Apple Bill/Trackpad (Dobozos)
- Patriot Viper Venom 2x16GB DDR5 6000MHz CL30 - Új, Bontatlan, Gari 2028.10.15. -ig -
- Patriot Viper Venom 2x16GB DDR5 7000MHz CL32 - Új, Bontatlan, Gari 2035.09.08. -ig -
- Telefon felvásárlás!! Honor 90 Lite/Honor 90/Honor Magic5 Lite/Honor Magic6 Lite/Honor Magic5 Pro
- GYÖNYÖRŰ iPhone 13 Mini 128GB Pink-1 ÉV GARANCIA -Kártyafüggetlen, MS4173, 94% Akkumulátor
- HP EliteBook 850 G7 (15.6") i7-10610U - Garancia, Akció!
- KÉSZLETKISÖPRÉSI ULTRAAKCIÓ!!! SPACE BLACK MacBook Pro 14" M4 10C/10G 16GB 512GB Gar!
- Bomba ár! Lenovo ThinkPad L480 - i5-8G I 16-24GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gar
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest




