1 / 1 / 0
Регистрация: 22.11.2012
Сообщений: 25
1

Подсчитайте количество запятых в заданном тексте

21.12.2012, 15:51. Показов 10215. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. Подсчитайте количество запятых в заданном тексте.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2012, 15:51
Ответы с готовыми решениями:

Подсчитайте, сколько раз в заданном тексте встречается заданный символ
2. Подсчитайте, сколько раз в заданном тексте встречается заданный символ.

Подсчитайте количество заглавных букв в тексте
Дали индивидуальное задание, не могу его ни как сделать. Помогите! Задание: Подсчитайте кол-во в...

Напишите программу, используя подпрограмму-функцию , которая вычислит количество пробелов, запятых в заданном тексте
Пожалуйста , напишите программу , используя подпрограмму-функцию , которая вычеслит количество...

Подсчитайте количество запятых в заданном тексте
Подсчитайте количество запятых в заданном тексте.

2
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
22.12.2012, 00:09 2
Лучший ответ Сообщение было отмечено Шульга Галина как решение

Решение

только не знаю как сделать чтобы в массиве были запятые
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program poisk;
uses crt;
var a:array[1..100] of char;
i,k,n:integer;
begin
begin
  write('ââåäèòå n='); readln (n);
      For i:=1 to n do begin
        write(a[i]:4);
        end;
k:=0;
for i:=1 to n do begin
if A[i]=',' then k:=k+1;
end;
writeln('kolichestvo zapyatix=',k);
end;
end.
Добавлено через 5 минут
не знаю как заполнить вектор рендомными символами)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program poisk;
uses crt;
var a:array[1..100] of char;
text:char;
i,k,n:integer;
begin
 write('ââåäèòå èñêîìûé ñèìâîë=');
 read(text);
 write('ââåäèòå n='); readln (n);
k:=0;
for i:=1 to n do begin
if A[i]=',' then k:=k+1;
end;
writeln('kolichestvo simvolov=',k);
 
end.
0
Добры_Змейка
53 / 53 / 43
Регистрация: 09.06.2010
Сообщений: 170
22.12.2012, 00:10 3
а зачем массив то?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var
   s:string;
   i,sum:integer;
   
BEGIN
   write('Введите строку :');
   readln(s);
   
   sum:= 0;
   for i:= 1 to length(s)do
       if s[i] = ',' then inc(sum);
       
   writeln;
   
   write('количество запятых = ',sum);
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2012, 00:10
Помогаю со студенческими работами здесь

Подсчитайте количество запятых в заданном тексте
1. Подсчитайте количество запятых в заданном тексте.

Подсчитать количество запятых в заданном тексте
Подсчитать количество запятых в заданном тексте. Кто нибудь знаеть это в Q-Basic?:help:

Подсчитать количество запятых в заданном тексте.
подскажите, какие операторы нужны!

Посчитайте количество запятых в заданном тексте
1. Посчитайте количество запятых в заданном тексте. 2. Из заданного слова «matematika» составьте...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru