Переделать программу так, чтобы можно было вводить n-ое количество пациентов

@andriy_77 · Регистрация: 15.11.2014

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

Доброго времени суток уважаемые форумчане!
Помогите пожалуйста модернизировать программу для работы со списками.
Нам дана программа для составления списка пациентов и данных о их артериальном давлении.
Но она рассчитана только на 5 пациентов.
Нужно переделать ее так чтобы можно было вводить n-ое количество пациентов.
Число n (количество пациентов) нужно вводить с клавиатуры.
Вот код программы:

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
program spisok;
type uk=^rec;
rec = record
fio : string[15]; {ФИО пациента}
davl : integer;   {давление}
v : uk            {указатель на следующую запись}
end;
var  tek, pred, perv, rab : uk; {указатели на бегущую, предыдущую, первую, рабочую запись}
k : integer;
begin
{введение 5-и записей пациентов}
new (tek); {выделение памяти}
write ('Введите фамилию пациента:  ');    readln (tek^.fio);
write ('Введите давление:  ');            readln (tek^.davl);
tek^.v := nil; {следующей записи пока нет}
pred:=tek; perv:=tek;
for k:=2 to 5 do
begin
new (tek); {выделение памяти}
pred^.v := tek;
write ('Введите фамилию пациента:  ');      readln (tek^.fio);
write ('Введите давление:  ');              readln (tek^.davl);
tek^.v:=nil; {следующей записи пока нет}
pred:=tek;
end;
{удаление записей пациентов с давлением более 140}
tek:=perv;  {указатель на начало списка}
pred:=nil;  {предыдущией записи пока нет}
while tek<>nil do
begin
if tek^.davl>140 then
begin
rab:=tek;
if tek<>perv then  pred^.v:=tek^.v
else  perv:=tek^.v;
if tek^.v=nil then {запись последняя}
if tek<>perv then  {список не пуст}
pred^.v:=nil else  {список пуст} perv:=nil;
dispose (rab);
end
else pred:=tek; {переставляем указатель предварительной записи, если бегущую запись не удаляли}
tek:=tek^.v; {переход к следующей записи}
end;
{вывод оставшихся записей}
writeln ('Вывод записей оставшихся в списке');
if perv<>nil then {список не пуст} begin
tek:=perv;
while tek<>nil do
begin
writeln('Фамилия  ',tek^.fio,'  давление   ', tek^.davl);
tek:=tek^.v {переход к следующей записи}
end end 
end.

Буду очень благодарен за помощь!

@andriy_77 · 04.04.2015, 17:16 **[ТС]**

Перед последним end забыл добавить readln, чтобы можно было просмотреть результать выполнения, извините

@ZX Spectrum-128 · 06.04.2015, 08:35

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
program spisok;
type
  uk=^rec;
  rec = record
    fio : string[15]; {ФИО пациента}
    davl : integer;   {давление}
    v : uk            {указатель на следующую запись}
  end;
var
  tek, pred, perv, rab : uk; {указатели на бегущую, предыдущую, первую, рабочую запись}
  n,k : integer;
begin
  {введение n записей пациентов}
  write ('Введите количество пациентов:  ');      readln (n);
  new (tek); {выделение памяти}
  write ('Введите фамилию пациента:  ');    readln (tek^.fio);
  write ('Введите давление:  ');            readln (tek^.davl);
  tek^.v := nil; {следующей записи пока нет}
  pred:=tek; perv:=tek;
  for k:=2 to n do
    begin
      new (tek); {выделение памяти}
      pred^.v := tek;
      write ('Введите фамилию пациента:  ');      readln (tek^.fio);
      write ('Введите давление:  ');              readln (tek^.davl);
      tek^.v:=nil; {следующей записи пока нет}
      pred:=tek;
    end;
  {удаление записей пациентов с давлением более 140}
  tek:=perv;  {указатель на начало списка}
  pred:=nil;  {предыдущией записи пока нет}
  while tek<>nil do
    begin
      if tek^.davl>140 then
        begin
          rab:=tek;
          if tek<>perv then
            pred^.v:=tek^.v
          else
            perv:=tek^.v;
          if tek^.v=nil then {запись последняя}
            if tek<>perv then  {список не пуст}
              pred^.v:=nil
            else  {список пуст}
              perv:=nil;
          dispose (rab);
        end
      else
        pred:=tek; {переставляем указатель предварительной записи, если бегущую запись не удаляли}
      tek:=tek^.v; {переход к следующей записи}
    end;
  {вывод оставшихся записей}
  writeln ('Вывод записей оставшихся в списке');
  if perv<>nil then {список не пуст}
    begin
      tek:=perv;
      while tek<>nil do
        begin
          writeln('Фамилия  ',tek^.fio,'  давление   ', tek^.davl);
          tek:=tek^.v {переход к следующей записи}
        end
    end; 
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@andriy_77 1 / 1 / 1 Регистрация: 15.11.2014 Сообщений: 42
	04.04.2015, 17:16 [ТС]
	Перед последним end забыл добавить readln, чтобы можно было просмотреть результать выполнения, извините 0