Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Плиз помогите решить задачи в программе Паскаль
1)Дано вещественное число х.Вычислитьf(x) если
F={ x² при -2.4 <х< 5.7
{4 в противном случае
2) Дано векщественное число х. Вычислиь f(x) если
F= { sin x при 0.2<х<0.9
{1 в противном случае
3)Даны три вещественных числа a, b, c.
Проверить:
а) выполняется ли неравенство a < b < c;
б) выполняется ли неравенство b > a > c.

Ответ оставил Гость

№1

var x, F: real;
begin
write(Введите х: );
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln(F = , F);
end.

№2

var x, F: real;
begin
write(Введите х: );
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln(F = , F);
end.

№3

var a,b,c: real;
begin
write(Введите а: );
readln(a);
write(Введите b: );
readln(b);
write(Введите c: );
readln(c);
if ( a < b ) AND ( b < c ) then writeln(a < b < c)
else
if ( b > a ) AND ( a > c ) then writeln(b > a > c)
else
writeln(Неравенства не выполняются);
end.