. N, . , . :
1) ;
2) ;
3) /;
4) .
N , , .
, , , .
Program lab9;
Type
vidy_topliva=Record;
nazvanie: string [18];
Sostav:record
sera,zola:Byte;
teplota_zgor,zharopr:word;
End
end;
var q:array[1..30] of vidy_topliva;
i,n,r,t: integer;
Begin
{--------- Input the list--------------}
Write(Vvedite kollichestvo vidov topliva=);
Readln (n);
For i:=1 to n do
Begin
WriteLn(vidy_topliva,i);
Write (nazvanie topliva=);
ReadLn (q[i].nazvanie);
WriteLn (sostav:);
Write (% sera=);
ReadLn (q[i].sostav.sera);
Write (% zola=);
ReadLn (q[i].sostav.zola);
Write (teplota_zgor=);
ReadLn (q[i].sostav.teplota_zgor);
Write (zharopr=);
ReadLn (q[i].sostav.zharopr);
WriteLn(* * *);
end;
{----------------Out the List----------------}
For i:=1 to n do
For r:=18000 to 21000 do
For t:=1800 to 3200 do
If ((q[i].sostav.teplota_zgor=r) and (q[i].sostav.zharopr=t)) then
WriteLn (q[i].nazvanie, ,
q[i].sostav.sera,. ,
q[i].sostav.zola,. ,
q[i].sostav.teplota_zgor,. ,
q[i].sostav.zharopr,. );
Writeln( * * * );
Readln;
End.
vidy_topliva ( ) , :
- nazvanie_topliva ( ) , 18 ;
- sostav () , : % sera (% ), % zola (% ), teplota_zgor ( ), zharopr ().
q vidy_topliva.
:
. , , 1800 3200 ͦ 18000 21000 /. , , .
. , . , , , . , , ( ). , () .
|
|
. . ( ), , , .
1. .. : . , 2011 61 .
2. .. ( 3- ). 1. . .: - - ʻ, 1992 304 .
3. .. . 7.0: . , 2000.
4. . "Turbo Pascal Windows = Turbo Pascal for Windows. Techniques and Utilites." .:, 1993.
5. . . " Turbo Pascal " .:, 2006.