Программа преобразует строку, содержащую имя, отчество и фамилию человека, к форме

@Pepl · Регистрация: 04.09.2017

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

Привет!Решаю тут задачки Полякова)
И всё не могу теперь)
Вот условия:

Напишите программу, которая преобразует строку, содержащую имя, отчество и фамилию человека, к форме
<фамилия> <инициалы>

Входные данные
Входная строка содержит имя, отчество и фамилию, разделённые одиночными пробелами.

Выходные данные

Программа должна вывести в одной строке сначала фамилию, а потом (через пробел) – инициалы.

Примеры
Входные данные

Donald Ervin Knuth

Выходные данные

Knuth D.E.

@Puporev · 19.10.2017, 13:17

Pascal
1
2
3
4
5
6
7
8
9
10
var s,i,o:string;
begin
readln(s);
i:=s[1];
delete(s,1,pos(' ',s));
o:=s[1];
delete(s,1,pos(' ',s));
s:=s+' '+i+'.'+o+'.';
write(s);
end.

@Pepl · 20.10.2017, 03:22 **[ТС]**

Puporev, Правильно но не до конца.Получается программа прошла 20 тестов из 21)

@Соколиный глаз · 20.10.2017, 05:10

Не тестировал, но вроде так:

Pascal
1
2
3
begin
  ReadlnString().ToWords().Format('{0} {1}.{2}.', x[2], x[0].Chars[1], x[1].Chars[1]);
end.

@Puporev · 20.10.2017, 08:40

Не знаю, может там есть тест с пустой строкой?

@Соколиный глаз · 20.10.2017, 15:23

Pascal
1
2
3
4
begin
  var A := ReadlnString().ToWords();
  Writeln(A.Length = 3 ? Format('{0} {1}.{2}.', A[2], A[0].Chars[1], A[1].Chars[1]) : 'Error.')
end.

Проверил.

@Pepl · 20.10.2017, 17:38 **[ТС]**

Volobuev Ilya, Чёт БРО var ты не описал)

@Puporev · 20.10.2017, 17:47

Это АВС.net, там не обязательно. Есть же

Сообщение от Volobuev Ilya

var A :=

@Pepl · 20.10.2017, 17:50 **[ТС]**

Puporev, Странно это в меню этого тестирвщика ставлю АВС.net тоже ошибка компиляции)
А с твоим решение частичное решение)

@Puporev · 20.10.2017, 17:52

Я подобными сайтами не интересуюсь.

@Соколиный глаз · 20.10.2017, 18:47

У меня все нормально компилируется. Не компилировалось бы - не выкладывал.

Добавлено через 1 минуту

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

var ты не описал

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

Добавлено через 1 минуту

Переменные могут быть описаны в разделе описаний, а также непосредственно внутри любого блока begin/end.

Цитата из справки.

@Eve_ · 12.05.2022, 13:18

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,C:string;
   i:integer;
Begin
Write('Введите фамилию, имя и отчество, разделяя их пробелом: ');
ReadLn(S);
S:=S+' ';
i:=1;
While S[i] <> ' ' do
   Begin
   C:=C+S[i];
   i:=i+1
   End;
C:=C+' '+S[i+1]+'.';
i:=i+1;
While S[i] <> ' ' do
   i:=i+1;
While S[i] <> ' ' do
   Begin
   C:=C+S[i];
   i:=i+1
   End;
C:=C+S[i+1]+'.';
WriteLn(C)
End.

@bormant · 12.05.2022, 21:20

Eve_,
это неправильное решение.
Ввод из примера: Donald Ervin Knuth
У вас вывод: Donald E.K.
А по условию должен быть: Knuth D.E.

Кроме того, не стоит поднимать древние темы без особой на то нужды.
Этой теме осенью будет уже пять лет, кому и зачем нужен ответ здесь через столько времени?

@Eve_ · 17.05.2022, 20:03

Может это действительно кому-то понадобится, ведь на Форуме много людей. Я искала здесь что-то подобное, но так и не нашла.
Да, я знаю, что там ошибка, но это было близко.
Извините, я так больше не буду.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Pepl 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 15

	Программа преобразует строку, содержащую имя, отчество и фамилию человека, к форме 19.10.2017, 13:09. Показов 25724. Ответов 13 Метки нет (Все метки) Привет!Решаю тут задачки Полякова) И всё не могу теперь) Вот условия: Напишите программу, которая преобразует строку, содержащую имя, отчество и фамилию человека, к форме <фамилия> <инициалы> Входные данные Входная строка содержит имя, отчество и фамилию, разделённые одиночными пробелами. Выходные данные Программа должна вывести в одной строке сначала фамилию, а потом (через пробел) – инициалы. Примеры Входные данные Donald Ervin Knuth Выходные данные Knuth D.E. 0

@Pepl 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 15
	20.10.2017, 03:22 [ТС]
	Puporev, Правильно но не до конца.Получается программа прошла 20 тестов из 21) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	20.10.2017, 08:40
	Не знаю, может там есть тест с пустой строкой? 0

@Pepl 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 15
	20.10.2017, 17:38 [ТС]
	Volobuev Ilya, Чёт БРО var ты не описал) 0

@Pepl 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 15
	20.10.2017, 17:50 [ТС]
	Puporev, Странно это в меню этого тестирвщика ставлю АВС.net тоже ошибка компиляции) А с твоим решение частичное решение) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	20.10.2017, 17:52
	Я подобными сайтами не интересуюсь. 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	12.05.2022, 21:20
	Eve_, это неправильное решение. Ввод из примера: Donald Ervin Knuth У вас вывод: Donald E.K. А по условию должен быть: Knuth D.E. Кроме того, не стоит поднимать древние темы без особой на то нужды. Этой теме осенью будет уже пять лет, кому и зачем нужен ответ здесь через столько времени? 0

@Eve_ 0 / 0 / 0 Регистрация: 16.02.2022 Сообщений: 2
	17.05.2022, 20:03
	Может это действительно кому-то понадобится, ведь на Форуме много людей. Я искала здесь что-то подобное, но так и не нашла. Да, я знаю, что там ошибка, но это было близко. Извините, я так больше не буду. 0