IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> PЗаписи работа с ними
сообщение
Сообщение #1


Гость






В этой программе вводятся различные данные о студенте.В частности имя
(FirstName),Фамлия(SecondName),отчество(ThirdName),возраст(
Age) и т.д.
Записей о студентах будет несколько.Их количество хранится в константе n.
Как её(программу) доделать так, чтоб выводились частовстречаемые имена?
Заранее очень благодарен.
Код

program zad_144;
uses crt;
const n=10;
type Student=record
     FirstName:string;
     SecondName:string;
     ThirdName:string;
     Age,Kurs:byte;
     Pol:string;
     end;
var vuz:array[1..n] of Student;
    MostMale,MostFemale:string;
    i:byte;
begin
ClrScr;
for i:=1 to n do begin
    Writeln('==Na4alo vvoda ',i,'-oy zapisi==');
    Write('Vvedite imya-');readln(vuz[i].FirstName);
    Write('Vvedite familiju-');readln(vuz[i].SecondName);
    Write('Vvedite ot4estvo-');readln(vuz[i].ThirdName);
    Write('Vvedite vozrast-');readln(vuz[i].Age);
    Write('Vvedite kurs-');readln(vuz[i].Kurs);
    Write('Vvedite pol-');readln(vuz[i].Pol);
    Writeln('==Konets vvoda ',i,'-oy zapisi==');
    end;
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Что есть "частовстречаемые"? которые встречаются больше всего раз? или просто не один раз?
\


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(nEGOR @ 7.04.2006 19:36)
Как её(программу) доделать так, чтоб выводились частовстречаемые имена?
Определи, что для тебя есть ЧАСТОвстречаемые имена? сколько раз из 10 должно встретиться имя, чтобы быть ЧАСТОвстречаемым?

Потом определи массив (например, так):

var
OftenNames = Array[1 .. n] of Record
Name: string;
count: integer;
End;

, проходи во всем записям, и подсчитывай, сколько раз встречается каждое имя:

curr_count := 0;
for i := 1 to n do begin

found := false;
for j := 1 to curr_count do
if OftenNames[j].name = vuz[i].FirstName then begin
Inc(OftenNames[j].count); found := true;
end;

if not found then begin
inc(curr_count);
With OftenNames[curr_count] Do Begin
Name := vuz[i].FirstName; count := 1;
end;
end;
end;


Ну, и наконец, пройди по счетчикам всех имен и если какое-то имя встретилось больше определенного числа раз, значит оно - ЧАСТОвстречающееся:
for i := 1 to curr_count do
with OftenNames[i] do begin
if count > СколькоТебеНадо then writeln(Name);
end;


P.S. Набирал прямо здесь - могут быть неточности... Главное - пойми идею.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Всем большое спасибо за помощь.Часто встречаемое-одно женское, одно мужское
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 28.04.2017 15:04
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"