Kezdőoldal » Számítástechnika » Programozás » Hogy oldjam meg Free Pascalban...

Adamhu99 kérdése:

Hogy oldjam meg Free Pascalban? For ciklus?

Figyelt kérdés

Kaptunk egy csomó programozásos házit és itt elakadtam. Valaki tudna segíteni a hatványozásban? Még nem csináltunk hatványozást és ez elég nehéz egy csomó mindent próbáltam (neten is kerestem megoldást), de nem megy. A for ciklushoz (for to do)-hoz nem értek mert beteg voltam amikor suliban tanultuk. El tudná magyarázni nekem valaki, hogy mire jó a for ciklus? (suliban kérdeztem a többieket de ők sem tudják elmagyarázni hogy miért kell oda... csak annyit hogy kell, eredetileg forciklus nélkül csináltuk a programokat és ez most új/újabb). A programot le tudom írni csak valahogy ki kéne egészíteni.


program hatvanyozashazi;

uses crt;

var a,h,i:integer;

begin

clrscr;

write('A bekért szám: ');

readln(a);

write('A hatvány: ');

i:=1;

for 1 to h do

i:=i*a;

readkey;

end.



2015. szept. 15. 18:50
1 2 3 4 5
 41/45 tabaki ***** válasza:
De jó kis feladat, azért csak próbáld meg.
2015. szept. 18. 18:49
Hasznos számodra ez a válasz?
 42/45 A kérdező kommentje:

Jaj, ez is GotoXY-nal van csinálva, akkor ez sem lesz túl nehéz.

De előbb megírom a többi programozás házit (mert hétfőre már kell) és csak utána.

2015. szept. 18. 18:52
 43/45 SimkoL ***** válasza:
A szorzótáblához nem kell GotoXY, két ágymásba ágyazott for ciklus, ha színezni is akarod TextColor, ha csicsázni is akarod if, de én inkább a TextAttr változót használtam 'színezésre'.
2015. szept. 18. 19:16
Hasznos számodra ez a válasz?
 44/45 A kérdező kommentje:
Azt nem tudtam hogy 2 egymásba ágyazott for ciklusokkal (ilyet még nem fogok tudni csinálni hiba nélkül) is meg lehet csinálni, a TextAttr változót nem ismerem.
2015. szept. 18. 19:27
 45/45 SimkoL ***** válasza:

Öreg, lusta programozók :) használják(ták), egyszerre 'letudod' a TextBackGround és a TectColor eljárásokat.


uses Crt;


begin

TextAttr := $2F; // byte, hexadecimálisan érdemes megadni az első jegy a háttér a második a betűszín

WriteLn('Zöld háttér (2 = 2), fehér betű(F = 15), a $ jel jelöli, hogy hexadecimális számként kell kezelni');

ReadLn;

end.

2015. szept. 18. 19:46
Hasznos számodra ez a válasz?
1 2 3 4 5

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!