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

@Setsuna · Регистрация: 15.06.2010

Author24 — интернет-сервис помощи студентам

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

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

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

Прошу найти ошибку в этой задаче(а то она не робит), или найти более удобный метод ее решения.

@Puporev · 15.06.2010, 15:46

Setsuna, Нужно не картинки прикладывать, а текст программы.

@Setsuna · 15.06.2010, 15:48 **[ТС]**

Puporev его печатать чуть чуть долго))

@Puporev · 15.06.2010, 15:52

Setsuna, Откройте файл программы в блокноте, если там есть русский текст, перекодируйте в Ворде из Dos в Win, скопируйте сюда, обрамите тегами PASCAL

@Setsuna · 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.

@Puporev · 15.06.2010, 15:54

Сообщение от Setsuna

его печатать чуть чуть долго))

А кому-то переписывать Ваши каракули с картинки это самое то!

@Setsuna · 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.

НО теперь проблема в том что он запрашивает ввод фамилии только один раз((

@AnTro.Net · 15.06.2010, 16:00

Сообщение от Setsuna

if srb<gruppa1[i] then writeln(fio[i]);

это что за глупость?

@Puporev · 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.

@AnTro.Net · 15.06.2010, 16:02

а увеличивать i не нужно?)

@Setsuna · 15.06.2010, 16:06 **[ТС]**

Puporev пасиба))

@CrimzON · 06.03.2019, 20:01

А как сделать ниже среднего?

@bormant · 06.03.2019, 21:13

Pascal
29
sb>gruppa1[i].ball

Новые блоги и статьи Все статьи Все блоги /
Логирование в 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 прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .

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

	Вычислить средний балл группы и вывести на экран список студентов имеющих средний балл выше среднего балла группы 15.06.2010, 15:31. Показов 13971. Ответов 12 Метки нет (Все метки) Написал задачку, а она как то не робит(( Нуждаюсь в опытном совете.... Вот условие задачи: "Вычислить средний балл группы и вывести на экран список студентов имеющих средний балл выше среднего балла группы." Вот то что у меня получилось: http://pics.kz/s3/40/58/70/405... c5ec6b.jpg http://pics.kz/s2/e2/f3/6d/e2f... 1f8e04.jpg Прошу найти ошибку в этой задаче(а то она не робит), или найти более удобный метод ее решения. 0

@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

@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

@CrimzON 0 / 0 / 0 Регистрация: 20.12.2018 Сообщений: 15
	06.03.2019, 20:01
	А как сделать ниже среднего? 0

Опции темы

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

Решение