Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Pashapasvlik
0 / 0 / 0
Регистрация: 12.02.2013
Сообщений: 10
1

Данная строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы, состоящие только из нулей

13.02.2013, 01:39. Просмотров 1018. Ответов 2
Метки нет (Все метки)

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

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой группы одним или несколькими пробелами. Подсчитать количество симво
Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от...

найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц
Требуется найти самую длинную непрерывную цепочку нулей в последовательности...

Сгенерировать и вывести на экран массив 10x10 из нулей и единиц
Сгенерировать и вывести на экран массив 10x10 из нулей и единиц так, чтобы...

Подсчитать и вывести на экран количество N и номера таких столбцов, в которых нулей больше чем единиц
Матрицу М(12, 10) заполнить нулями и единицами случайным образом. Подсчитать и...

Замените все группы подряд встречающихся нулей на количество подряд идущих нулей
Дан одномерный массив В(М), содержащий большое количество нулевых элементов....

2
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,020
13.02.2013, 08:18 2
Лучший ответ Сообщение было отмечено Pashapasvlik как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
var s,s1:string;
    c:char;
    n,i,j,k:byte;
    f:boolean;
begin
clrscr;
writeln('Введите строку из групп единиц и нолей, разделенных пробелами');
writeln('конец ввода Enter');
s:='';
repeat
c:=readkey;
if c in ['0','1',' '] then
 begin
  write(c);
  s:=s+c;
 end;
if c=#13 then writeln
until c=#13;
n:=length(s);
i:=1;
k:=0;
while i<=n do
if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  j:=i;
  s1:='';
  while(j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  j:=1;
  f:=true;
  while(j<=length(s1))and f do
  if s1[j]<>'0' then f:=false
  else j:=j+1;
  if f then
   begin
    writeln(s1);
    k:=1;
   end;
  i:=i+length(s1)
 end
else i:=i+1;
if k=0 then write('Нет групп, состоящих из одних нолей');
readln
end.
2
Pashapasvlik
0 / 0 / 0
Регистрация: 12.02.2013
Сообщений: 10
13.02.2013, 12:37  [ТС] 3
огромное спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2013, 12:37

В массиве В(п) найти количество нулей и единиц
Задача на одномерный массив: В массиве В(п) найти количество нулей и единиц.

Найти и вывести на экран группы, которые состоят с двух единиц
дана строка,что состоит из групп нулей и единиц.Каждая группа отделяется друг...

Компоненты типизированного файла - массивы, состоящие из семи вещественных чисел. Вывести те, которые не содержат нулей
1.Компоненты типизированного файла - массивы, состоящие из семи вещественных...


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

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

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