Pascal - Program plik tekstowy zapisujący dane do pliku

0

Cześć wszystkim, mam za zadanie napisać program, który zapisze do pliku tekstowego dane wprowadzone przez użytkownika. Przykładowo, program ma zapytać użytkownika o podanie procesora, karty, pamięci - po czym to co wpisze użytkownik pojawi się w pliku tekstowym.

Mniej więcej stworzyłem początek, jednak nie wiem co dalej. Wypisac w pascalu to co jest w pliku umiem, tylko nie potrafie zrobić na odwrót. Mogę liczyć na wsparcie?

uses crt;
var
zamow: text;
wiersz: string;
proc: string;
karta: string;
ram: real;
zasilacz: string;

begin
clrscr;
writeln('Zamow swoj wlasny komputer');

writeln('Podaj procesor');
readln(proc);

writeln('Podaj karte');
readln(karta);

writeln('Podaj ilosc RAM');
readln(ram);

writeln('Podaj zasilacz');
readln(zasilacz);

assign(zamow,'C:\zamow1.txt');
reset(zamow)

while not EOF(zamow) do
	begin
	readln(zamow,wiersz);
	writeln(wiersz);
	end;
close(zamow);

readln;
end. 
0

Odczytujesz readln(plik, zmienna), to jak ci się wydaje, jak powinieneś zapisywać?
writeln(plik, tekst)...
Btw: typ text jest przestarzały i należy używać textfile (chyba, że używasz Turbo Pascala, ale to byłoby nekrofilstwo...)

0

Tak, korzystam z TP (Borland), w domu mam Free Pascal.

0

Mniej więcej stworzyłem początek, jednak nie wiem co dalej. Wypisac w pascalu to co jest w pliku umiem, tylko nie potrafie zrobić na odwrót. Mogę liczyć na wsparcie?

Uproszczając: Masz gotowca, chcesz go przerobić?

Musisz zapisać plik czyli zamiast reset używasz rewrite.
Oczywiście odczyt na zapis przerabiasz jak abc wspomniał.
No i zmieniasz logikę żeby nie czytało wierszy tylko je zapisywało, czyli pętla jest niepotrzebna.

Btw: typ text jest przestarzały i należy używać textfile (chyba, że używasz Turbo Pascala, ale to byłoby nekrofilstwo...)

Akurat tak się składa że w FPC (na przykład) posiada typ text, w lazarusie definiowany jako system.text, więc ja bym nie powiedział że jest to przestarzały typ.
Co do TP się zgodzę, są dużo lepsze alternatywy które są w 99,9% zgodne, lepsze i szybsze (FPC) więc wciąż nie rozumiem czemu ludzie piracą TP 7.0 zamiast użyć FPC 2.6.0 (darmowego).

0

rusiano... nie wiem po co o to pytasz na forum...?
pomysl: tyle rzeczy jest w internecie... myslisz ze nie znajdziesz zadnego kursu/artykulu wyjasniajacego na przykladach uzywanie plikow tekstowych w TP?
odpalasz google, wpisujez: turbo pascal plikii masz wszystko czego potrzebujesz (po polsku i napisane tak, ze prosciej sie nie da). zajmuje to jakies 2 sekundy.
wbij sobie do glowy: traktuj forum jako ostatecznosc.

no, chyba, ze nie chce Ci sie poswiecic tych paru sekund, a pozniej paru(nastu) minut na przeczytanie kursu/artykulu i wolisz zebysmy to my odwalili za Ciebie cala robote. jesli tak, to od razu uprzedzę ze to oznaka głupoty i ze bardzo tu takich nie lubimy.

1 użytkowników online, w tym zalogowanych: 0, gości: 1