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

Составить программу для вычисления значений функции f(x) на отрезке [а, ь] с шагом h. результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. f(x) = 2sin^2(квадрат)x+1;

👇
Ответ:
markzastawa
markzastawa
15.03.2022
Var
  a,b,h,x,y:real;
label M;
begin
  Write('Введите a,b,h :');
  Read(a,b,h);
  x:=a;
M:
  if x<=b+h/2 then begin
    y:=2*Sqr(Sin(x))+1;
    Writeln(x:12:7,y:18:7);
    x:=x+h;
    goto M
    end
end.

Пример
Введите a,b,h :-5 4 0.2
  -5.0000000         2.8390715
  -4.8000000         2.9846879
  -4.6000000         2.9748436
  -4.4000000         2.8110930
  -4.2000000         2.5192887
  -4.0000000         2.1455000
  -3.8000000         1.7487402
  -3.6000000         1.3916487
  -3.4000000         1.1306025
  -3.2000000         1.0068151
  -3.0000000         1.0398297
  -2.8000000         1.2244341
  -2.6000000         1.5314833
  -2.4000000         1.9125010
  -2.2000000         2.3073329
  -2.0000000         2.6536436
  -1.8000000         2.8967584
  -1.6000000         2.9982948
  -1.4000000         2.9422223
  -1.2000000         2.7373937
  -1.0000000         2.4161468
  -0.8000000         2.0291995
  -0.6000000         1.6376422
  -0.4000000         1.3032933
  -0.2000000         1.0789390
   0.0000000         1.0000000
   0.2000000         1.0789390
   0.4000000         1.3032933
   0.6000000         1.6376422
   0.8000000         2.0291995
   1.0000000         2.4161468
   1.2000000         2.7373937
   1.4000000         2.9422223
   1.6000000         2.9982948
   1.8000000         2.8967584
   2.0000000         2.6536436
   2.2000000         2.3073329
   2.4000000         1.9125010
   2.6000000         1.5314833
   2.8000000         1.2244341
   3.0000000         1.0398297
   3.2000000         1.0068151
   3.4000000         1.1306025
   3.6000000         1.3916487
   3.8000000         1.7487402
   4.0000000         2.1455000
4,4(52 оценок)
Ответ:
лис239
лис239
15.03.2022
Uses Crt;
Var a,b,h:real;
Begin
ClrScr;
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('h = ');ReadLn(h);
Repeat
WriteLn('F(',a,') = ',2*Sqr(Sin(a))+1);
a:=a+h;
Until a > b;
ReadKey
End.
4,5(52 оценок)
Открыть все ответы
Ответ:
Daria990
Daria990
15.03.2022
Var
  arr: array[1..27] of integer;
  summ: integer;
begin
  Randomize;
  for var i := 1 to 27 do
  begin
    arr[i] := random(-5, 5);
    summ := summ + arr[i];
  end;
  writeln('Массив: ',arr);
  writeln('Сумма всех элементов массива = ',summ);
  for var i := 1 to 27 do if arr[i] = 0 then arr[i] := summ;
  writeln('Массив: ',arr);
end.

пример работы:
Массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
Сумма всех элементов массива = 14
Массив: [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]

var
  arr: array of integer;
  n,k,m: integer;
begin
  write('Введи n: ');
  readln(n);
  Randomize;
  arr:= new integer[n];
  for var i := 0 to n-1 do arr[i] := random(-5, 5);
  writeln('Массив: ',arr);
  for var i := 0 to n-1 do
  begin
    if arr[i]<0 then inc(k);
    if (i>=1) and (i<=6) then inc(m);
    if (i>=6) and (arr[i]>=0) then arr[i]:=1;
  end;
  writeln('Количество отрицательных элементов массива = ',k);
  writeln('Количество элементов массива в интервале [2..7] = ',m);
  writeln('Массив: ',arr);
end.

Пример работы:
Введи n: 5
Массив: [0,1,-4,1,3]
Количество отрицательных элементов массива = 1
Количество элементов массива в интервале [2..7] = 4
Массив: [0,1,-4,1,3]

Введи n: 15
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3]
Количество отрицательных элементов массива = 5
Количество элементов массива в интервале [2..7] = 6
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]
4,4(70 оценок)
Ответ:
vika2082
vika2082
15.03.2022
Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

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