82 (164)

118 Turbo Pascal • Ćwiczenia praktyczne

program cw4_25;

{ Program wczytujący do zmiennej typu rekordowego }

{ informacje na temat samochodu i drukujący jego }

{ "metryczkę".    }

{ Katalog r4_06 : 4_25.pas    }

uses

Crt;

type

TKolor - (biały, czerwony, zielony, niebieski, srebrny); TTyp - (osobowy, ciężarowy);

TWyposazenie - array [1..10] of String [30];

TSamochod - record

Producent : String [20];

Marka : String [20];

Typ : TTyp;

Kolor : TKolor;

NumerRejestracyjny : String [7]; NumerNadwozia : String [30];

NumerSilnika : String [30];

Przebieg : Longint;

DodatkoweWyposazenie : TWyposazenie; end;

var

Samochód : TSamochod;

Znak : Char;

I : Byte;

Wypos : String [30];

begin

ClrScr;

Write ('Podaj producenta: '); Readln (Samochód.Producent); Write ('Podaj markę: '); Readln (Samochód.Marka); repeat

Write ('Podaj typ (''O'¹ - osobowy, ''C'¹ - ciężarowy): ') Readln (Znak);

until (Upcase(Znak) in ['0', 'C']); case Upcase(Znak) of

'0' : Samochód.Typ :- osobowy;

'C' : Samochód.Typ :- ciężarowy; end; repeat

Writeln ('Podaj kolor (''B'' - biały, ''C'¹ - czerwony, ', '’'Z'' - zielony');

Write ('    ''N'' - niebieski, ‘'S'' - srebrny)

Readln (Znak);

' B'	Samochód.Kolor	:* biały;
'C	Samochód.Kolor	:- czerwony;
'Z'	Samochód.Kolor	:- zielony;
'N'	Samochód.Kolor	niebieski
'S'	Samochód.Kolor	:- srebrny;

until (Upcase(Znak) in ['B', 'C', 'Z', 'N', 'S']); case Upcase(Znak) of

end;

Write ('Podaj numer rejestracyjny: '); Readln (Samochód.NumerRejestracyjny);

Write ('Podaj numer nadwozia: ');

Readln (Samochód.NumerNadwozia);

Write ('Podaj numer silnika: ');

Readln (Samochód.NumerSilnika);

Write ('Podaj przebieg: ');

Readln (Samochód.Przebieg);

I :- 1; repeat

Write ('Podaj kolejny element wyposażenia '(Enter, aby zakończyć): ');