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

• #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]

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