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

Вывести информацию о студентах, имеющих средний балл выше 3

09.12.2009, 14:33. Показов 2160. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Файлы:
*Файл содержит итоги контрольного срока, каждая запись которого содержит поля: Фамилия студента и средний балл.
*Вывести информацию о студентах, имеющих средний балл выше 3.


Помогите плз я в файлах вообще никак((
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2009, 14:33
Ответы с готовыми решениями:

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

Вычислить средний балл группы и распечатать список студентов, имеющих средний балл выше среднего балла группы
Здраствуйте ещё раз :) Скажу сразу честно толком не пробывал решать с Записями и в особенности вот...

Вычислить средний балл группы и вывести список студентов, имеющих средний балл ниже среднего балла группы
Здравствуйте, помогите решить. Задания для выполнения: В лабораторной работе №7 необходимо...

Для студентов заданной группы, имеющие средний балл, больший 4.5, вывести фамилию и средний балл
Для студентов заданной группы,имеющие средний балл,больший 4.5,вывести фамилию,имя,отчество и...

3
СтудентЪ из Кызылорды
25 / 23 / 9
Регистрация: 02.10.2009
Сообщений: 144
10.12.2009, 19:30 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
uses crt;
Const n=10;{при тестировании взять 2-3}
Type
ball=0..10;
predm=record
      naz:string[13];
      bal:ball;
      end;
Anketa=record
       N:  string[13];
       I1,I2: char;
       A:array[1..5] of predm;
       End;
Var  Spisok:  array[1..n]  of  anketa;
I,j,k,p:  integer;
Begin
clrscr;
writeln('Введите данные о ',n,' студентах:');
For  I:=1  to  n  do
 begin
  writeln('Студент ',i);
  With  Spisok[i]  do
   Begin
    Write (' Фамилия: ');Readln(N);
    Write (' Инициалы(без пробела): ');Readln(I1,I2);
    writeln(' Введите названия 5 предметов и оценки по ним:');
     For  j:=1  to  5  do
     With  A[j] do
      Begin
       Write('  Название предмета ',j,': ');Readln(A[j].naz);
       repeat
       write('  Балл от 0 до 10: ');Readln(A[j].bal);
       until A[j].bal in [0..10];
      end;
   end;
 End;
writeln('Не аттестованы по трем и более предметам:');
p:=0;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to 5 do
  if Spisok[i].A[j].bal=0 then k:=k+1;
  if k>2 then
   begin
    p:=1;
    writeln(Spisok[i].N,' ',Spisok[i].I1,'. ',Spisok[i].I2,'.');
   end;
 end;
if p=0 then write('Не аттестованных студентов нет!');
readln
end.
0
4 / 4 / 0
Регистрация: 01.12.2009
Сообщений: 68
10.12.2009, 19:49  [ТС] 3
всмысле добавить файлы? я проболел месяц и пропустил все лекции по файлам и модулям(((
0
4 / 4 / 0
Регистрация: 01.12.2009
Сообщений: 68
13.12.2009, 23:32  [ТС] 4
Если кому понадобиться - выклабываю рабочую.
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
Type
Zapis=record
  f:string;
  s:integer;
end;
var
v:integer;
F:file of zapis;
z:zapis;
Begin
assign(F, 'student');
{$I-}
Reset(F);
{$I+}
If IoResult<>0 Then
Begin
Rewrite(F);
For v:=1 to 4 do
begin
Readln(z.f);
Readln(z.s);
write(f,z);
end;
end;
reset(F);
For v:=1 to 4 do
begin
read(f,z);
If z.s>3 Then writeln(Z.f,': ',Z.s);
end;
readln
end.
0
13.12.2009, 23:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2009, 23:32
Помогаю со студенческими работами здесь

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

Определить количество абитуриентов, средний балл которых выше среднего балла по институту
Помогите составить программу. Дана ведомость абитуриентов, сдавших вступительные экзамены в...

Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.
Ребят, помогите пожалуйста. Одну задачку сделал вторую не получается, на форуме похожих не...

Вывести средний балл каждого студента и номер студентов,не сдавших сессию
Задана матрица размерности н на м.н-количество студентов,м-количество сданных экзаменов. Каждый...


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

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

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