По аббревиатуре определить возможного адресата

28.05.2012, 06:30. Показов 541. Ответов 0

Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program tratata;
type mas=record;
fio:string;
sum:integer;
end;
var a:array[1..10]of mas; r:mas; l,n,k,i:integer; flag:boolean; s,key:string;
begin
readln(key);
readln(n);
l: [=0] ;
for i:=1 to n do
begin
readln(s);
if s[1]=key[1]then
begin
k:=2;
while s[k]<>' 'do
k:=k+1;
k:=k+1;

или так

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program tratata;
type mas=record;
fio:string;
sum:integer;
end;
var a:array[1..10]of mas; r:mas; l,n,k,i:integer; flag:boolean; s,key:string;
begin
readln(key);
readln(n);
l:=0;
for i:=1 to n do
begin
readln(s);
if s[1]=key[1]then
begin
k:=2;
while s[k]<>' 'do
k:=k+1;
k:=k+1;
if s[k]=key[2]then
begin
while s[k]<>' 'do
k:=k+1;
k:=k+1;
if s[k]=key[3]then
begin
flag:=true;
for k:=1 to l do
if a[k].fio=s then
begin
a[k].sum:=a[k].sum+1;
flag:=false;
end;
if flag then
begin
l:=l+1;
a[l].fio:=s;
a[l].sum:=1;
end;
end;
end;
end;
end;
for i:=1 to l-1 do
for k:=i+1 to l do
if a[i].sum<a[k].sum then
begin
r:=a[i];
a[i]:=a[k];
a[k]:=r;
end;
for i:=1 to l do
writeln(a[i].fio,' ',a[i].sum);
end.

Подскажите, какое правильнее!

Миниатюры

По аббревиатуре определить возможного адресата

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

28.05.2012, 06:30

Ответы с готовыми решениями:

В массиве А(35) найти минимум, определить его местоположение ( с учётом возможного повторения)
В массиве А(35) найти минимум, определить его местоположение ( с учётом возможного повторения). С++ Помогите пожалуйста!

Добавить адресата
Всем привет, есть код который адресует письмо на ящик который подтягиваеться из базы $m->To( strip_tags($_POST) ); Как можно...

Письма не доходят до адресата
Есть форма почты: <form action="http://sdcvoy.ru/phpbloks/mail.php" method="post"> <p>Ваше имя:<br /><input type="text"...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

28.05.2012, 06:30

Помогаю со студенческими работами здесь

Письма не доходят до адресата
Здравствуйте! странная ситуация- письма есть в отправленных, но не доходят до адресата. оутглюк 2007:)

Письма не доходят до адресата
Добрый день. Есть почтовый сервер FreeBSD / Postfix, на него еще ставили drweb но потом отключили, у нас почта вообще не приходила. ...

Изменить ip и маску адресата пакета
День добрый! Есть задача перенаправить входящий трафик с подменой ip адреса и маски. т.е. пришел пакет направленный для 10.0.0.1...

Самопроизвольное добавление адресата в Outlook
Добрый день. Использую outlook 2013 (корпоративная почта). Периодически, при написании писем, в перечне адресатов добавляется адресат...

Подмена адресата из кеша + дублирование писем
Domino 8.5. Клиенты - от 7 до 8.5. Сервера в кластере. Проблема 1: На время отпуска Иванова в ГАКе поставили пересылку почты на...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

Наверх