Помогите с лабораторными)

[Артём)]

мой 13 вариант. ребят плиз горит.

[8Observer8]

Во-первых, нужно указать язык, а во-вторых бесплатно делать врядли кто-то будет. Малая вероятность, что кто-то захочет просто поупражняться. Раз задание нужно срочно, то лучше попросите модератора перенести тему в раздел фриланс

А лучше попытайтесь сделать сами. Если возникнут проблемы, то чётко описывайте их для поисковика. Если не нашли, то опишите проблему в теме - вам обязательно помогут, направят, подскажут

[min@y™]

мой 13 вариант.

а зачем все остальные выклал? чтоб мы полюбовались, как у вас там сложно?
Задание, кстати, на один перекур. Пусть нубы помогут.

З.Ы. Кстати, как твои одногруппники выкручиваются?

[newerow1989]

function y(x:real):real;
begin
   y:=2*x;
   If (x>=0) and (x<=4.5) then
      y:=1-ln(abs(1-x*x));
   If x<0 then
      y:=exp(-x);
end;

begin
   Writeln(y(5):5:5);
   Readln;
end.

const dm:array[1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
var d,m:byte;
begin
   d:=31;
   m:=12;
   d:=d+1;
   If d>dm[m] then
   begin
      d:=1;
      m:=m+1;
      If m>12 then
         m:=1;
   end;
   Writeln(d,'.',m);
   Readln;
end.

Сойдет?

[Артём)]

Спасибо огромное)
Завтра узнаем)

[Артём)]

Спасибо обе правильны) 2/6 уже прогресс)

[newerow1989]

Пожалуйста!

[Артём)]

А можете по-понятнее объяснить что такое табулирование функции и массив? а то из двух абзацев лекции не совсем понятно) А то дальнейшие Лабораторные не для моего гуманитарного мозга(

[newerow1989]

Табулирование функции - это вычисление значений функции при изменении аргумента от некоторого начального значения до некоторого конечного значения с определенным шагом. Допустим, взять функцию y=cos(x). Вычислить значения этой функции при x=[-5; 5] с шагом h=0.01. Первое значение будет y(-5)=cos(-5)=?, второе - y(-4.99)=cos(-4.99)=?, третье - y(-4.98)=cos(-4.98)=? и т.д. до конечного значения y(5)=cos(5)=?

[Артём)]

Т.е вот это мне надо сначала вычислить?