Új hozzászólás Aktív témák

• #2220 [HUN]Zolee őstag zvaragabor #2217

  Új Válasz 2008-04-29 10:22:11 #2220

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  [HUN]Zolee

  őstag

  válasz zvaragabor #2217 üzenetére

  Akkor nézd meg így.
  /nincs pascalom, csak itt írom meg, ezért lehet hibás /

  program osztaly;
  
  uses wincrt;
  
  var vektor:array[1..10] of integer;
  aktual,ossz,kor,i,felettidb:byte;
  atlag:real;
  
  begin
  clrscr;
  
  write('Kérem az aktuális évszámot :');
  readln(aktual);
  
  writeln('Kérem a tíz tanuló születési évét:');
  for i:=1 to 10 do
  
  readln(vektor[i]);
  
  
  felettidb:=0;
  ossz:=0;
  for i:=1 to 10 do
  begin
  
  if (aktual-vektor[i]>=18) then felettidb:=felettidb+1;
  
  ossz:=ossz+(aktual-vektor[i]);
  
  end;
  atlag:=ossz/10;
  
  write('18 ev felettiek szama: ',felettidb);
  writeln('A tanulók átlag életkora: ',atlag);
  
  end.

• #2218 cucka addikt zvaragabor #2217

  Új Válasz 2008-04-28 22:20:03 #2218

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cucka

  addikt

  válasz zvaragabor #2217 üzenetére

  a for i:=1 to 10 ciklus belsejében elindítani egy for i:=1 to 10 ciklust az helyből rossz.

  A program lényegi része ennyi. Mi általános iskola nyolcadik osztályában csináltunk ennyire egyszerű feladatokat. Igen, jól látod, egyáltalán nem kell semmilyen tömbben eltárolni a sorozatban beérkező számokat ahhoz, hogy összeadd őket.

  writeln('Kérem a tíz tanuló születési évét:');
  for i:=1 to 10 do
  begin
  readln(szul_evszam);
  ossz:=ossz+10;
  if (aktual-szul_evszam>18) then inc(felettidb);
  end;
  write('18 even feluliek: ',felettidb);
  write('atlag: ',ossz/10;

  mod.
  még egy javaslat: ha nem szeretnéd magad szivatni a jövőben (amikor nem 13 sor lesz a program), akkor igyekezz normális változóneveket kitalálni. Mindent nevezz el arról, amilyen adat van benne, pl. a vektort ne vektornak hívd, mert az nem mond semmit, helyette lehet a neve eletkorok, az aktualis évszámot hívhatod évszámnak, stb.

Új hozzászólás Aktív témák