Помощь - Поиск - Пользователи - Календарь
Полная версия: Надпись по диагонали
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
Ещё раз спасибо, я уж сам понял.
Сначала пишу, потом думаю...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.