Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Робота зі словами, допоможіть відлагодити будь-ласка..
Для відправлення відповіді ви повинні увійти або зареєструватися
ЗАВДАННЯ:
Записати у текстовий файл усі слова, довжина яких більша дев’яти
символів, що зустрічаються у заданому тексті.
30 грн, і робоча програма ваша.
ЗАВДАННЯ:
Записати у текстовий файл усі слова, довжина яких більша дев’яти
символів, що зустрічаються у заданому тексті.
var f : text;text - такого типу змінних немає, тож так розумію то значення константи, тож мабуть:
const f = text;P.S. Догледів, text то не константа, то файловий тип. Тож змінювати не треба.
P.P.S. Бачу ти відкриваєш файл для читання (лише для читання):
reset (f);А потім намагаєшся писати:
writeln(f,s1);А для того щоб мати можливість писати (лише писати) треба відкрити для запису:
Rewrite(f);Тож як розумієш треба чергувати операції читання і запису, одночасно в двох режимах здається в Pascal не можна.
по-перше, тільки починаю вивчати.
по-друге:
- "P.S. Догледів, text то не константа, то файловий тип. Тож змінювати не треба." - *ТИ ПРОСТО СЛІПИЙ*, ти не бачиш паскаль 
по-перше, тільки починаю вивчати.
по-друге:- "P.S. Догледів, text то не константа, то файловий тип. Тож змінювати не треба." - *ТИ ПРОСТО СЛІПИЙ*, ти не бачиш паскаль
Дійсно, на біса витрачаю на тебе час, краще зробити як всі інші - просто не бачити 
Відповідаю так як мені відповідають, теж мені програмісти зі стажем, не можете навіть примітивної програмки відредагувати
Відповідаю так як мені відповідають, теж мені програмісти зі стажем, не можете навіть примітивної програмки відредагувати
Тобі відповідали чемно, тож відкрий очі. І взагалі ти невихована нахаба, мабуть найбільша за історію форуму.
хм..щойно перечитала...у вас із Хантером ніки в обох на "H" починаються.. я подумала що це 1 людина з ніком на "H" все це тільки в мою сторону пише, що ж, помилялася, тепер бачу...
HetmanNet, тобто Віктор Матвєєнко, ПРОШУ ВИБАЧЕННЯ, була не уважною, орієнтувалась лише по 1-й букві ніку...відкрила..і як тепер помітила - саме 2 різні профілі, переконалася в цьому остаточно.
Ще раз вибачте.
Вона не працює =\
Вона не працює =\
А можна подивитися, що намагалася змінити?
хм..щойно перечитала...у вас із Хантером ніки в обох на "H" починаються.. я подумала що це 1 людина з ніком на "H" все це тільки в мою сторону пише, що ж, помилялася, тепер бачу...
HetmanNet, тобто Віктор Матвєєнко, ПРОШУ ВИБАЧЕННЯ, була не уважною, орієнтувалась лише по 1-й букві ніку...відкрила..і як тепер помітила - саме 2 різні профілі, переконалася в цьому остаточно.
Ще раз вибачте.
Буває, нічого страшного, всі помиляються 
P.S. Вибач, що назвав "невихованою нахабою", бо як виявилося ти вихована і не нахабніла Зараз то рідкість
Hanter, HetmanNet
Почистив топік від ваших взаємних докорів. Жаль, що замінусувати не можу.Меліса
Ліньки ставити ту старезну турбу. Що саме в вашій програмі вас не влаштовує?
FreePascal нічим суттєво не відрізняється, тож можна його поставити замість Turbo, точніше поставити Lazarus який використовує компілятор FreePascal.
HetmanNet
дякую за розуміння))
Вам взагалі не має за що вибачатись, це я жостко затупила..)
Панно Мелісо, будь ласка, наведіть конкретний опис проблеми. "Не працює" може мати велику кількість причин - зокрема, вимкнений комп'ютер (власне, саме ця причина найбільше відповідає такому опису проблеми).
І код, будь ласка, викладайте текстом в тегу code. Якщо не знаєте, то в куточку вікна вашого паскаля (саме вікна) має бути меню, в якому можна розшукати пункти "виділити" і "вставити".
Program lab8;
var f: text;
s, s1: string;
procedure algoritm(s:string; var s1:string);
var t: string;
begin
t:=copy(s,1,pos(s,' ')-1);
delete(s,1,pos(s,' '));
if length (t) > 9 then s1:=s1+t + '';
end;
begin
assign (f,'C:\file.txt'); reset(f); rewrite(f);
while not eof(f) do begin
readln (f,s);
algoritm (s,s1);
writeln (f,s1);
end;
close(f);
END.{При компілюванні вибиває помилку: File not found - тобто файл не знайдено, але шлях я ніби вірно задала, не знаю в чому проблема}
Bartash: код варто брати у теги [ code ] .
Два слеші у шляху спробуйте.
Перевірте ще раз, чи є там той файл. Він точно зветься file.txt, а не file.txt.txt з прихованим розширенням?
Поставила 2 слеші, тепер така помилка - Error 5 : File access denied.
koala, так, без прихованого розширення
файл на диску є, але пустий
Для відправлення відповіді ви повинні увійти або зареєструватися