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.

Híres fizikusok fogócskáznak a mennyben. Éppen Einstein számol. Amikor eljutott százig, megfordul, és azt látja, hogy Newton mögötte áll, egy földre festett négyzetben. Odamegy hozzá, majd megfogja.
- Ha! Megvagy, Newton!
- Tulajdonképpen én egy Newton vagyok egy négyzetméteren. Szóval Pascalt fogtad meg.