30 1. составьте логическое условие, которое истинно только тогда, когда данное число-натуральное. 2. составьте логическое условие, которое истинно только тогда, когда из трех введенных чисел хотя бы одно четное и хотя бы одно-нечетное. 3. составьте логическое условие, которое истинно только тогда,когда хотя бы одно из трех чисел больше нуля. 4. дана последовательность целых чисел a, b, с. найдите разность между максимальным и минимальным значениями.

129

284

Посмотреть ответы 2

Ответы на вопрос:

artyomortega

Информатика

4,7(23 оценок)

1. if (a> 0) then 2. если честно, не знаю как правильно реализовать 3. if (a> 0) or (b> 0) or (c> 0) 4. if (a> b) and (b> c) then d: =a+c if (a> b) and (c> b) and (a> c) then d: =a+b if (b> a) and (a> c) then d: =b+c вроде так, но все равно проверь))

ЕленаФроленкова

Информатика

4,6(88 оценок)

Определим функцию f (x) = x^2 - 5cos(x-1); необходимо найти ноль функции f (x) , т.е. значение х, при котором f(x) = 0; f(x) обратится в 0 , если cos(x-1) > 0 => - pi/2 < x < pi/2 => => (2 - pi)/2 < x < (2 + pi)/2 корня будет два. определим интервал для первого корня. левая граница а = - 0,57, правая граница b = 1 для второго корня левая граница а = 1, правая b = 2 корни будем находить методом деления пополам. интервал [ a, b] делится пополам и определяется знак функции в этой точке, в зависимости от знака изменяется левая или правая граница интервала. программа будет следующей: function f(x: real): real; begin f: =x*x-5*cos(x-1); end; { основная программа } var a,b,c,eps: real; k: integer; { a - начало интервала, b - конец } begin write('a = '); readln(a); write('b = '); readln(b); if f(a)*f(b)< 0 then begin write('точность вычислений eps: '); readln(eps); k: =1; while abs(a-b)> eps do begin c: =(a+b)/2; if f(c)< > 0 then begin if f(c)*f(b)< 0 then a: =c else b: =c end; k: =k+1; end; writeln('корень = ',a: 12: 8); writeln('количество итераций: ',k); end else writeln('интервал задан неверно'); end. a = -0.57 b = 1 точность вычислений eps: 0.00001 корень = -0.51726021 количество итераций: 19 a = 1 b = 2 точность вычислений eps: 0.00001 корень = 1.83345795 количество итераций: 18