Tudtok leckében segíteni?
A leckém a következő:
-Kérjünk be 10 egész számot a felhasználótól, és tároljuk tömbben.
-Írjuk ki memoboxba a tömb tartalmát!
-Írjuk ki memoboxba csak a páros számokat a tömbbol!
-Kérjünk be egy sorszámot felhasználótól, majd írassuk ki a tömb annyiadik elemét!
válasza: válasza:Az array elkészítése megtörtént. A kérdésem az lenne, hogy hogyan tudnám bekérni az adatokat?
Én ezt írtam az adatok bekéréséhez de kb. 3 hibát észlel:
procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
For x:=1 to 10 do
begin
i[]=(Inputbox('','Kérlek add meg a(z)'+'IntToStr(i)'+'Számot',''))
end;
end.
válasza: válasza:procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
a: array[1..10] of Integer;
s: String;
n: Integer;
c: Integer;
begin
for i := 1 to 10 do
begin
repeat
s := InputBox('', 'Kérlek add meg a(z) '+IntToStr(i)+'. számot', '');
Val(s, n, c);
until (c = 0);
a[i] := n;
end;
for i := 1 to 10 do
begin
Memo1.Lines.Add(IntToStr(a[i]));
end;
for i := 1 to 10 do
begin
if ((a[i] mod 2) = 0) then
Memo1.Lines.Add(IntToStr(a[i]));
end;
repeat
s := InputBox('', 'Adjon meg egy sorszámot (1-10)', '');
Val(s, n, c);
until ((c = 0) and (n >= 1) and (n <= 10)) ;
Memo1.Lines.Add(Format('A %d. szám: %d', [n, a[n]]));
end;
válasza: válasza:#8: Object Pascal
A valtozok elnevezese nem kovetendo pelda:)
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!