-
IT café
Új hozzászólás Aktív témák
-
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.2275Kimenet:
4.0000
6.8000
10.0000
10.5000
11.2275Program 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
repeatwriteln('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
● olvasd el a téma összefoglalót!
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Autós topik
- Apple Watch Sport - ez is csak egy okosóra
- Napelem
- VPN topic
- Otthoni hálózat és internet megosztás
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Yettel topik
- Autós topik látogatók beszélgetős, offolós topikja
- Otthonfelújítási program (2024.)
- További aktív témák...