Найдите ошибку

@ЮныйПрограммист · Регистрация: 29.11.2013

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

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
program notebook;
USES CRT;
type NOTE = record
fam:string[20];
im:string[20];
telefon:string[20];
god:array[1..3] of word;
end;
const n=2;
var mas:array[1..n] of note;
g,z,i,k,j,l:integer;
F:STRING;
m:note;
begin
for i:=1 to n do
begin
{====================}{Ввод Данных}{====================}
write('Введите фамилию: ');
readln(mas[i].fam);
write('Введите имя: ');
readln(mas[i].im);
write('Введите номер телефона: ');
readln(mas[i].telefon);
writeln('Дата рождения: ');
repeat
write('День: ');readln(m.god[1]);
until (m.god[1]>0)and(m.god[1] <=31);
repeat
write('Месяц: ');readln(m.god[2]);
until (m.god[2]>0)and(m.god[2]<=12);
repeat
write('Год: ');readln(m.god[3]);
until (m.god[3]>=1000)and(m.god[3]<=2000);
end;
 
{====================}{Вывод всего списка}{====================}
 
begin for i:=1 to n do
writeln(i);
writeln('Весь список: ');
writeln('Фамилия: ',mas[i].fam);
writeln('Имя: ',mas[i].im);
writeln('Телефон: ',mas[i].telefon);
writeln('Дата рождения : ',m.god[1],'.',m.god[2],'.',m.god[3]);
end;
 
{====================}{Вывод информации о человеке}{====================}
 
writeln('Введите информацию для поиска');
readln(f);
for i:=1 to n do begin
if f=mas[i].fam then begin
writeln('Фамилия: ',mas[i].fam);
writeln('Имя: ',mas[i].im);
writeln('Телефон: ',mas[i].telefon);
writeln('Дата рождения: ',m.god[1],'.',m.god[2],'.',m.god[3]); end
else begin
writeln('Такой фамилии нет!');
end;end.

Cобственно проблема такова:не выводит весь список,а только фамилии первых лиц,и всю информацию о последнем,и у всех одна дата рождения:во вторых в выводе информации о человеке не работает"такой фамилии нет"точнее выводит всегда,даже когда фамилия найдена.Можете объяснить в чем проблема?

@LeDep · 23.12.2013, 20:58

Pascal
1
begin for i:=1 to n do

begin добавьте

@ЮныйПрограммист · 23.12.2013, 21:16 **[ТС]**

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

Pascal
1
begin for i:=1 to n do

begin добавьте

а вы знаете,почему у всех одна дата рождения?

@bormant · 25.12.2013, 13:29

Сообщение от ЮныйПрограммист

а вы знаете,почему у всех одна дата рождения?

Потому что список в mas, а в качестве даты вводится/выводится только m.

Добавлено через 7 минут

Сообщение от ЮныйПрограммист

в выводе информации о человеке не работает"такой фамилии нет"точнее выводит всегда,даже когда фамилия найдена.Можете объяснить в чем проблема?

логическая ошибка: у вас после проверки каждой фамилии принимается решение, вывести сведения или написать, что такой фамилии нет. На самом деле написать, что такой фамилии нет можно только если в теле цикла не было ни одного совпадения.

В строке 38 переставьте begin после do, иначе у вас тело этого цикла состоит из одного Writeln(i), что не совсем то, что имелось в виду.

Добавлено через 4 часа 49 минут
Пожалуй, имелось в виду что-то вроде:

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
program notebook;
type
  date = record
    day, month: byte; year: word; 
  end;
  NOTE = record
    fam, im, telefon:string[20];
    birth: date;
  end;
procedure ShowNote(a: note);
begin
  with a, a.birth do begin
    writeln('      Фамилия: ',fam);
    writeln('          Имя: ',im);
    writeln('      Телефон: ',telefon);
    writeln('Дата рождения: ',day,'.',month,'.',year);
  end;
end;
 
const
  n=2;
var
  mas: array[1..n] of note;
  i,k: integer;
  f: string;
begin
  {====================}{Ввод Данных}{====================}
  for i:=1 to n do with mas[i], mas[i].birth do begin
    write('Фамилия: '); readln(fam);
    write('    Имя: '); readln(im);
    write('Телефон: '); readln(telefon);
    repeat
      write('Дата рождения (день, месяц, год через пробел): ');
      readln(day, month, year);
    until (day>0) and (day<=31)
      and (month>0) and (month<=12)
      and (year>=1000) and (year<=2100);
  end;
  {====================}{Вывод всего списка}{====================}
  writeln('Весь список: ');
  for i:=1 to n do begin
    writeln(i); ShowNote(mas[i]);
  end;
  {====================}{Вывод информации о человеке}{====================}
  write('Поиск по фамилии: '); readln(f);
  k:=0;
  for i:=1 to n do
    if f=fam then begin
      ShowNote(mas[i]); inc(k);
    end;
  if k=0 then writeln('Такой фамилии нет!');
end.

@ЮныйПрограммист · 25.12.2013, 14:07 **[ТС]**

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

Потому что список в mas, а в качестве даты вводится/выводится только m.

Добавлено через 7 минут
логическая ошибка: у вас после проверки каждой фамилии принимается решение, вывести сведения или написать, что такой фамилии нет. На самом деле написать, что такой фамилии нет можно только если в теле цикла не было ни одного совпадения.

В строке 38 переставьте begin после do, иначе у вас тело этого цикла состоит из одного Writeln(i), что не совсем то, что имелось в виду.

Добавлено через 4 часа 49 минут
Пожалуй, имелось в виду что-то вроде:

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
program notebook;
type
  date = record
    day, month: byte; year: word; 
  end;
  NOTE = record
    fam, im, telefon:string[20];
    birth: date;
  end;
procedure ShowNote(a: note);
begin
  with a, a.birth do begin
    writeln('      Фамилия: ',fam);
    writeln('          Имя: ',im);
    writeln('      Телефон: ',telefon);
    writeln('Дата рождения: ',day,'.',month,'.',year);
  end;
end;
 
const
  n=2;
var
  mas: array[1..n] of note;
  i,k: integer;
  f: string;
begin
  {====================}{Ввод Данных}{====================}
  for i:=1 to n do with mas[i], mas[i].birth do begin
    write('Фамилия: '); readln(fam);
    write('    Имя: '); readln(im);
    write('Телефон: '); readln(telefon);
    repeat
      write('Дата рождения (день, месяц, год через пробел): ');
      readln(day, month, year);
    until (day>0) and (day<=31)
      and (month>0) and (month<=12)
      and (year>=1000) and (year<=2100);
  end;
  {====================}{Вывод всего списка}{====================}
  writeln('Весь список: ');
  for i:=1 to n do begin
    writeln(i); ShowNote(mas[i]);
  end;
  {====================}{Вывод информации о человеке}{====================}
  write('Поиск по фамилии: '); readln(f);
  k:=0;
  for i:=1 to n do
    if f=fam then begin
      ShowNote(mas[i]); inc(k);
    end;
  if k=0 then writeln('Такой фамилии нет!');
end.

спасибо за помощь,но мне кажется что "if f=fam then begin" надо записать " if f=mas[i].fam then begin",я может и ошибаюсь,но в этом случае у меня программа работает.Огромное спасибо.

@bormant · 25.12.2013, 17:00

В строке 47 имелся в виду (как и выше), но по ошибке пропущен оператор with mas[i] do ..., но поскольку поле записи упоминается только один раз при проверке условия (f=fam), какого-либо выигрыша от использования одной или другой записи не будет, оба варианта равнозначны:

Pascal
1
2
3
  for i:=1 to n do with mas[i] do
  if f=fam then begin
    ...

Pascal
1
2
3
  for i:=1 to n do
  if f=mas[i].fam then begin
    ...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .