Форум «Всё о Паскале» _ Задачи _ Создать текстовый файл и записать в него первое слово из строк веденный пользователя
Автор: Help 24.01.2008 3:09
Создать текстовый файл и записать в него первое слово из строк веденный пользователя. Напишите прогу пожалуйста чтоб она работала,мне отчет сдавать по ней.В долгу не останусь
Автор: Yevgeny 24.01.2008 7:25
Цитата
Создать текстовый файл
Вводишь имя файла, связываешь его с файловой переменной с помощью Assign(<ф.п.>,'<имя файла>') Дальше Rewrite(<ф.п.>)
Цитата
записать в него первое слово из строк веденный пользователя.
Если я правильно понял, то надо записать в созданный файл первое слово из введённых пользователем строк? Бежишь до пробела и одновременно записываешь эти символы в файл.
А вообще если тебе срочно, и в долгу не останешься, так разместил бы задание в "задачах на заказ"
Автор: Help 24.01.2008 11:01
Цитата(Yevgeny @ 24.01.2008 3:25)
Вводишь имя файла, связываешь его с файловой переменной с помощью Assign(<ф.п.>,'<имя файла>') Дальше Rewrite(<ф.п.>)
Если я правильно понял, то надо записать в созданный файл первое слово из введённых пользователем строк? Бежишь до пробела и одновременно записываешь эти символы в файл.
А вообще если тебе срочно, и в долгу не останешься, так разместил бы задание в "задачах на заказ"
МНе прогу надо написать!!!
Автор: Yevgeny 24.01.2008 18:20
Цитата
МНе прогу надо написать!!!
Так ты может быть что-нить сам напишешь???
Автор: Help 25.01.2008 0:36
Цитата(Yevgeny @ 24.01.2008 14:20)
Так ты может быть что-нить сам напишешь???
Так если бы я знал как писать,я бы не спрашивал наверное...Если не трудно напиши код пожалуйста,буду благодарен. Мне отчет надо сдавать а у меня 2 задачки не сделано из 5.Думою ты меня выручишь
Автор: Yevgeny 25.01.2008 2:00
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.
Тут тока одна строка вводится, сколько тебе их надо вводить я думаю и сам написать сможешь...