Найти остаток от деления целой части значения функции z=In(x^2+ab) ** 7 и, в зависимости...

Question

Найти остаток от деления целой части значения функции z=In(x^2+ab) на 7 и, в зависимости от его величины , напечатать сообщение об одном из дней недели, пронумеровав их от 0 до 6. Решить в Паскаль

Comments

pascal abc?

---

да

Answer 1

Var a,b,x: real; z: integer;
begin
  write('x = '); readln(x);
  write('a = '); readln(a);
  write('b = '); readln(b);
  z := Trunc(x*x+a*b);
  writeln('[z] = ', z);
  writeln('[z] mod 7 = ', z mod 7);
  writeln(System.Globalization
    .CultureInfo.CurrentCulture
    .DateTimeFormat.DayNames[(z+1) mod 7]); 
  // Если нулевой день это Воскресенье, то не (z+1) а z mod 7
end.

Comments

у меня ещё 1 вопрос создан посмотри пожалуйста и его

---

.CultureInfo.CurrentCulture
.DateTimeFormat.DayNames[(z+1) mod 7]); что это обозначает?

---

DayNames это массив с именами дней недели в текущей культуре CultureInfo.CurrentCulture, скорее всего она русская, но логично, если программа выполняется в американской среде выводить названия дней на английском. CultureInfo лежит в пространстве имен System.Globalization в сборке System которая является частью .Net famework привинченного к pascal abc.

---

Если нужны явно английские названия дней:
writeln((new System.Globalization.CultureInfo('en-US')).DateTimeFormat.DayNames[(z+1) mod 7]);

руcские
writeln((new System.Globalization.CultureInfo('ru-RU')).DateTimeFormat.DayNames[(z+1) mod 7]);

---

Я думаю, что на самом деле это Pascal.ABC привинчен к NET.Framework ))