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

• #1696 alitak senior tag dref #1695

  Új Válasz 2006-12-20 21:26:08 #1696

  Ú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

  

  alitak

  senior tag

  válasz dref #1695 üzenetére

  Hát vagy le kell szedni a netről a newdelay.tpu -t, és betenni a unit könyvtárba, vagy szedd ki a programból, hátha megy a nélkül is.

• #1694 cucka addikt dref #1693

  Új Válasz 2006-12-20 21:23:06 #1694

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

  az, hogy használni szeretnéd a newdelay unit-ot, de nem találja a fordító.

• #1690 alitak senior tag dref #1684

  Új Válasz 2006-12-20 20:49:51 #1690

  Ú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

  

  alitak

  senior tag

  válasz dref #1684 üzenetére

  Időközben megírtam a programot, de csak azért, mert soha nem jön rosszul a gyakorlás, pláne a holnapi infó miatt. Sokat nem vacakoltam a progival, de meg. A kiírtaáson kéne dolgozni, hogy két oszlopba írja, nekem nincs már rá hangulatom.
  program asdf;
  uses newdelay,crt;
  var tomb:array[1..100,1..100] of integer;
  b:array[1..100] of integer;
  i,j,x,eredmeny,val:integer;
  
  
  procedure menu;
  begin
  clrscr;
  writeln('1: legkisebb elem');
  writeln('2: sorok osszege');
  writeln('3: oszlopok osszege');
  writeln('4: elemek szama');
  writeln('5: kilepes');
  write('Valassz:');read(val);
  end;
  
  procedure kis;
  begin
  x:=tomb[1,1];
  for i:=1 to 100 do
  for j:=1 to 100 do if tomb[i,j]<x then x:=tomb[i,j];
  clrscr;
  write('A tomb legkisebb eleme: ',x);
  readln;readln;
  end;
  
  procedure sor;
  begin
  clrscr;
  for i:=1 to 100 do begin
  eredmeny:=0;
  for j:=1 to 100 do begin
  eredmeny:=eredmeny+tomb[i,j];
  end;
  writeln(i,'. sor adatainak osszege ',eredmeny);
  end;
  readln;readln;
  end;
  
  procedure oszlop;
  begin
  clrscr;
  for i:=1 to 100 do begin
  eredmeny:=0;
  for j:=1 to 100 do begin
  eredmeny:=eredmeny+tomb[j,i];
  end;
  writeln(i,'. oszlop adatainak osszege ',eredmeny);
  end;
  readln;readln;
  end;
  
  procedure elemek;
  begin
  for i:=1 to 100 do
  for j:=1 to 100 do
  inc(b[tomb[i,j]-100]);
  for i:=1 to 100 do writeln(i,' elemek szama ',b);
  readln;readln;
  end;
  
  begin
  clrscr;
  for i:=1 to 100 do b:=0;
  randomize;
  for i:=1 to 100 do
  for j:=1 to 100 do
  tomb[i,j]:=random(101)+100;
  repeat
  menu;
  case val of
  1:kis;
  2:sor;
  3:oszlop;
  4:elemek;
  end;
  until val=5
  end.
  
  mod: smile off
  
  [Szerkesztve]

• #1689 cucka addikt dref #1687

  Új Válasz 2006-12-20 20:23:07 #1689

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

  így már jobb
  
  csinálj egy külön tömböt (legyen a neve mondjuk szamol), amelynek 101 eleme van. ebben fogod nyilvántartani, hogy melyik szám hányszor volt. pl. szamol[10]-ben megtalálod, hogy a 109 hányszor szerepelt a táblázatban. (a tömböd 1..101-ig van indexelve, a számaid meg 100-tól 200ig vannak, tehát számból úgy csinálsz indexet, hogy kivonsz belőle 99-et).
  
  amikor végigmész az eredeti tömbön, minden elemnél karbantartod ezt a fenti tömböt is, és kész is vagy.

• #1688 [HUN]Zolee őstag dref #1684

  Új Válasz 2006-12-20 20:18:24 #1688

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

  attól hogy más meg tudja írni a programot, te nemfogod tudni

• #1686 cucka addikt dref #1684

  Új Válasz 2006-12-20 20:16:38 #1686

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

  Komplett programra lenne szükségem
  
  első lehetőség: tudsz programozni és megírod magadnak.
  második lehetőség: nem tudsz programozni, de fizetsz valakinek, aki tud és megírja neked.

• #1683 bevik csendes tag dref #1681

  Új Válasz 2006-12-20 20:05:47 #1683

  Ú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

  

  bevik

  csendes tag

  válasz dref #1681 üzenetére

  És mi az ami nem megy? Eljárás készítés, for vagy repeat-until ciklus, tömb feltöltés, billentyű bekérés, vagy csak hogy fogj hozzá?

• #1682 alitak senior tag dref #1681

  Új Válasz 2006-12-20 19:53:01 #1682

  Ú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

  

  alitak

  senior tag

  válasz dref #1681 üzenetére

  Itt komplett progit nem valószinű, hogy kapsz. Itt van segítség:
  feltöltéshez lesz ciklus a ciklusban, két számlált menetű ciklus, 1-től 100-ig.
  A random(101)+100 függvény 100-200 közötti számot ad vissza majd.
  Menüt nem tudom milyen komolyat kell, tehát kurzorbillentyűkkel-lépegetős, egérrel, vagy elég csak a menüpont előtti számot beírni.
  Mindenképpen lesz egy repeat...until, egy billentyűbekérés.
  1: a legkisebb elemre: ismét ciklus a ciklusban, berakod az [1,1] elemet egy változóba. megnézed az [1,2] elemet, ha ez kisebb, akkor berakja az előbbi változóba.
  2: megintcsak ciklus a ciklusban, eredmény=eredmény+tömb[1,1]. Aztán eredmény=eredmény+tömb[1,2]... A végén kiírod az eredményt.
  3: oszlop ugyanaz mint a sor.
  4: létrehozol egy b tömbböt, ami 1-től lesz 100ig. Megnézed az kétdimenziós tömb első elemét. Ha pl 135, akkor növeli az értékét a b tömb 35-ik elemének. A végén kiíratod.
  5:re pedig kilép a repeat-until ból.

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