Вопрос по информатике:
Помогите решить проблему в задаче пожалуйсто.Program13.pas(21) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла
type s_b=record
s_d:array[1..31,0..9]of integer;
s_o:array [0..9] of string;
d_m:array [1..31] of byte;
end;
var r,d: s_b;
a,b:integer;
begin
with r do
begin
s_o[0]:='еда';
s_o[1]:='zilie';
s_o[2]:='oby4';
end;
with d do
begin
s_o[1]:='myz';
s_o[2]:='zina';
end;
for a:=1 to 31 do
for b:=0 to 9 do
begin with r do
begin
s_d[a,b]:=0;
d_m[a]:=a;
end;
with d do begin s_d[a,b]:=0;
d_m[a]:=a;
end;end;
begin
end;
end.
- 17.11.2016 23:36
- Информатика
- remove_red_eye 4498
- thumb_up 30
Ответы и объяснения 1
//Если программа не запускается, то обновите версию
type
s_b = record
s_d: array[1..31, 0..9]of integer;
s_o: array [0..9] of string;
d_m: array [1..31] of byte;
end;
var
r, d: s_b;
begin
r.s_o[0] := 'еда';
r.s_o[1] := 'zilie';
r.s_o[2] := 'oby4';
d.s_o[1] := 'myz';
d.s_o[2] := 'zina';
for var a := 1 to 31 do
for var b := 0 to 9 do
begin
r.s_d[a, b] := 0;
r.d_m[a] := a;
d.s_d[a, b] := 0;
d.d_m[a] := a;
end;
Println(r);
Println(d);
end.
покороче, убрано лишнее
- 18.11.2016 14:31
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.