Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
lunnamedl
0 / 0 / 0
Регистрация: 01.07.2009
Сообщений: 13
1

Pascal записи и множества

02.07.2009, 01:13. Просмотров 1566. Ответов 1
Метки нет (Все метки)

Определить и вывести на экран множество символов входящих только в имя, отчество или фамилию, введённые с клавиатуры.

Добавлено через 2 часа 20 минут 13 секунд
посмотрите задачку
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.07.2009, 01:13
Ответы с готовыми решениями:

Pascal. Множества.
Дана последовательность из 10-и русских слов. Вывести на печать слова, в которых первая буква слова...

Pascal текст и множества
Помагите сделать, или хотябы подскажите как Задание 1) Задан текст, состоящий из строк...

Написать программу на Pascal (множества)

записи и множества
При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко...

Записи и множества
При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко...

1
Puporev
Модератор
56564 / 43267 / 29911
Регистрация: 18.05.2008
Сообщений: 102,913
02.07.2009, 07:51 2
Лучший ответ Сообщение было отмечено lunnamedl как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
type Chel=record {тип запись(ф,и,о)}
          im,ot,fm:string;
          end;
var ch:Chel;{переменная типа запись}
    mi,mo,mf:set of char;{множества}
    i:byte;
begin
clrscr;
writeln('Введите имя:');
readln(ch.im);
mi:=[];{множество пустое}
for i:=1 to length(ch.im) do
mi:=mi+[ch.im[i]];{собираем символы имени в множество}
writeln('Введите отчество:');
readln(ch.ot);
mo:=[];
for i:=1 to length(ch.ot) do
mo:=mo+[ch.ot[i]];
writeln('Введите фамилию:');
readln(ch.fm);
mf:=[];
for i:=1 to length(ch.fm) do
mf:=mf+[ch.fm[i]];
write('Символы, входящие только в имя:  ');
for i:=65 to 241 do{интервал в который входят все символы латинских и русских букв}
if (chr(i)in mi)and not(chr(i) in mo)and not(chr(i)in mf){если символ есть в имени, но его нет в фамилии и отчестве}
then write(chr(i),' ');{выводим}
writeln;
write('Символы, входящие только в отчество:  ');
for i:=65 to 241 do
if (chr(i)in mo)and not(chr(i) in mi)and not(chr(i)in mf)
then write(chr(i),' ');
writeln;
write('Символы, входящие только в фамилию:  ');
for i:=65 to 241 do
if (chr(i)in mf)and not(chr(i) in mo)and not(chr(i)in mi)
then write(chr(i),' ');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2009, 07:51

Строки, записи, множества
Напечатайте все целые числа в диапазоне от 1 до 1600, которые представимы в виде x^2+y^2, но...

Строки, записи, множества
В городе N имеется 100 кондитерских магазинов. Известно, что в каждом из этих магазинов не более 20...

Строки, записи, множества
дан текст из слов, разделенных пробелами. получить новую строку, в которой каждое слово фразы...


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

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

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