Question

(W PROGRAMIE PASCAL) utwórz plik tekstowy o nazwie pod zespoły stosowane w komputerze spisz do pliku 63 zdania o karcie graficznej.(to samemu mogę wykonać ważniejszy jest szkielet całego programu).

1.program ma zliczać znaki w wierszu.

2.program ma zliczać linijki w całym pliku.

3.program ma zliczyć znaki w całym pliku.

4.program ma wypisać pierwszy znak pliku.

5.program ma wypisać pierwszy cały wiersz.

6.program ma wypisać cały plik.

7.program ma możliwość dopisania jednej linijki do tekstu.

(w programie pascal z góry dzięki)

Answer 1

1. znaki w wierszu np. x:=length(slowo)

x przyjmie wartość ilości znaków wiersza

2. while not eof(plik) do

y:=y+1

 

dopóki plik nie jest zakończony y ma wzrastać o 1, co da ci ilość wierszy

 

3. podobnie do pierwszego, tylko dajesz w pętlę while not eof (patrz. pkt. 2)

4. slowo[1] - slowo, czuli de facto char o indeksie 1

5. możesz wczytać słowo, lub ustawić eoln (end of line)

6. while not eof(plik) do

begin

read(plik,slowo)

writeln(slowo);

end;

7. if fsearch('nazwa.txt','')='' then rewrite(plik);

reset(plik);

write('dodaj linijke');

readln(slowo);

writeln(plik,slowo);