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

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

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

Помогите:
По итогам аттестации в группе по нескольким предметам, выбрать ударников и выдать их фамилии. Определить средний балл успеваемости по каждому предмету.
Заранее спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2012, 15:34
Ответы с готовыми решениями:

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

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

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

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

4
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,268
Записей в блоге: 1
30.10.2012, 16:40 2
Цитата Сообщение от Rich456 Посмотреть сообщение
и выдать их фамилии.
и как же в двумерный массив занести эти самые фамилии?если он может хранить только данные одного типа...быть может задача на записи с использованием массива?
0
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
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
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
0 / 0 / 0
Регистрация: 27.10.2012
Сообщений: 11
30.10.2012, 19:55  [ТС] 5
Спасибо))
0
30.10.2012, 19:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2012, 19:55

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

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

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

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


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

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

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