Kundenzátor

Évike! Itt vannak a házik:

program sorozat;
uses crt;
var a,b:array[1..100] of integer;
    i,n:integer;
begin
   clrscr;
   write('Mekkorák legyenek a számsorozatok? ');
   repeat
      readln(n);
      if n<1 then
         write('Hibás érték. Kérem adja meg mégegyszer: ');
   until n>0;
   writeln('Az "a" sorozat beolvasása');
   for i:=1 to n do
      begin
      write('Kérem az "a" sorozat ',i,'. elemét: ');
      readln(a[i]);
      end;
   writeln('A "b" sorozat beolvasása');
   for i:=1 to n do
      begin
      write('Kérem a "b" sorozat ',i,'. elemét: ');
      readln(b[i]);
      end;
   clrscr;
   writeln('A következő indexek esetén a[i]<=b[i]: ');
   for i:=1 to n do
       if a[i]<=b[i] then
          writeln(i,'.   ',a[i],'<=',b[i]);
   readln;
end.

program fibonacci;
uses crt;
var f:array[1..100] of longint;
    i,n:longint;
begin
   clrscr;
   f[1]:=1;
   f[2]:=1;
   write('Mekkora legyen a vizsgálati határérték? ');
   repeat
      readln(n);
      if n<1 then
         write('Hibás érték. Kérem adja meg újból: ');
   until n>0;
   for i:=1 to 2 do
      writeln(i,'.: ',f[i]);
   while f[i]<n do
      begin
      inc(i);
      f[i]:=f[i-1]+f[i-2];
      if f[i]<n then
         writeln(i,'.: ',f[i]);
      end;
   readln;
end.
 

A második program utolsó (elöltesztelős) while-do ciklusába nem tudtam értelmi feltételt adni így késő este, így egy if teszterrel oldottam meg a vizsgálati határérték betartását. Ha (esetleg) eszedbe jut valami jobb (úgyse...), akkor javítsd ki.

Ejj, Évike, nagyot csalódtam tebenned. Hónapok óta "programozunk", legalábbis amikor a buszon találkozunk. Bizonyára úgy gondolod, hogy ez nem egy nagy tárgy, mert a Kun majd úgyis megírja helyetted a Zh-t, a házikat meg miegymást. De tévedsz... Ez is egy olyan tárgy, ami valószínűleg egy tucattárgy, viszont elsajátíthatod vele a jó algoritmuskészítő készségedet. Azzal, hogy hetente egy-két folyamatábrát felírsz, ami baziegyszerű, nem fogod tudni megcsinálni belőle a Zh-t. Segíteni meg ezekután bizonyosan nem fogok.

Ma is készültem feladatokkal, igyekeztem időben befejezni a dolgomat, hogy elmenjek hozzád és progozzunk. De nem... Tudom, hogy késtem másfél órát, de mint korábban említettem, dolgom volt. Tudom, hogy nem laksz messze, de ez akkor is... Elmegyek hozzád, erre anyád világosít fel arról, hogy lázas beteg vagy. Bazeg. Tudom, a betegség lehet durva, de legalább vennéd fel a telefonod! Visszahívni smafu, de legalább tisztelj meg annyival, hogy küldesz egy e-mailt, hogy "Beteg vagyok, majd máskor". Megspóroltál volna 45 percet a feladatsor legyártására, illetve 25 percet az oda-vissza útra. Külön köszönöm.

Tisztelettel voltam: Kundenzátor.

Évikeee! Itt van a házid:

program kozott;
uses crt;
var a,b:array[1..100] of integer;
    i,j,c,n:integer;
begin
      clrscr;
      write('Mekkorák legyenek a számsorozatok? '); readln(n);
      for i:=1 to n do begin
         write('Kérem az a(',i,') elemet: '); readln(a[i]); end;
      for i:=1 to n do begin
         write('Kérem a b(',i,') elemet: '); readln(b[i]); end;
      write('Kérem a "c" sz mot: ');  readln(c);
      clrscr;
      for i:=1 to n do if (a[i]<c) and (b[i]>c) then writeln(i);
      readln;
end.

program vissza;
uses crt;
var i,n:integer;
    a:array[1..100] of integer;
    t:boolean;
begin
      clrscr; t:=true;
      write('Mekkora legyen a sorozat? '); readln(n);
      for i:=1 to n do begin
         write('Kérem az a(',i,') elemet: '); readln(a[i]); end;
      for i:=1 to n do
         if a[i]<>a[n+1-i] then t:=false;
      if t=true then writeln('Visszafelé is ugyanaz') else
         writeln('Visszafelé nem ugyanaz'); readln;
end.

program darab;
uses crt;
var i,n,poz,neg,null:integer;
    a:array[1..100] of integer;
begin
      clrscr; poz:=0; neg:=0; null:=0;
      write('Mekkora legyen a sorozat? '); readln(n);
      for i:=1 to n do begin
         write('Kérem az a(',i,') elemet: '); readln(a[i]); end;
      for i:=1 to n do
          if a[i]<0 then inc(neg,1) else
                if a[i]>0 then inc(poz,1) else
                     inc(null,1);
      writeln('Negatív: ',neg);
      writeln('Nulla: ',null);
      writeln('Pozitív: ',poz);
      readln;
end.

program raktar;
uses crt;
var i,n:integer; ossz:longint;
    a,b:array[1..100] of integer;
begin
      clrscr; ossz:=0;
      write('Hány terméket regisztráljunk? '); readln(n);
      for i:=1 to n do begin
         write('Kérem a(z) ',i,'. termék mennyiségét: '); readln(a[i]);
         write('Kérem a(z) ',i,'. termék egységárát: '); readln(b[i]); writeln; end;
      for i:=1 to n do ossz:=ossz+(a[i]*b[i]);
      writeln('Összérték: ',ossz,'.-'); readln;
end.

Sajnos az elmúlt napokban ismételten nem tudtam annyi figyelmet szentelni a blgomnak, mint azt kellett volna. Na nem mintha valaki is olvasná, max. 3 fő.

Kicsit elfoglalt voltam, mert a héten ismételten beszereztem elhagyott okmányaimat, illetve lelkiekben felkészültem egy -számomra- nem szokványos rendőrségi látogatásra. Emellett még számos szaktársamnak segítettem Analízisből, hiszen nemsokára itt a ZH belőle. Szinyei is tegnap hívott, hogy tudok-e segíteni matekból. Mint megtudtam, ma 2-kor írna belőle. Valahogy nem értem. Tavalyelőtt is az utolsó percekben hívott, de az informatika volt, nem pedig matematika. Sajnos most rá is fázott, mert Pécsen voltam, nem pedig itthon...

Úgy érzem, hogy Évike is pont leszarja a programozást, aztán meg majd ZH előtt ő is jönne, hogy "Figyu Kun, segítenél?". Akkor sem fogok ráérni, mert inkább a herémet vakarnám, mint az utolsó napokban magyaráznám az "ord" függvény értelmét...

Vegyétek példaként csoporttársamat, aki egy hónappal előte szólt, már 2 hete matekozunk. Meg is lett az eredménye, már lassan jobban nyomja, mint én...