Сформировать в прямоугольном массиве 6x7 календарь заданного месяца

@EdinDzeko · Регистрация: 23.10.2014

Студворк — интернет-сервис помощи студентам

Вводится номер дня недели первого числа заданного месяца и номер месяца. Сформировать в прямоугольном массиве 6x7 календарь этого месяца. Число дней определять правильно, считая, что в феврале 28 дней. Например, введем день недели первого числа равный 6 (суббота), а месяц 3 (март). Получится
0 3 10 17 24 31
0 4 11 18 25 0
0 5 12 19 26 0
0 6 13 20 27 0
0 7 14 21 28 0
1 8 15 22 29 0
2 9 16 23 30 0
Динамическими массивами не пользоваться.

@Puporev · 04.11.2015, 07:59

Pascal

const m=7;
      n=6;
var a:array[1..m,1..n] of byte;
    d1,ms,i,j,k,s:byte;
begin
repeat
write('Введите номер первого дня месяца от 1 до 7 d1=');
readln(d1);
until d1 in [1..7];
repeat
write('Введите номер месяца от 1 до 12 ms=');
readln(ms);
until ms in [1..12];
case ms of
2:s:=28;
4,6,9,11:s:=30
else s:=31;
end;
k:=0;
i:=d1;
j:=1;
while k<s do
 begin
  inc(k);
  a[i,j]:=k;
  if i<m then inc(i)
  else
   begin
    i:=1;
    inc(j);
   end;
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.

@EdinDzeko -25 / 0 / 0 Регистрация: 23.10.2014 Сообщений: 99
		1
	Сформировать в прямоугольном массиве 6x7 календарь заданного месяца 04.11.2015, 07:31. Показов 1104. Ответов 1 Метки нет (Все метки) Вводится номер дня недели первого числа заданного месяца и номер месяца. Сформировать в прямоугольном массиве 6x7 календарь этого месяца. Число дней определять правильно, считая, что в феврале 28 дней. Например, введем день недели первого числа равный 6 (суббота), а месяц 3 (март). Получится 0 3 10 17 24 31 0 4 11 18 25 0 0 5 12 19 26 0 0 6 13 20 27 0 0 7 14 21 28 0 1 8 15 22 29 0 2 9 16 23 30 0 Динамическими массивами не пользоваться. 0

	04.11.2015, 07:59

Опции темы

Сформировать в прямоугольном массиве 6x7 календарь заданного месяца

Решение