Forum Programosy

Witam serdecznie wszystkich
Mam pewien problem z Pascalem
Nie znam się na nim za dobrze, a mam napisać taki program:
Napisz program, który zapisuje wprowadzony przez użytkownika tekst do pliku tekstowego o nazwie przyk.txt. Zapisywanie powinno zostać zakończone po napotkaniu pustego wiersza.

Poszperałem trochę w Internecie i napisałem coś takiego:

Kod: Zaznacz wszystko


Program Przyk;
uses crt;
var txt : string;
t : Text;
begin
clrscr
assing(t,'D:\przyk.txt');
rewrite(t);
writeln('Napisz tekst');
readln(txt);
writeln(t,txt);
close(t);
end.



Wszystko działa, tylko nie wiem jak zrobić żeby program zapisywał po napotkaniu pustego wiersza Wiem, że trzeba by użyć pętli, a najlepiej REPEAT-UNTIL, ale ja się nie znam na niej najlepiej, a w Internecie nie mogłem nic na ten temat znaleźć, a w pisywałem w różne wyszukiwarki różne kombinacje haseł i nic
Proszę pomóżcie Będę bardzo wdzięczny

Poczytaj sobie na

Kod: Zaznacz wszystko

http://turbopascal.helion.pl/

Pozdro

Wielkie dzięki
Co prawda nie było tam dosłownie tego jak to zrobić, to jednak dzięki tej stronce lekko uzupełniłem swoją wiedzę i się zorientowałem jak zrobić to o co mi chodziło
Naprawdę dzięki, teraz wszystko działa OK