Исправить ошибки в программе
#include
#include
#include
#define _use_math_defines
//лаб.работа 4 студента гр.3108
//привалова любовь михайловна
//вариант 18
int main()
{
printf("l.r.#4 privalova l. 18-3108-19\n");
printf("\n");
double x,b,a,y,s,t ;
printf("x="); scanf("%lf",& x);
printf("b="); scanf("%lf",& b);
printf("a="); scanf("%lf",& a);
printf("t="); scanf("%lf",& t);
y=pow(exp,-b*t)*sin(a*t+b)-sqrt(abs(b*t + a));
s=b*sin(a*double(t)*cos(a*t))-1;
printf("y=%l.4f\n",y);
printf("s=%l.4f\n",s);
printf("press and key");
getch();
}
Var
День,месяц:byte;
Begin
Write('№ дня = ');ReadLn(День)
Var C: = 365 - День
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End.