1

Тема: Робота зі словами, допоможіть відлагодити будь-ласка..

ЗАВДАННЯ:

Записати у текстовий файл усі слова, довжина яких більша дев’яти
символів, що зустрічаються у заданому тексті.

Post's attachments

Безымянный.png 10.99 kb, 96 downloads since 2013-10-02 

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

30 грн, і робоча програма ваша.

3 Востаннє редагувалося HetmanNet (02.10.2013 20:53:58)

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Меліса написала:

ЗАВДАННЯ:

Записати у текстовий файл усі слова, довжина яких більша дев’яти
символів, що зустрічаються у заданому тексті.

var f : text;

text - такого типу змінних немає, тож так розумію то значення константи, тож мабуть:

const f = text;

P.S. Догледів, text то не константа, то файловий тип. Тож змінювати не треба.
P.P.S. Бачу ти відкриваєш файл для читання (лише для читання):

reset (f);

А потім намагаєшся писати:

writeln(f,s1);

А для того щоб мати можливість писати (лише писати) треба відкрити для запису:

Rewrite(f);

Тож як розумієш треба чергувати операції читання і запису, одночасно в двох режимах здається в Pascal не можна.

Віддамся на один вечір в хороші дівочі руки.. не дорого, в у.о. .. Якщо сподобається, то залишуся безкоштовно назавжди..
Подякували: Меліса1

4

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

по-перше, тільки починаю вивчати.
по-друге:

- "P.S. Догледів, text то не константа, то файловий тип. Тож змінювати не треба." - *ТИ ПРОСТО СЛІПИЙ*, ти не бачиш паскаль :D

5

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Меліса написала:

по-перше, тільки починаю вивчати.
по-друге:

- "P.S. Догледів, text то не константа, то файловий тип. Тож змінювати не треба." - *ТИ ПРОСТО СЛІПИЙ*, ти не бачиш паскаль :D

Дійсно, на біса витрачаю на тебе час, краще зробити як всі інші - просто не бачити :P

Віддамся на один вечір в хороші дівочі руки.. не дорого, в у.о. .. Якщо сподобається, то залишуся безкоштовно назавжди..

6

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Відповідаю так як мені відповідають, теж мені програмісти зі стажем, не можете навіть примітивної програмки відредагувати

7

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Меліса написала:

Відповідаю так як мені відповідають, теж мені програмісти зі стажем, не можете навіть примітивної програмки відредагувати

Тобі відповідали чемно, тож відкрий очі. І взагалі ти невихована нахаба, мабуть найбільша за історію форуму.

Віддамся на один вечір в хороші дівочі руки.. не дорого, в у.о. .. Якщо сподобається, то залишуся безкоштовно назавжди..

8 Востаннє редагувалося Меліса (02.10.2013 22:28:40)

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

хм..щойно перечитала...у вас із Хантером ніки в обох на "H" починаються.. я подумала що це 1 людина з ніком на "H" все це тільки в мою сторону пише, що ж, помилялася, тепер бачу...


HetmanNet, тобто Віктор Матвєєнко, ПРОШУ ВИБАЧЕННЯ, була не уважною, орієнтувалась лише по 1-й букві ніку...відкрила..і як тепер помітила - саме 2 різні профілі, переконалася в цьому остаточно.
Ще раз вибачте.

9

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Hanter, HetmanNet
Почистив топік від ваших взаємних докорів. Жаль, що замінусувати не можу.

Меліса
Ліньки ставити ту старезну турбу. Що саме в вашій програмі вас не влаштовує?

Подякували: Replace, koala2

10

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Вона не працює =\

11

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Меліса написала:

Вона не працює =\

А можна подивитися, що намагалася змінити?

Віддамся на один вечір в хороші дівочі руки.. не дорого, в у.о. .. Якщо сподобається, то залишуся безкоштовно назавжди..

12

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Меліса написала:

хм..щойно перечитала...у вас із Хантером ніки в обох на "H" починаються.. я подумала що це 1 людина з ніком на "H" все це тільки в мою сторону пише, що ж, помилялася, тепер бачу...


HetmanNet, тобто Віктор Матвєєнко, ПРОШУ ВИБАЧЕННЯ, була не уважною, орієнтувалась лише по 1-й букві ніку...відкрила..і як тепер помітила - саме 2 різні профілі, переконалася в цьому остаточно.
Ще раз вибачте.

Буває, нічого страшного, всі помиляються :)
P.S. Вибач, що назвав "невихованою нахабою", бо як виявилося ти вихована і не нахабніла :) Зараз то рідкість :)

Віддамся на один вечір в хороші дівочі руки.. не дорого, в у.о. .. Якщо сподобається, то залишуся безкоштовно назавжди..

13

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Torbins написав:

Hanter, HetmanNet
Почистив топік від ваших взаємних докорів. Жаль, що замінусувати не можу.

Меліса
Ліньки ставити ту старезну турбу. Що саме в вашій програмі вас не влаштовує?

FreePascal нічим суттєво не відрізняється, тож можна його поставити замість Turbo, точніше поставити Lazarus який використовує компілятор FreePascal.

Віддамся на один вечір в хороші дівочі руки.. не дорого, в у.о. .. Якщо сподобається, то залишуся безкоштовно назавжди..

14

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

HetmanNet

=)
дякую за розуміння))
Вам взагалі не має за що вибачатись, це я жостко затупила..)

15 Востаннє редагувалося koala (03.10.2013 12:21:13)

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Панно Мелісо, будь ласка, наведіть конкретний опис проблеми. "Не працює" може мати велику кількість причин - зокрема, вимкнений комп'ютер (власне, саме ця причина найбільше відповідає такому опису проблеми).
І код, будь ласка, викладайте текстом в тегу code. Якщо не знаєте, то в куточку вікна вашого паскаля (саме вікна) має бути меню, в якому можна розшукати пункти "виділити" і "вставити".

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

16 Востаннє редагувалося Bartash (03.10.2013 21:05:08)

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

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 ] :).

17

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Два слеші у шляху спробуйте.

I belong to the Dead Generation.
Подякували: Меліса1

18

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Перевірте ще раз, чи є там той файл. Він точно зветься file.txt, а не file.txt.txt з прихованим розширенням?

19

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

Поставила 2 слеші, тепер така помилка - Error 5 : File access denied.

20

Re: Робота зі словами, допоможіть відлагодити будь-ласка..

koala, так, без прихованого розширення
файл на диску є, але пустий