Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 6.1. Запись — ученик

Фрагмент из «Pascal / Free Pascal — типовые программы»: 6.1. Запись — ученик.

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program StudentRecord;

type
  TStudent = record
    name: string;
    age: integer;
    grade: real;
  end;

var
  st: TStudent;

begin
  ReadLn(st.name);
  ReadLn(st.age);
  ReadLn(st.grade);
  WriteLn(st.name, ', ', st.age, ' лет, средний балл ', st.grade:0:2);
end.
program StudentRecord;

type
  TStudent = record
    name: string;
    age: integer;
    grade: real;
  end;

var
  st: TStudent;

begin
  ReadLn(st.name);
  ReadLn(st.age);
  ReadLn(st.grade);
  WriteLn(st.name, ', ', st.age, ' лет, средний балл ', st.grade:0:2);
end.