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

• #5109 lecsokolbasz csendes tag

  Új Válasz 2011-04-09 22:08:23 #5109

  Ú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

  

  lecsokolbasz

  csendes tag

  Üdv!

  Elkészítettem a lenti programot annyiban, hogy megadjuk a tetszőleges méretű tömb elemeinek számát és kiírja fordított sorrendben. Ez működik szépen.
  Viszont annyiban kérném a segítségeteket, hogy a bekért integer típusú elemeket double-ra, vagy int-ben maradva úgy, hogy 4 tizedesjegyre alakítsa a számokat sorba rendezve.

  FELADAT:A bemenet elsõ sorában található egy egész szám, n.
  Ezután következik tetszõlegesen sok, de maximum kétszáz darab, int vagy double típusú szám. Írjuk õket növekvõ nagyság szerint rendezve a kimenetre 3 tizedesjegy pontossággal.
  pl.:
  Bemenet:
  4
  10
  10.5
  6.8
  11.2275

  Kimenet:
  4.0000
  6.8000
  10.0000
  10.5000
  11.2275

  Program rendez;
  Uses Crt;

  const MaxElem=200;
  Var a:array [1..200] of integer;
  i,j,kisebb:integer;
  adat,t:INTEGER;
  max:longint;

  Begin
  ClrScr;
  begin
  repeat

  writeln('Add meg a tömb elemeinek a számát! (2<n<200)');
  readln(t);
  writeln;
  if ((t>200) or (t<2)) then
  begin
  writeln('A megadott ertek nem megfelelo.');
  writeln('A folytatashoz nyomjon Enter-t.');
  readln;
  end;
  until ((t<201) and (t>2));
  end;

  Writeln('TOMB');
  For i:=1 to t do
  Begin
  Writeln('Kerem a tomb ',i,'. elemet: ');
  Readln(a);
  End;
  WRITELN;
  Writeln('A TOMB ELEMEI A KOVETKEZOK: ');
  For i:=1 to t do
  Begin
  Writeln(a(i));
  End;
  WRITELN;
  Writeln('A TOMB ELEMEI -CSOKKENOBEN- RENDEZVE A KOVETKEZOK: ');
  For i:=1 to t do
  For j:=1 to t do
  If a(i)>a[j] then
  Begin
  kisebb:=a(i);
  a(i):=a[j];
  a[j]:=kisebb;
  End;
  For i:=1 to t do
  Begin
  Writeln(a(i):6);
  End;
  Readln;
  END.

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