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

UptoLike

ВУЗ: 

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

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

Рубрика: 

тор присоединения With, который дает возможность записы-
вать в программе только имена полей. Общий вид команды
With такой:
With <имя записи> Do
Begin
Операторы,
содержащие
имена полей
End ;
Этот оператор используется там, где обрабатываются не-
сколько полей одной той же записи. B нашем случае для
Stud1 можно записать так:
With studl Do
Begin
FIO : = 'Петров ИгорьИванович';
DataR.DenR : =22;
DataR.MecR : = 5;
DataR.GodR : = 1985;
Pol : = M;
Dom. Adrec : = 'Беринга 106, кв. 13';
Dom. Telefon : = '674-35';
End;
Задача 2
Используя тип массив записей, составить программу для
учета и обработки данных о наличии на складе автомашин.
Вывести на экран информацию о моделях и годах выпуска
машин, цена которых меньше, чем 3000 долларов.
Пусть запись содержит такие поля: модель (marka), год
выпуска (year) и цена машины (price).
Program Lab6_2;
Uses Crt;
Type avto = Record
marka : String [15];
year price : Integer
End;
Var al : Array [l .. n] Of avto;
i : Integer;
66
тор присоединения With, который дает возможность записы-
вать в программе только имена полей. Общий вид команды
With такой:
    With <имя записи> Do
    Begin
      Операторы,
      содержащие
      имена полей
    End ;
    Этот оператор используется там, где обрабатываются не-
сколько полей одной той же записи. B нашем случае для
Stud1 можно записать так:
    With studl Do
    Begin
    FIO : = 'Петров ИгорьИванович';
    DataR.DenR : =22;
    DataR.MecR : = 5;
    DataR.GodR : = 1985;
    Pol : = M;
    Dom. Adrec : = 'Беринга 106, кв. 13';
    Dom. Telefon : = '674-35';
    End;

    Задача 2
    Используя тип массив записей, составить программу для
учета и обработки данных о наличии на складе автомашин.
Вывести на экран информацию о моделях и годах выпуска
машин, цена которых меньше, чем 3000 долларов.
    Пусть запись содержит такие поля: модель (marka), год
выпуска (year) и цена машины (price).
    Program Lab6_2;
    Uses Crt;
    Type avto = Record
    marka : String [15];
    year price : Integer
    End;
    Var al : Array [l .. n] Of avto;
    i : Integer;
                                  66

Страницы