Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2011, 21:36   #1
Katrina*
Пользователь
 
Регистрация: 19.12.2011
Сообщений: 29
Вопрос Почему не записывает ответ в файл (Паскаль)

Почему не записывает ответ в C.out?

Код:
Program zadanie;
var f1,f2:text;
a,i,sum:integer;
begin
assign(f1,'C.in');
assign(f2,'C.out');
reset(f1); rewrite(f2);
read(f1,a);
sum:=0;
for i:=1 to a-1 do
if a mod i=0 then
begin
sum:=sum+i;
if sum>a then break;
end;
if sum>=a then write (f2,'yes')
else write (f2,'no');
close(f1); close(f2);
end.

______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)


Модератор.

Последний раз редактировалось Serge_Bliznykov; 21.12.2011 в 00:45.
Katrina* вне форума Ответить с цитированием
Старый 21.12.2011, 00:47   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

если ошибка не выдаётся, то наверняка всё записывает.
ищите по пути, который является текущим в момент запуска вашего EXE файла...
или укажите полный путь к файлу:
Код:
assign(f2,'c:\pascal\C.out');
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 85 тыс рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Free Pascal. Программа создает файл, но не записывает в него нужную переменную. Slap Паскаль, Turbo Pascal, PascalABC.NET 0 23.06.2011 12:43
Не записывает текст в файл .( gefest58 Общие вопросы Delphi 1 24.04.2011 19:56
Файл, выводит не правильный ответ. Telec Общие вопросы C/C++ 7 11.05.2010 19:30
Закачать файл на сайт и принять ответ coadmin Работа с сетью в Delphi 4 22.08.2008 23:19