1

Тема: Паскаль.Обчислити кількість абзаців у текстовому файлі

потрібно обчислити кількість абзаців у текстовому файлі F1, допоможіть.

2

Re: Паскаль.Обчислити кількість абзаців у текстовому файлі

program oliv;
var f:Text; count:Integer;
begin
    assign(f, '/Users/leo/test.pas');
    reset(f);
    
    while not eof(f) do
    begin
        inc(count);
        readln(f)
    end;
    
    writeln('count = ', count);
    
end.

де '/Users/leo/test.pas' - шлях до файлу.
Приємна мова Pascal для таких простеньких задач.

Подякували: oliv1

3

Re: Паскаль.Обчислити кількість абзаців у текстовому файлі

дякую)поясніть ще ,будь ласка ,inc- це к:=k+1? ,без inc як це записати?

4

Re: Паскаль.Обчислити кількість абзаців у текстовому файлі

inc - це процедура, яка збільшує значення змінної на 1 (інкремент).
Можна замінити на

count := count + 1;
Подякували: oliv1

5

Re: Паскаль.Обчислити кількість абзаців у текстовому файлі

дякую. просто не знала

6

Re: Паскаль.Обчислити кількість абзаців у текстовому файлі

Будь ласка. Сподіваюсь ви навчаєтесь не в технічному ВУЗі на програміста :)

Подякували: Чайник1

7

Re: Паскаль.Обчислити кількість абзаців у текстовому файлі

хах) в технічному ВУЗі, НЕ на програміста, але програмування є.

Подякували: Replace1

8

Re: Паскаль.Обчислити кількість абзаців у текстовому файлі

/Users/leo

mac os?)

9

Re: Паскаль.Обчислити кількість абзаців у текстовому файлі

ага