Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
net_haker1
0 / 0 / 2
Регистрация: 02.10.2013
Сообщений: 155
1

Определить, совпадают ли первое слово в первой строке файла с первым словом последней строки файла

30.10.2013, 10:30. Просмотров 869. Ответов 1
Метки нет (Все метки)

Определить, совпадают ли первое слово в первой строке файла с первым словом последней строки файла.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.10.2013, 10:30
Ответы с готовыми решениями:

Определить, совпадают ли первое слово в первой строке файла с первым словом последней строки файла.
1)Определить, совпадают ли первое слово в первой строке файла с первым словом последней строки...

Дан текстовый файл, содержащий строки. В каждой строке поменять в данном тексте самое короткое слово с первым словом
Дан текстовый файл, содержащий строки. В каждой строке поменять в данном тексте самое короткое...

Даны два текстовых файла. Сравнить файлы. Если они не совпадают, то получить номер первой отличающейся строки
Задали сделать задачу, вот текст задачи.Даны два текстовых файла. Сравнить файлы. Если они не...

Записать в каждую строку первое слово соответствующей строки исходного файла
Дан текстовый файл. Создать новый текстовый файл ,записав в каждую его строку первое слово...

Переписать в новый файл из исходного файла первое слово каждой строки
Вывести первую и последнюю строки файлы. Переписать в новый файл из исходного файла первое слово...

1
net_haker1
0 / 0 / 2
Регистрация: 02.10.2013
Сообщений: 155
19.11.2013, 23:24  [ТС] 2
Лучший ответ Сообщение было отмечено net_haker1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var
F1:Text;
x1,x2:String;
i,k,z:integer;
Begin
     Assign (F1, 'C:\Program Files (x86)\PABC\soso.txt');
     Reset(F1);
     While Not(Eof(F1)) Do
           Begin
                Readln(F1, x2);
           End;
     x2:=Copy(x2,1,Pos(' ',x2));
     Writeln(x2);
     Reset(F1);
     Readln(F1,x1);
     x1:=Copy(x1,1,Pos(' ',x1));
     If x1=x2 then writeln('Совпадает') else
     writeln('не совпадает');
     Close(F1);
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2013, 23:24

Переписать в новый файл из исходного файла первое слово каждой строки
2, Переписать в новый файл из исходного файла первое слово каждой строки.

Определить совпадают ли компоненты файла F с компонентами файла G (файлы текстовые)
Составить програму на Паскале для розвязания задачи: Даны текстовые файлы F и g. Определить...

Найти самое короткое слово, начинающееся на букву "а", и поменять его с первым словом в строке
Найти самое короткое слово начинающееся на букву "а", и поменять его с первым словом в строке Буду...


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

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

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