Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 1
Регистрация: 15.08.2014
Сообщений: 28
1

Найти среднюю оценку каждого ученика и класса

16.08.2014, 10:26. Просмотров 1105. Ответов 1
Метки нет (Все метки)


в классе 20 учеников, известны оценки каждого ученика по 12 предметам. Найти среднюю оценку каждого ученика и класса, так же найти фамилию ученика у которого наивысшая средняя оценка.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.08.2014, 10:26
Ответы с готовыми решениями:

Найти среднюю оценку ученика за четверть
надо найти среднюю оценку ученика за четверть в паскале Добавлено через 1 час 26 минут вот код...

Известны оценки ученика по каждому из 19 предметов. Определить среднюю оценку
Известны оценки ученика по каждому из 19 предметов. Определить среднюю оценку.

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

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

1
Модератор
62928 / 46949 / 32354
Регистрация: 18.05.2008
Сообщений: 113,761
16.08.2014, 11:39 2
Лучший ответ Сообщение было отмечено abil как решение

Решение

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
const n=20;//для тестирования можно взять меньше
type uchenik=record
             fam:string[20];
             ocn:array[1..12] of integer;
             srd:real;
             end;
var a:array[1..n] of uchenik;
    i,j,imx:byte;
    sr:real;
begin
sr:=0;
for i:=1 to n do
 begin
  writeln('Введите данные ',i,' ученика');
  with a[i] do
   begin
    write('Фамилия: ');readln(fam);
    writeln('Введите 12 оценок от 2 до 5');
    srd:=0;
    for j:=1 to 12 do
     begin
      repeat
       readln(ocn[j]);
      until ocn[j] in [2..5];
      srd:=srd+ocn[j];
     end;
    sr:=sr+srd;
    srd:=srd/12;
    if i=1 then imx:=1
    else if srd>a[imx].srd then imx:=i;
  end;
 end;
writeln('Наивысшую среднюю оценку имеет ученик ',a[imx].fam, '  она=',a[imx].srd:0:2);
sr:=sr/12/n;
writeln('Средняя оценка в классе=',sr:0:2)
end.
Добавлено через 7 минут
Вообще не совсем по условию, нужно поправить

Добавлено через 17 минут
Вот так лучше и правильнее будет
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
const n=20;//для тестирования можно взять меньше
type uchenik=record
             fam:string[20];
             ocn:array[1..12] of integer;
             srd:real;
             end;
var a:array[1..n] of uchenik;
    i,j,imx:byte;
    sr:real;
begin
randomize;
sr:=0;
for i:=1 to n do
 begin
  writeln('Введите данные ',i,' ученика');
  with a[i] do
   begin
    write('Фамилия: ');readln(fam);
    srd:=0;
    for j:=1 to 12 do
     begin
      ocn[j]:=2+random(4);//вводить 240 оценок с клавы это долго, но выбор за Вами
      srd:=srd+ocn[j];
     end;
    sr:=sr+srd;
    srd:=srd/12;
    if i=1 then imx:=1
    else if srd>a[imx].srd then imx:=i;
  end;
 end;
write('Результат');
writeln('Ср.балл':55);
for i:=1 to n do
 begin
  write(a[i].fam:20);
  for j:=1 to 12 do
  write(a[i].ocn[j]:3);
  writeln(a[i].srd:6:2);
 end;
writeln('Наивысшую среднюю оценку имеет ученик ',a[imx].fam, '  она=',a[imx].srd:0:2);
sr:=sr/12/n;
writeln('Средняя оценка в классе=',sr:0:2)
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.08.2014, 11:39

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

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

Известен возраст (в годах в виде 14,5 лет и т. д.) каждого ученика класса. Определить средний возраст учеников
Известен возраст (в годах в виде 14,5 лет и т. д.) каждого ученика класса. Определить средний...

Ввести оценки ученика за четверть с клавиатуры и вывести определенную оценку
Написать программу, которая позволяет ввести оценки ученика за четверть(10 элементов) с клавиатуры...

Сгруппировать моду и получить среднюю оценку за месяц
Помогите написать программу ,на паскале. Студент выписал из журнала свои отметки за...


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

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

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