ReadLn (Hour, Min, sec);
With Tl Do If Sec<59 Then Sec:=Sec+l Else Begin Sec:=0; If Min<59 Then Min:=Min+l Else Begin Min:=0; Hour:=(Hour+l)Mod 24 End End; With Tl Do writeLn ('Tl=',Hour, Min, Sec) End. 6. Підсумки уроку.
1. Type Complex = Record Re, Im: Real End; Point = Record X, Y: Real End; Var Z, W: Complex; P: Point; Re: Real; Визначте, які значення будуть мати змінні Z, W, Р, Re після виконання нааведених операторів (заповніть таблицю):
2. Var Krug: Record R: Real; C: Record X,Y: Real End; End; Потрібно змінній Krug присвоїти значення, що відповідає колу радіуса 2.5 з центром у точці (0, 1.8). У яких з наведених операторів приєднання ця задача розв'язується правильно? а) with Krug Do Begin R:=2.5; X:=0; Y:=1.8 End; б) with Krug Do Begin R:=2.5; C.X:=0; C.Y:=1.8 End; c) with Krug Do Begin R:=2.5; with C Do Begin X:=0; Y:=1.8 End; d) with Krug,C Do Begin R:=2.5; X:=0; Y:=1.8 End; є) with C,Krug Do Bkgin R:=2.5; X:=0; Y:=1.8 End; 3. Знайдіть помилки в програмі:
|
