Практикум по основам программирования. Язык Паскаль

PROGRAM REW <TNPUT,OUTPUT);

VAR MAS:PACKED ARRAYС1. .30D OF CHAR; I: INTEGER; BEGIN READLN; WRITE<*=>>;

FOR I:=30 DOWNTO 1 DO READ(MAS!13);

READLN;

WRITELN(MAS)

END.

13.

PROGRAM S P (INPUT,OUTPUT);

TYPE MAS-PACKED ARRAYC1..153 OF CHAR;

Глава 5

4. А.ГЛАВАСЕМЬИ: = ТОКАРЕВ A B .

А.ВОЗРАСГ:=65; А.ДЕТИ[1].ИМЯ: = ’ВЛАДИМИР А.ДЕТИ[1].ГОДР: = 1957; А.ДЕТИ[2] ИМЯ =*ОЛЕГ

А.ДЕТИ[2].ГОДР: = 1961; В:=А;

5. а) Не указан тип компонентов упакованного массива в поле НАЗВ, поля S и SP перечислены через точку с запятой вместо запятой и в конце отсутствует END.

PROGRAM WWZ(INPUT.OUTPUT); TYPE ВPEMS»»RECORD 4ACi0. .23;

МИН,СЕК:0..59 END;

VAR T1.T2*ВРЕМЯ; ТЕ1,TE2iINTEGER;

BEGIN

READ CT1. ЧАС,Tl. МИН,T1.CEK.T2. ЧАС.T2. МИН, Т2.СЕК); ТЕ1г-Tl.ЧАС*ЗА00+Т1.МИН*60+Т1.СЕК;

ТЕ2:—Т2.ЧАС*3£00+Т2.МИН*60+Т2.СЕК; IF ТЕ1>ТЕ2 THEN WRITELN(FALSE)

ELSE WRITELN(TRUE)

END.

Глава 6

5. а) Операция / над переменными множественного типа не определена.

д) Элементами множеств не могут быть вещественные числа.

16. В п. а) файл FIL одновременно открыт и на за­ пись, и на чтение, что недопустимо. В п. б) после вы­ полнения оператора GET(FEL) функция EOF(FIL) при­ нимает значение TRUE и значение буферной пере­ менной не определено, поэтому последний оператор присваивания не имеет смысла, так как файл содер­ жит только один элемент. В п. в) файл открыт на чтение, а оператор PUT(F1L) предназначен для записи.

Глава 8

3.Xf =12 и Y# =7.

4.Будет напечатано: АА.

5.Будет напечатано: АВА.

6.а)

'__М:=ХС11Т;

FOR 1:=2 ТО 50 DO

IF ГКХСПТ THEN M:=XCII+»...

При этом в разделе переменных должно быть до­ бавлено описание LINTEGER; M:REAL.

б)

...PR»«TRUE| NEG:-NIL( I«-lj

WHILE PR AND (K-S0) DO IF X[I]t<l THEN BEGIN

NEGt-ХСП; PR»«FALSE

END

ELSE Ii-1+Ц...

При этом в раздел переменных должно быть до­ бавлено описание

I:INTEGER; PR.BOOLEAN; NEG:CCbIJIKA.

7.Правильные результаты - п. а), в), д).

8.Результаты работы приведенных фрагментов будут разные, так как в области действия оператора присое­ динения нельзя изменять элементы списка перемен­ ных-записей, указанные в заголовке. Оператор С:=В недопустим, так как ссылочная переменная В изменя­ ет значение на каждой итерации цикла.

Глава 9

8. Считаем, что в разделе констант задано конкретное Значение N, а в разделе типов определен тип \1AS=ARRAY[1..N] OF REAL.

FUNCTION MAX(VAR Ms MAS; K:INTEGER):REAL;

VAR I:INTEGER; TsREAL;

BEGIN

T:=MC13;

FOR Is=2 TO К DO

IF MCI3>T THEN Ts=MCID;

MAXs =T

END;

При обращении к функции MAS в качестве фактиче­ ских параметров указываются имя массива и его ре­ альная длина, не превышающая N. Сам массив дол­ жен быть типа MAS, так как соответствующие формальные и фактические параметры должны быть од­ ного и того же типа.

9. PROCEDURE UP(VAR Ms MAS; KsINTEGER);

VAR JsINTEGER; TsREAL; PsBOOLEAN; BEGIN

Ps «TRUE; WHILE P DO

BEGIN Ps«FALSE;

FOR Js~l TO K-l DO

IF MCJKMCJ +l] THEN

BEGIN T:«MCJ+13; MCJ +l11=MC J 3; MCJ 3s=T; P:«TRUE

END

END

11. END;

FUNCTION ДНЕД(N:НОМЕР)8ДЕНЬНЕДЕЛИ; BEGIN

CASE N OF

1: ДНЕAs «ПОН; 2s AHEAs =BTOP; 3s AHEAs«СРЕДА; 4s ДНЕД:«ЧЕТВ; 5s AHEAs«ПЯТН; 6s ДНЕДз=СУББ; 7s AHEAs«ВОСКР

END

END;

12.

FUNCTION MAXMIN(PsBOOLEAN; X,YsINTEGER)sINTEGER;

BEGIN

IF P THEN IF X>Y THEN MAXMINs«X

ELSE MAXMINs«*Y

ELSE IF X<Y THEN MAXMINs=X

ELSE MAXMINs »Y

END;

Если фактический параметр, соответствующий па­ раметру Р, задать равным TRUE, то функция будет ис­ кать большее число, в противном случае - меньшее.

13. В программе допущены следующие ошибки:

а) в разделе операторов функции F применен опе­ ратор F:=F+X. Использование в правой части операто­ ра присваивания имени функции недопустимо;

б) вместо SINY следует писать SIN(Y), так как аргумент стандартной функции должен быть заключен в скобки;

в) в операторе процедуры выражение F(5) являет­ ся неверным, так как функция F требует веществен­ ного аргумента, т. е. имеет место несоответствие типов. 14. Будет напечатано: С=А и С=С.

FUNCTION CT<M,N:INTEGER)sREAL;

VAR К,T,It INTEGER; RsREAL;

BEGIN

K:=M+1; T:=1; R:=1;

FOR 15s1 TO N-M DO

BEGIN R«=R*K/T| Ks=K+l| Ts«T+l END

Слагаемое

Множитель

Список полей

O n

Имя

Вы раж ение