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

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

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

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2011, 16:51   #1
iSkulll
Пользователь
 
Регистрация: 09.02.2011
Сообщений: 19
Сообщение Ввод информации в файл .txt

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

Код:
program PR13_1;
var
   i,n: integer;
   spisok:text;
   fio: string[30];
   gdr:1980..1990;
   inf,mat,fiz:2..5;
begin
   assign(spisok,'sp.txt');
   rewrite(spisok);
   writeln('Введите количество студентов');
   readln(n);
   for i:=1 to n do
    begin
      writeln('Введите фамилию студента');
      readln(fio);
      writeln(spisok,fio);
      writeln('Введите год рождения');
      readln(spisok,gdr);
      writeln('Оценка по информатике');
      readln(inf);
      Writeln(spisok,inf);
      writeln('Оценка по математике');
      readln(mat);
      writeln(spisok,mat);
      writeln('Оценка по физике');
      readln(fiz);
      writeln(spisok,fiz);
    end;
  close(spisok);
end.
iSkulll вне форума Ответить с цитированием
Старый 17.02.2011, 17:28   #2
iSkulll
Пользователь
 
Регистрация: 09.02.2011
Сообщений: 19
По умолчанию

Heeelp me, please
iSkulll вне форума Ответить с цитированием
Старый 17.02.2011, 17:40   #3
New man
Форумчанин
 
Регистрация: 24.01.2011
Сообщений: 774
По умолчанию

Цитата:
Сообщение от iSkulll Посмотреть сообщение

Код:
      writeln('Введите год рождения');
      readln(spisok,gdr);
Код:
readln(gdr)
a.k.a. Angelicos Phosphoros
Мой сайт
New man вне форума Ответить с цитированием
Старый 17.02.2011, 21:11   #4
iSkulll
Пользователь
 
Регистрация: 09.02.2011
Сообщений: 19
По умолчанию

Какая глупая ошибка))) спасибо)
iSkulll вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввод вывод информации Evacuator Общие вопросы C/C++ 3 15.10.2010 21:35
Ввод/ вывод информации acmilan PHP 28 05.06.2009 21:36
Ввод информации в ячейку tae1980 Microsoft Office Excel 0 22.03.2009 09:11
ввод информации с клавиутуры в двумерный масив, запись информации с масива в файл x_omega_x Помощь студентам 1 29.12.2008 02:30
Как прочесть txt файл www.site.ru/info.txt BR17UY Работа с сетью в Delphi 1 16.04.2007 13:01