Keresés: - Turbo Pascal programozás - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Hirdetés

CyberSecurity Connect - blended learning, valódi labor kísérletezésre. Kiberbiztonsági képzés profiktól!
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)

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

#1228 Tangerine senior tag KMan #1226

Új Válasz 2006-05-16 12:45:41 #1228
Ú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

Tangerine

senior tag

válasz KMan #1226 üzenetére

lehet, hogy readln akart lenni, hogy ne ugorjon ki a programból a végén
#1222 VladimirR nagyúr KMan #1221

Új Válasz 2006-05-16 12:33:18 #1222
Ú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

VladimirR

nagyúr

válasz KMan #1221 üzenetére

gondolom azert a readkey, hogy lassa a program kimenetet

egyebkent irhatsz raja fuggvenyt, vagy eljarast

function strtoupper( s : string ) : string;
var
  ups : string;
  i : byte;
begin
  for i := 1 to length( s ) do
    ups[i] := upcase( s[i] );
  ups[0] := s[0];
  strtoupper := ups;
end;

[Szerkesztve]
#1219 norbiphu őstag KMan #1217

Új Válasz 2006-05-16 12:25:59 #1219
Ú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

norbiphu

őstag

válasz KMan #1217 üzenetére

egyesével lehet csak. írtam egy példát ebből, látszik hogy, hogyan kell.
program nagyb;
uses crt;
var szoveg:string;
i:byte;
begin
clrscr;
write ('Szöveg: '); readln(szoveg);
for i:=1 to length(szoveg) do
szoveg:=upcase(szoveg);
writeln ('Nagybetűs szöveg: ',szoveg);
readkey;
end.

readkey azért hogy lásd az eredményt és ne lépjen ki (én ezt használom te rakhatsz mást is)

[Szerkesztve]
#1218 emitter őstag KMan #1217

Új Válasz 2006-05-16 12:18:47 #1218
Ú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

emitter

őstag

válasz KMan #1217 üzenetére

igen, sztem csak karakterenként tudod a sztringet nagybetűsíteni
#1213 KMan őstag KMan #1212

Új Válasz 2006-05-15 20:59:35 #1213
Ú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

KMan

őstag

válasz KMan #1212 üzenetére

Hibatlanul refordul a forras. Novekvo es csokkeno sorrend is megy.
#1169 Tangerine senior tag KMan #1161

Új Válasz 2006-05-15 14:29:57 #1169
Ú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

Tangerine

senior tag

válasz KMan #1161 üzenetére

for x := 1 to ElemMax - 1 do
begin
for y := x+1 to ElemMax do
begin
if tomb[x] > tomb[y] then
{csere-bere, csökkenő sorrendnél nem > hanem <}
begin
temp := tomb[x];
tomb[x] := tomb[y];
tomb[y] := temp;
end;
end;
end;

[Szerkesztve]
#1167 Tyrael senior tag KMan #1165

Új Válasz 2006-05-15 14:05:08 #1167
Ú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

Tyrael

senior tag

válasz KMan #1165 üzenetére

lol ne haragudj, a tiedet valahogy nem olvastam.

Tyrael
#1160 Tangerine senior tag KMan #1158

Új Válasz 2006-05-15 09:00:14 #1160
Ú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

Tangerine

senior tag

válasz KMan #1158 üzenetére

Ezt próbáld meg:

Program allomanytkezel;

Uses crt;

Var
f: text;
szamsor:String;
Begin
assign(f,'C:\valami.txt');
reset(f);
while not eof(f) do
Begin
Readln(f,szamsor);
Writeln(szamsor);
End;
close(f);
Readln;
end.

És ennek tökmindegy, hogy van-e szóköz vagy vessző.
Az a 'baj', hogy a típusos és a szöveges állományt teljesen máshogy kell használni.
Ha pedig csak kiírni akarod, teljesen felesleges tömbbel bonyolítani.
Elég soronként beolvasni, és kiírni.

[Szerkesztve]
#1159 Tangerine senior tag KMan #1158

Új Válasz 2006-05-15 08:41:41 #1159
Ú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

Tangerine

senior tag

válasz KMan #1158 üzenetére

read és write helyett használj readln és writeln-t szövegnél egyébként is ezeket 'illik' használni.

Ja, és stringbe kell beolvasni mindig egy egész sort.

[Szerkesztve]
#1157 KMan őstag KMan #1156

Új Válasz 2006-05-15 07:39:26 #1157
Ú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

KMan

őstag

válasz KMan #1156 üzenetére

ok, egyertelmuen a vesszovel van a baja a szokozoket birja. Ha a szamok kozott vesszo van, akkor futasi hibaval leall. Mostmar sikerult azt is megcsinalnom, hogy nem csak egy szam van a fajlban hanem tobb es mindet ki tudtam iratni a kepernyore.
#1153 shev7 veterán KMan #1152

Új Válasz 2006-05-15 06:55:31 #1153
Ú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

shev7

veterán

válasz KMan #1152 üzenetére

regen volt mar a pascal, de ezzel nem a fileba irod vissza azt amit beolvastal:

write(f,szamok[ i] );
#1151 rdi veterán KMan #1150

Új Válasz 2006-05-15 06:38:05 #1151
Ú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

rdi

veterán

válasz KMan #1150 üzenetére

Először a fájl tartalmát olvasd be a tömbbe, utána írasd ki képernyőre a tömb tartalmát egy ciklussal...
szerintem