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

Напишите программу вычисления значения функции y= √(x-2)/((x-3)(x-5)) для любого x, введенного с клавиатуры

👇
Ответ:
nairisaaryan
nairisaaryan
21.05.2021

Program chisla;

var y,x,a,b,c,d,e: real;

begin

ReadLn(x);

a:=x-3;

b:=x-5;

c:=a*b;

d:=x-2;

e:=sqrt(d);

y:=e/c;

WriteLn (y);

end.

4,8(83 оценок)
Открыть все ответы
Ответ:
Angelina937
Angelina937
21.05.2021
#include <stdio.h> 
#include <math.h>
void minmax(int x1[],int y1[])
{
int i, j, imax, jmax, imin, jmin;
int len=sizeof(x1);
float max = 0;
float min = 1000;
float r;
for ( i = 0; i < len-1; i ++ ) 
      for ( j = i+1; j < len; j ++ )
      {
      r = sqrt((x1[i]-x1[j])*(x1[i]-x1[j])+(y1[i]-y1[j])*(y1[i]-y1[j]));
      if (r>max) { max = r; imax = i; jmax = j;}
      if (r<min) { min = r; imin = i; jmin = j;}
      }
   printf("max = %f точки: %d - %d\n", max, imax+1, jmax+1);
   printf("min = %f точки: %d - %d\n", min, imin+1, jmin+1);
}

int main() 

   int n=5;
   int x[n], y[n], i; 

   srand (time(NULL));  
   for ( i = 0; i < n; i ++ )  
   {
    x[i] = rand() % 20 -10;
    y[i] = rand() % 20 -10;
    printf ("%4d, %4d ", x[i], y[i]);
    printf("\n");
   }
    minmax(x,y);
    return 0;
}

Пример:
-10, 4
-5, 2
-9, -1
 7, 2
 7, -3
max = 17.117243 точки: 1 - 4
min = 5.000000 точки: 2 - 3
4,8(49 оценок)
Ответ:
котик009
котик009
21.05.2021
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.     
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1
4,6(66 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ