Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Надпись по диагонали

Автор: Slam 17.03.2003 21:04

Напечатать исходный текст в следующем виде:
                            Т
                          Е
                        К
                      С
                    Т

Автор: AlaRic 17.03.2003 22:16

В уроках есть нечто похожее...смотри 16-й!

Автор: Ivs 18.03.2003 0:22

Код

program Text;
uses crt;
var
  s:string;
  x,y:integer;
begin
  ClrScr;
  s:='TEXT';
  x:=length(s);
     for y:=1 to length(s) do
     begin
        gotoxy(x,y);
        write(s[y]);
        dec(x);
     end;
  readln;
end.

Автор: Slam 18.03.2003 0:38

Спасибо!
Но текст должен вводить сам пользователь.

Автор: Ivs 18.03.2003 0:48

Ну так....

Код

program Text;
uses crt;
var
  s:string;
  x,y:integer;
begin
  write('Input text -> ');
  readln(s);
  ClrScr;
  x:=length(s);
     for y:=1 to length(s) do
     begin
        gotoxy(x,y);
        write(s[y]);
        dec(x);
     end;
  readln;
end.

Автор: Slam 18.03.2003 1:02

Ещё раз спасибо, я уж сам понял.
Сначала пишу, потом думаю...