VPF::Задача на строки - Форум программистов

Машуля

Дата 19.2.2006, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.2.2006

Репутация: нет
Всего: нет

[color=sienna] smile

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

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

Цитата

color]

Innuendo

Дата 19.2.2006, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 745
Регистрация: 24.12.2005
Где: Молдова

Репутация: нет
Всего: 6

как это сокращает?
то есть просто остаётся первый символ?
или на каждом этапе сокращения он её выводит?
Добавлено @ 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 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108

ещё вариант:

Код


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.

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »