Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Reprain
0 / 0 / 1
Регистрация: 07.10.2012
Сообщений: 53
#1

найти ошибку(удаление элемента из строки.)

25.12.2012, 15:24. Просмотров 542. Ответов 0
Метки нет (Все метки)

Даны символы S1, S2,... Известно, что символ S1 отличен
от пробела и что среди S2, S3,... имеется хотя-бы один пробел.
Рассматриваются S1,... SN - символы, предшествующие первому про-
белу (N-заранее известно). Преобразовать последовательность
S1,... SN : удалив из каждой группы цифр, которой не предшес-
твует точка, все начальные нули (кроме последнего, если за ним
идет точка ).

ТО есть,дана последовательность ,но нам надо преоброзовать(удалить нули)только ту ее часть,что идет до 1 проблела.
Совбтвенно у меня 2 плохо работающие программы

1- редакритует всю последовательность. даже то,что идет после 1 нуля...
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var s,s1,s2:string;
    i:byte;
begin
clrscr;
repeat
writeln('Введите строку, не начинающуюся пробелом, но содержащую хотя бы 1 пробел.');
readln(s);
if pos(' ',s) in [0,1] then writeln('Строка введена неверно! Повторите ввод.');
until not(pos(' ',s) in [0,1]);
s1:=copy(s,1,pos(' ',s)-1);
s2:='';
i:=1;
while i<=length(s) do
if(s[i]='0')and (s[i+1] <> '.') then i:=i+1
else
 begin
  s2:=s2+s[i];
  i:=i+1;
 end;
write(s2);
readln
end.



2- выводит только 2 часть измененой последовательности,а 2(ту ,что после 1 пробела),не выводит
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var n,s,s1,s2,q,g,h,o:string;
    i:byte;
begin
 
repeat
writeln('Ââåäèòå ñòðîêó, Г*ГҐ Г*Г*Г·ГЁГ*Г*ГѕГ№ГіГѕГ±Гї ïðîáåëîì, Г*Г® ñîäåðæГ*Г№ГіГѕ õîòÿ ГЎГ» 1 ïðîáåë.');
readln(n);
h:=copy(n,1,pos(' ',n)-()) ;
if pos(' ',n) in [0,1] then writeln('ÑòðîêГ* ââåäåГ*Г* Г*ГҐГўГҐГ°Г*Г®! Ïîâòîðèòå ââîä.');
until not(pos(' ',n) in [0,1]);
s1:=copy(n,1,pos(' ',n)-1);
s2:='';
i:=1;
q:=s1;
while i<=length(q) do
if(q[i]='0')and (q[i+1] <> '.')
 then i:=i+1
else
 begin
  s2:=s2+q[i];
  i:=i+1;
 end;
   g:=s2;
   writeLn('первая часть измененой последовательности:  ',g);
     writeLn(h)
readln
end.


У кого какие предложения есть?

Добавлено через 1 час 40 минут
пачально(
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2012, 15:24
Ответы с готовыми решениями:

Найти индекс строки и столбца максимального элемента матрицы А
Найти индекс строки и столбца максимального элемента матрицы А. поменять местами эту строку и этот...

Найти значение min элемента n строки и m столбца в которой он расположен
Найти значение min элемента n строки и m столбца в которой он расположен. Если можно в виде...

Найти номер строки и столбца максимального элемента двумерного массива целых чисел
Доброго времени суток) Помогите пожалуйста решить несколько задач на массивы. Я в этом полный...

Найти значение максимального первого элемента матрицы, а также номер строки и столбца
Пусть матрица А целых чисел 100 на 100 записана по строкам в файли.Знайты значения максимального...

Найти в каждой строке минимальный и максимальный элементы и поместить их на место первого и последнего элемента строки соответственно
Помогите найти ошибку) неприсваивает program mn; uses crt; Var i,j,n,max,min,l,b:integer;...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2012, 15:24

Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно
Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого...

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 считываются два...

Удаление элемента
Народ, помогите пожалуйста найти ошибку в следующей программе: Вводится длина одномерного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru