Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Rich456
0 / 0 / 0
Регистрация: 27.10.2012
Сообщений: 11
1

Определить средний балл успеваемости по каждому предмету

30.10.2012, 15:34. Просмотров 1019. Ответов 4
Метки нет (Все метки)

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

Определить вывести числа 2 и 5 и средний балл по каждому предмету
Дана матрица А оценки по 3м дисциплинам. 1) Ввести и распечатать матрицу 2) Определить вывести...

Двумерный массив. Определить количество двоек по каждому предмету
Массив хранит оценки сессии 7_ми студентов по 5_ти предметам. Организовать заполнение массива...

Определить средний балл для каждого студента
Дана матрица A(6*4) оценок успеваемости 6-ти студентов по 4 дисциплинам. 1)Ввести элементы матрицы...

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

Массив записей: Требуется определить средний балл студентов группы
Мальчики подскажите пожалуйста Надо отладить программу Рассмотрим пример. Дан массив записей со...

4
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,756
Записей в блоге: 1
30.10.2012, 16:40 2
Цитата Сообщение от Rich456 Посмотреть сообщение
и выдать их фамилии.
и как же в двумерный массив занести эти самые фамилии?если он может хранить только данные одного типа...быть может задача на записи с использованием массива?
0
Rich456
0 / 0 / 0
Регистрация: 27.10.2012
Сообщений: 11
30.10.2012, 18:55  [ТС] 3
вот мой вариант задачи :
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
program var15;
uses crt;
type
    fio=array[1..4]of string[12];
    rez=array[1..4,1..3]of integer;
var
   srb:real;
   i,s,n,j,m:integer;
const
     C_fio:fio=('Иванов И.И.','Петров П.П.','Сидоров С.С.','Мишин М.М.');
     C_rez:rez=((4,4,5),(2,3,3),(5,5,5),(4,4,4));
begin
     clrscr;
     for i:=1 to n do
         begin
              s:=0;
              s:=s+C_rez[i,j];
              srb:=s/m;
         end;
     for i:=1 to n do
         if srb>=4 then
            begin
                 writeln('Ударники:');
                 write(c_fio[i]);
            end;
     for i:=1 to n do
         Writeln(C_fio[i],'    ',srb:5:2);
     readln;
end.
В самой программе ошибок нету, но она не работает. Поэтому и обращаюсь за помощью
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
30.10.2012, 19:48 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
program var15;
uses crt;
type
    fio=array[1..4]of string[12];
    rez=array[1..4,1..3]of integer;
var
   srb:real;
   i,s,n,j,m:integer;
const
     C_fio:fio=('Иванов И.И.','Петров П.П.','Сидоров С.С.','Мишин М.М.');
     C_rez:rez=((4,4,5),(2,3,3),(5,5,5),(4,4,4));
begin
     clrscr;
  n:=4;m:=3;
 writeln('Список');  writeln;
 
for i:=1 to n do
writeln(c_fio[i]:20 ,'   ', C_rez[i,1] ,'   ', C_rez[i,2] ,'   ', C_rez[i,3]);
 
    writeln('Ударники:'); writeln;
     for i:=1 to n do
      begin
        s:=0;
        for j:=1 to m do s:=s+C_rez[i,j];
       srb:=s/m;
         if srb>=4 then writeln(c_fio[i]:20,'   ', srb:2:1);
      end;
 
end.
1
Rich456
0 / 0 / 0
Регистрация: 27.10.2012
Сообщений: 11
30.10.2012, 19:55  [ТС] 5
Спасибо))
0
30.10.2012, 19:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.10.2012, 19:55

Определить и ввести числа 2 и 5 и средний балл по каждому предмету
Задача* № 278.Дана матрица А оценки по трем дисциплинам.1)***** Ввести и распечатать...

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

Рассчитать средний бал каждого ученика и средний бал по каждому предмету
Подскажите как решать плз! 1)Написать программу создающую на диске файл следующей структуры:...


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

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

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