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

Найдите в Интернете данные по количеству населения в Украине за последние 5 лет. Создайте электронную таблицу по этим данным: секторную, линейчатую и график. Розставте их на отдельных листах и ​​оформите по своему усмотрению если кто может, нужно на компьютере выполнить.

👇
Открыть все ответы
Ответ:
Deiselpro1
Deiselpro1
21.02.2021
#include<iostream>
#include<cstdlib>
#include<ctime>

#define abs(x) ((x)<0 ? -(x) : (x))
using namespace std;
int main()
{
    srand(time(0));
    int n, k, m = 0;
    cout << "n = ", cin >> n;
    
    int A[n], B[n];
    cout <<"A("<<n<<"):";
    for(int i = 0; i < n; i++)
        cout <<" "<< (A[i] = rand() % (n*2+1) -n);
    
    cout << "\nk = ", cin >> k;
    
    for(int i = 0; i < n; i++)
        if (abs(A[i]) % 10 == k) B[m++] = A[i];
    
    cout <<"B("<<m<<"):";
    for(int i = 0; i < m; i++)
        cout <<" "<< B[i];
    return 0;
}
4,6(53 оценок)
Ответ:
ovveall
ovveall
21.02.2021
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=4;
  var xp:=new real[n];
  var yp:=new real[n];
  Writeln('Введите парами координаты четырех вершин');
  for var i:=0 to n-1 do Read(xp[i],yp[i]);
  var (x,y):=ReadReal2('Введите координаты точки:');
  var (i,j,c):=(0,n-1,False);
  while i<n do begin
    if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
      and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i;
    i+=1;
    end;
  if c then Writeln('Внутри')
  else Writeln('Не внутри')
end.

Примеры
Введите парами координаты четырех вершин
 1 4 6 9 9 6 4 1
Введите координаты точки: 1.5 1.6
Не внутри

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