Посчитать самого сильного и самого слабого ученика

@Katushenka5690 · Регистрация: 19.10.2014

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

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

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
32
33
34
35
36
37
38
39
40
41
program laba7;
uses crt;
const dlina = 20; n=8;
type    stroki = record
    fam:string[dlina];
   discepMatem,discepFiz,discepRuc:integer;
end;
 
 
var
  a: array[1..20] of stroki;
  b: array[1..20] of string;
  i,h,x,y,k: integer; s: real;
begin clrscr;
x:=1;y:=1;
h:=3;
write ('Ученик');
x:=x+20;
gotoXY(x,y);
write ('Математика');
x:=x+20;
gotoXY(x,y) ;
write ('Физика');
x:=x+20;
gotoXY(x,y) ;
write ('Русский');
s:=0;
  for i := 1 to N do
    begin x:=1; y:=y+h;
      with a[i] do
        begin 
gotoXY(x,y) ;
readln(fam);x:=x+20;
gotoXY(x,y) ;
readln(discepMatem);x:=x+20;
gotoXY(x,y) ;
readln(discepFiz);x:=x+20;
gotoXY(x,y) ;
readln(discepRuc);
end;
end;

Как посчитать среднюю оценку ученика по трем предметам?

@Algoritmer · 21.10.2014, 20:28

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

Как посчитать среднюю оценку ученика по трем предметам?

Delphi
1
2
3
4
srednOcen:=(discepMatem+discepFiz+discepRuc)*1.0/3;
x:=x+20;
gotoXY(x,y) ;
write(srednOcen);

@bormant · 21.10.2014, 20:30

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

*1.0/3

Здесь не Си, у операции "/" аргументы всегда действительные, достаточно

Pascal
1
srednOcen:=(discepMatem+discepFiz+discepRuc)/3;

@Algoritmer · 21.10.2014, 20:33

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

у операции "/" аргументы всегда действительные, достаточно

да, точно. В паскале есть div

@Katushenka5690 · 21.10.2014, 22:26 **[ТС]**

У меня выбивает это: Неизвестное имя 'discepMatem' хотя я задавала значение

@bormant · 22.10.2014, 07:37

Katushenka5690,
это поля элементов массива a[i], поэтому или указывать элемент явно перед каждым полем, или выполнять внутри блока with a[i] do ...

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Katushenka5690 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 17
	21.10.2014, 22:26 [ТС]
	У меня выбивает это: Неизвестное имя 'discepMatem' хотя я задавала значение 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	22.10.2014, 07:37
	Katushenka5690, это поля элементов массива a[i], поэтому или указывать элемент явно перед каждым полем, или выполнять внутри блока with a[i] do ... 0