Вложенные циклы

@Vincent_Moro21A · Регистрация: 22.10.2019

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

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

Вот программа:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
uses crt;
const
D = 10;
type ad = record
  name: string[30];
  marks: array [1..D] of integer;
  l: real;
  end;
var n, x, y, m, pr : integer;
tr:real;
p,  r, f: ad;
begin
  write('Введите количество оценок(до 5):');
  repeat
  readln(x);
  until (x<5) and (x>0);
  write('Введите количество студентов(до десяти): ');
  repeat
    read(y);
  until (y<10) and (y>0);
   clrscr;
  gotoxy(1, 1);
  writeln('┌───┬──────────────────────────┬────────────────┬───────────┐');
     gotoxy(1, 2);
  writeln('│ № │          Студент:        │Оценки студента:│ Ср.Оценка:│');
    gotoxy(1, 3);
  writeln('├───┼──────────────────────────┼────────────────┼───────────┤');
  for var qq:integer:=1 to y do begin
     gotoxy(6, qq+3);
  tr:=tr+1;
      gotoxy(3, qq+3);
    writeln(tr);
  end;
  for var qe:integer:=1 to y do begin
    gotoxy(1, qe+3);
    writeln('│');
    gotoxy(5, qe+3);
    writeln('│');
    gotoxy(32, qe+3);
    writeln('│');
    gotoxy(49, qe+3);
    writeln('│');
    gotoxy(61, qe+3);
    writeln('│');
    gotoxy(7, 13);
    end;
for var fd:integer:=0 to y do begin
  gotoxy(16, 14+fd);
  writeln('Введите имя студента: ');
  gotoxy(23, fd+3);
  readln(p.name);
  gotoxy(16, fd+3);
  write(p.name);
  for var l:integer:=1 to x+1 do begin
    gotoxy(7, 14);
    writeln('Введите оценки студента ', p.name );
    readln(r.marks[l]);
    gotoxy(39+l, l+3);
    writeln(r.marks[l]);
  end;
 end;
end.

@Puporev · 16.02.2020, 14: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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
uses crt;
const D=9;
type ad = record
          name: string[30];
          marks: array [1..D] of integer;
          end;
var x, y, k: integer;
    s:real;
    p:array[1..D]of ad;
begin
 repeat 
  write('Введите количество студентов от 2 до ',D,' y=');
  readln(y);
 until y in [1..D];
 repeat
  write('Введите количество оценок от 1 до 5 x=');
  readln(x);
 until x in [1..5];
 clrscr;
gotoxy(1, 1);
writeln('┌---┬--------------------------┬----------------┬-----------¬');
writeln('¦ № ¦          Студент:        ¦Оценки студента:¦ Ср.Оценка:¦');
writeln('├---┼--------------------------┼----------------┼-----------┤');
k:=0;
for var i:=1 to y do
 begin
  gotoxy(6, i+4);
  k:=k+1;
  gotoxy(1, i+3);
  write('| '+k,' |');
  gotoxy(32,i+3);
  write('|');
  gotoxy(49,i+3);
  write('|');
  gotoxy(61,i+3);
  writeln('|');
 end;
for var i:=1 to y do
 begin
  gotoxy(1,14);
  for var j:=1 to 80 do
  write(' ');
  gotoxy(16, 14);
  writeln('Введите имя студента: ');
  gotoxy(5,i+3);
  write('|');
  gotoxy(6, i+3);
  readln(p[i].name);
  gotoxy(16, 14);
  writeln('Введите оценки студента ', p[i].name );
  gotoxy(33,i+3);
  for var j:=1 to x do
   begin
    gotoxy(33+j*2,i+3);
    readln(p[i].marks[j]);
    gotoxy(49,i+3);
    writeln('|');
   end; 
  end;  
 for var i:=1 to y do
  begin
   s:=0;
   for var j:=1 to x do
   s:=s+p[i].marks[j];
   s:=s/x;
   gotoxy(50,i+3);
   writeln(s:8:2);
  end;
writeln('------------------------------------------------------------┘');  
end.

@Vincent_Moro21A · 16.02.2020, 16:55 **[ТС]**

Мне не удобно спрашивать что- то еще, но все же очень любопытно, чтобы такой ошибки не повторять впредь, что не так с моей программой

@Puporev · 16.02.2020, 19:16

Так Вы посмотрите как работает моя программа и внесите изменения в свою.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Vincent_Moro21A 2 / 2 / 0 Регистрация: 22.10.2019 Сообщений: 84
	16.02.2020, 16:55 [ТС]
	Мне не удобно спрашивать что- то еще, но все же очень любопытно, чтобы такой ошибки не повторять впредь, что не так с моей программой 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.02.2020, 19:16
	Так Вы посмотрите как работает моя программа и внесите изменения в свою. 0

Вложенные циклы

Решение