1 / 1 / 0
Регистрация: 14.04.2016
Сообщений: 97
1

Напечатать список класса с указанием для каждого ученика количество его однофамильцев

20.04.2016, 15:44. Показов 1290. Ответов 7
Метки нет (Все метки)

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

Добавлено через 5 минут
База данных

Добавлено через 17 минут
С вводом я разобрался только проблема в указании как указать кол однофамильцев

Добавлено через 1 час 44 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program noob;
Uses crt;
Type baza=record
Fam:string;
Iniz:string;
end;
var 
Mas:array[1..10] of baza;
N,i:integer;
Begin
readln(n);
Writeln('vvedite familie i inizialu');
For i:=1 to n do begin
Readln(mas[i].fam);
Readln(mas[i].Iniz);
Writeln(mas[i].fam:10,
mas[i].iniz:20);
End.
Добавлено через 4 часа 10 минут
Помогите плиз срочно с указанием для каждого ученика количество его однофамильцев.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2016, 15:44
Ответы с готовыми решениями:

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

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

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

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

7
20 / 20 / 6
Регистрация: 09.04.2016
Сообщений: 145
20.04.2016, 16:12 2
Нужно перебрать массив фамилий в цикле и для каждой фамилии сделать еще один внутренний цикл - по нахождению фамилий, которые равны исходной.
0
1 / 1 / 0
Регистрация: 14.04.2016
Сообщений: 97
20.04.2016, 16:16  [ТС] 3
Мод код кинуть плиз, я сейчас на курсах просто?
0
20 / 20 / 6
Регистрация: 09.04.2016
Сообщений: 145
20.04.2016, 16:29 4
Я не пишу код за тебя, я пытаюсь дать тебе подсказку и заставить тебя думать.
Включай мозги и начинай думать. Задача по сути элементарная.
Если ты не хочешь сам в этом разобраться и понять как это работает, то программирование - это не твое.
Имхо.
0
1 / 1 / 0
Регистрация: 14.04.2016
Сообщений: 97
20.04.2016, 16:58  [ТС] 5
То есть это метод пузырька?
0
20 / 20 / 6
Регистрация: 09.04.2016
Сообщений: 145
20.04.2016, 17:07 6
M-DRAGNIL, я не говорю о методе сортировки, я говорю о поиске совпадающих(равных друг другу) элементов массива.

Добавлено через 2 минуты
П.с. Но для данной задачи, можно обойтись и без сортировки массива.
0
1 / 1 / 0
Регистрация: 14.04.2016
Сообщений: 97
20.04.2016, 18:00  [ТС] 7
то есть эту задачу можно сделать без базы данных?

Добавлено через 10 минут
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
program noob;
Uses crt;
Type baza=record
Fam:string;
Iniz:string;
end;
var 
Mas:array[1..10] of baza;
N,i,z:integer;
Begin
readln(n);
Writeln('vvedite familie i inizialu');
For i:=1 to n do begin
Readln(mas[i].fam);
Readln(mas[i].Iniz);
 
End;
 
for i:=1 to n do begin
begin
if i<>j then
begin
if  copy(mas[i].Fam,1,length(mas[i].Fam)-5)=copy(mas[i].Fam,1,length(mas[i].Fam)-5) then
mas[i].Fam:=mas[i].Fam+1;
end;
end;
end;
for i:=1 to n do
begin
Writeln(mas[i].fam:10,
mas[i].iniz:20);
writeln(' odnofamilci:',mas[i].Fam);
writeln;
end;
readln
end.
Добавлено через 1 минуту
кто нить может проверить на компе? я просто еще не дома, а с курсов поздно приезжаю.
0
20 / 20 / 6
Регистрация: 09.04.2016
Сообщений: 145
22.04.2016, 22:42 8
M-DRAGNIL, а что означает 24-я строка твоего кода - если к фамилии добавить единицу, что получится по-твоему?
И что означает переменная J - чему она равна, когда ты ее сравниваешь с I в 21-й строке?

Добавлено через 5 минут
П.с. Если у тебя Андроид на девайсе - установи себе GUI Pascal. Сможешь тестить свой код в любое время.
Для IOS тоже есть оболочка, но не помню ее название.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2016, 22:42
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru