Kezdőoldal » Számítástechnika » Programozás » Turbo Pascalban segíteni?

Turbo Pascalban segíteni?

Figyelt kérdés

A feladat az lenne hogy 1-től 20-ig kéne egymás alá a számokat kiíratni de a 40.oszlopban. Én eddig jutottam:

program feladat;

uses crt;

var

i: integer;

begin

clrscr;

for i:=1 to 20 do

begin

gotoxy(1,40)

writeln(i);

end;

readln;

end.


2011. júl. 7. 19:16
 1/6 anonim ***** válasza:
A gotoxy(1,40) ne legyen a cikluson belül, akkor mindig visszamegy ugyanoda.
2011. júl. 7. 19:17
Hasznos számodra ez a válasz?
 2/6 anonim ***** válasza:
ja, 10 éve nem pascaloztam és remélhetőleg sose fogok, de a gotoxy sor paraméterének is az i változónak kell lennie, úgy lesznek egy másik oszlopban egymás alatt. szintaktikagilag meg ilyesmi nemtom jó e, szemantikailag kb ennyi
2011. júl. 7. 20:30
Hasznos számodra ez a válasz?
 3/6 anonim ***** válasza:

Ez lenne a megoldás:


uses crt;

var

i: integer;

begin

clrscr;

for i:=1 to 20 do

begin

gotoxy(40,i);

writeln(i);

end;

readln;

end.

2011. júl. 7. 21:15
Hasznos számodra ez a válasz?
 4/6 anonim ***** válasza:

Lehet gotoxy nélkül is:

uses crt;

var

i: integer;

begin

clrscr;

for i:=1 to 20 do

begin

writeln(i:40);

end;

readln;

end.

2011. júl. 7. 21:15
Hasznos számodra ez a válasz?
 5/6 A kérdező kommentje:
Köszönöm szépen mindenkinek!!!!
2011. júl. 7. 21:34
 6/6 anonim ***** válasza:

Szóval Lacika nem tudtad egyedül megcsinálni?

Szabó tanár úr...

2011. júl. 11. 11:01
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!