Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.52/21: Рейтинг темы: голосов - 21, средняя оценка - 4.52
Зыков Александр
1 / 1 / 0
Регистрация: 07.06.2012
Сообщений: 6
1

Описать структуру с именем STUDENT

24.06.2012, 09:24. Просмотров 3785. Ответов 1
Метки нет (Все метки)

описать структуру с именем STUDENT, содержащую следующие поля:

-- NAME - фамилия и инициалы;

-- GROUP - номер группы;

-- SES - успеваемость (массив из 5 элементов);

Написать программу выполняющую следующие действия:

-- ввод с клавиатуры в массив stud1,
состоящий из 10 структкр типа STUDENT; записи должны быть упорядочены
по возрастанию среднего балла;

-- вывод на экран фамилий и номеров групп для всех студентов,
имеющих оценки 4 и 5;

-- если таких студентов нет, вывести соответствующее сообщение.
1
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2012, 09:24
Ответы с готовыми решениями:

Описать структуру с именем STUDENT
Описать структуру с именем STUDENT, содержащую следующие поля: -номер;...

Описать структуру с именем STUDENT
Описать структуру с именем student содержашие следушие поля 1.Фио 2.номер...

Описать структуру с именем Group
необходимо описать структуру и написать программу, выручите пожалуйста ...

Описать структуру с именем ZNAK
Привет) последняя лаба по Паскалю... please help: Описать структуру с именем...

Описать структуру с именем NOTE
uses crt; type ZNAK=record fam:string; nam:string; ...

1
Nijaz
34 / 34 / 23
Регистрация: 16.12.2010
Сообщений: 100
24.06.2012, 10:59 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
uses crt;
const
     n = 10;
type
    TStudents = record
    name: string[15];
    group: string[5];
    ses: array [1..5] of integer;
end;
var
   i, j: integer;
   Stud: array [1..n] of TStudents; //Студенты
   sravn: array [1..n] of real; //Средний балл студентов
   
   Stud1: TStudents; //Для сравнения с пузырьком
   sred: real;
 
   boo: boolean;
BEGIN
     clrscr;
//--------------ввод данных---------------------------------------------------//
     for i := 1 to n do
     begin
          writeln('Введите имя');
          readln(Stud[i].name);
          writeln('Введите группу');
          readln(Stud[i].group);
          writeln('Введите оценки');
          sred := 0;
          for j := 1 to 5 do
          begin
               readln(Stud[i].ses[j]);
          end;
          writeln('--------------------------');
     end;
//----------------------------------------------------------------------------//
 
//----------------упорядочивание записей--------------------------------------//
     for i := 1 to n do
     begin
          sred := 0;
          for j := 1 to 5 do
          sred := sred + Stud[i].ses[j];
          sravn[i] := sred / 5;
     end;
     
     for i := 1 to n - 1 do
     for j := i + 1 to n do
     if sravn[i] > sravn[j] then
     begin
          Stud1:=Stud[i];
          Stud[i]:=Stud[j];
          Stud[j]:=Stud1;
     end;
//----------------------------------------------------------------------------//
 
//----------Вывод имени и группы студента(который учится на 4 и 5)------------//
     for i := 1 to n do
     begin
          boo := true;
          for j := 1 to 5 do
          if (Stud[i].ses[j] <> 4) and (Stud[i].ses[j] <> 5) then boo := false;
          if boo = true then
          begin
               sred := 1;
               writeln(Stud[i].name, ' ', Stud[i].group);
          end;
     end;
     if sred <> 1 then writeln('Таких студентов нет!');
//----------------------------------------------------------------------------//
END.
3
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2012, 10:59

Описать структуру с именем ZNAK
Описать структуру с именем ZNAK, содержащую следующие поля: 1)Фамилия имя. ...

Описать структуру с именем PRICE
а) описать структуру с именем PRICE,содержащую следующие поля: * Название...

Описать структуру с именем MARSH (маршрут)
Толи я дурак, толи лыжи не едут, но помогите пожалуйста, что не так? Program...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru