Kezdőoldal » Számítástechnika » Programozás » Egy kis egyszeru Pascal....

Egy kis egyszeru Pascal. Adott egy n szam, irjuk fel az osszes lehetseges modon egymas utani szamok osszegekent. Valaki?

Figyelt kérdés

Adott egy n szam, irjuk fel az osszes lehetseges modon egymas utani szamok osszegekent.

Pl. n=9 2+3+4 es 4+5

Fontos: For ciklussal kene megoldni a feladatot.

Elore is koszonom.


2011. nov. 24. 15:30
 1/7 anonim ***** válasza:
Ez házi?
2011. nov. 24. 17:18
Hasznos számodra ez a válasz?
 2/7 zsomkovacs ***** válasza:

Program netrolletoltotthazi;

Uses crt;

Var

i,j,n,c: Longint;


Begin

Clrscr;

n:=9;

For i:=2 To Trunc((Sqrt(1+8*c)-1)/2) Do

If (2*n-i*(i+1)) Mod (2*i) = 0 Then

Begin

c:=Round(n/i-(i-1)/2);

For j:=0 To i-1 Do

Begin

Write(c+j);

Write('+');

End;

GotoXY(WhereX-1, WhereY);

Write(' ');

WriteLn;

End;

ReadLn;

End.

2011. nov. 24. 17:51
Hasznos számodra ez a válasz?
 3/7 zsomkovacs ***** válasza:
Az első for ciklusban sqrt(8*n+1) van.
2011. nov. 24. 17:53
Hasznos számodra ez a válasz?
 4/7 A kérdező kommentje:

Ezt nem epp igy kellet volna, az n-t az beolvasni kene es az alapjan kiiratni...meg kulomben itt meg sok olyan elem van a programban, amit meg nem tanultunk.


De azert koszonom.

2011. nov. 24. 19:02
 5/7 anonim ***** válasza:

zsomkovacs

Nem jó. Egy példa 7

3+4

felírható így is 1+2+4, de ezt nem írja ki.

2011. nov. 24. 19:34
Hasznos számodra ez a válasz?
 6/7 zsomkovacs ***** válasza:
De, jó. Az 1,2,4 nem egymást követő számok.
2011. nov. 24. 20:20
Hasznos számodra ez a válasz?
 7/7 anonim ***** válasza:

20:20

Én értelmeztem félre a feladatot.

2011. nov. 24. 20:47
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:




Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!