Необходимо написать код на C. Вычислить значение по указанной формуле, используя функции математической библиотеки. Перед написанием программы требуется вычислить область определения функции (ООФ), в программе после ввода аргументов проверить их принадлежность ООФ.
Var month: array[1..12]of string[10]= (' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ', ' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь '); procedure p(s:string); begin writeln(s); end; var N_M:integer; begin writeln(' введи номер месяца '); readln(N_M); case N_M of 1..12: p(month[N_M]); else p(' такого месяца нет '); end; case N_M of 1,3,5,7,8,10,12: p(' 31 день '); 4,6,9,11: p(' 30 дней '); 2: p(' 28 дней '); end; case N_M of 12,1,2: p(' зима'); 3,4,5: p(' весна'); 6,7,8: p(' осень'); 9,10,11: p(' лето'); end; end.
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var (s,p):=(0,BigInteger(1)); for var i:=0 to n-1 do if (a[i,i]>0) and (a[i,i].IsEven) then s+=a[i,i] else if a[i,n-1-i].IsOdd then p*=a[i,n-i-1]; Writeln(s*p) end.
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
1..12: p(month[N_M]);
else p(' такого месяца нет ');
end;
case N_M of
1,3,5,7,8,10,12: p(' 31 день ');
4,6,9,11: p(' 30 дней ');
2: p(' 28 дней ');
end;
case N_M of
12,1,2: p(' зима');
3,4,5: p(' весна');
6,7,8: p(' осень');
9,10,11: p(' лето');
end;
end.
Пример:
введи номер месяца
5
май
31 день
весна