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

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

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Вот уже год прошел, как у меня домен в reg.ru ... Etyuhibosecyu 16.04.2026 И ничего они мне не сделали. Если отвязать карту, никакие услуги они не навяжут. Я бы с радостью продлил еще на два года, чтобы не мучиться с временным доменом и меня уже знали по red-star-soft. com,. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

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

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

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	15.06.2010, 15:46
	Setsuna, Нужно не картинки прикладывать, а текст программы. 0

@Setsuna 9 / 9 / 0 Регистрация: 15.06.2010 Сообщений: 126
	15.06.2010, 15:48 [ТС]
	Puporev его печатать чуть чуть долго)) 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	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

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

Решение