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

лиана · 03.12.2015, 19:42

Здравствуйте, помогите пожалуйста, напишите программу на
Lazarus.
Дано: в текстовом файле fin.txt
находится текст на русском языке.
С клавиатуры вводится число k
Требуется: написать
подпрограмму, которая считает
количество слов в строке и,
используя эту подпрограмму,
сформировать текстовый файл
font.txt, в k-ой строке которого
записанно число, полученное
описанной выше функцией в k-ой
строке файла fin.txt.
Заннее благодарю)))

Vladimir_S · 03.12.2015, 19:50

Лиана, в любом случае не нужно заниматься запрещенным нашими правилами кросспостингом, т.е. распихиванием дубликатов тем по разным разделам. Дубликат удалён.
Сам я, к сожалению, на Lazarus'е и Delphi не пишу, только на обычном Паскале.

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

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

03.12.2015, 19:50	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,809 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Лиана, в любом случае не нужно заниматься запрещенным нашими правилами кросспостингом, т.е. распихиванием дубликатов тем по разным разделам. Дубликат удалён. Сам я, к сожалению, на Lazarus'е и Delphi не пишу, только на обычном Паскале.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070