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/11 SimkoL válasza:
for i := 0 to 20 div 2 do WriteLn(i * 2 :3);
2/11 anonim válasza:
for i:=0 to 20-10 do begin
a:=pred(i*2+2-1);
writeln(a);
3/11 anonim válasza:
begin
for i := 0 to 20 div 20-i do
writeln(i*2:3);
end;
4/11 anonim válasza:
Az elöző előttinél boccs, vegyél fel egy "A" valtozót is.:-)
5/11 anonim válasza:
for i:=0 to 20 do begin; if odd(i+1) then writeln(i);end;
6/11 SimkoL válasza:
Így talán szebb: for i := 0 to 20 do if not Odd(i) then WriteLn(i:3);
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);
9/11 SimkoL válasza:
Egy ilyen korú kislánynak már ilyenkor aludni kellene :)
10/11 A kérdező kommentje:
Jm.Már megyek nemsoká,de a MusicTv-n ottragadtam.:))
2015. szept. 29. 00:16
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!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!