Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2007, 14:07   #1
Artem1987
Пользователь
 
Регистрация: 17.10.2007
Сообщений: 15
По умолчанию Pascal Даны символы S1.........

Даны символы S1, S2... звестно, что символ S1 отличен от пробела и что среди S2, S3 ...
иеется хотя бы один пробел. Рассматриваются S1,... , Sn-символы, предшествующие первому пробелу(n зарание неизвестно). Преобразовать последовательность S1,... , Sn,
уалив из каждой группы идущих подряд цифр, в которой более двух цифр , и которой предшествует точка. Все цифры, начиная с третьей (например, А*В+0.1973-1.1 преобразуется в А*В+0.19-1.1).

Я чет даж условие понять не могу!

Последний раз редактировалось Artem1987; 10.11.2007 в 14:13.
Artem1987 вне форума Ответить с цитированием
Старый 10.11.2007, 14:59   #2
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Код:
var
  S,S1: string;
  n,i: integer;
begin
  readln(S);
  n:=pos(' ',S);
  if n > 0 then S:=copy(S,1,n-1);
  S1:='';
  repeat
    n:=pos('.',S);
    if n = 0 then break;
    i:=n+1;
    while S[i] in ['0'..'9'] do i:=i+1;
    i:=i-n-1;
    if i > 2 then delete(S,n+3,i-2);
    S1:=S1+copy(S,1,n+3);
    delete(S,1,n+3);
  until false;
  S1:=S1+S;
  writeln(S1);
  readln;
end.
_Dmitry вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны числа от 100 до 999. Вводится индекс... Ci_novice Помощь студентам 4 19.04.2008 12:59
символы Rend1 Общие вопросы Delphi 1 10.04.2008 01:39
Даны координаты центров n окружностей.... ZhooZhik Помощь студентам 3 09.01.2008 19:11
Даны три числа. Выберите те из них, которые принадлежат заданному отрезку [а, b]. Sheff903 Помощь студентам 1 27.11.2007 21:28
Паскаль. 1.Даны массивы.2 Дан X найти... Stelix Помощь студентам 7 20.11.2007 21:08