var  s:string;
  i,x,c:integer;
 
 begin
 s:=memo1.text;
  for i:=1 to length(s) do
   begin
         if s[i]=' ' then x:=0;
         if s[i]='a' then  x:=1;
         if s[i]='b' then  x:=2;
         if s[i]='c' then  x:=3;
 
     с:=(x*2);
     memo2.text:=inttostr(с);
end;

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.03.2014, 14:23

Ответы с готовыми решениями:

Вывод текста на символьный дисплей
Как бы поизящнее текст выводить? Пока стандартные либы не использую, так как сразу идет расход...

используя только символьный вывод printf, вывести значение целой переменной k
используя только символьный вывод, то есть функцию printf ("% c", s), где s - переменная типа char,...

Написать программу вывода натурального числа, используя только символьный вывод
Написать программу вывода натурального числа, используя только символьный вывод

Используя символьный вывод, напечатать любое заданное вещественное число в следующем виде
1)В одной строке экрана вводится последовательность символов (тип char). Ввод завершить символом...

	30.03.2014, 14:23

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.03.2014, 14:23

Помогаю со студенческими работами здесь

Скопировать одномерный символьный массив в двумерный символьный массив
Здравствуйте, учусь программировать на Си. Столкнулся с проблемой: не могу скопировать одномерный...

Символьный файл
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы,...

Символьный тип
Задано строку. Посчитать, сколько в нем букв 'i' 'k' 'l'

Символьный цикл
К примеру есть массив со значениями "a,b,c,d,e". Надо построить цикл который перебирал бы все...

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

Или воспользуйтесь поиском по форуму:

Наверх