Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
Вернуться
Тема: как прочитать более 255 символов на фри паскале?
1
  1  Мистер Питкин, 21 декабря 2018 г. 19:54:43
      var
s : ansistring;
begin
readln(s);
writeln(s);
end.
  2  Беляев Сергей Николаевич, 21 декабря 2018 г. 13:28:59
      На этом сайте решения на Free Pascal компилируются в режиме "делфи" (ключ -Mdelphi), это означает, что длины строк могут быть большими и ограничиваются лишь оперативной памятью.
  3  Бородовский Андрей Арександрович, 21 декабря 2018 г. 13:27:35
      делаю так

var
q: array[1..1000000] of char;
t1: text;
length:integer;

assign(t1, 'input.txt');
reset(t1);
repeat
inc(length);
read(t1, q[length]);
until (eof(t1));
close(t1);
  4  Бородовский Андрей Арександрович, 21 декабря 2018 г. 13:26:13
      помогите очень прошу
1

Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!

Красноярский краевой Дворец пионеров, (c)2006 - 2019, E-mail: admin@acmp.ru