Különbségek

A kiválasztott változat és az aktuális verzió közötti különbségek a következők.

--- inf-prog-fszi:kivalasztas_tetele [2017/06/21 12:31]
beistvan
+++ inf-prog-fszi:kivalasztas_tetele [2017/06/25 14:35] (aktuális)
beistvan
@@ Sor 1: / Sor 1: @@
+====== Kiválasztás tétele ======
+Adott egy N elemű sorozat, egy - a sorozat elemein értelmezett - T tulajdonság, és tudjuk, hogy a sorozatban van legalább egy T tulajdonságú elem. A feladat ezen elem sorszámának meghatározása.
+<code bash kivalasztas.txt>
+Eljárás:
+    I:=1
+    Ciklus amíg A(I) nem T tulajdonságú
+        I:=I+1
+    Ciklus vége
+    SORSZ:=I
+Eljárás vége
+</code>
+Pascal forráskód
+Az első elem kiválasztása a tömbből.
+<code pascal kivalasztas.pas>
+program kivalasztas;
+const n = 10;
+var a:array [1..n] of integer;
+    i, sorsz: integer;
+begin
+  randomize;
+  //a tömb elkészítése
+  for i:=1 to n do
+  begin
+    a[i]:=random(8);
+    write(a[i], ' ');
+  end;
+  writeln;
+  //mi az 5-ös sorszáma?
+  i:=1;
+  while (i<=n) and (a[i]<>5) do
+    i:=i+1;
+  sorsz:= i;
+  write('Az 5-os elem sorszama: ',sorsz);
+  readln;
+end.
+</code>
+[[https://ideone.com/1Li1mg | A <kivalasztas.pas> forráskódjának futtatása online ]]
+Az utolsó elem kiválasztása a tömbből.
+<code pascal kivalasztas_utolso.pas>
+program kivalasztas_utolso;
+const n = 10;
+var a:array [1..n] of integer;
+    i, sorsz: integer;
+begin
+  randomize;
+  //a tömb elkészítése
+  for i:=1 to n do
+  begin
+    a[i]:=random(8);
+    write(a[i], ' ');
+  end;
+  writeln;
+  //mi az utolsó 5-ös sorszáma?
+  for i:=1 to n do
+    if a[i]=5 then
+      sorsz:= i;
+  write('Az utolso 5-os elem sorszama: ', sorsz);
+  readln;
+end.
+</code>
+[[https://ideone.com/X9dDaw | A <kivalasztas_utolso.pas> forráskódjának futtatása online ]]
+Órai gyakorlat
+<code pascal kivalasztas_elso.pas>
+program kivalasztas_elso;
+const n=8;
+var i, sorszam : integer;
+    a: array [1..n] of integer;
+begin
+  writeln('Kerem a tomb elemeit: ');
+  for i:=1 to n do
+  begin
+    write('a[',i,'] = '); readln(a[i]);
+  end;
+  i:=1;
+  while a[i]<>5 do //a T tulajdonsag: a tomb egyik eleme egyenlõ 5-tel
+    inc(i); //i:=i+1;
+  sorszam:=i;
+  write('Az (elso) 5-os sorszama a tombben: ', sorszam);
+  readln;
+end.
+</code>
+<code pascal kivalasztas_utolso.pas>
+program kivalasztas_utolso;
+const n=8;
+var i, sorszam : integer;
+    a: array [1..n] of integer;
+begin
+  writeln('Kerem a tomb elemeit: ');
+  for i:=1 to n do
+  begin
+    write('a[',i,'] = '); readln(a[i]);
+  end;
+  for i:=1 to n do //a T tulajdonsag: a tomb egyik eleme egyenlõ 5-tel
+    if a[i]=5 then sorszam:=i;
+  write('Az (utolso) 5-os sorszama a tombben: ', sorszam);
+  readln;
+end.
+</code>

II. RF KMF DokuWiki

Felhasználói eszközök

Eszközök a webhelyen

Különbségek

Eszközök az oldalon