Система задач и упражнений по языку программирования Pascal. Часть 2 - 22 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

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

Рубрика: 

22
end;
rem=record
mes:array [1..5] of string[9];
event:data;
end;
var memos:array[1..100] of rem;
today:data; k:rem;
calendar:array[1..400] data;
(1) today.year (7) memos
(2) memos[2] (8) k.mes
(3) calendar[200] (9) calendar
(4) memos[16].mes[2] (10) memos[i].event
(5) k.event.year (11) calendar[1].day
(6) memos[16].mes[2][1] (12) rem.event
6. Для описания из пункта 5 приведите примеры команд с переменными типа:
(1) 1..12 (2) data (3) rem
7. Укажите номера недопустимых операций, если дано следующее описание:
type zap=record
a:integer;
b:string[25];
c:array[1..10] of real; end;
kar=record
p:zap;
d:array[1..10] of char;end;
var T:zap;k:integer;
G:array[1..100] of zap;
O:array[1..100] of kar;
(1) for G[i].a=10 downto 1 do k:=k+1; (7) if O[99].c[6]=1945 then T.a:=200;
(2) if G[7].c=56.9 then O.d[4]:='9'; (8) if K=3 then O.d[4]:='9';
(3) for T.c[2]:=1 to 10 do k:=k+1; (9) O[17].p.a:=1990;
(4) G[5].c:=1990; (10) if G[99].c[6]=1945 then T.a:=20;
(5) if K=3 then O[4].d:='9'; (11) G[17].d:='ошибка';
(6) for T.a:=1 to 10 do k:=k+1; (12) G[17].d[i]:='1';
8.Укажите номер заголовка программы, который подходит для
решения
следующей задачи:
(1) По успеваемости в сессию (зачеты, экзамены) определить размер назначаемой
стипендии у каждого студента группы.
I. program stipendiya;
Type stipent=record
Fam:string[20];
Zachet:array[1..10] of
string[9];
Marks:array[1..5] of real;
end;
Var A:array[1..30] of
stipent;
II.program stipendiya;
type stipent=record
fam:string[20];
zachet:array[1..10] of
string[9];
marks:array[1..5] of integer;
end;
var A:array[1..30] of
stipent;
III.program stipendiya;
type stipent=record
fam:string[20];
zachet:array[1..10] of
string[9];
marks:array[1..5] of
integer;end;
var A,B:stipent;

Страницы