Question

Как вывести первые иницыалы фамилии,имени,отчества в паскале

Answer 1

Program p1;
uses crt;
var s,s2,s3:string;
a:integer;
begin
read(s);
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=S3+s2+'.';
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=s3+s2+'.';
s2:= copy(s,1,1);
s3:=s3+s2+'.';
writeln(s3);
end.

Answer 2

Var
s:string;
i: integer;
begin
readln(s);
s:=' '+s;
For i:=1 to length(s) do
if s[i] = ' ' then
Write(s[i+1]);
end.

Answer 3

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

pascalCopy code
program InitialsOutput;

var
  lastName, firstName, middleName: string;
  initials: string;

begin
  { Здесь предполагается, что переменным lastName, firstName и middleName уже присвоены соответствующие значения }

  { Получаем первые символы фамилии, имени и отчества }
  initials := lastName[1] + firstName[1] + middleName[1];

  { Преобразуем полученные символы в верхний регистр }
  initials := UpCase(initials);

  { Выводим полученные инициалы }
  writeln('Инициалы: ', initials);
end.

В этом примере, мы берем первые символы из переменных lastName, firstName и middleName и объединяем их в строку initials. Затем мы используем функцию UpCase, чтобы преобразовать их в верхний регистр, чтобы они были в едином формате. Наконец, мы выводим полученные инициалы на экран с помощью writeln.

Пожалуйста, обратите внимание, что в реальной программе необходимо обеспечить проверку на пустые строки или неверные значения, чтобы избежать ошибок при выполнении программы.