Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
avpdrago
0 / 0 / 0
Регистрация: 19.01.2011
Сообщений: 2
#1

Строки в текстовом файле. - Pascal

24.01.2011, 22:39. Просмотров 494. Ответов 1
Метки нет (Все метки)

Добрый вечер, помогите написать программку:
В текстовом файле содержится текст состоящий из нескольких предложений которые заканчиваются точкой , создать и вывести на экран массив
элементами которого являются последние слова заданных предложений.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.01.2011, 22:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Строки в текстовом файле. (Pascal):

Строки в текстовом файле - Pascal
Привет! Помогите пожалуйста! Мне нужно написать программу считающая кол-во символов в текстовом файле и записывающая результат в другой...

удаление строки в текстовом файле и поиск. - Pascal
Здарова всем! У меня проблема с написанием кода в Паскале! 1.Вобщем как можно удалить строку (ту которую я захочу) в текстовом...

Строки матрицы в текстовом файле занести в массив - Pascal
есть например некая матрица в текстовом файле 1 -5 7 8 2 -3 5 4 8 -6 1 9 как такую матрицу можно занести в массив,...

В текстовом файле поменять местами первую и последнюю строки - Pascal
В текстовом файле Т1, состоящий из 8 строк, поменять местами первый и последний строки. Результат записать в файл Т2. Помогите...

Найти длину самой длинной строки в текстовом файле. - Pascal
Имеется текстовый файл.Найти длину самой длинной строки.

В текстовом файле поменять местами чётные и нечётные строки - Pascal
Создать файл, содержащий произвольные строки. Заменить строки файла так, чтобы их порядок был следующим: 2, 1, 4, 3, 6, 5, ... Вывести на...

1
SuPeR XaKer
2843 / 1972 / 377
Регистрация: 23.09.2010
Сообщений: 4,877
24.01.2011, 23:24 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses
 crt;
var
 f:text;
 s,l:string;
 i:integer;
begin
clrscr;
Assign(f,'D:\1.txt');
reset(f);
while not eof(f) do
begin
 readln(f,s);
  l:='';
  for i:=length(s)-1 downto 1 do
  if s[i] in [' ',',','.'] then
   break
  else
   l:=s[i]+l;
 writeln(l);
end;
Close(f);
readln
end.
Можно и без массива обойтись.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.01.2011, 23:24
Привет! Вот еще темы с ответами:

Описать функцию, которая находит минимальную длину строки в текстовом файле отличную от нуля - Pascal
Описать функцию, которая находит минимальную длину строки в текстовом файле отличную от нуля

В текстовом файле хранится некоторый текст. Определить количество строк, в которых встречается не меньше двух ‘!’ и длина строки больше заданного ч - Pascal
В текстовом файле хранится некоторый текст. Определить количество строк, в которых встречается не меньше двух ‘!’ и длина строки больше...

Найти самое длинное и самое короткое из всех слов, записанных в текстовом файле WORDS.DAT, и записать их в файле LANG и KURZ - Pascal
Найти самое длинное и самое короткое из всех слов, записанных в текстовом файле WORDS.DAT, и записать их в файле LANG и KURZ соответственно.

текст в текстовом файле - Pascal
дан текст,ХРАНЯШИЙСЯ В ТЕКСТОВОМ ФАЙЛЕ.Подсчитать количество гласных букв в ТЕКСТЕ!!!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru