Учу паскаль, сейчас вот пишу программу и она не работает, хотя компилится.
Вариант без процедуры возможен, но вроде как надо отработать именно ее (или функцию, я в них все еще путаюсь) и работу с файлом.
Вопрос: где порылась собачка?
Программа для построчной записи вводимых строк в файл
procedure W(s: string);{Процедура на запись строки в файл}
var k: integer;
F: text;
begin
for k:=1 to Length (s) do
write (F, s[k]); {вот тут я не знаю - надо ли снова привязывать файл F к a.txt, если это делалось в основной программе?}
writeln (''); {Это просто перевод строки, я по-другому пока не умею :) }
end;
{Основная программа}
var F: text;
S: string;
begin
Assign (F, 'a.txt');
Rewrite (F);
repeat
writeln('Введите строку и нажмите ентер. Пустая строка - выход'); Readln(S);
if S<>'' then W(S) else breack;
until false
Close (F);
end.
Примечание:
мммм.. глобальной переменной? хорошая идея, не подумала.. А привязывать к файлу тогда в какой момент?
Примечание:
Да, уже исправила про переход строки, спасибо
Брейк тоже исправила :)
Спасибо огромное, все заработало!!!!
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.