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

• #2162 RoyalFlush őstag zvaragabor #2159

  Új Válasz 2008-03-31 23:01:29 #2162

  Ú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

  

  RoyalFlush

  őstag

  válasz zvaragabor #2159 üzenetére

  A kód (bár lehet kissé túlbonyolítottam - vagy 6 éve nem programoztam Pascalban - ettől függetlenül szerintem műxik):

  program szamok;
  uses crt;
  
  var
  szam, n, db, osszeg, legkisebb: integer;
  atlag: real;
  
  begin
  clrscr;
  
  szam := 0;
  n := 0;
  db := 0;
  osszeg := 0;
  legkisebb := 0;
  
  repeat
  write('Kerem a szamot: '); readln(szam);
  osszeg := osszeg + szam;
  if (n = 0) then
  begin
  legkisebb := szam;
  db := 1;
  end;
  if (szam <> 0) and (n > 0) then
  begin
  if (szam < legkisebb) then
  begin
  legkisebb := szam;
  db := n + 1;
  end;
  end;
  n := n + 1;
  until (szam = 0);
  
  writeln;
  writeln('Szamok osszege: ',osszeg);
  writeln('Legkisebb a(z) ',legkisebb,', a(z) ',db,'. bekert szam volt.');
  if (n <> 1) then
  begin
  atlag := osszeg / (n - 1);
  writeln('Atlag: ',atlag);
  end;
  if (n = 1) then writeln('Atlag: Nem ertelmezheto!');
  readln;
  end.

• #2161 [HUN]Zolee őstag zvaragabor #2159

  Új Válasz 2008-03-31 22:41:11 #2161

  Ú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 #2159 üzenetére

  Az until és a db megnövelése közé.
  Lehet nem pontosa a kód, mert már 1-2 éve nem láttam pascal-t
  Amúgy ebbe a felállásba ahogy a txt van az átlag változód feleslegessé vált

  Hibásan számolja az átlagot, ez így ki, mert ha 0-t ütsz akkor is megnöveli a db számot 1-el.

  repeat
  
  writeln('Kérem a számot: ');
  read(n);
  if n<>0 then
  begin
  
  osszeg:=osszeg+n;
  db:=db+1;
  if legkissebb>n then
  begin
  
  legkissebb=n ;
  legkissebb_db=db;
  
  end;
  
  end;
  until n=0;

  Valami ilyesmire gondoltam.

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