4 года назад

40 баллов!! Написать программу вычисления с результатом: y=ctg(x3+0.5) x€[0;1] h=0.1

1 ответ:

0 0

// PascalABC.NET 3.0, сборка 1088
var
x,y,t:real;
i:integer;
begin
for i:=0 to 10 do begin
 x:=i/10;
 t:=x*sqr(x)+0.5;
 y:=cos(t)/sin(t);
 Writeln('x=',x:3:1,', y=',y)
 end
end.

Тестовое решение:
x=0.0, y=1.83048772171245
x=0.1, y=1.82614498429306
x=0.2, y=1.79618385002611
x=0.3, y=1.71852553644354
x=0.4, y=1.58093809305141
x=0.5, y=1.38603127549996
x=0.6, y=1.1494046625412
x=0.7, y=0.890956788596857
x=0.8, y=0.625274002791611
x=0.9, y=0.355759266063965
x=1.0, y=0.0709148443026524

Читайте также

Написать программу которая считает х в степени n(xn) для вещественного х и натурального n. Очень срочно нужно, пожалуйста

NafaniA5

Var n,a:integer;
x,st:real;
begin
write('введите степень n ==> ');
readln(n);
write('введите вещественное число x ==> ');
readln(x);
st:=x;
for a:=1 to n-1 do begin
st:=x*st;
end;
writeln('степень ',n,' числа ',x,' = ',st);
end.

0 0

4 года назад

Спочатку прийменник з трьох букв відгадай від коней дві літери перші додай візьми дві останні від слова корова і ось ми отримали

Юлия Мер [1]

це слово-підкова.)))))))))))))))))))))))))))))))

0 0

4 года назад

Помогите пожалуйста. Вопросы и задания по информатике. Даю 37 баллов

Юрий Геннадьевич ...

С целью передать информацию.

0 0

3 года назад

Срочно решите информатика 7 класс

stepan-stalker [39]

18. Ответ 72Кб
20.ответ 81Кб
19.ответ не входит(

0 0

4 года назад

Помогите, пожалуйста, решить следующие задачи в Паскале. 8 класс 1) заданы четыре попарно не равных числа. Найти сумму наибольше

AnastasiyaSergeevna [83]

Задача 1

procedure swp(var n, m: integer);

var

tmp: integer;

begin

tmp := n;

n := m;

m := tmp;

end;

var

a, b, c, d, i: integer;

begin

writeln('Пожалуйста, введите четыре числа через пробел:');

readln(a, b, c, d);

if a > b then swp(a, b);

if c > d then swp(c, d);

if c < a then

if d < a then begin swp(a, c); swp(d, b); end

else if d > b then begin swp(b, c); swp(a, b); end

else begin swap(b, d); swp(c, b); swp(a, b); end

else

if d < b then begin swp(c, d); swp(b, d); end

else if c < b then swp(b, c);

writeln('Сумма наименьшего и наибольшего: ', a + d);

end.

Задача 2

var

n: integer;

begin

writeln('Введите число: ');

readln(n);

if n mod 2 = 0 then

writeln('Число чётное. Число, поделеное на 2: ', n div 2)

else

if (n div 10 mod 10 mod 2 = 0) then

writeln('Число нечётное, но его можно сделать чётным перестановкой цифр: ', n div 100 * 100 + n mod 10 * 10 + n div 10 mod 10)

else if (n div 100 mod 2 = 0) then

writeln('Число нечётное, но его можно сделать чётным перестановкой цифр: ', n mod 10 * 100 + n div 10 mod 10 * 10 + n div 100)

else writeln('Нельзя сделать чётным');

end.

0 0

3 года назад