Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
3 / 12 / 0
Регистрация: 26.10.2018
Сообщений: 165
1

Процедура создания типизированного файла, состоящего из первых слов каждой строки данного текстового файла

05.05.2019, 16:22. Просмотров 949. Ответов 4
Метки нет (Все метки)

процедура создания типизированного файла, состоящего из первых слов каждой строки данного текстового файла имеет вид
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.05.2019, 16:22
Ответы с готовыми решениями:

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

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

Получить текст из первых слов каждой строки файла
Помогите с дз=) Задание: дан текстовый файл,получить текст,из первых слов каждой строки данного...

Написать процедуру создания типизированного файла из первых строк целочисленной матрицы
Процедура создания файла типизированного из первых строк целочисленный матриц 4-го порядка,...

4
Модератор
62221 / 46516 / 32069
Регистрация: 18.05.2008
Сообщений: 112,446
05.05.2019, 18:03 2
Цитата Сообщение от Бодрый666 Посмотреть сообщение
имеет вид
Какой?
0
3 / 12 / 0
Регистрация: 26.10.2018
Сообщений: 165
05.05.2019, 18:05  [ТС] 3
Puporev, Меня тоже интересует этот вопрос))) Это и надо описать.
0
Модератор
62221 / 46516 / 32069
Регистрация: 18.05.2008
Сообщений: 112,446
05.05.2019, 18:24 4
Лучший ответ Сообщение было отмечено Бодрый666 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses sysutils;
type strok=string[50];
     tfile=file of strok;
procedure soz_file(var f:text;var g:tfile;namef,nameg:strok);
var s:string;
    s1:strok;
begin
assign(f,namef);
reset(f);
assign(g,nameg);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s:=trimleft(s);//удалим пробелы в начале строки
  s1:=copy(s,1,pos(' ',s)-1); //возьмем первое слово до пробела
  write(g,s1); //запишем в типизированный файл
 end;
close(f);
close(g);
end;
1
3 / 12 / 0
Регистрация: 26.10.2018
Сообщений: 165
05.05.2019, 18:27  [ТС] 5
Спасибо,а то я гетворды собирался использовать)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2019, 18:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вывод слова из текстового файла состоящего из нескольих слов
Господа, помогите кодом , я толком и не понимаю... Надо из текстового файла вывести слово...

Записать в конец каждой строки текстового файла количество слов в этой строке
Начинаю писать программы в Паскале, можете помочь с этой задачей? "Записать в конец каждой строки...

Вставить в конец каждой строки текстового файла число N, равное количеству слов в строке
Откорректировать данный текстовый файл Т, вставляя в конец каждой его строки число N, равное...

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


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

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

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