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

@Durr · Регистрация: 02.12.2012

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

При этом нельзя использовать массивы и строки
вот как сделана программа с использованием строки:

Pascal

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.

Добавлено через 22 часа 57 минут
так вообще возможно решить?

@Paster Fob · 12.12.2012, 18:25

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

так вообще возможно решить?

Так например:

Pascal

var
  count:integer;
  c,ch:char;
 
begin
  writeln('введите символ ');
  readln(c);
  writeln('введите строку,окончание ввода: . ');
  count:=0;
  repeat
    read(ch);
    if ch=c then inc(count);
  until ch='.';
  writeln('кол-во повторений  ',count);
  readln;
  readln
end.

@Durr · 12.12.2012, 19:01 **[ТС]**

Paster Fob в твоей программе не показывает результат

@Paster Fob · 12.12.2012, 20:01

согласно условию

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

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

какой ещё результат?

@Durr · 12.12.2012, 20:12 **[ТС]**

количество повторений

@Paster Fob · 12.12.2012, 20:18

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

Paster Fob в твоей программе не показывает результат

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

количество повторений

а это что?

Сообщение от Paster Fob

writeln('кол-во повторений *',count);

@Durr · 12.12.2012, 20:28 **[ТС]**

Сообщение от Paster Fob

а это что?
Сообщение от Paster Fob
writeln('кол-во повторений *',count);

Я запускаю программу
введите символ =
введите строку,окончание ввода=

дальше ничего, результата нет

@Paster Fob · 12.12.2012, 20:32

окончание ввода точка.После нажимай Enter

@Durr · 12.12.2012, 20:40 **[ТС]**

Сообщение от Paster Fob

окончание ввода точка.После нажимай Enter

теперь да есть, спасибо вам=)

@Paster Fob · 12.12.2012, 21:08

Вот ещё вариант:

Pascal

var
  count:integer;
  c,ch:char;
 
begin
  writeln('введите символ ');
  readln(c);
  writeln('введите строку ');
  count:=0;
  repeat
    read(ch);
    if ch=c then inc(count);
  until ord(ch)=13;
  writeln('кол-во повторений  ',count);
  readln;
  readln
end.

@Durr 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 7
	12.12.2012, 19:01 [ТС]	3
	Paster Fob в твоей программе не показывает результат 0

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	12.12.2012, 20:01	4
	согласно условию Сообщение от Durr Разработать программу, которая определяет сколько в строке букв, одинаковых с буквой, введенных с клавиатуры. какой ещё результат? 0

@Durr 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 7
	12.12.2012, 20:12 [ТС]	5
	количество повторений 0

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	12.12.2012, 20:18	6
	Сообщение от Durr Paster Fob в твоей программе не показывает результат Сообщение от Durr количество повторений а это что? Сообщение от Paster Fob writeln('кол-во повторений *',count); 1

@Durr 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 7
	12.12.2012, 20:28 [ТС]	7
	Сообщение от Paster Fob а это что? Сообщение от Paster Fob writeln('кол-во повторений *',count); Я запускаю программу введите символ = введите строку,окончание ввода= дальше ничего, результата нет 0

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	12.12.2012, 20:32	8
	окончание ввода точка.После нажимай Enter 1

@Durr 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 7
	12.12.2012, 20:40 [ТС]	9
	Сообщение от Paster Fob окончание ввода точка.После нажимай Enter теперь да есть, спасибо вам=) 0

Опции темы