Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 23.11.2011
Сообщений: 17
1

Из заданного текста выбрать цифры и записать в массив N, а буквы- в массив B. Все остальные символы записать в массив S

26.11.2011, 15:53. Просмотров 1656. Ответов 4
Метки нет (Все метки)

подскажите как делать
Из заданного текста выбрать цифры и записать в массив N, а буквы- в массив B. Все остальные символы записать в массив S.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2011, 15:53
Ответы с готовыми решениями:

из заданного теста выбрать цифры и записать в массив N ,а буквы - в массив B .Все остальные символы записать в массив S
Привет всем.Помогиет пожалуйста решить задачку из заданного теста выбрать цифры и записать в...

В заданной строке текста необходимо выбрать все цифры и записать их в массив
1. В заданной строке текста необходимо выбрать все цифры и записать их в массив. Подсчитайте...

Преобразовать массив следующим образом: сначала должны стоять цифры, входящие в массив, а затем все остальные символы
помогите пожайлуста с задачей. Задан массив из k символов. Преобразовать массив следующим...

Из массива X(N) все простые числа записать в массив Y(k), а остальные - в массив Z(m)
помогите пожалуйста решить задачу на языке си: Из целочисленного массива Х(N) все простые числа...

4
Модератор
61592 / 46113 / 31830
Регистрация: 18.05.2008
Сообщений: 111,154
26.11.2011, 16:08 2
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
49
50
51
52
53
54
55
56
57
uses crt;
var st:string;
    n,b,s:array[1..255] of char;
    nn,nb,ns,i:byte;
begin
clrscr;
writeln('Введите текст из букв, цифр и прочих символов:');
readln(st);
nn:=0;
nb:=0;
ns:=0;
for i:=1 to length(st) do
 begin
  if st[i] in ['0'..'9'] then
   begin
    inc(nn);
    n[nn]:=st[i];
   end
  else if st[i] in ['A'..'Z','a'..'z','А'..'п','р'..'ё'] then
   begin
    inc(nb);
    b[nb]:=st[i];
   end
  else
   begin
    inc(ns);
    s[ns]:=st[i];
   end;
 end;
writeln;
if nn=0 then writeln('Цифр нет')
else
 begin
  writeln('Массив цифр:');
  for i:=1 to nn do
  write(' ',n[i]);
  writeln;
 end;
writeln;
if nb=0 then writeln('Букв нет')
else
 begin
  writeln('Массив букв:');
  for i:=1 to nb do
  write(' ',b[i]);
  writeln;
 end;
writeln;
if ns=0 then writeln('Прочих символов нет нет')
else
 begin
  writeln('Массив прочих символов:');
  for i:=1 to ns do
  write(s[i]);
 end;
readln
end.
0
0 / 0 / 0
Регистрация: 23.11.2011
Сообщений: 17
29.11.2011, 16:30  [ТС] 3
спасибо большое!
а что такое inc?
0
6216 / 3517 / 899
Регистрация: 28.10.2010
Сообщений: 5,926
29.11.2011, 17:08 4
Цитата Сообщение от Лилия Ви Посмотреть сообщение
а что такое inc?
Pascal
1
2
3
i := i + 1;
//тоже самое что
Inc(i);
Инкремент.
2
0 / 0 / 0
Регистрация: 23.11.2011
Сообщений: 17
03.12.2011, 14:59  [ТС] 5
спасибо огромное, что так выручаете!)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2011, 14:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Из текста выбрать все числа и записать их в массив N
а) Дан текст. Из текста выбрать все числа и записать их в массив N. Массив вывести на экран. Текст...

В массив B записать все четные числа из заданного целочисленного одномерного массива A, а в массив С - нечетные
Заполнить массивы B и C, переписав в массив B все четные числа из заданного целочисленного...

Вывести на экран сначала все цифры, входящие в массив A, а затем все остальные символы
Дан массив А из k символов. Вывести на экран сначала все цифры, входящие в него, а затем все...

В первый массив перенести все цифры из исходного массива, во второй - все остальные символы
Задан массив из k символов. Создать два новых массива: в первый перенести все цифры из исходного...


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

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

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