[ Príspevkov: 5 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
[PASCAL] Výmena dvoch hodnôt v súbore

Registrovaný: 16.07.09
Prihlásený: 06.04.11
Príspevky: 17
Témy: 4 | 4
Bydlisko: Monte Carlo

Zdravím, potrebujem poradiť s tvorbou jednej procedúry v programe. Ide v podstate o to, že v určitom súbore je uložená "databáza" n-prvkov, z ktorých každému pripadá päť rôznych hodnôt (string/integer aj real) - databáza sa napĺňa v jednej procedúre... tú mám hotovú, ale problémom je procedúra, ktorá dokáže vymeniť medzi ktorýmikoľvek dvoma prvkami jednu z ich hodnôt. Viem, že sa to dá spraviť nejak takto:

Kód:
procedure vymena;
 begin
  reset(f);
  while not eof(f) do read(f,a[i]);
  close(f);
  writeln('zadaj ktory udaj chces prehodit ');
  readln(x);
  writeln('zadaj udaj s ktorym chces prehodit novy udaj ');
  readln(y);
  pom:=a[x];
  a[x]:=a[y];
  a[y]:=pom;
  rewrite(f);
  while not eof(f) do write(f,a[i]);
  close(f);
 end;


lenže, to funguje iba v prípade, že sa použije array ... v mojom programe to mám spravené cez record, a preto nemôžem použiť ten predchádzajúci postup.

Premýšlal som nad tým, že by sa to malo dať urobiť prepísaním do pomocného súboru, ale neviem, kde začať.


_________________
MB: Intel Nobletown DG43NB, Intel Eaglelake G43 ¦ CPU: Intel Pentium Dual-Core E5200 @ 2.50GHz ¦ RAM: 2GB (2x A-Data 1GB DDR2-800) ¦ VGA: Sapphire ATi Radeon HD 4850 512MB GDDR3, 256bit @ 625/993 ¦ HDD: Seagate Barracuda 7200.12 250GB SATA II ¦ PSU: Cooler Master Real Power 550W ¦ DVD-RW: Samsung SH-S223C ¦ OS: Windows 7 Ultimate 32-bit
Offline

Užívateľ
Užívateľ
[PASCAL] Výmena dvoch hodnôt v súbore

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6 | 6
NapísalOffline : 27.03.2011 19:30 | [PASCAL] Výmena dvoch hodnôt v súbore

ved a[i] budes mat prvok z pola tych tvojich recordov
a zrus si tie strongy[b]


Offline

Užívateľ
Užívateľ
[PASCAL] Výmena dvoch hodnôt v súbore

Registrovaný: 16.07.09
Prihlásený: 06.04.11
Príspevky: 17
Témy: 4 | 4
Bydlisko: Monte Carlo
Napísal autor témyOffline : 27.03.2011 20:31 | [PASCAL] Výmena dvoch hodnôt v súbore

tam v tom programe je ďalších 9 procedúr a už je dosť veľký - takže sa mi to teraz nechce prerábať alebo robiť odznova, a preto hľadám spôsob, ako to spraviť aj bez array, veď musí existovať aj nejaký iný spôsob...

//nepis boldom! (stenley)
//ok :)


_________________
MB: Intel Nobletown DG43NB, Intel Eaglelake G43 ¦ CPU: Intel Pentium Dual-Core E5200 @ 2.50GHz ¦ RAM: 2GB (2x A-Data 1GB DDR2-800) ¦ VGA: Sapphire ATi Radeon HD 4850 512MB GDDR3, 256bit @ 625/993 ¦ HDD: Seagate Barracuda 7200.12 250GB SATA II ¦ PSU: Cooler Master Real Power 550W ¦ DVD-RW: Samsung SH-S223C ¦ OS: Windows 7 Ultimate 32-bit
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 06.04.10
Prihlásený: 18.02.14
Príspevky: 47
Témy: 2 | 2

Co takto pouzit prikaz SEEK :D


Offline

Užívateľ
Užívateľ
[PASCAL] Výmena dvoch hodnôt v súbore

Registrovaný: 16.07.09
Prihlásený: 06.04.11
Príspevky: 17
Témy: 4 | 4
Bydlisko: Monte Carlo
Napísal autor témyOffline : 28.03.2011 20:25 | [PASCAL] Výmena dvoch hodnôt v súbore

Gregi555 píše:
Co takto pouzit prikaz SEEK :D


Môže byť, ale ja by som skôr potreboval vysvetliť postup ako to vymeniť - aspoň teoreticky - nemusíte mi napísať celý program :D

A čo vlastne s tým SEEK spraviť? Veď SEEK je na vyhľadanie...


_________________
MB: Intel Nobletown DG43NB, Intel Eaglelake G43 ¦ CPU: Intel Pentium Dual-Core E5200 @ 2.50GHz ¦ RAM: 2GB (2x A-Data 1GB DDR2-800) ¦ VGA: Sapphire ATi Radeon HD 4850 512MB GDDR3, 256bit @ 625/993 ¦ HDD: Seagate Barracuda 7200.12 250GB SATA II ¦ PSU: Cooler Master Real Power 550W ¦ DVD-RW: Samsung SH-S223C ¦ OS: Windows 7 Ultimate 32-bit
 [ Príspevkov: 5 ] 


[PASCAL] Výmena dvoch hodnôt v súbore



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

Strtoint v subore pascal

v Assembler, C, C++, Pascal, Java

19

570

03.06.2013 23:06

BX

V tomto fóre nie sú ďalšie neprečítané témy.

porovnanie hodnot v dvoch tabulkach

v PHP, ASP

8

681

25.02.2008 20:21

Broko71

V tomto fóre nie sú ďalšie neprečítané témy.

Vymena dvoch crt k satelitu

v TV

2

322

29.11.2015 0:40

Melouch

V tomto fóre nie sú ďalšie neprečítané témy.

Free Pascal a Turbo Pascal

v Assembler, C, C++, Pascal, Java

0

385

19.12.2014 13:18

Styracoz

V tomto fóre nie sú ďalšie neprečítané témy.

zoradenie hodnot

v Databázy

2

830

11.08.2008 19:40

Speeder21

V tomto fóre nie sú ďalšie neprečítané témy.

jQuery - porovnavanie hodnot

v JavaScript, VBScript, Ajax

0

440

15.04.2012 2:46

venom2

V tomto fóre nie sú ďalšie neprečítané témy.

Hľadanie v súbore

v PHP, ASP

5

489

13.12.2011 18:26

shaggy

V tomto fóre nie sú ďalšie neprečítané témy.

zapamatanie hodnot vo formulari

v PHP, ASP

14

594

16.10.2008 17:36

Roko

V tomto fóre nie sú ďalšie neprečítané témy.

Suma hodnôt, excel/ calc

v Ostatné programy

1

1315

18.05.2009 10:22

p360t

V tomto fóre nie sú ďalšie neprečítané témy.

Vstup hodnot do TEdit

v Delphi, Visual Basic

2

466

02.11.2014 22:04

jasug

V tomto fóre nie sú ďalšie neprečítané témy.

C++ pole unikátnych hodnôt

v Assembler, C, C++, Pascal, Java

4

390

24.10.2014 13:42

marian_r

V tomto fóre nie sú ďalšie neprečítané témy.

UPDATE hodnot v mysql

v PHP, ASP

10

478

06.09.2013 7:00

Elrohir

V tomto fóre nie sú ďalšie neprečítané témy.

usporiadanie hodnot z tabulky

v PHP, ASP

7

604

17.05.2008 22:26

emer

V tomto fóre nie sú ďalšie neprečítané témy.

Spočítanie hodnôt v databáze

v Databázy

15

3270

25.08.2009 14:40

bmatias

V tomto fóre nie sú ďalšie neprečítané témy.

Nacitanie hodnot v Jave

v Assembler, C, C++, Pascal, Java

7

1034

15.01.2012 9:58

Johnoo

V tomto fóre nie sú ďalšie neprečítané témy.

Assembler - čísla v súbore

v Assembler, C, C++, Pascal, Java

11

748

18.12.2007 9:17

majo-majo



© 2005 - 2024 PCforum, edited by JanoF