Строку " Имя Отчество Фамилия" преобразовать в строку"И.О. Фамилия.

20.03.2010, 18:56. **Показов** 1846. **Ответов** 4

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

Строку " Имя Отчество Фамилия" преобразовать в строку"И.О. Фамилия.

@Андрей Борисови · 20.03.2010, 19:05

Pascal

program FIO;
uses crt;
var
st_in,st_out:string;
begin
write ('Введите Имя Отчество Фамилию: ');
readln(st_in);
 
//Имя
st_out:='';
st_out:=copy(st_in,1,1)+'. ';
delete(st_in,1,pos(' ',st_in));
 
//Отчество
st_out:=st_out+copy(st_in,1,1)+'. ';
delete(st_in,1,pos(' ',st_in));
 
//Фамилия
st_out:=st_out+st_in;
 
//Результат
writeln('Результат: ',st_out);
end.

@Жека-старший · 20.03.2010, 19:11

Pascal

var cop,fio:string;pos1:byte;
begin
  writeln('Введите Имя Отчество Фамилию');
  readln(fio);
  cop:=fio;
  pos1:=pos(' ',cop);
  fio:=copy(fio,1,1)+'.';//И.
  fio:=fio+copy(cop,pos1+1,1)+'.';//О.
  delete(cop,1,pos1);
  delete(cop,1,pos(' ',cop));
  fio:=fio+' '+cop;//И.О.Фамилия
  writeln(fio);
end.

20.03.2010, 19:39

Спасибки большое)) Но вот один момент, когда вы писали delete(s,1,pos(' ',s) - вы получается удаляли с первой позиции до первого пробела?????

@Жека-старший · 20.03.2010, 19:46

Pascal

pos1:=pos(' ',cop);//запомнил позицию первого пробела
  fio:=copy(fio,1,1)+'.';//И.
  fio:=fio+copy(cop,pos1+1,1)+'.';//О.
  delete(cop,1,pos1);//удалил символы начиная с первого и кончая первым пробелом (pos1-в ней сидит номер позиции первого пробела)
  delete(cop,1,pos(' ',cop));//удалил все до второго пробела, т.е. в "сор" осталась фамилия

Анюшка
		1
	Строку " Имя Отчество Фамилия" преобразовать в строку"И.О. Фамилия. 20.03.2010, 18:56. Показов 1846. Ответов 4 Метки нет (Все метки) *Строку " Имя Отчество Фамилия" преобразовать в строку"И.О. Фамилия.*

Анюшка
	20.03.2010, 19:39	4
	Спасибки большое)) Но вот один момент, когда вы писали delete(s,1,pos(' ',s) - вы получается удаляли с первой позиции до первого пробела?????

	20.03.2010, 19:46