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

@M-DRAGNIL · Регистрация: 14.04.2016

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

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

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

Добавлено через 1 час 44 минуты

Pascal

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 минут
Помогите плиз срочно с указанием для каждого ученика количество его однофамильцев.

@ChiliPalmer · 20.04.2016, 16:12

Нужно перебрать массив фамилий в цикле и для каждой фамилии сделать еще один внутренний цикл - по нахождению фамилий, которые равны исходной.

@M-DRAGNIL · 20.04.2016, 16:16 **[ТС]**

Мод код кинуть плиз, я сейчас на курсах просто?

@ChiliPalmer · 20.04.2016, 16:29

Я не пишу код за тебя, я пытаюсь дать тебе подсказку и заставить тебя думать.
Включай мозги и начинай думать. Задача по сути элементарная.
Если ты не хочешь сам в этом разобраться и понять как это работает, то программирование - это не твое.
Имхо.

@M-DRAGNIL · 20.04.2016, 16:58 **[ТС]**

То есть это метод пузырька?

@ChiliPalmer · 20.04.2016, 17:07

M-DRAGNIL, я не говорю о методе сортировки, я говорю о поиске совпадающих(равных друг другу) элементов массива.

Добавлено через 2 минуты
П.с. Но для данной задачи, можно обойтись и без сортировки массива.

@M-DRAGNIL · 20.04.2016, 18:00 **[ТС]**

то есть эту задачу можно сделать без базы данных?

Добавлено через 10 минут

Pascal

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 минуту
кто нить может проверить на компе? я просто еще не дома, а с курсов поздно приезжаю.

@ChiliPalmer · 22.04.2016, 22:42

M-DRAGNIL, а что означает 24-я строка твоего кода - если к фамилии добавить единицу, что получится по-твоему?
И что означает переменная J - чему она равна, когда ты ее сравниваешь с I в 21-й строке?

Добавлено через 5 минут
П.с. Если у тебя Андроид на девайсе - установи себе GUI Pascal. Сможешь тестить свой код в любое время.
Для IOS тоже есть оболочка, но не помню ее название.

@ChiliPalmer 20 / 20 / 6 Регистрация: 09.04.2016 Сообщений: 145
	20.04.2016, 16:12	2
	Нужно перебрать массив фамилий в цикле и для каждой фамилии сделать еще один внутренний цикл - по нахождению фамилий, которые равны исходной. 0

@M-DRAGNIL 1 / 1 / 0 Регистрация: 14.04.2016 Сообщений: 97
	20.04.2016, 16:16 [ТС]	3
	Мод код кинуть плиз, я сейчас на курсах просто? 0

@ChiliPalmer 20 / 20 / 6 Регистрация: 09.04.2016 Сообщений: 145
	20.04.2016, 16:29	4
	Я не пишу код за тебя, я пытаюсь дать тебе подсказку и заставить тебя думать. Включай мозги и начинай думать. Задача по сути элементарная. Если ты не хочешь сам в этом разобраться и понять как это работает, то программирование - это не твое. Имхо. 0

@M-DRAGNIL 1 / 1 / 0 Регистрация: 14.04.2016 Сообщений: 97
	20.04.2016, 16:58 [ТС]	5
	То есть это метод пузырька? 0

@ChiliPalmer 20 / 20 / 6 Регистрация: 09.04.2016 Сообщений: 145
	20.04.2016, 17:07	6
	M-DRAGNIL, я не говорю о методе сортировки, я говорю о поиске совпадающих(равных друг другу) элементов массива. Добавлено через 2 минуты П.с. Но для данной задачи, можно обойтись и без сортировки массива. 0

@ChiliPalmer 20 / 20 / 6 Регистрация: 09.04.2016 Сообщений: 145
	22.04.2016, 22:42	8
	M-DRAGNIL, а что означает 24-я строка твоего кода - если к фамилии добавить единицу, что получится по-твоему? И что означает переменная J - чему она равна, когда ты ее сравниваешь с I в 21-й строке? Добавлено через 5 минут П.с. Если у тебя Андроид на девайсе - установи себе GUI Pascal. Сможешь тестить свой код в любое время. Для IOS тоже есть оболочка, но не помню ее название. 0

Опции темы