Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Siegwell
0 / 0 / 0
Регистрация: 25.08.2014
Сообщений: 1
#1

Исходя из массива оценок по предметам найти студентов, имеющих право на получение стипендии - Turbo Pascal

29.08.2014, 00:39. Просмотров 495. Ответов 1
Метки нет (Все метки)

Есть задача - Написать программу, используя массив. Описание задачи: Имеем оценки m студентов по n предметам, m=6, n=3. Узнать количество успевающих студентов, которые имеют право на получение стипендии. Право на стипендию имеют студенты с средним балом 4 и больше (5 бальная система)



Очень срочно нужно, завтра сдавать.

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

Создать список студентов, имеющих задолженность по всем предметам
Создать файл, содержащий сведения об итогах зимней сессии студентов 1-го курса....

Подсчитать число студентов, не имеющих оценок 2 и 3
вводя в цикле по 5 оценок каждого студента, подсчитывается число студентов, не...

Подсчитать число студентов, не имеющих оценок 2 и 3
Напишите Паскаль-программу, где вводя в цикле по 5 оценок каждого студента,...

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

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

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

1
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,070
29.08.2014, 01:59 #2
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

Не по теме:

Цитата Сообщение от Siegwell Посмотреть сообщение
Очень срочно нужно, завтра сдавать.
Успешно Вам не сдать. У Вас и так богатая событиями жизнь, на учёбу, видно, времени не хватает. Ну, или лень-матушка вперёд Вас родилась, Вы - в пелёнках, а она уже с телёнка.

Цитата Сообщение от Siegwell Посмотреть сообщение
просто напишите код программы без вопросов
Написал. Знак вопроса ни разу не задействовал. Без проверки на корректность оценок.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var p: array [1..6, 1..3] of integer;
    i, j: integer;
    t: real;
begin
  for i := 1 to 6 do
    begin
      writeln('Введите оценки ', i, '-го студента:');
      for j := 1 to 3 do
        begin
          write(j, ' предмет: ');
          readln(p[i, j])
        end
    end;
  write('Студенты, имеющие право на стипендию: ');
  for i := 1 to 6 do
    begin
      t := 0;
      for j := 1 to 3 do t := t + p[i, j];
      if t / 3 >= 4 then write(i, ' ')
    end;
  readln
end.
Добавлено через 25 минут
С проверками:
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
var p: array [1..6, 1..3] of integer;
    i, j: integer;
    t: real;
    b: boolean;
begin
  b := true;
  for i := 1 to 6 do
    begin
      writeln('Введите оценки ', i, '-го студента:');
      for j := 1 to 3 do
        repeat
          write(j, ' предмет: ');
          readln(p[i, j]);
          if (p[i, j] < 1) or (p[i, j] > 5) then writeln('Недопустимая оценка. Повторите ввод.')
        until (p[i, j] >= 1) and (p[i, j] <= 5)
    end;
  write('Студенты, имеющие право на стипендию: ');
  for i := 1 to 6 do
    begin
      t := 0;
      for j := 1 to 3 do t := t + p[i, j];
      if t / 3 >= 4
        then begin
          write(i, ' ');
          b := false
        end
    end;
  if b then write('таких студентов нет.');
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.08.2014, 01:59
Привет! Вот еще темы с решениями:

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

Вводя в цикле по 5 оценок каждого студента, подсчитать число студентов, не имеющих оценок 2 и 3
Помогите пожалуйста запутался) Вводя в цикле по 5 оценок каждого...

Вывести фамилии студентов, имеющих задолженность по двум предметам
Я без-понятия как писать этот код. Если будет у вас свободная минутка,...

Подсчитать число студентов, не имеющих оценок 2 и 3
вводя в цикле по 5 оценок каждого студента, подсчитывается число студентов, не...


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

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

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