impressive_i

Record in Pascal

Apr 15th, 2020
375
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. // Record (запись)
  2. program example_record;
  3.  
  4. {Раздел подключения библиотек}
  5. uses crt;
  6.  
  7. // Тип для ОДНОГО человека
  8. type TPerson = record
  9.    Full_name : String; // ФИО
  10.    age : Byte;         // возраст
  11.    gender : char;      // "м", "ж" - пол
  12.    height : Byte;      // рост
  13.    weight : real;      // вес
  14. end;
  15.  
  16. // Тип для нескольких человек (массив людей)
  17. type TPersons = array[0..9] of TPerson;
  18.  
  19.  
  20. //Процедура заполнения людей
  21. procedure fillPersons(var persons: TPersons; N : integer);
  22. var i : integer;
  23. begin
  24.     for i := 0 to N - 1 do begin
  25.         writeln('Ввод данных для ',i,'-го человека:');
  26.         write(' ФИО: '); readln( persons[i].Full_name );
  27.         write(' возраст: '); readln( persons[i].age );
  28.         write(' пол: '); readln( persons[i].gender );
  29.         write(' рост: '); readln( persons[i].height );
  30.         write(' вес: '); readln( persons[i].weight );
  31.         writeln;
  32.     end;
  33. end;
  34.  
  35. //Процедура вывода на экран
  36. procedure printPersons( persons: TPersons; N : integer);
  37. var i : integer;
  38. begin
  39.     for i := 0 to N - 1 do begin
  40.         writeln('Вывод данных для ',i,'-го человека:');
  41.         write(' ФИО: ', persons[i].Full_name);
  42.         write(' возраст: ', persons[i].age);
  43.         write(' пол: ', persons[i].gender);
  44.         write(' рост: ', persons[i].height );
  45.         write(' вес: ', persons[i].weight);
  46.         writeln;
  47.     end;
  48. end;
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×