Изменить код Pascal abc

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Chowder
Сообщения: 9
Зарегистрирован: 16 мар 2014, 21:35

Как изменит код что бы вывод был не в фаил а на экран консоли?

Код: Выделить всё

uses crt;
var f,g: text;
    s: string;
    i: byte;
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f); rewrite(g);
while not (eof(f)) do
      begin
      readln(f,s);
      if odd(length(s)) then s:=' '+s;
      for i:=1 to (50-length(s)) div 2 do
          s:=' '+s;
      writeln(g,s);
      end;
close(f); close(g);
end
Аватара пользователя
somewhere
Сообщения: 1858
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

Заместо writeln(g,s) использовать writeln(s)
It's a long way to the top if you wanna rock'n'roll
Chowder
Сообщения: 9
Зарегистрирован: 16 мар 2014, 21:35

Текст то выводится, но текст не выровненный по центру.
Chowder
Сообщения: 9
Зарегистрирован: 16 мар 2014, 21:35

somewhere писал(а):Заместо writeln(g,s) использовать writeln(s)

текст выводиться, но выводиться не правильно
Аватара пользователя
somewhere
Сообщения: 1858
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

а это уже другое задание) к тому же никто не знает как он должен выводится
It's a long way to the top if you wanna rock'n'roll
Ответить