Категория
Информатика, опубликовано 12.03.2019 02:50

Что нужно дописать в программе, что бы при вводе иванов иван иванович в ответе было иванов и.и., пока что у меня при вводе иванов иван выдает иванов и. program name1; var name1, probel, dot: string; number: integer; begin name1 : = 'иванов иван'; probel : = ' '; dot : =
'.'; number : = pos(probel, name1); writeln(number); writeln(name1); delete(name1, number+2, 60); writeln('ваши инициалы: ', name1, dot); readln(); end.

Ответы

Ответ
Ответ оставил: Гость
Например так program name_1; var name1, name2, name3, probel, dot: string; number: integer; begin name1 : = 'ivanov_ivan_xvanovic'; probel : = '_'; dot : = '.'; number : = pos(probel, name1); writeln(number); writeln(name1); {delete(name1, number+2, 60); } name2: =name1; name3: =name1; {вырезаем имя} delete(name1, number, 60); delete(name2, 1, number); {сформировали 1й инициал} delete(name2, 2, 60); delete(name3, 1, number); {формируем 2й инициал} number : = pos(probel, name3); delete(name3, 1, number); delete(name3, 2, 60); writeln('ваши инициалы: ',name1,' ', name2, dot, ' ', name3, dot); readln(); end. поясню, у меня с кирилицей иногда чудит, поэтому перешел на латиницу, ну и поменял букву в отчестве, чтоб быть уверенным, что вырезан именно 2й инициал, а не повторно 1й, они ж одинаковые были. при отладке пробел в строке заменял подчеркиванием, чтобы четко видеть, что режет программа.
Ответ
Ответ оставил: Гость
В)
Циклом
...........................
Ответ
Ответ оставил: Гость
1) .txt
2) .ppt
3) .doc
4) Папка.
Ответ
Ответ оставил: Гость
Закрасит
Нц пока справа свободно
Вправо
Закрасить
Кц


Другие вопросы по информатике

✅ Ответов: 2 на вопрос по информатике: Что нужно дописать в программе, что бы при вводе иванов иван иванович в ответе было иванов и.и., пока что у меня при вводе иванов иван выдает иванов и. program name1; var name1, probel, dot: string; number: integer; begin name1 : = 'иванов иван'; probel : = ' '; dot : ='.'; number : = pos(probel, name1); writeln(number); writeln(name1); delete(name... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube