Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
#1

Подсчитать количество букв во втором слове строки - PascalABC.NET

16.06.2014, 19:41. Просмотров 811. Ответов 1
Метки нет (Все метки)

Задание 1
Дан символ (вводится с клавиатуры). Вывести два символа, первый из которых предшествует этому символу, второй следует за ним в кодовой таблице. Задание 2 Подсчитать количество букв во втором слове строки. Удалить из строки втрое слово.
http://www.cyberforum.ru/pascalabc-net/thread1968273.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2014, 19:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчитать количество букв во втором слове строки (PascalABC.NET):

Подсчитать количество букв “к” в самом длинном слове
Здравствуйте! Помогите, пожалуйста, с задачей 7. В заданном русском тексте...

Подсчитать количество групп букв aа в последнем слове данной последовательности символов
Дана строка s, содержащая менее чем 256 символов и представляющая собой набор...

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

Подсчитать количество букв о, м, и к в слове
помогите пожалуйста составить программу <Пользователь вводит слово....

Дана строка. Подсчитать количество букв К в последнем её слове..
Дана строка. Подсчитать количество букв К в последнем её слове.. Айй что...

1
AlexKolc
191 / 161 / 116
Регистрация: 14.09.2013
Сообщений: 302
17.06.2014, 02:36 #2
Лучший ответ Сообщение было отмечено Dimaalex11 как решение

Решение

1 задание
Pascal
1
2
3
4
5
6
7
var
  c: char;
  
begin
  readln(c);                             //ord - преобразование символа в код символа
  writeln(chr(ord(c) - 1),' ',chr(ord(c) + 1))  //chr - преобразование кода символа в символ
end.
Добавлено через 22 минуты
2 задание
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
  s: string;
  i, k, p: integer;
  
begin
  writeln('Введите вашу строку: ');
  readln(s);
  i := 1;
  while s[i] = ' ' do    //Смотрю нет ли пробелов перед
    i := i + 1;              //первым словом
  while s[i] <> ' ' do   //Прохожу 1 слово
    i := i + 1;
  while s[i] = ' ' do    //Вдруг не один пробел перед 2 словом
    i := i + 1;
  p := i + 1; //Запоминаю начало 2 слова
  k := 0;
  while (s[i] <> ' ')and(i <= length(s)) do
    begin             //Считаю количество букв,
      i := i + 1;         //но т.к. слова может быть лишь 2
      k := k + 1        //и после 2 слова может и не быть пробелов вовсе
    end;          //я слежу за длинной строки
  writeln('Длина второго слова равна ', k);
  delete(s, p - 1, k); //Удаляю слова с помощью p и количеством букв в
  writeln('Строка без 2 слова - ', s)        //нашем слове
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2014, 02:36
Привет! Вот еще темы с решениями:

Подсчитать количество гласных и согласных букв в каждом слове
Помогите пожалуйста решить задачки. 1.ввести в ЭВМ предложения длинной не...

Составить программу, которая подсчитывает количество символов во втором слове
там что-то через length, но вот как именно второго слова я хз, помогите

Подсчитать, сколько букв 'о' стоит в заданном слове на чётных позициях
написать программу,которая определяет сколько букв 'о' стоит в заданном слове...

Подсчитать количество символов в слове
Здравствуйте. работа с строками. Как подсчитать количество символов в слове и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru