Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 63 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

2.1. Обращение к элементу записи
Доступ к элементу конкретной записи в программе обеспе-
чивает уточненное (составное) имя. Уточненное имя содержит
имя записи, точку, имя поля и записывается в следующем виде:
< имя записи >. < имя поля >
Переменные-записи типа Student объявляют в разделе
Var так:
Var : stud1, stud2 : Student;
В программе можно присвоить, например, такие значения:
studl. FIO : = 'Петров ИгорьИванович';
stud1. DataR. MecR : = 22;
stud1. DataR. GodR : = 1985;
Задача 1
Для некоторого количества студентов ввести по четыре
оценки, полученных в сессию, и распечатать фамилии неус-
певающих студентов.
Program Lab6_2;
Uses Crt;
Const STMAX = 5;
Type
FIO = String [20];
BAL = Array [1 .. 4] Of Iinteger;
{Структура СТУДЕНТА}
STUDENT = Recrd SFIO : FIO;
SBAL : BAL
End;
ST = Array [1 .. STMAX] Of STUDENT;
Var S : ST;
f, b : Integer;
two : Boolean;
Begin {1}
ClrScr;
Textcolor(Yellow);
WriteLn('Программа СТУДЕНТ');
WriteLn (' ');
Textcolor (White);
{ФИО студентов}
63
    2.1. Обращение к элементу записи
    Доступ к элементу конкретной записи в программе обеспе-
чивает уточненное (составное) имя. Уточненное имя содержит
имя записи, точку, имя поля и записывается в следующем виде:
    < имя записи >. < имя поля >
    Переменные-записи типа Student объявляют в разделе
Var так:
    Var : stud1, stud2 : Student;
    В программе можно присвоить, например, такие значения:
    studl. FIO : = 'Петров ИгорьИванович';
    stud1. DataR. MecR : = 22;
    stud1. DataR. GodR : = 1985;

    Задача 1
    Для некоторого количества студентов ввести по четыре
оценки, полученных в сессию, и распечатать фамилии неус-
певающих студентов.
    Program Lab6_2;
    Uses Crt;
    Const STMAX = 5;
    Type
    FIO = String [20];
    BAL = Array [1 .. 4] Of Iinteger;
    {Структура СТУДЕНТА}
    STUDENT = Recrd SFIO : FIO;
    SBAL : BAL
    End;
    ST = Array [1 .. STMAX] Of STUDENT;
    Var S : ST;
    f, b : Integer;
    two : Boolean;
    Begin {1}
    ClrScr;
    Textcolor(Yellow);
    WriteLn('Программа СТУДЕНТ');
    WriteLn (' ');
    Textcolor (White);
    {ФИО студентов}
                            63

Страницы