Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 22.12.2016
Сообщений: 9
1

Описать процедуру, которая печатает фамилию и инициалы вместо имя и отчества

02.03.2017, 17:22. Показов 1655. Ответов 2
Метки нет (Все метки)

Заданы фамилия, имя, отчество учащегося, разделенного пробелами. Описать процедуру, которая печатает его фамилию и инициалы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2017, 17:22
Ответы с готовыми решениями:

Изменение текста в ячейке (из Фамилии Имя Отчества в Фамилию и инициалы)
Доброго времени суток! Така я вот задачка..... У меня есть много работников: Порфирьев...

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

Запросить фамилию, имя и отчество пользователя, и вывести его фамилию и инициалы
Вот задание:Написать программу, которая запрашивает фамилию, имя и отчество, а выводит фамилию и...

В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы
В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы. Пояснения: ...

2
101 / 97 / 112
Регистрация: 28.11.2016
Сообщений: 528
02.03.2017, 18:02 2
Лучший ответ Сообщение было отмечено DimaTwanted как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  str: string;
  i, k: integer;
 
begin
  write('Введите фамилию, имя и отчество: ');
  readln(str);
  for i := 1 to length(str) do
  begin
    if (str[i] <> ' ') and (k = 0) then
      write(str[i]) else
    if str[i] = ' ' then 
    begin
      inc(k);
      write(' ', str[i + 1], '.');
    end;
  end;
end.
1
0 / 0 / 0
Регистрация: 22.12.2016
Сообщений: 9
02.03.2017, 19:07  [ТС] 3
Большое спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2017, 19:07

Напечатать вместо имени и отчества инициалы
2. Заданы фамилия, имя и отчество учащегося, разделенные пробелами. Напишите программу, печатающую...

Строка S содержит фамилию, имя, отчество. Необходимо преобразовать ее в строку, содержащую фамилию и инициалы
Строка S содержит фамилию, имя, отчество. Необходимо преобразовать ее в строку, содержащую фамилию...

Строка S содержит фамилию, имя, отчество. Необходимо преобразовать ее в строку, содержащую фамилию и инициалы
Строка S содержит фамилию, имя, отчество. Необходимо преобразовать ее в строку, содержащую фамилию...

Зная фамилию, имя и отчество вывести фамилию и инициалы
напишите пожалуйста программу. заранее спасибо. Дан символьный файл f, содержащий сведения о...

Ввести фамилию, имя и отчество и вывести фамилию и инициалы
Ввести фамилию, имя и отчество и вывести фамилию и инициалы.

Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы
Пример: Введите фамилию, имя и отчество: Иванов Петр Семёнович П.С. Иванов Нашёл такую же...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru