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

• #1075 RAM őstag Lali87 #1073

  Új Válasz 2006-04-01 16:38:08 #1075

  Ú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

  

  RAM

  őstag

  válasz Lali87 #1073 üzenetére

  j

• #1074 Lortech addikt Lali87 #1072

  Új Válasz 2006-04-01 16:36:26 #1074

  Ú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

  

  Lortech

  addikt

  válasz Lali87 #1072 üzenetére

  Itt van egy egyszerű példa + lent vannak a fontosabb függvények, ezzel már el tudsz indulni:
  initgraph/closegraph: inicializálja/befejezi a grafikus üzemmódot.
  setcolor: színt állít be, ez lehet szám 0-15-ig, vagy ahogy a példában is szerepel, az angol szöveges megfelelőjük .
  Line(x1,y1,x2,y2): x1,y1 képponttól x2,y2 képpontig húz egy vonalat.
  Arc, circle körrajzolás.
  Szöveget outtextxy-vel tudsz kiiratni, x,y kezdettől. A betű méretét, settextstyle-lal módosíthatod.
  Rectangle - téglalap, bal felső és jobb alsó csúcs x,y koordinátáit kell magadnod.
  Lent a kommentben benne van a legtöbb grafikus funkció, ha tp-ban nyomsz rájuk (mikor a szövegen állsz) egy ctrl-f1-et, egyből lejön a súgó az adott fgv-re, és megnézheted mire jó, és hogyan kell paraméterezni.
  stbstb.
  Jó rajzolgatást.
  -------------
  program gr_pelda;
  uses crt,graph;
  var
  x,y: word;
  grDriver: Integer;
  grMode: Integer;
  
  
  begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,' ');
  
  setcolor(red);
  arc(50,50,0,360,40);
  rectangle(100,10,150,60);
  outtextxy(200,50,'STOP');
  line(300,100,350,200);
  readln;
  closegraph;
  readln;
  end.
  
  {Arc
  Bar
  Bar3D
  Circle
  ClearDevice
  ClearViewPort
  CloseGraph
  DetectGraph
  Drawpoly
  Ellipse
  FillEllipse
  FillPoly
  FloodFill
  GetArcCoords
  GetAspectRatio
  GetBkColor
  GetColor
  GetDefaultPalette
  GetDriverName
  GetFillPattern
  GetFillSettings
  GetGraphMode
  GetImage
  GetLineSettings
  GetMaxColor
  GetMaxMode
  GetMaxX
  GetMaxY
  GetModeName
  GetModeRange
  GetPalette
  GetPaletteSize
  GetPixel
  GetTextSettings
  GetViewSettings
  GetX
  GetY
  GraphDefaults
  GraphErrorMsg
  GraphResult
  ImageSize
  InitGraph
  InstallUserDriver
  InstallUserFont
  Line
  LineRel
  LineTo
  MoveRel
  MoveTo
  OutText
  OutTextXY
  PieSlice
  PutImage
  PutPixel
  Rectangle
  RegisterBGIdriver
  RegisterBGIfont
  RestoreCrtMode
  Sector
  SetActivePage
  SetAllPalette
  SetAspectRatio
  SetBkColor
  SetColor
  SetFillPattern
  SetFillStyle
  SetGraphBufSize
  SetGraphMode
  SetLineStyle
  SetPalette
  SetRGBPalette
  SetTextJustify
  SetTextStyle
  SetUserCharSize
  SetViewPort
  SetVisualPage
  SetWriteMode
  TextHeight
  TextWidth}
  

• #868 berkine csendes tag Lali87 #863

  Új Válasz 2005-12-15 17:13:32 #868

  Ú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

  

  berkine

  csendes tag

  válasz Lali87 #863 üzenetére

  hali!
  itt az átlós program. Igaz, hogy csak a főátló, de az is jobb,. mint a semmi. Remélem.
  ja igen ez a*a-s mátrix de a betük nem olyan fontosak
  
  
  program matrixatlo;
  uses crt;
  var a,i,j,k,minindex:integer;
  Type Mtomb=array[1..10,1..10] of integer;
  var x :Mtomb;
  z:array[1..10]of integer;
  
  begin
  clrscr;
  writeln('mekkora matrix?'); readln(a);
  
  For i:= 1 to a do
  for j:=1 to a do
  begin
  writeln('k‚rem az ',i,'. sor',j,'. elemet!');
  readln(x[i,j]);
  end;
  
  for i:=1 to a do
  begin
  for j:=1 to a do
  write(x[i,j]:10);
  writeln;
  end;
  
  for i:=1 to a do
  for j:=1 to a do
  if i=j then
  begin
  z:=x[i,j];
  writeln(z);
  end;
  minindex:=i;
  for i:= 1 to a do
  begin
  if z < z[minindex] then minindex:=i;
  end;
  writeln('az atlo legkisebb eleme:', z[minindex]);
  
  repeat
  until keypressed;
  end.

  [Szerkesztve]

• #867 Turmoil senior tag Lali87 #863

  Új Válasz 2005-12-15 15:18:29 #867

  Ú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

  

  Turmoil

  senior tag

  válasz Lali87 #863 üzenetére

  uses math; //Asszem ebben van a min függvény
  const
  N : integer = 20;
  var
  matrix: array[1..N,1..N] of integer;
  i, min1, min2, reslt: integer;
  
  begin
  min1:=matrix[1,1];
  min2:=matrix[1,N];
  for i:= 2 to N do
  begin
  min1:=min(min1,matrix[i,i]);
  min2:=min(min2,matrix[i,N-i+1]);
  end;
  reslt:=min(min1,min2);
  end;
  
  Szóval az átlókban tálálható legkisebb szám pl. így jöhet ki.
  Értéke a reslt változóban. Ha csak az egyik átlóé kell, akkor a min1 (\), vagy min2 (/) értéke kell.
  De mint ismeretes, minden problémára legalább 10 féle megoldás létezik...

• #866 mager csendes tag Lali87 #863

  Új Válasz 2005-12-15 15:16:01 #866

  Ú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

  

  mager

  csendes tag

  válasz Lali87 #863 üzenetére

  Ha ideírnád hogy mit próbáltatok, könnyebb lenne, nem hiszem hogy az egész hosszabb 20 sornál...

• #846 Drótszamár őstag Lali87 #845

  Új Válasz 2005-12-11 10:58:25 #846

  Ú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

  

  Drótszamár

  őstag

  válasz Lali87 #845 üzenetére

   

  
  Const n = sok;
  
  type matrix = array[1..n,1..n] of integer, word, mindegy;
  
  var 
        m : matrix;
     min : integer, word, mindegy
   helyx : integer;
   helyy : integer;
  
  begin
   feltöltés;
   min:=m[1,1];
   helyx:=1;
   helyy:=1;
   for i:=1 to n do
    Begin
     if m[i,i]<min
       Then
         Begin
          min:=m[i,i];
          helyx:=i;
          helyy:=i;
         End;
     if m[n-i+1,i]<min
       Then
         Begin
          min:=m[n-i+1,i];
          helyx:=n-i+1;
          helyy:=i;
         End;
    End;
   writeln(''A legkisebb elem: ''+szöveggéalakítás(min)+''   ''+inttostr(helyx)+''.  sor, ''+inttostr(helyy)+''. oszlop'');
  end;
  

  
  
  Ha hibás, akkor az azért van, mert másnapos vagyok, és csak 4 órát aludtam.
  
  
  A kilógó sor: writeln('A legkisebb elem: '+szöveggéalakítás(min)+' '+inttostr(helyx)+'. sor, '+inttostr(helyy)+'. oszlop');

  [Szerkesztve]

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