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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Begin
ClrScr;
For i : = 1 to n Do
With a1[i] Do
Begin
WriteLn ('Введите марку машины:');
ReadLn (marka);
WriteLn ('Введите год выпуска:');
ReadLn (year);
WriteLn('Цена:');
ReadLn (price);
End;
WriteLn;
WriteLn ('Фирма предлагает такие машины:');
For i : = 1 To n Do
With a1 [i] Do
WriteLn (marka: 15, year: 10, price, '$');
WriteLn;
Write ('Информация о машинах, цена которых меньше
4000 $:');
For i : = 1 To n Do
With al [i] Do
If price < 4000 Then WriteLn ( marka: 15, year: 10);
ReadLn;
End.
Протокол работы программы. Введите марку машины: 1.
Toyоta
Введите год выпуска:
1996
Цена:
3000
………………………..
Введите марку машины: 10
Mirra
Введите год выпуска:
2000
Цена:
3500
67
    Begin
    ClrScr;
    For i : = 1 to n Do
    With a1[i] Do
    Begin
    WriteLn ('Введите марку машины:');
    ReadLn (marka);
    WriteLn ('Введите год выпуска:');
    ReadLn (year);
    WriteLn('Цена:');
    ReadLn (price);
    End;
    WriteLn;
    WriteLn ('Фирма предлагает такие машины:');
    For i : = 1 To n Do
    With a1 [i] Do
    WriteLn (marka: 15, year: 10, price, '$');
    WriteLn;
    Write ('Информация о машинах, цена которых меньше
4000 $:');
    For i : = 1 To n Do
    With al [i] Do
    If price < 4000 Then WriteLn ( marka: 15, year: 10);
    ReadLn;
    End.
    Протокол работы программы. Введите марку машины: 1.
    Toyоta
    Введите год выпуска:
    1996
    Цена:
    3000
    ………………………..
    Введите марку машины: 10
    Mirra
    Введите год выпуска:
    2000
    Цена:
    3500
                          67

Страницы