Kezdőoldal » Számítástechnika » Programozás » Hányféle képen és hogyan...

Hányféle képen és hogyan oldható meg ez a feladat Pascal nyelven?

Figyelt kérdés

Adott egy for ciklus, amiben virtuálisan egy basic nyelvből ismert step funkciót kell elhelyezni 2-es lépésekkel. Kizárólag csak a for ciklusban történő megoldások érdekelnének és legalább 2 megoldásra van szükségem a feladathoz! Köcce.:)



Tehát "10:for i=0 to 20 step 2 then

20:print i"

30:next i"


Ezt kellene leutánozni voltaképpen pascalban, hogy ott is a helyes eredményt adja vissza.While ciklussal megoldottam,de for ciklussal nem sikerült eddig sajna. Segítenétek?


i:=0;

while i <= 20 do begin

writeln(i);

Inc(i, 2);


(14/L)



2015. szept. 28. 23:08
1 2
 1/11 SimkoL ***** válasza:
for i := 0 to 20 div 2 do WriteLn(i * 2 :3);
2015. szept. 28. 23:37
Hasznos számodra ez a válasz?
 2/11 anonim ***** válasza:
31%

for i:=0 to 20-10 do begin

a:=pred(i*2+2-1);

writeln(a);

2015. szept. 28. 23:43
Hasznos számodra ez a válasz?
 3/11 anonim ***** válasza:
30%

begin

for i := 0 to 20 div 20-i do

writeln(i*2:3);

end;

2015. szept. 28. 23:54
Hasznos számodra ez a válasz?
 4/11 anonim ***** válasza:
31%
Az elöző előttinél boccs, vegyél fel egy "A" valtozót is.:-)
2015. szept. 28. 23:55
Hasznos számodra ez a válasz?
 5/11 anonim ***** válasza:
for i:=0 to 20 do begin; if odd(i+1) then writeln(i);end;
2015. szept. 28. 23:59
Hasznos számodra ez a válasz?
 6/11 SimkoL ***** válasza:
Így talán szebb: for i := 0 to 20 do if not Odd(i) then WriteLn(i:3);
2015. szept. 29. 00:03
Hasznos számodra ez a válasz?
 7/11 A kérdező kommentje:
Azta!:)) Nagyon köszike mindenkinek!!Én hiába keresgéltem megoldások után a netten,semmit sem találtam sajnamajna erről.Viszont ugyanakkor zagyvaságokat annál többet.Pusszka!:)
2015. szept. 29. 00:07
 8/11 SimkoL ***** válasza:
Na még egy utolsó: for i := 0 to 20 do if i mod 2 = 0 then WriteLn(i:3);
2015. szept. 29. 00:11
Hasznos számodra ez a válasz?
 9/11 SimkoL ***** válasza:
Egy ilyen korú kislánynak már ilyenkor aludni kellene :)
2015. szept. 29. 00:14
Hasznos számodra ez a válasz?
 10/11 A kérdező kommentje:
Jm.Már megyek nemsoká,de a MusicTv-n ottragadtam.:))
2015. szept. 29. 00:16
1 2

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!