Разработать программу, которая определяет сколько в строке букв, одинаковых с заданной буквой

@VergilL · Регистрация: 21.11.2012

Разработать программу, которая определяет сколько в строке букв, одинаковых с буквой, введенных с клавиатуры. При этом нельзя использовать массивы.

@Reveng · 24.11.2012, 12:39

Pascal

uses crt;
 
var
  Text : string;
  Words : char;
  Count : integer;
begin
ClrScr;
Write('Текст: '); Readln(Text);
Write('Буква: '); Readln(Words);
count := 0;
while pos(Words, Text) <> 0 do
  begin
  delete(Text, pos(Words, Text), 1);
  inc(count);
  end;
Writeln('Количество повторений: ', Count);  
end.

go · 24.11.2012, 21:51

Сообщение от VergilL

При этом нельзя использовать массивы.

Как тогда строку будете хранить?

@VergilL · 03.12.2012, 12:20 **[ТС]**

А возможно ли сделать эту же программу, без применения типа string?

go · 03.12.2012, 15:35

VergilL, можно, но сначала нужно ввести символ, который ищут.

@VergilL 0 / 0 / 0 Регистрация: 21.11.2012 Сообщений: 7
		1
	Разработать программу, которая определяет сколько в строке букв, одинаковых с заданной буквой 23.11.2012, 18:58. Показов 1404. Ответов 4 Метки нет (Все метки) Разработать программу, которая определяет сколько в строке букв, одинаковых с буквой, введенных с клавиатуры. При этом нельзя использовать массивы. 0

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	24.11.2012, 21:51	3
	Сообщение от VergilL При этом нельзя использовать массивы. Как тогда строку будете хранить? 1

@VergilL 0 / 0 / 0 Регистрация: 21.11.2012 Сообщений: 7
	03.12.2012, 12:20 [ТС]	4
	А возможно ли сделать эту же программу, без применения типа string? 0

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	03.12.2012, 15:35	5
	VergilL, можно, но сначала нужно ввести символ, который ищут. 0

Опции темы