Помощь - Поиск - Пользователи - Календарь
Полная версия: Продолжаем мучаться со строками. :(
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
DD
5.05.2005 20:05
Привет, ALL!

Программа. Дана последовательность содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: перенести последнюю букву в начало слова.

Помогите программу написать.. sad.gif Что-то со строками у меня вообще проблемы.. По возможности отблагодарю..
volvo
5.05.2005 20:10
Сначала читаем здесь: FAQ: Строки - Теория
Для разбиения строки на слова - FAQ: Строки

FAQ пишется не просто для красоты...
DD
5.05.2005 20:46
Цитата(volvo @ 5.05.05 20:10)
FAQ пишется не просто для красоты...


Ну начал.. sad.gif А как организовать правильно перенос букв?

Код


Program laba2;
Uses Crt;
Type stroka = array[2..30] of string;
Var
  i,j,k:byte;
  s:char;
  a:stroka;b:string[10];
  flag:boolean;
Begin
    clrscr;
    i:=0;
    read(s);
  while s<>'.' do begin
   i:=i+1;
   j:=0;
   a[i]:=b;
   a[i]:='          ';
   
   while (s<>' ') and (s<>'.') do begin
    j:=j+1;
    a[i,j]:=s;
    read(s);
    b[j]:=s
   end;
   
    if s=' ' then
     begin
     read(s);
     b[j]:=s
    end;

Caries
5.05.2005 20:52
Можно с помощью функций copy и delete
volvo
5.05.2005 21:15
Цитата(DD @ 5.05.05 20:46)
А как организовать правильно перенос букв?

Теорию для этого знать нужно. Что вообще из себя представляет строка, и как можно обращаться к отдельным ее элементам и подстрокам. Это уже расписано "от и до", и каждый раз переписывать ЧаВО нет смысла.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.