Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
3 / 3 / 5
Регистрация: 21.10.2010
Сообщений: 124
1

Отсортировать однофамильцев

21.11.2010, 15:10. Показов 536. Ответов 2
Метки нет (Все метки)

Можете плиз помочь как скажем так отсортировать однофамильцев мне нада сделать так что если есть однофамильцы то выводило одну фамилию а не все мне вот помогли только я понемаю как его доделать это мне помогли ищо на паре.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program lab10;
Type name = record
               Surname: String[15];
               end;
var a:array[1..20] of name;
    n,i:integer;
begin
write('Однофамтльцев?');
readln(n);
for i:=1 to n do
 begin
  writeln('Name ',i);
  write(' Surname ');readln(a[i].Surname);
 end;
for i:=1 to n do
for j:=i to n do
if a[i].Surname=a[j].Surname
 begin
  writeln(a[i].Surname);
 end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2010, 15:10
Ответы с готовыми решениями:

Найти однофамильцев в группе
Список студентов группы представлен в виде массива записей, компоненты которых - фамилия и имя -...

Поиск однофамильцев в типизированном файле
Кто сможет помочь... Нужно вывести из типизированного ф-ла однофамильцев. Типизированный файл...

Составить другой список сотрудников, в котором перечислены фамилии однофамильцев исходного
Дан список фамилий сотрудников. Составить другой список, в котором перечислены фамилии...

Напечатать список класса с указанием для каждого ученика количество его однофамильцев
1)В строковом массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список...

2
6 / 6 / 10
Регистрация: 14.11.2010
Сообщений: 33
21.11.2010, 15:13 2
скинь само задание, немного тебя не понял..
0
3 / 3 / 5
Регистрация: 21.10.2010
Сообщений: 124
21.11.2010, 15:21  [ТС] 3
Цитата Сообщение от inc Посмотреть сообщение
скинь само задание, немного тебя не понял..
Вот по сути само задание
Есть фамили
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
a
a
a
a
a
b
b
b
b
c
d
d
c
c
надо зделать так чтоб оно не выводил вс фамили подряд а только
Pascal
1
2
3
4
a
b
c
d
в общем когда есть две-3-4 одинаковые фамилии выводило только один раз эту фамилию
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2010, 15:21

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

Напечатать список класса с указанием для каждого ученика количество его однофамильцев
В строковом массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список класса...

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

"Клуб однофамильцев"
Дано задание: написать код в turbo pascal 7.0. нужно разработать тему "Клуб однофамильцев". Я...

Поиск однофамильцев
Помогите пожалуйста решить эту задачку... Спасибо... Написать программу-поиск однофамильцев,...

Трубется найти однофамильцев.
Создать базу данных.Запись базы данных содержит: фамилию,имя,отчество,заработную плату,стаж.Вывести...

Вывод однофамильцев в файле
Вот моя наработка.Но он ее не компилирует.выдает ошибку в типах.Помогите пожалуйста. Program...


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

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

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