szám bekérés, véletlenszámgenerálás stb

Kylix/Pascal

Üdv emberek
Találtam egy számomra elgondolkodtató feladatot.
Gondoltam megosztom veletek, mert én nem sokra jutok vele.

1. Kérjen be egy számot 30 és 40 közt (gondolom ezt readln el kell + forral)

2. Generáljon véletlenszerűen egy számot 40 és 50 közt.

3. Ki íratni a páros számokat (gondolom ezt meg writeln el)

Én nem sokra jutottam vele sajnos:(

Ui: nem tudtok pár linket dobni ahol van sokminden pascalról?

  • 7323 megtekintés

( pelz | 2008. 06. 23., h – 22:59 )


program input_random_evenoutput;

var
  inp : integer;
  rnd : integer;

begin
  repeat
    write('Adj meg egy szamot 30 es 40 koezoett! ');
    readln(inp);
  until (inp >= 30) and (inp <= 40);

  randomize;
  rnd := random(11) + 40;

  if (inp mod 2) = 0 then begin
    writeln('A megadott szam paros. Nevezetesen: ', inp);
  end;
  if (rnd mod 2) = 0 then begin
    writeln('A veletlen szam paros. Nevezetesen: ', rnd);
  end;
end.

Üdv
Ezt is köszönöm szépen.
Az ebookz.hu -n is szedegettem le elég sok doksit, és tanulmányozgatom.
Elméletileg jövőre érettségizek infóból emelt szinten és ahhoz kell ez a sok cuccos.
Bár a tanárnak mondtam én nem programozónak akarok majd menni hanem inkább érettségi után rendszerinfósnak:)
Eleve furcsálom azt hogy én amikor annak idején 2-3 éve Szaközépiskolában voltam 11. es gazdasági infó szakon ( mint most ) akkor programozásra jegyet se kaptunk de nézegettük...
Aztán 3 év alatt elvégeztem 2 szakmát amihez nem kell érettségi, de most kezdek rájönni, hogy az én világom nem a klímaszerelés, meg nem is az asztalosság...
Egy szerencsém hogy magántanulóként bennt maradtam suliban és most év végén itt voltak / vannak a vizsgák, és a tanárok nagy része is segítőkész próbált lenni, + magolok, tanulgatok szépen, és remélem szeptemberben jön a 4. ik...:)

Szerintem mindkét szakmából kiválóan lehet keresni. Sőt van egy asztalos ismerősom, aki csodálatos munkákat csinál. Ő nagyon élvezi az alkotás élményét.
Attól függ, hogy éled meg a szakmád. Lehet nyűgnek felfogni a munkát, de lehet kalandnak, élménynek, hivatásnak. Van aki soha nem tanulja meg szeretni a munkát.