М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mcmorgana
mcmorgana
21.01.2020 15:49 •  Информатика

Собъяснением: ) 1) найдите значение логического выражения, если x=-3, y=3, z=-5 и d=false f: =not((x< 0) and (y< 0)) or ((z< -2) and d)) 2) разработать алгоритм и программу линейной структуры. a=lg|x+1|, y=∛5a²-3x², x=3; z=-4,972 3) дан фрагмент программы: a: =5; b: =8; c: =-2; while(a

👇
Ответ:
Alihan1970
Alihan1970
21.01.2020
1) в расстановке скобок здесь ошибка, в решении показан один из возможных вариантов исправления этой ошибки:
F:=not((x<0) and (y<0)) or ((z<-2) and D) ⇒
not((-3<0) and (3<0)) or ((-5<-2) and false) ⇒ 
not(true and false) or (true and false) ⇒ not false or false ⇒ true or false ⇒ true

2) здесь тоже в условии что-то не то (z - лишняя переменная получается) и корень из чего извлекать - тоже непонятно
var x,a,y:real;
begin
x:=3;
a:=ln(abs(x+1))/ln(10);
y:=exp(ln(5)*(1/3))*a*a-3*x*x;
writeln('y = ',y);
end.
Результат:
y = -26.3801743600581

3)
a=5; b=8; c=-2;
a<b ⇒ 5<8 ⇒ true, a=a+1=5+1=6
a<b ⇒ 6<8 ⇒ true, a=a+1=6+1=7
a<b ⇒ 7<8 ⇒ true, a=a+1=7+1=8
a<b ⇒ 8<8 ⇒ false
c=c+1=-2+1=-1
ответ: c=-1

4)
SetColor(red); - устанавливается цвет рисования (красный)
Setfillstyle(1,2); - устанавливается стиль заливки (1 - заполнение текущим цветом, 2 - зеленый цвет)
SetBkcolor(15); - устанавливается цвет фона (15-белый; экран сразу же окрашивается в заданный цвет)
Circle(200,200,50); - рисуется окружность (центр 200, 200; радиус 50)
О какой области спрашивается - непонятно.

5)
n- длина строки s (количество символов в строке) n = 10 (пробела после 'До' нет)
4,5(55 оценок)
Открыть все ответы
Ответ:
KsKitty
KsKitty
21.01.2020
Решение на Pascal (если не подходит - скажите):

program pediatr;
var
  h_old, h_new, w_old, w_new: integer;
begin
  write('введите рост ребёнка месяц назад (в см): ');
  readln(h_old);
  write('введите рост ребёнка сейчас (в см): ');
  readln(h_new);
  write('введите вес ребёнка месяц назад (в г): ');
  readln(w_old);
  write('введите рост ребёнка сейчас (в г): ');
  readln(w_new);
  if ( (h_new - h_old) >= 3 ) and ( (w_new - w_old) >= 700) then
    writeln('Ваш ребёнок развивается хорошо')
  else
    writeln('Ваш ребёнок меньше нормы');
end.
4,5(53 оценок)
Ответ:
erisoeun
erisoeun
21.01.2020
1.
var a:integer;
begin
write('Введите число: ');
readln(a);
if a>0 then a:=a-10 else a:=a+10;
writeln('a = ',a);
end.

Пример:
Введите число: 5
a = -5

2.
var a,b,p:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a*b<0 then p:=-2*a*b else p:=3*a*b;
writeln('p = ',p);
end.

Пример:
Введите два числа: 
-3 -8
p = 72

3.
var a,b,r:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a>b then r:=a-b else r:=b-a;
writeln('r = ',r);
end.

Пример:
Введите два числа: 
25 48
r = 23

4.
var r:integer;
begin
writeln('Введите рост: ');
readln(r);
if r>180 
 then writeln('высокий')
 else if r=180 then writeln('нормальный') else writeln('низкий');
end.

Пример:
Введите рост: 
160
низкий
4,6(84 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ