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

[Help]

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

Сообщение отредактировано: Help - 23.01.2008 23:16

[Yevgeny]

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

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

записать в него первое слово из строк веденный пользователя.

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

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

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

[Help]

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

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

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

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

Сообщение отредактировано: Help - 24.01.2008 7:03

[Yevgeny]

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

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

[Help]

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

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

Сообщение отредактировано: Help - 24.01.2008 20:44

[Yevgeny]

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. 

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