Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Паскаль.Обчислити кількість абзаців у текстовому файлі
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
потрібно обчислити кількість абзаців у текстовому файлі F1, допоможіть.
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 для таких простеньких задач.
дякую)поясніть ще ,будь ласка ,inc- це к:=k+1? ,без inc як це записати?
inc - це процедура, яка збільшує значення змінної на 1 (інкремент).
Можна замінити на
count := count + 1;дякую. просто не знала
Будь ласка. Сподіваюсь ви навчаєтесь не в технічному ВУЗі на програміста 
хах) в технічному ВУЗі, НЕ на програміста, але програмування є.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися