IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Создать текстовый файл и записать в него первое слово из строк веденный пользователя, Помогите решить прогу,пожалуйста
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: format

Репутация: -  -2  +


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

Сообщение отредактировано: Help -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


The matrix has me!!!
**

Группа: Пользователи
Сообщений: 74
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Цитата
Создать текстовый файл

Вводишь имя файла, связываешь его с файловой переменной с помощью Assign(<ф.п.>,'<имя файла>')
Дальше Rewrite(<ф.п.>)
Цитата
записать в него первое слово из строк веденный пользователя.

Если я правильно понял, то надо записать в созданный файл первое слово из введённых пользователем строк?
Бежишь до пробела и одновременно записываешь эти символы в файл.

А вообще если тебе срочно, и в долгу не останешься, так разместил бы задание в "задачах на заказ" smile.gif

Сообщение отредактировано: Yevgeny -


--------------------
"Брать производную можно научить даже обезьяну" - мой препод по матану! :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: format

Репутация: -  -2  +


Цитата(Yevgeny @ 24.01.2008 3:25) *

Вводишь имя файла, связываешь его с файловой переменной с помощью Assign(<ф.п.>,'<имя файла>')
Дальше Rewrite(<ф.п.>)

Если я правильно понял, то надо записать в созданный файл первое слово из введённых пользователем строк?
Бежишь до пробела и одновременно записываешь эти символы в файл.

А вообще если тебе срочно, и в долгу не останешься, так разместил бы задание в "задачах на заказ" smile.gif

МНе прогу надо написать!!! rolleyes.gif

Сообщение отредактировано: Help -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


The matrix has me!!!
**

Группа: Пользователи
Сообщений: 74
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Цитата
МНе прогу надо написать!!! rolleyes.gif

Так ты может быть что-нить сам напишешь???


--------------------
"Брать производную можно научить даже обезьяну" - мой препод по матану! :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: format

Репутация: -  -2  +


Цитата(Yevgeny @ 24.01.2008 14:20) *

Так ты может быть что-нить сам напишешь???

Так если бы я знал как писать,я бы не спрашивал наверное...Если не трудно напиши код пожалуйста,буду благодарен. Мне отчет надо сдавать а у меня 2 задачки не сделано из 5.Думою ты меня выручишь unsure.gif

Сообщение отредактировано: Help -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


The matrix has me!!!
**

Группа: Пользователи
Сообщений: 74
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Program Prog;
Var
f:text;
name:string[12];
str:string;
i:integer;
Begin
Writeln('write name of file');
Readln(name);
Assign(f,name);
rewrite(f);
Writeln('vvedite stroky');
Readln(str);
i:=1;
While str[i] <> ' ' do
Begin
Write(f, str[i]);
i:=i+1;
end;
close(f);
End.

Тут тока одна строка вводится, сколько тебе их надо вводить я думаю и сам написать сможешь... smile.gif


--------------------
"Брать производную можно научить даже обезьяну" - мой препод по матану! :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.10.2020 19:05
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name