Консультация № 188306
02.12.2015, 16:38
0.00 руб.
0 1 1
Здравствуйте! Прошу помощи в следующем вопросе:
Заданы фамилия, имя и отчество учащегося, разделенные пробелами. Напишите программу, печатающую фамилию ученика и его инициалы.(BPascal)

Обсуждение

давно
Старший Модератор
31795
6196
06.12.2015, 18:46
общий
это ответ
Здравствуйте, Посетитель - 399097!

Смотрите код:
[code lang=pascal h=200]var
a:string;
b,c:integer;
begin
write('Enter string:');
readln(a);
b:=pos(' ',a);{заменяем пробел для поиска втопрого}
a[b]:='.';{ставим точку}
c:=pos(' ',a)+1;{ищем второй прбел}
a[b]:=' ';{востанавливаем пробел}
a[b+2]:='.';{формируем инициалы}
a[b+3]:=a[c];
a[b+4]:='.';
delete(a,b+5,length(a));
write('Result:',a);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа