Важная информация
Показано с 1 по 8 из 8

Тема: помогите написать программку

  1. #1 помогите написать программку 
    Новичок
    Регистрация
    03.12.2015
    Сообщений
    12
    Сказал(а) спасибо
    15
    Поблагодарили 0 раз(а) в 0 сообщениях
    Здравствуйте, помогите пожалуйста, напишить программу на
    Lazarus.
    Дано: в текстовом файле fin.txt
    находится текст на русском языке.
    С клавиатуры вводится число k
    Требуется: написать
    подпрограмму, которая считает
    количество слов в строке и,
    используя эту подпрограмму,
    сформировать текстовый файл
    font.txt, в k-ой строке которого
    записанно число, полученное
    описанной выше функцией в k-ой
    строке файла fin.txt.
    Заннее благодарю.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    не понятки. что за число к? зачем оно?
    Ответить с цитированием  
     

  3. #3  
    Профи
    Регистрация
    09.11.2013
    Сообщений
    314
    Сказал(а) спасибо
    17
    Поблагодарили 89 раз(а) в 63 сообщениях
    Pascal Code:
    1. function Words(s : String) : LongInt;
    2. var i, p : LongInt;
    3.  
    4. begin
    5.   s := s+' ';
    6.   i := 0;
    7.   p := pos(' ',s);
    8.  
    9.   while p<>0 do
    10.   begin
    11.     delete(s,1,p);
    12.     inc(i);
    13.     p:=pos(' ',s);
    14.   end;
    15.   Words := i;
    16. end;
    17.  
    18. procedure TForm1.Button1Click(Sender: TObject);
    19. var fn1,
    20.     fn2,
    21.     wrds   : String;
    22.     strngs : TStringList;
    23.     NumStr : Byte;
    24.  
    25. begin
    26.   fn1 := FileNameEdit1.Text;
    27.   fn2 := FileNameEdit2.Text;
    28.   NumStr := SpinEdit1.Value-1;
    29.   With TStringList.Create do
    30.   begin
    31.     LoadFromFile(fn1);
    32.     wrds := IntToStr(Words(Strings[0]));
    33.     Clear;
    34.     Repeat
    35.       Add('');
    36.     until (Count >= NumStr);
    37.     Add(wrds);
    38.     SaveToFile(fn2);
    39.     Free;
    40.   end;
    41. end;
    Ответить с цитированием  
     

  4. 3 пользователя(ей) сказали cпасибо:

    >Quiet Snow< (06.12.2015), nik_1 (06.12.2015), лиана (07.12.2015)

  5. #4  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    4,022
    Сказал(а) спасибо
    1,895
    Поблагодарили 1,015 раз(а) в 873 сообщениях
    Записей в блоге
    1
    LoadFromFile(fn1);
    SaveToFile(fn2);
    Это диалоги открывает?
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  6. Пользователь сказал cпасибо:

    лиана (07.12.2015)

  7. #5  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    нет. это загружает файл в переменную string. и затем из переменной стринг записывает на диск.
    важно.
    FileNameEdit1.Text;
    FileNameEdit2.Text;
    SpinEdit1.Value;
    - компоненты из вкладки misc. FileNameEdit1- едит+лист бокс+кнопка. позволят выбрать из списка имя файла, директорию, диск.
    Последний раз редактировалось nik_1; 06.12.2015 в 10:24.
    Ответить с цитированием  
     

  8. Пользователь сказал cпасибо:

    лиана (07.12.2015)

  9. #6  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    4,022
    Сказал(а) спасибо
    1,895
    Поблагодарили 1,015 раз(а) в 873 сообщениях
    Записей в блоге
    1
    это загружает файл в переменную string. и затем из переменной стринг записывает на диск.
    Да это понятно.

    нет.
    В коде нет имени файла...
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  10. Пользователь сказал cпасибо:

    лиана (07.12.2015)

  11. #7  
    Профи
    Регистрация
    09.11.2013
    Сообщений
    314
    Сказал(а) спасибо
    17
    Поблагодарили 89 раз(а) в 63 сообщениях
    Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
    В коде нет имени файла...
    У ТС задание для ТР, но тема в ветке лазаря, я написал код для лазаря, это совсем другая философия. Во-первых, RAD, во вторых, windows. Код рабочий и как оказалось понятный.
    Меня только одно смущает: при при записи строк в файл появляется одна лишняя пустая строка, как победить не знаю...
    Ответить с цитированием  
     

  12. Пользователь сказал cпасибо:

    лиана (07.12.2015)

  13. #8  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Цитата Сообщение от ur_naz Посмотреть сообщение
    У ТС задание для ТР, но тема в ветке лазаря, я написал код для лазаря, это совсем другая философия. Во-первых, RAD, во вторых, windows. Код рабочий и как оказалось понятный.
    Меня только одно смущает: при при записи строк в файл появляется одна лишняя пустая строка, как победить не знаю...
    попробуй через компонент мемо. записать в мемо из мемо сохранить на диск.
    memo1.lines.clear; memo1.lines.add(wrds); memo1.lines.savetofile(fn2);
    Ответить с цитированием  
     

  14. Пользователь сказал cпасибо:

    лиана (07.12.2015)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 5
    Последнее сообщение: 29.11.2014, 19:56
  2. помогите написать программу
    от Маринка Константинова в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 07.11.2013, 02:56
  3. помогите написать программу
    от Стамус в разделе QBasic
    Ответов: 5
    Последнее сообщение: 18.10.2012, 20:35
  4. Ответов: 0
    Последнее сообщение: 10.01.2012, 19:18
  5. Помогите написать пару программ
    от PreF1993 в разделе QBasic
    Ответов: 6
    Последнее сообщение: 10.12.2010, 20:26
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •