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

• #2234 zvaragabor senior tag

  Új Válasz 2008-05-12 17:45:20 #2234

  Ú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

  

  zvaragabor

  senior tag

  #2220 - Így sem okés valami az eredményekkel.
  #2218 - Igen, tömbben kell megoldani, azt vesszük.

  Bocsi, hogy most válaszoltam, idáig volt egy pár hét szünet, és nem kellett vele foglalkozni.

• #2217 zvaragabor senior tag zvaragabor #2216

  Új Válasz 2008-04-28 21:40:08 #2217

  Ú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

  

  zvaragabor

  senior tag

  válasz zvaragabor #2216 üzenetére

  Ezt megoldottam. Valamint a felettiek meghatározásánál volt még gond.Ügyküdtem, itt tartok:

  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;
  atlag:=0;
  for i:=1 to 10 do
  begin
  
  if (aktual-vektor[i]>=18) then felettidb:=felettidb+1;
  
  ossz:=0;
  for i:=1 to 10 do
  begin
  vektor[kor]:=aktual-vektor[i];
  ossz:=ossz+vektor[kor];
  
  end;
  
  end;
  atlag:=ossz/10;
  
  write('18 ev felettiek szama: ',felettidb);
  writeln('A tanulók átlag életkora: ',atlag);
  
  end.

  Érdekes eredményeket kapok.

• #2216 zvaragabor senior tag [HUN]Zolee #2215

  Új Válasz 2008-04-28 21:15:35 #2216

  Ú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

  

  zvaragabor

  senior tag

  válasz [HUN]Zolee #2215 üzenetére

  atlag:=0; sornál ír ki hibát.

• #2214 zvaragabor senior tag

  Új Válasz 2008-04-28 20:38:03 #2214

  Ú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

  

  zvaragabor

  senior tag

  Üdv. Holnapra kellene házit csinálnom. Bekérem az aktuál évszámot, majd tömbbe bekérek 10 tanuló születési évszámát. Ki meg hogy hány 18 fölötti van, és az átlag életkort. Itt tartok:

  program osztaly;
  
  uses wincrt;
  
  var vektor:array[1..10] of integer;
  aktual,i,feletti,atlag:integer;
  
  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]);
  
  
  feletti:=0;
  for i:=1 to 10 do
  
  if (aktual-vektor[i]>=18)
  then (vektor[i]=feletti);
  
  begin
  feletti:=feletti+1;
  end;
  for i:=1 to 10 do
  
  writeln(feletti);
  
  end.

  Tudom, elég hiányos, és hibás bőven. Még csak most kezdtük a tömböket. Igazából a változókat nem értem, hogy mikor, mit, miért és mire kell állítanom, ha tömböket kezelek.

• #2180 zvaragabor senior tag RoyalFlush #2178

  Új Válasz 2008-04-02 20:18:03 #2180

  Ú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

  

  zvaragabor

  senior tag

  válasz RoyalFlush #2178 üzenetére

  Jah értem. Megnézem akkor a kódokat. Köszi.

• #2177 zvaragabor senior tag RoyalFlush #2176

  Új Válasz 2008-04-02 18:08:09 #2177

  Ú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

  

  zvaragabor

  senior tag

  válasz RoyalFlush #2176 üzenetére

  Erre gondolsz?
  "Mondjuk illett volna, ha már azt találta ki, hogy 0 megadását követően lépjen ki a program"

  Mert még nem vettünk olyat, hogy kilép egy adott valaminél.

• #2175 zvaragabor senior tag

  Új Válasz 2008-04-02 15:09:09 #2175

  Ú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

  

  zvaragabor

  senior tag

  Igen, ismert hiba volt a 0-val való művelet a tanár részéről is, de azt mondta, hogy jól van ez egyenlőre. Azt adta házinak, hogy oldjuk meg ezt a hibát.

• #2167 zvaragabor senior tag

  Új Válasz 2008-04-01 19:25:21 #2167

  Ú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

  

  zvaragabor

  senior tag

  Nah megjöttem, a program házi volt, mára kellett, tegnap meg már feküdtem, mire jöttek az újabb segítségek. #2613 volt a legközelebb az elképzeléshez. Amúgy ezt az alsó vonalat nem ismerem, még nem vettük: _ #2162-nél kitörte volna a tahár a nyakát mire átlátná.

  Szóvl tanárral órán ezt dobtuk össze:

  program szamok;
  uses wincrt;
  var osszeg,db,n,sorszam,legkissebb:byte;
  atlag:real;
  begin
  clrscr;
  
  osszeg:=0;
  db:=0;
  legkissebb:=255;
  sorszam:=0;
  
  repeat
  
  write('Kérem a számot: ');
  readln(n);
  
  osszeg:=osszeg+n;
  db:=db+1;
  if (legkissebb>n) and (n<>0) then begin
  legkissebb:=n;
  sorszam:=db;
  end;
  
  until n=0;
  db:=db-1;
  atlag:=osszeg/db;
  
  writeln('A számok összege: ',osszeg);
  writeln('A számok átlaga: ',atlag:5:2);
  writeln('A legkisebb szám a(z) ',legkissebb);
  write('és a bekérés sorszáma: ',sorszam);
  
  end.

  De mindannyiótoknak köszönöm szépen a segítséget! ;) Lesz még rátok szükségem.

• #2159 zvaragabor senior tag

  Új Válasz 2008-03-31 20:04:36 #2159

  Ú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

  

  zvaragabor

  senior tag

  Na eddig ott vagyok, hogy ITT vagyok, nem annyira akar menni.
  #2156 Ezt hova kellene írnom?

• #2154 zvaragabor senior tag

  Új Válasz 2008-03-31 18:42:43 #2154

  Ú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

  

  zvaragabor

  senior tag

  Üdv. Volna egy olyan feladat, hogy:
  0 végjelig kérek be számokat. Kiíratom a számok összegét, az átlagukat, és hogy melyik volt a legkisebb bekért szám, valamint ezt hanyadiknak kértem be. Eddig jutottam ell, itt megállt a tudományom, hibát ír ki:

  program szamok;
  uses wincrt;
  var n,osszeg,atlag,db,legkissebb,sorszam:integer;

  begin
  clrscr;

  osszeg:=0;
  atlag:=0;
  db:=0;
  repeat

  writeln('Kérem a számot: ');
  read(n);

  osszeg:=osszeg+n;
  db:=db+1;
  atlag:=atlag+n/db;
  until n=0;

  writeln('A számok összege: ',osszeg);
  writeln('A számok átlaga: ',atlag);
  writeln('A legkisebb szám a(z) ',legkissebb 'és ez ',sorszam '-nak-nek lett bekérve');
  end.

  Tudnátok segíteni?

• #2112 zvaragabor senior tag zvaragabor #2111

  Új Válasz 2008-01-18 17:53:14 #2112

  Ú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

  

  zvaragabor

  senior tag

  válasz zvaragabor #2111 üzenetére

  Most veszem észre, hogy van FreePascal topik, bocsi, hogy ide írtam. Felteszem ott is a kérdést. A válaszokat/ötleteket oda (is) várom. Köszi

  Üdv.

• #2111 zvaragabor senior tag Lortech #2110

  Új Válasz 2008-01-18 17:44:22 #2111

  Ú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

  

  zvaragabor

  senior tag

  válasz Lortech #2110 üzenetére

  FreePascalban is ugyan ez? Mert kipróbáltam ezzel benne, de így is hibádzzik valami. Lehet, hogy más szintaktikai hiba(amit nem vettem észre), de ha FP-ben más a Pi, akkor azt lenne jó tudni.

• #2109 zvaragabor senior tag

  Új Válasz 2008-01-18 16:04:12 #2109

  Ú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

  

  zvaragabor

  senior tag

  Pascalban a Pi-t mivel jelölöm?

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