Страница 1 из 1

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

Добавлено: 16 мар 2014, 21:39
Chowder
Как изменит код что бы вывод был не в фаил а на экран консоли?

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

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

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

Добавлено: 16 мар 2014, 21:43
somewhere
Заместо writeln(g,s) использовать writeln(s)

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

Добавлено: 16 мар 2014, 21:49
Chowder
Текст то выводится, но текст не выровненный по центру.

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

Добавлено: 16 мар 2014, 21:54
Chowder
somewhere писал(а):Заместо writeln(g,s) использовать writeln(s)

текст выводиться, но выводиться не правильно

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

Добавлено: 17 мар 2014, 09:46
somewhere
а это уже другое задание) к тому же никто не знает как он должен выводится