biops
1

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

29.06.2009, 11:44. Показов 2678. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребят, помогите пожалуйста.
Одну задачку сделал вторую не получается, на форуме похожих не нашел..после завтра сдавать.

2.Даны оценки N студентов, полученные ими на 4 экзаменах. Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2009, 11:44
Ответы с готовыми решениями:

Записи: В группе студентов определить средний балл у каждого студента
Примечание: Из текстового файла, где в каждой строке задана информация об одном человеке, прочитать...

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

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

В группе студентов определить средний балл после зимней сессии каждого студента и абсолютную успеваемость в группе.
Помогите,пожалуйста)) В группе студентов определить средний балл после зимней сессии каждого...

2
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
29.06.2009, 12:28 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
uses crt;
var a:array[1..100,1..4] of integer;
    i,j,n,k:integer;
    srbal:real;
begin
 clrscr;
 writeln('Vvedite chislo studentov');
 readln(n);
 for i:=1 to n do
  for j:=1 to 4 do
  begin
   write('Vvedite ',j,'-yu ocenku ' ,i,'-go studenta= ');
   readln(a[i,j]);
  end;
 writeln('Sredniy bal studentov ');
for i:=1 to n do
 begin
  srbal:=0;
  for j:=1 to 4 do
  srbal:=srbal+a[i,j];
  writeln('Sredniy bal ',i,'-go studenta',srbal/4:5:2);
 end;
k:=0;
for i:=1 to n do
 if (a[i,1]>2)and(a[i,2]>2)and(a[i,3]>2)and(a[i,4]>2) then
   k:=k+1;
writeln('Net dvoek u ',k,' studentov');
readln;
end.
1
biops
29.06.2009, 12:29 3
Спасибо огромное!!!!)))
29.06.2009, 12:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2009, 12:29
Помогаю со студенческими работами здесь

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

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

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

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

Вычислить средний балл оценок каждого студента и напечатать их фамилии и средний балл (объединение (union))
Дан список студентов. Общие поля: Ф.И.О., дата рождения, группа, средний балл. Вычислить средний...

Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента и общий средний балл
Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента...


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

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

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