Turbo Pascal :/// pomocy :(
Mam starszna prosbe...potrzebuje pomocy w sprawie zadania ktore mam wykonac w Turbo Pascalu. Nie mam zielonego pojecia jak sie za niego zabrac :(
Oto jego tresc : w pliku dane.txt znajduje sie pewna ilosc liczb calkowitych z zakresu od 0 do 2 miliardow.Trzeba napisac program, ktory do pliku wynik.txt zapisuje wszystkie liczby majace taka sama pierwsza i ostatnia cyfre w zapisie liczby.Jezeli liczba jest jednocyfrowa to zostaje pominieta.
Pliki dane.txt i wynik.txt maja byc zapisane na dyskietce...Jezli ktos zna sie na tym to bardzo prosze o pomoc
Oto jego tresc : w pliku dane.txt znajduje sie pewna ilosc liczb calkowitych z zakresu od 0 do 2 miliardow.Trzeba napisac program, ktory do pliku wynik.txt zapisuje wszystkie liczby majace taka sama pierwsza i ostatnia cyfre w zapisie liczby.Jezeli liczba jest jednocyfrowa to zostaje pominieta.
Pliki dane.txt i wynik.txt maja byc zapisane na dyskietce...Jezli ktos zna sie na tym to bardzo prosze o pomoc
Odpowiedzi: 2
moźe ten programik w iBasic Cię naprowadzi?
IDE mozna pobrac na stronie http://pyxia.com (ibasc standard)
'http://centrumxp.pl/forum/viewtopic.php?p=91238#91238
def PlikDanych,PlikWynik:file
def x,znaleziono:int
def StringDana:string
'zapisanie pliku dane.txt pewna iloscia liczb 0–2e9
if openfile(PlikDanych,"c:dane.txt","w")=0
for x=1 to 1000:' wpisanie 1000 liczb do pliku dane.txt
write(PlikDanych,ltrim$(str$(rnd(2000000000))))
'rnd – losowa liczba
'str$ – zmienia liczbe na string
'ltrim$ usuwa ewentualne spacje po bokach stringu
next x
write(PlikDanych,"1001")
closefile PlikDanych
endif
if openfile(PlikDanych,"c:dane.txt","r")=0
if openfile(PlikWynik,"c:wynik.txt","w")=0
'glowna petla porownujaca kolejne liczby z pliku dane.txt
while Read(PlikDanych,StringDana)=0
if len(StringDana)>1
if left$(StringDana,1)=right$(StringDana,1)
write(PlikWynik,StringDana) : znaleziono=1
endif
endif
endwhile
closefile PlikWynik
closefile PlikDanych
if znaleziono=1 : system "c:dane.txt" : system "c:wynik.txt"
else : messagebox 0,"nie znaleziono liczb odpowiadajacym zadaniu","ehh"
endif
else
messagebox 0,"Nie moge otworzyc pliku c:wynik.txt do zapisu!","error"
endif
else
messagebox 0,"Nie moge otworzyc pliku c:dane.txt do odczytu!","error"
endif
end
IDE mozna pobrac na stronie http://pyxia.com (ibasc standard)
moniqaa:
Mam starszna prosbe...potrzebuje pomocy w sprawie zadania ktore mam wykonac w Turbo Pascalu. Nie mam zielonego pojecia jak sie za niego zabrac :(
Hmm... Chyba zadania nie dano tak po prostu "macie i róbcie"? Znasz pętle, operacje na plikach, operacje na łańcuchach znaków(string) itp.?
To ma być tak, źe odczytuje linię z pliku i jeźeli ostatni oraz pierwszy znak jest sobie równy to zapisuje całą linię do nowego pliku, a po zakończeniu pętli EOF kopiuje plik na A: ??
Strona 1 / 1