Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Reprain
0 / 0 / 0
Регистрация: 07.10.2012
Сообщений: 53
#1

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

25.12.2012, 15:24. Просмотров 537. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос найти ошибку(удаление элемента из строки.) (Pascal):

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

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

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

Найти номер строки и столбца максимального элемента двумерного массива целых чисел - Pascal
Доброго времени суток) Помогите пожалуйста решить несколько задач на массивы. Я в этом полный ноль... :-[ 1. В массиве FAM$ (N) список...

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

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

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

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде - Pascal
Вот,например массив 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 считываются два числа m и n и далее в выходной...

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

Программа пишет ошибку!! Помогите найти ошибку - Pascal
Program Summa; var i, N, M: integer; begin Writeln ('Введите значение N:'); Read (N); M:=0; For i:=1 To N ...

Удаление элемента массива - Pascal
Пожалуйста помогите как мне удалить информационную часть из массива записи? вот описание: TMain = record info: Integer;...


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

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

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