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

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

25.12.2012, 01:01. Показов 1588. Ответов 2
Метки нет (Все метки)

Ребята помогите пожалуйста, сессия близко препод задачами валит, если остальные еще как-то могу делать то эти 3 вообще не как

2.На каждого студента имеется следующая информация: фамилия, имя, отчество, пол, возраст, курс. В фамилии, имени, отчестве не более 12 букв, пол указан буквами М и Ж, возраст от 16 до 35 лет, курс - целое от 1 до 5. Сведения о студентах отделены друг от друга точкой с запятой. Написать программу ввода этой информации и вывода номера курса, на котором больше всего мужчин.

Буду очень благодарна.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2012, 01:01
Ответы с готовыми решениями:

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

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

Вывод номера курса, на котором больше всего мужчин
Народ посмотрите програамудо понедельника очень нужно Записи На каждого студента имеется...

найти номер курса на котором больше всего мужчин(пол указывается буквой Ч (чоловiк) или Ж (жiнка)).
Всем привет! Дан файл с "базой данных" нужно его прочитать и найти номер курса на котором больше...

2
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
25.12.2012, 10:11 2
Лучший ответ Сообщение было отмечено Ирина18 как решение

Решение

Здравствуйте.
Если я все правильно понял, то вот :
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
program _record;
 
const
 
 fout='output.txt';
 
type 
 
 TStudents=record
  surname:string[12];
  name:string[12];
  patronymic:string[12];
  sex:(male,female);
  age:16..35;
  iclass:1..5;
 end;
 
 TMaleInfo=Array [1..5] of word;
 
var
 Student:TStudents;
 fo:text;
 end_input:boolean;
 MaleInfo:TMaleInfo;
 
Procedure inputinfo(var   aStudent :TStudents;
                    const fileout  :text;
                    var   end_in   :boolean);
 var
  
  cS:char;
 
 begin
 
 { input to record }
 with aStudent do begin
                    Write('Фамилия:');readln(surname);
                    Write('Имя: ');readln(name);
                    Write('Отчество: ');readln(patronymic);
                    repeat
                     write('Пол (М/Ж): ');Readln(cS);
                    until (cS='М') or (cS='Ж');
                    if cS='M' then sex:=female
                              else sex:=male;
                    Write('Возраст: ');Readln(age);
                    Write('Курс: ');Readln(iclass);
                  end;
 
 { output to file }
 With aStudent do begin
                   Write(fileout,surname,' ');
                   Write(fileout,name,' ');
                   Write(fileout,patronymic,' ');
                   Write(fileout,sex,' ');
                   Write(fileout,age,' ');
                   Write(fileout,iclass,';');
                  end;
 
{ next record? }
repeat
 Write('Продолжать ввод информации? (д/н): ');readln(cS);
until (cS='д') or (cS='н');
if cS='д' then end_in:=FALSE
          else end_in:=TRUE;
end;
 
function FindMax(Mas:TMaleInfo):word;
 var
  i,max:integer;
 begin
  max:=Mas[1];
  FindMax:=1;
  for i:=1 to 5 do
  if Mas[i]>max then begin
                      max:=mas[i];
                      FindMax:=i;
                     end;
end;
  
Begin
{ input & find  male }
 Assign(fo,fout);Rewrite(fo);
 repeat
  inputInfo(Student,fo,end_input);
  With Student do 
  if sex=male then
  inc(MaleInfo[iclass]);               
 until end_input;
 Close(fo);
 
{ find & out max male }
 Write('Больше всего мужчин на ',FindMax(MaleInfo),' курсе') 
End.
0
0 / 0 / 0
Регистрация: 25.12.2012
Сообщений: 9
25.12.2012, 14:40  [ТС] 3
спасибо вы мне очень помогли)
 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2012, 14:40
Помогаю со студенческими работами здесь

Написать программу для ввода-вывода информации о пяти студентах
Здравствуйте! Помогите написать программу на Visual Studio 2010. Задание: Написать программу в...

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

Из файла с информацией о студентах узнать номер курса с наибольшим процентом мужчин
Здравствуйте, буду благодарен всем за помощь со следующей задачей: Дан файл, в котором содержится...

Написать программу выполняющую функцию базы сведений о студентах первого курса.
прошу сделать в проге таблицу,чтобы данные выводились в ней вот задание:(чтобы было понятнее) ...


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

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

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