Обработка символьных данных

@clopjkeee · Регистрация: 17.03.2011

Author24 — интернет-сервис помощи студентам

Написать программу, которая читает с клавиатуры строку символов, преобразует ее и выводит результат на дисплей. Длина строки не вводится, а определяется. Если строка не удовлетворяет условию, выдать сообщение.
Найти соотношение букв и цифр в строке, напечатать его и удалить все символы '*' из строки, добавив в конец такое же количество символов '!'.

@Puporev · 28.04.2011, 12:25

Pascal

uses crt;
var c:char;
    s:string;
    i,bk,cf,k:byte;
begin
writeln('Введите строку, окончание ввода Enter');
s:='';
bk:=0;
cf:=0;
repeat
c:=readkey;
if c<>#13 then
 begin
  write(c);
  s:=s+c;
  if c in ['A'..'Z','a'..'z','А'..'я','Ё','ё'] then inc(bk)
  else if c in ['0'..'9'] then inc(cf);
 end
else writeln;
until c=#13;
writeln('Букв=',bk,'  цифр=',cf);
writeln('Соотношение букв и цифр=',bk/cf:0:2);
k:=0;
for i:=length(s) downto 1 do
if s[i]='*' then
 begin
  k:=k+1;
  delete(s,i,1);
 end;
for i:=1 to k do
s:=s+'!';
write(s);
end.

@clopjkeee 0 / 0 / 0 Регистрация: 17.03.2011 Сообщений: 7
		1
	Обработка символьных данных 27.04.2011, 22:46. Показов 1411. Ответов 1 Метки нет (Все метки) Написать программу, которая читает с клавиатуры строку символов, преобразует ее и выводит результат на дисплей. Длина строки не вводится, а определяется. Если строка не удовлетворяет условию, выдать сообщение. Найти соотношение букв и цифр в строке, напечатать его и удалить все символы '*' из строки, добавив в конец такое же количество символов '!'. 0

	28.04.2011, 12:25

Обработка символьных данных

Решение