Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Що тут не правильно? Скажіть будь ласка.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
var
k: integer;
procedure ParagraphsCount(inFile: string; var k: integer);
var
F1: text;
paragraph: string;
begin
assign(F1, inFile);
reset(F1);
while not EOF(F1) do begin
readln(F1, paragraph);
k := k + 1;
end;
close(F1);
end;
begin
ParagraphsCount('input.txt', k);
writeln('Кількість абзаців у заданому тексті = ', k);
end.
Неправильно поставлене питання.
А що очікуєте від цього коду, а що він робить? І чому ви вважаєте це неправильним?
І додавайте будь ласка тег code.
Додав вам тег code (кнопка <>), наступного разу самостійно.
Завдання: Обчислити кількість абзаців у текстовому файлі F1. Запускаю на freepascal. Воно пише що щось не так з var
Так і пише - "щось не так"? От нічого собі повідомлення про помилки скоротили. Я б на вашому місці написав виробнику компілятора - повідомлення про помилку має бути змістовним, а не "щось не так".
Як мінімум, змінна k ніде не ініціалізується. Що, з паскалівської точки зору, означає, що її значення невизначене (тобто, там лежить якесь сміття). Далі це значення (невідомо-яке) збільшується стільки разів, скільки абзаців у тексті — така програма може працювати, але результат її роботи буде беззмістовним.
Ймовірно, ваш компілятор достатньо розумний і бачить цей недолік, тому видає попередження. Щоб цього не було, обнуліть значення k перед тим, як рахувати рядки.
Глобальні змінні ініціалізуються нулями. Без нормального пояснення, що має робити програма, і докладного опису проблеми, усе це просто вправи з телепатії.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися