Описать структуру с именем NOTE

@S3nzat10n · Регистрация: 11.10.2016

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

Описать структуру с именем NOTE, содержащую следующие поля: фамилия, имя; номер телефона; год рождения.
Запрограммировать вывод на экран информации о человеке, номер телефона которого введен с клавиатуры.
Если такого номера нет, то вывести сообщение на экран.

@Cyber_Monster_ · 09.11.2016, 03:11

В паскале нет структур. Есть запись и есть класс.

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
type
  NOTE = class
    private PhoneNumber: string;
    private Name: string;
    private FName: string;
    private DateOfBirth: System.DateTime;
    constructor(PhoneNumber: string; Name: string; FName: string; DateOfBirth: System.DateTime);
    begin
      self.PhoneNumber:= PhoneNumber;
      self.Name:= Name;
      self.FName:= FName;
      self.DateOfBirth:= DateOfBirth;
    end;
    constructor();
    begin
      Readln();
      self.PhoneNumber:= ReadString('Введите номер телефона: ');
      self.Name:= ReadString('Введите имя: ');
      self.FName:= ReadString('Введите фамилию: ');
      self.DateOfBirth:= new System.DateTime(ReadInteger('Введите год рождения: '), ReadInteger('Введите месяц рождения: '), ReadInteger('Введите день рождения: '));
    end;
    public procedure OutInfo();
    begin
      System.Console.WriteLine('Фамилия: ' + self.FName + #10 + 'Имя: ' + self.Name + #10 + 'Дата рождения: ' + self.DateOfBirth.Year + ':' + self.DateOfBirth.Month + ':' + self.DateOfBirth.Day + '(гггг.мм.дд)' + #10 + 'Номер телефона: ' + self.PhoneNumber);
      Writeln('-------------------------------');
    end;
  end;
begin
  var Population: List<NOTE> = new List<NOTE>();
  Writeln('Для начала записи, нажмите любую клавишу.');
  repeat
    Writeln();
    Population.Add(new NOTE());
    Writeln('Ввести еще запись? y/n');
  until char.ToLower(System.Console.ReadKey(false).KeyChar) = 'n';
  Readln();
  var StringBuff:= ReadString('Введите номер телефона для поиска: ');
  var Match:= Population.Where(x -> x.PhoneNumber = StringBuff);
  if (Match.Count() <> 0)
  then
    foreach var Buff in Match do
      begin
        Buff.OutInfo();
      end
  else
    Writeln('Совпадений не найдено!');
end.

@S3nzat10n · 09.11.2016, 19:55 **[ТС]**

А проще?
У меня получилось вот такое:

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
uses crt;
type TNote = record
     Name : string[15];
     Surname : string[20];
     PhoneNumber : integer;
     Year : integer;
end;
const n = 10;
var Note:array[1..n] of TNote;
    i:integer;
    PhoneNum:integer;
begin
    writeln('Заполнение анкеты: ');
 
  for i:=1 to N do
   begin
       Writeln('  Человек № ',i);
       write('Введите имя: '); readln(Note[i].Name);
       write('Введите фамилию: ');readln(Note[i].Surname);
       write('Введите номер телефона: ');readln(Note[i].PhoneNumber);
       write('Введите год рождения: ');readln(Note[i].Year);
       writeln();
   end;
    
  clrscr;
  writeln('------------------------------------------------------------');
  writeln('| №  |    Имя   |  Фамилия |  Номер телефона  |Год Рождения |');
  writeln('------------------------------------------------------------');
  
  for i:=1 to N do
   begin
       Write('| ',i:3);
       write('|',Note[i].Name:10);
       write('|',Note[i].Surname:10);
       write('|',Note[i].PhoneNumber:18);
       write('|',Note[i].Year:12, ' |');
       writeln();
   end;
    
  writeln();
  
  Write('Введите номер телефона человека, которого хотите вывести: ');
  readln(PhoneNum);
  
  writeln();
  
  for i :=1 to n do
   begin
     if PhoneNum=Note[i].PhoneNumber then 
       begin 
         writeln('------------------------------------------------------------');
         writeln('| №  |    Имя   |  Фамилия |  Номер телефона  |Год Рождения |');
         writeln('------------------------------------------------------------');
  
         Write('| ',i:3);
         write('|',Note[i].Name:10);
         write('|',Note[i].Surname:10);
         write('|',Note[i].PhoneNumber:18);
         writeln('|',Note[i].Year:12, ' |');
         writeln('-------------------------------------------------------------');        
 
      end;
    writeln();
   end;
end.

Всё работает, но не выполняется то условие, что если данного телефона в БД нет, то выводится сообщение об этом.

@volvo · 09.11.2016, 19:59

Ну добавь еще одну переменную, и увеличивай ее при печати данных. А после цикла проверяй ее на 0:

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
uses crt;
type TNote = record
     Name : string[15];
     Surname : string[20];
     PhoneNumber : integer;
     Year : integer;
end;
const n = 10;
var Note:array[1..n] of TNote;
    i:integer;
    PhoneNum:integer;
    printed: integer; // <---
begin
    writeln('Заполнение анкеты: ');
 
  for i:=1 to N do
   begin
       Writeln('  Человек № ',i);
       write('Введите имя: '); readln(Note[i].Name);
       write('Введите фамилию: ');readln(Note[i].Surname);
       write('Введите номер телефона: ');readln(Note[i].PhoneNumber);
       write('Введите год рождения: ');readln(Note[i].Year);
       writeln();
   end;
    
  clrscr;
  writeln('------------------------------------------------------------');
  writeln('| №  |    Имя   |  Фамилия |  Номер телефона  |Год Рождения |');
  writeln('------------------------------------------------------------');
  
  for i:=1 to N do
   begin
       Write('| ',i:3);
       write('|',Note[i].Name:10);
       write('|',Note[i].Surname:10);
       write('|',Note[i].PhoneNumber:18);
       write('|',Note[i].Year:12, ' |');
       writeln();
   end;
    
  writeln();
  
  Write('Введите номер телефона человека, которого хотите вывести: ');
  readln(PhoneNum);
  
  writeln();
 
  printed := 0; // <---
  for i :=1 to n do
   begin
     if PhoneNum=Note[i].PhoneNumber then 
       begin 
         inc(printed); // <---
         writeln('------------------------------------------------------------');
         writeln('| №  |    Имя   |  Фамилия |  Номер телефона  |Год Рождения |');
         writeln('------------------------------------------------------------');
  
         Write('| ',i:3);
         write('|',Note[i].Name:10);
         write('|',Note[i].Surname:10);
         write('|',Note[i].PhoneNumber:18);
         writeln('|',Note[i].Year:12, ' |');
         writeln('-------------------------------------------------------------');        
 
      end;
    writeln();
   end;
   if printed = 0 then writeln('Совпадений не найдено'); // <---
end.

@S3nzat10n · 09.11.2016, 20:02 **[ТС]**

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
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 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии 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. . . .	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. На борту пять. . .

@S3nzat10n 0 / 0 / 1 Регистрация: 11.10.2016 Сообщений: 26

	Описать структуру с именем NOTE 08.11.2016, 18:27. Показов 1508. Ответов 4 Метки нет (Все метки) Описать структуру с именем NOTE, содержащую следующие поля: фамилия, имя; номер телефона; год рождения. Запрограммировать вывод на экран информации о человеке, номер телефона которого введен с клавиатуры. Если такого номера нет, то вывести сообщение на экран. 0

@S3nzat10n 0 / 0 / 1 Регистрация: 11.10.2016 Сообщений: 26
	09.11.2016, 20:02 [ТС]
	Спасибо! 0

Описать структуру с именем NOTE

Решение