Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
2 / 0 / 7
Регистрация: 12.05.2012
Сообщений: 173
1

База Данных Студенты. Распечатать анкетные данные студентов, имеющих неудовлетворительную оценку

12.05.2012, 18:44. Просмотров 1733. Ответов 1


Ребята помогите пожалуйста решить задачу по языку Pascal по теме БД.


Задание:
Распечатать анкетные данные студентов интересующей вас группы, имеющих неудовлетворительную оценку (меньше 4).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2012, 18:44
Ответы с готовыми решениями:

Распечатать анкетные данные студентов, получивших одну оценку 3 за все время обучения
Составить список учебной группы, включающей 25 человек. Для каждого учащегося указать дату...

Распечатать анкетные данные студентов, успевающих на 4 и 5
Составить список учебной группы,включающий 25 человек. Для каждого учащегося указать дату...

Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 3, остальные 4 и 5.
Помогите с заданием.. Распечатать анкетные данные студентов, получивших за все время обучения...

Распечатать анкетные данные студентов, набравших в олимпиаде по информатике не менее 30 баллов
Записи, распечатать анкетные данные студентов, участвовавших в олимпиаде по информатике и...

__________________
Помогаю в написании студенческих работ здесь.
1
2 / 0 / 7
Регистрация: 12.05.2012
Сообщений: 173
18.05.2012, 10:00  [ТС] 2
Лучший ответ Сообщение было отмечено Sanya Black1993 как решение

Решение

Я уже сам сделал свою базу данных и вот код:

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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
program reck;
uses crt;
 
type spisok = record
    fio: string[50];
    groop: string[20];
    god: string[20];
    matem: integer;
    fiz:integer;
    inform:integer;
    him:integer;
  end;
  FT = file of spisok;
var a: ft;
  i, z: integer;
  s: real;
 
procedure Sozdanie(var a: ft);
var j: integer;
  zk: spisok;
begin
  rewrite(a);
  repeat
    begin
    writeln('Введите данные: ');
      write(' Ф.И.О учащегося - ');
      readln(zk.fio);
      write(' группа - ');
      Readln(zk.groop);
      write(' год рождения - ');
      readln(zk.god);
      write('математика - ');
      readln(zk.matem);
      write('физика - ');
      readln(zk.fiz);
      write('информатика - ');
      readln(zk.inform);
      write('химия - ');
      readln(zk.him);
      write(a, zk);
      writeln('Продолжить запись? ДА-1 НЕТ-0');
      readln(j);
    end;
  until j = 0;
  close(a);
end;
 
procedure Dobovlenie (var a:ft);
var j: integer;
  zk: spisok;
begin
  reset(a);
  repeat
    begin
    writeln('Добавте данные: ');
      write(' Ф.И.О учащегося - ');
      readln(zk.fio);
      write(' группа - ');
      Readln(zk.groop);
      write(' год рождения - ');
      readln(zk.god);
      write('математика - ');
      readln(zk.matem);
      write('физика - ');
      readln(zk.fiz);
      write('информатика - ');
      readln(zk.inform);
      write('химия - ');
      readln(zk.him);
      write(a, zk);
      writeln('Продолжить запись? ДА-1 НЕТ-0');
      readln(j);
    end;
  until j = 0;
  close(a);
end;
 
 
procedure vyvod(var a: ft);
var i: integer;
  zk: spisok;
begin
  clrscr;
  reset(a);
  writeln('======================================================');
  writeln('| Ф.И.О| Группа|год рож.|физика| информ| матем| химия|');
  writeln('======================================================');
  while not eof(a) do
  begin
    read(a, zk);
    write('|', zk.fio: 6, '|');
    write('|', zk.groop: 9, '|');
    write('|', zk.god: 6, '|');
    write('|', zk.fiz: 9, '|');
    write('|', zk.inform: 6, '|');
      write('|', zk.matem: 9, '|');
       write('|', zk.him: 6, '|');
    writeln;
    writeln('-------------------------------');
  end;
  close(a);
  writeln;
  readln;
end;
 
procedure poisk(var a: ft);
var i: integer;
  zk: spisok;
  groopa: string;
begin
  clrscr;
  reset(a);
  writeln('Введите группу для сортировки по группам ');
  readln(groopa);
  writeln('Список с заданной группой ');
  writeln('=========================================================');
  writeln('|        Ф.И.О             |   год рож.       | Группа |');
  writeln('=========================================================');
  while not eof(a) do
  begin
    read(a, zk);
    if (zk.groop = groopa) and (zk.matem<4) or (zk.fiz<4) or (zk.inform <4) or (zk.him <4) then
    begin
      write('|', zk.fio: 6, '|');
    write('|', zk.god: 6, '|');
    write('|', zk.groop: 9, '|');
      writeln;
      writeln('------------------------------------------------------');
    end;
  end;
  close(a);
  writeln;
  readln;
end;
 
begin
  repeat
    clrscr;
    assign(a, 'fff');
    writeln('       Меню      ');
    writeln('1:Создание ');
    writeln('2:Добавление данных ');
    writeln('3:Вывод ');
    writeln('4:Сортировка ');
    writeln('5:Выход ');
    readln(z);
    case z of
      1: Sozdanie(a);
      2: Dobovlenie(a);
      3: vyvod(a);
      4: poisk(a);
      5:{ exit;  }
    end;
  until z=5;
  WriteLn;
  WriteLn('Программа закончила свою работу.');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2012, 10:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Анкетные данные абитуриентов, получивших за последний экзамен оценку 2
Анкетные данные абитуриентов, получивших за последний экзамен оценку 2 Пожалуйстаа

Распечатать анкетные данные...
Распечатать анкетные данные студентов, участвовавших в олимпиаде по информатике и заработавших не...

Распечатать анкетные данные
Распечатать анкетные данные студентов, участвовавших в олимпиаде по информатике и заработавших не...

Напечатать анкетные данные студентов-отличников (учитывать 4 предмета)
Напечатать анкетные данные студентов-отличников (учитывать 4 предмета).


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

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

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