Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Object Pascal: кроссплатформенные технологии > Задача на строки

Автор: Машуля 19.2.2006, 12:56

[color=sienna] smile

народ,помогите кто-нибудь с задачей на строки,у меня паскаль уже пройденный этап,но видно слишкомпройденный. задачу на строки не могу решить. хоть вешайся.
smile

задача: написать программу ввода и вывода строки,ктр. сокращает ее на 1 символ до тех пор пока в строке не останется 1 символ.
вроде простая задача-то,как 2*2,в три строчки, аж прям стыдно что решить не могу!!!! smile

Цитата

color]

Автор: Innuendo 19.2.2006, 13:04

как это сокращает?
то есть просто остаётся первый символ?
или на каждом этапе сокращения он её выводит?
Добавлено @ 13:18
если я так понял вопрос то вот как это будет выглядеть:

Код


program new;
 uses crt;
 var
  str:string;
  i:integer;
  begin
   clrscr;
    write('Enter a string: ');
    readln(str);
    writeln(str);
     for i:=1 to length(str) do
      writeln(copy(str,1,length(str)-i));
   readln;
  end.

Автор: Albinos_x 19.2.2006, 15:36

ещё вариант:

Код


program new;
 uses crt;
 var
  str:string;
  begin
   clrscr;
    write('Enter a string: ');
    readln(str);
    writeln(str);
    while length(str)>1 do
      begin
      delete(s,length(str)-1,1);
      writeln(str);
      end;
   readln;
  end.