f(x)={sin(x-2), x<-2P
10-11 класс
|
{ x^3+x^2, x[-2p;p]
{ 3-x, x>=P
var
x, P: real;
begin
readln(x, P);
write('f(x) = ');
if (x < -2 * P) then
writeln(sin(x - 2))
else
if (x >= P) then
writeln(P)
else
write(sqr(x) * (x + 1));
end.
Другие вопросы из категории
программу на ''Pascal ABC'')
Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.
Читайте также
var
a,f, power: real;
begin
if(pow(a,2)-sin(a)<3){
f=pow(a,3)-abs(20-pow(a,2));
}
then if(pow(a,2)-sin(a))=3 then{
f=abs(a-6);
}
else if(powwe(a,2)-sin(a)>3){
f=(a-1)/(10-pow(a,2);
}
then{
cout<<"Err"< }
end.
a^3-|20-a^2|, если a^2-sin(a) < 3
F={ |a-6|, если a^2-sin(a) = 3
(a-1)/(10-a^2), если a^2-sin(a) >3
второй, а tg на третьей строчки
program h;
var f:text;
x,y,z:real;
begin
assign (f,'c:\ty.txt');
reset (f);
rewrite(f);
x:=0;
while x<=3 do
begin
x:=x+0.1;
y:=sin(x);
z:=sin(x)/cos(x);
write(f,' x= ',x:4:2,' ');
write(f,'sin ',y:7:5, ' ');
write(f,'tg ',z:5:3,' ');
end;
close(f);
end.
x<2.8; 2.8<=x<6; x>=6 исходные данные: a=2.1; b=-0.29 шаг изменения: x принадлежит [0;7]; дельта x=0.5
строчные)
<Имя>- 12 символов: русские буквы(первая прописная, остальные строчные)
<Отчество>- 15 символов: русские буквы(первая прописная, остальные строчные)
<Год рождения>- числа от 1992 до 1999
Каждое поле записывается с использованием минимально возможного кол-ва бит. Определить минимальное кол-во байт, необходимое для кодирования одной записи, если буквы е и ё считаются совпадающими.