===== PascalABC.NET =====
= 1 =
begin
var a, b: integer;
var x, z: real;
Write('Введите a, b, x, z: ');
Read(a, b, x, z);
var k := 1.0;
for var d := 1 to b do
begin
var c := 0.0;
for var s := 1 to a do
c += (d * d + x) / (s ** (3 / 2) + z);
k *= c
end;
Println('К =', k)
end.
= 2 =
begin
var b, n: integer;
var x, z: real;
Write('Введите b, n, x, z: ');
Read(b, n, x, z);
var g := 0.0;
for var c := 1 to b do
begin
var p := 1.0;
for var a := 1 to n do
p *= (a * a * a + z) / (c * c + x);
g += p
end;
Println('G =', g)
end.
#include <iostream>
#include <ctime>
#include <cmath>
using namespace std;
struct VERT // структура для вершины многоугольника
{
int x;
int y;
};
// Модуль числа
int Modul( int a )
{
return (a > 0 ? a : -a);
}
// Длина отрезка через координаты
float Len( int x1, int y1, int x2, int y2 )
{
return sqrt((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2));
}
int main ()
{
/// ---- ЗАДАНИЕ 1 ---- ///
const int N = 3;
int arr[N];
float mid = 0;
// Установка "зерна" для случайных чисел
srand(time(NULL));
// Заполнение массива случайными числами и суммирование
for (int i = 0; i < N; i++)
arr[i] = rand() % 100, mid += Modul(arr[i]);
// Вычисление среднего арифм.
mid /= M;
/// ---- ЗАДАНИЕ 2 ---- ///
const int V = 3; // количество вершин многоугольника
VERT vert[V]; // массив вершин многоугольника
cout << "Введите координаты вершин (x y): " << endl;
for (int i = 0; i < V; i++)
{
cout << i + 1 << ": ";
cin >> vert[i].x >> vert[i].y;
}
// Вычисление периметра
float per = 0;
for (int i = 0; i < V - 1; i++)
per += Len(vert[i].x, vert[i].y, vert[i + 1].x, vert[i + 1].y);
cout << "Периметр = " << per << endl;
return 0;
}
Всё программное обеспечение компьютера можно разделить на три группы программ: системные, инструментальные и прикладные. Для создания текстов, рисунков, таблиц используются прикладные программы.