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:celloeveszet [2017/06/19 10:06]
beistvan létrehozva
+++ inf-prog-fszi:celloeveszet [2017/06/19 10:06] (aktuális)
beistvan létrehozva
@@ Sor 1: / Sor 1: @@
+====== Céllövészet ======
+<code pascal celloveszet.pas>
+program celloveszet;   {2014.maj.ang.}
+var i,n,j,k,max,be,db,maxi:integer;
+    t:text;
+    sor:string[40];
+    lov:array[1..100] of string[40];
+//4.feladathoz
+function loertek(sor:string):integer;
+var aktpont,ertek,i:integer;
+begin
+  aktpont:=20;
+  ertek:=0;
+  for i:=1 to length(sor) do
+    if (aktpont>0)and(sor[i]='-') then
+      aktpont:=aktpont-1
+    else
+      ertek:=ertek+aktpont;
+  loertek:=ertek;
+end;
+begin
+writeln('1.feladat');
+  assign(t,'verseny.txt');
+  reset(t);
+  readln(t,n);
+  i:=1;
+  while not eof(t) do
+  begin
+    readln(t,lov[i]);
+    inc(i);
+  end;
+  close(t);
+  //n:=i-1;
+  writeln('az allomanybol beolvastam ',n,' sort');
+  //for i:=1 to n do
+  //  writeln(lov[i]);
+writeln('2.feladat');
+  for i:=1 to n do
+  begin
+      // hol van az elso +
+      k:=1;
+    while (k<=length(lov[i]))do begin
+      while (k<=length(lov[i]))and(lov[i][k]<>'+')do
+        inc(k);
+      if k<=length(lov[i]) then
+      begin
+      //megszamoljuk hogy hany + van egymas utan
+        inc(k);
+        j:=1;
+        while (k<=length(lov[i]))and(lov[i][k]='+')do
+        begin
+          inc(k);
+          inc(j);
+        end;
+        if j>=2 then writeln(i,'. ',j,' db',' a ',k-j,'-tol');
+      end;
+    end;
+  end;
+writeln('3.feladat');
+  max:=length(lov[1]);
+  for i:=1 to n do
+    if max<length(lov[i]) then
+    begin
+      max:=length(lov[i]);
+      j:=i;
+    end;
+  writeln(j,'.  ',max);
+writeln('4.feladat');
+  writeln('pl. 12.: ',loertek(lov[12]));
+  writeln('pl. 3.: ',loertek(lov[3]));
+writeln('5.feladat');
+  write('adjon meg egy versenyzosorszamot ');
+  readln(be);
+  writeln('5.a)');
+  for i:=1 to length(lov[be])do
+    if lov[be][i]='+' then write(i,' ');
+  writeln;
+  db:=0;
+  writeln('5.b)');
+  for i:=1 to length(lov[be])do
+    if lov[be][i]='+' then inc(db);
+  writeln(db,' szer talalta el');
+  writeln('5.c)');
+  for i:=length(lov[be]) downto 2  do
+  begin
+    sor:='';
+    for j:=1 to i do
+      sor:=sor+'+';
+    //writeln(sor,' ' ,length(sor));
+    //writeln(i, '. ',pos(sor,lov[be]));
+    if pos(sor,lov[be])>0 then begin maxi:=i; break; end;
+  end;
+  writeln('leghosszabb hibatlan soroszat ',maxi);
+  writeln('5.d)');
+  writeln('elerte pontok ',loertek(lov[be]));
+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