Записи на языке Pascal
задача: В отделе кадров студентов хранится следующая информация о каждом студенте: фамилия, имя, отчество, пол, возраст, курс. Составить программу, которая печатает номер курса, на котором самые распространенные мужские и женские имена, отчество и возраст которых являются одновременно самыми распространенными.
Вот код, который получился у меня. работает не так, как хотелось бы. Прошу помощи) заранее спасибо) Type anketa=record vosr:17..21; curs:1..3; FIO:record name:string[10]; otch_vo:string[20]; end; end; var student:array [1..5] of anketa; i,kol,j, kol1,kol2, k_max,k_max1, k_max2,max2, course,course1,course2:integer; max, max1:string; begin for i:=1 to 5 do with student[i] do begin writeln ('введите данные ', i, ' студента'); writeln ('введите имя'); readln (FIO.name); writeln ('введите отчество'); readln (FIO.otch_vo); writeln ('введите возраст'); readln (vosr); writeln ('введите курс'); readln (curs); end; k_max:=0; k_max1:=0; k_max2:=0; for i:=1 to 5 do begin kol:=0; for j:=1+1 to 5 do if student[i].FIO.name=student[j].FIO.name then kol:=kol+1; end; for i:=1 to 5 do begin kol1:=0; for j:=1 to 5 do if student[i].FIO.otch_vo=student[j].FIO.otch_vo then kol1:=kol1+1; end; for i:=1 to 5 do begin kol2:=0; for j:=1 to 5 do if student[i].vosr=student[j].vosr then kol2:=kol2+1; end; if kol>k_max then begin k_max:=kol; max:=student[i].FIO.name; course:=student[i].curs; end; if kol1>k_max1 then begin k_max1:=kol1; max1:=student[i].FIO.otch_vo; course1:=student[i].curs; end; if kol2>k_max2 then begin k_max2:=kol2; max2:=student[i].vosr; course2:=student[i].curs; end; writeln ('распространненое имя ', max,' ', 'на курсе', ' ', course); writeln ('распространненое отчество ', max1, ' ', 'на курсе', ' ', course1); writeln ('распространненый возраст ', max2, ' ' ,'на курсе', ' ', course2); end. |
Цитата:
|
составить программу, которая будет выводить номер курса, на котором распространенные(часто встречающиеся) женские и мужские имена, отчество, возраст. имена, отчества и возраст вводятся с клавиатуры
|
Цитата:
В общем, глухо. Извините. Перепишите для начала задание так, чтобы фразы были согласованы хотя бы в рамках русского языка. Пока я вижу бессвязный набор слов. |
дело в том, что другого условия предоставить не могу. да, нужно заранее придумать список своих "распространенных" имен, отчеств и возрастов. например, 1.Юлия Викторовна 19 лет 2 курс; 2.Лилия Викторовна 20 лет 2 курс; 3.Юлия Сергеевна 19 лет 2 курс. В итоге получается, что на 2 курсе самое распространенное имя Юлия, отчество Викторовна, возраст-19. я понимаю так.
|
Цитата:
В любом случае - сегодня уже не буду этим заниматься, завтра с утра посмотрю. |
вы всё верно поняли. надо определить для каждого курса имя, отчество и возраст. на слово "одновременно" не обращайте внимание. но возможно ли будет делить имена на мужские и женские? заранее вас благодарю)
|
Ну вот, что-то такое сотворил и отладил:
Код:
Const |
Цитата:
|
Часовой пояс GMT +4, время: 12:26. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.