Аватар для Setsuna
9 / 9 / 0
Регистрация: 15.06.2010
Сообщений: 126

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

15.06.2010, 15:31. Показов 13971. Ответов 12
Метки нет (Все метки)

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

Вот то что у меня получилось:

http://pics.kz/s3/40/58/70/405... c5ec6b.jpg
http://pics.kz/s2/e2/f3/6d/e2f... 1f8e04.jpg

Прошу найти ошибку в этой задаче(а то она не робит), или найти более удобный метод ее решения.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.06.2010, 15:31
Ответы с готовыми решениями:

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

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

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

12
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.06.2010, 15:46
Setsuna, Нужно не картинки прикладывать, а текст программы.
0
 Аватар для Setsuna
9 / 9 / 0
Регистрация: 15.06.2010
Сообщений: 126
15.06.2010, 15:48  [ТС]
Puporev его печатать чуть чуть долго))
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.06.2010, 15:52
Setsuna, Откройте файл программы в блокноте, если там есть русский текст, перекодируйте в Ворде из Dos в Win, скопируйте сюда, обрамите тегами PASCAL
1
 Аватар для Setsuna
9 / 9 / 0
Регистрация: 15.06.2010
Сообщений: 126
15.06.2010, 15:53  [ТС]
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
const
 n=5;
type
 gruppa=record
  fio: string;
  ball: integer;
 end;
var
 gruppa1: array[1..n] of gruppa;
 i,sb,srb: integer;
begin
 for i:=1 to n do
  with gruppa1[i] do
   begin
    writeln('Vvedite fio: ');
    read(fio);
    writeln('Vvedite ball studenta');
    read(ball);
   end;
 sb:=0;
 for i:=1 to n do
  sb:=sb+gruppa1.ball[i];
 srb:=sb/n;
 writeln('Studenty vuse sred balla: ');
 for i:=1 to n do
  if srb<gruppa1[i] then writeln(fio[i]);
end.
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.06.2010, 15:54
Цитата Сообщение от Setsuna Посмотреть сообщение
его печатать чуть чуть долго))
А кому-то переписывать Ваши каракули с картинки это самое то!
0
 Аватар для Setsuna
9 / 9 / 0
Регистрация: 15.06.2010
Сообщений: 126
15.06.2010, 15:56  [ТС]
Исправил до такой версии

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
const
 n=5;
type
 gruppa=record
  fio: string[45];
  ball: real;
 end;
var
 gruppa1: array[1..n] of gruppa;
 sb,srb: real;
 i: integer;
begin
 for i:=1 to n do
  with gruppa1[i] do
   begin
    writeln('Vvedite fio: ');
    read(fio);
    writeln('Vvedite ball studenta');
    read(ball);
   end;
 sb:=0;
 for i:=1 to n do
  with gruppa1[i] do
   sb:=sb+ball;
 srb:=sb/n;
 writeln('Studenty vuse sred balla: ');
 for i:=1 to n do
  if srb<gruppa1[i].ball then writeln(gruppa1[i].fio);
end.
НО теперь проблема в том что он запрашивает ввод фамилии только один раз((
0
 Аватар для AnTro.Net
131 / 127 / 50
Регистрация: 28.04.2010
Сообщений: 928
15.06.2010, 16:00
Цитата Сообщение от Setsuna Посмотреть сообщение
if srb<gruppa1[i] then writeln(fio[i]);
это что за глупость?
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.06.2010, 16:01
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
uses crt;
const n=5;
type
 gruppa=record
        fio: string;
        ball: integer;
        end;
var
 gruppa1: array[1..n] of gruppa;
 i:integer;
 sb:real;
begin
clrscr;
sb:=0;
for i:=1 to n do
 begin
  with gruppa1[i] do
   begin
    writeln('Vvedite fio: ');
    readln(fio);
    writeln('Vvedite ball studenta');
    readln(ball);
   end;
  sb:=sb+gruppa1[i].ball;
 end;
sb:=sb/n;
writeln('Studenty vuse sred balla: ');
for i:=1 to n do
if sb<gruppa1[i].ball then writeln(gruppa1[i].fio);
readln
end.
2
 Аватар для AnTro.Net
131 / 127 / 50
Регистрация: 28.04.2010
Сообщений: 928
15.06.2010, 16:02
а увеличивать i не нужно?)
0
 Аватар для Setsuna
9 / 9 / 0
Регистрация: 15.06.2010
Сообщений: 126
15.06.2010, 16:06  [ТС]
Puporev пасиба))
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 15
06.03.2019, 20:01
А как сделать ниже среднего?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7806 / 4628 / 2833
Регистрация: 22.11.2013
Сообщений: 13,146
Записей в блоге: 1
06.03.2019, 21:13
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
29
sb>gruppa1[i].ball
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.03.2019, 21:13
Помогаю со студенческими работами здесь

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

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

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

Вывести на экран ФИО студентов, средний балл которых выше среднего балла всей группы
дана группа студентов которая сформирована ФИО. номер группы и 5 оценок. вывести на экран ФИО. студентов средний балл, которых выше...

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


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

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

Новые блоги и статьи
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana
stackOverflow 25.04.2025
Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .
Полностью асинхронный счётчик на логике (сумматорах) трёх состояний и асинхронных регистрах трёх состояний. Структура "электронный Buttom Up"
Hrethgir 25.04.2025
Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python
py-thonny 25.04.2025
Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .
Apache Kafka vs RabbitMQ в микросервисной архитектуре
ArchitectMsa 25.04.2025
Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .
Параллельное программирование с OpenMP в C++
NullReferenced 24.04.2025
Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API
UnmanagedCoder 24.04.2025
Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .
Мульти-тенантные БД с PostgreSQL Row Security
Codd 23.04.2025
Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .
Реализация конвейеров машинного обучения с Python и Scikit-learn
AI_Generated 23.04.2025
Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .
Контроллеры Kubernetes Ingress: Сравнительный анализ
Mr. Docker 23.04.2025
В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .
Оптимизация кода Python с Cython и Numba
py-thonny 23.04.2025
Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru