Категория
Информатика, опубликовано 17.03.2019 14:30

Составить программу поиска заданного числа в массиве из 10 целых чисел( массив одномерный)

Ответы

Ответ
Ответ оставил: Гость
Вот в этом файле решение на pascal. если есть поисковое число то выводит их индексы в массиве если нет, то выводит, что их в массиве нет.
Ответ
Ответ оставил: Гость
А= 3
в= 7
с= 2
3+7 > 2
Сумма двух любых сторон треугольника больше 3 стороны
Значит существует
Ответ
Ответ оставил: Гость
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x,z:real;
  for var i:=0 to 18 do begin
    x:=-3+0.5*i;
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8)
    end;
end.

Результат
-3.0     0.02603404
-2.5     0.05396053
-2.0     0.05396053
-1.5     0.15941934
-1.0     0.15783283
-0.5     0.11009307
 0.0     0.10000000
 0.5     0.16817855
 1.0     0.21459633
 1.5     0.16205869
 2.0     0.16205869
 2.5    -0.47852157
 3.0    -0.48851066
 3.5    -0.38218382
 4.0    -0.18498749
 4.5     0.00385685
 5.0     0.00385685
 5.5     0.30151270
 6.0     0.23243357

№2

begin
  var x,z:real;
  x:=-3;
  while x<=6.01 do begin
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
    end;
end.

№3

begin
  var x,z:real;
  x:=-3;
  repeat
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
  until x>6.01
end.
Ответ
Ответ оставил: Гость
Ответ буква д специальное помещение для документов в офисе 


Другие вопросы по информатике

✅ Ответов: 2 на вопрос по информатике: Составить программу поиска заданного числа в массиве из 10 целых чисел( массив одномерный)... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube