Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
87781891293
0 / 0 / 3
Регистрация: 28.02.2013
Сообщений: 40
#1

Напечатать вместо имени и отчества инициалы - Pascal ABC

07.03.2013, 09:45. Просмотров 1238. Ответов 2
Метки нет (Все метки)

2. Заданы фамилия, имя и отчество учащегося, разделенные пробелами. Напишите программу, печатающую фамилию ученика и его инициалы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2013, 09:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Напечатать вместо имени и отчества инициалы (Pascal ABC):

Описать процедуру, которая печатает фамилию и инициалы вместо имя и отчества
Заданы фамилия, имя, отчество учащегося, разделенного пробелами. Описать процедуру, которая печатает его фамилию и инициалы.

Записи: ввести информацию о студентах и напечатать фамилии и инициалы всех студенток второго курса
Имеется следующая информация о каждом из n студентов: <фамилия>, <имя>, <отчество>, <пол>, <возраст>, <курс>. Написать программу, которая...

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

Определите, есть ли в списке однофамильцы и выведите на экран их имена и отчества
Напишите программу, которая заполняет с клавиатуры массив 3 на 5 фамилиями, именами и отчествами(фамилии в первой строке, имена во второй,...

Вывести фамилии, имена и отчества мастеров с высшим образованием и вычислить их средний стаж.
В анкетах сотрудников некоторого учреждения имеются следующие сведения: фамилия, имя, отчество, год рождения, должность (мастер, инженер,...

Hайти и записать вместо x[1] наибольший элемент, а вместо x[2] -наименьший для массива x[1],x[2],..., x[100].
Hайти и записать вместо x наибольший элемент, а вместо x -наименьший для массива x,x,..., x.

2
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,652
Записей в блоге: 1
07.03.2013, 10:12 #2
Лучший ответ Сообщение было отмечено 87781891293 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var s,s1:string;
Begin
    write('Введите Фамилия Имя Отчество: ');readln(s);
    s1:=s1+Copy(s,1,Pos(' ',s)-1)+' '+s[Pos(' ',s)+1]+'.';
    Delete(s,1,Pos(' ',s));Delete(s,1,Pos(' ',s));
    s1:=s1+s[1];
    writeln('Ф.И.О: ',s1);
    readln;
End.
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
07.03.2013, 10:30 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var s,s1:string;
begin
writeln('Введите Фамилию Имя Отчество');
read(s);
s1:=copy(s,1,pos(' ',s)+1);
delete(s,1,pos(' ',s)+1);
delete(s,1,pos(' ',s));
s1:=s1+'. '+s[1]+'.';
write(s1);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 10:30
Привет! Вот еще темы с решениями:

Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов
вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов

Распечатайте все отчества по алфавиту, а также текст, содержащий строки, состоящий только из фамилий и имён
Пусть текст представляет собой последовательность строк. На каждой строке находится имя, фамилия и отчество. Распечатайте все отчества по...

Организовать три очереди с одинаковым количеством элементов, содержащие соответствено имена, отчества и фамилии людей
Организовать три очереди с одинаковым количеством элементов, содержащие соответствено имена, отчества и фамилии людей. Составьте очередь...

Сформулировать строку, содержащую фамилию и инициалы
Ребят помогите! В строке содержится фамилия, имя и отчество. Сформулировать строку, содержащую фамилию и инициалы. +++++ ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru