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

Разработать модуль, в котором определить простейшие процедуры: 1.определить длину окружности с, 2.площадь круга s, 3.удаление l центра окружности от начала координат о. координаты центра окружности равны x и y, радиус r. вычисление с, s, l оформить в виде процедур в модуле, а их значения выдать на экран в программе. нужен паскаль abc.net

👇
Ответ:
khairullina05
khairullina05
19.12.2021
1. Модуль garnaga.pas

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

unit garnaga;

interface

function LC(r:real):real;

function SC(r:real):real;

function RC(x,y:real):real;

implementation

function LC(r:real):=2*pi*r;

function SC(r:real):=pi*r*r;

function RC(x,y:real):=sqrt(x*x+y*y);

end.

2. Основная программа

uses garnaga;

begin
  var x,y,r:real;
  Writeln('Введите X, T, R: '); Read(x,y,r);
  Writeln('Длина окружности ',LC(r):0:5);
  Writeln('Площадь круга ',SC(r):0:5);
  Writeln('Расстояние от центра до начала координат ',RC(x,y):0:5);
end.

3. Пример работы

Введите X, T, R:
3.5 -6.7 20
Длина окружности 125.66371
Площадь круга 1256.63706
Расстояние от центра до начала координат 7.55910
4,7(67 оценок)
Открыть все ответы
Ответ:
sabserj
sabserj
19.12.2021
 
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,windows;

var a,b:array of real;   
 i:byte; 
 cs,sk,da,db:real;    n:integer;
begin
SetConsoleOutputCP(1251);
randomize;
writeln('Введите n');
readln(n);
Setlength(a,n);
Setlength(b,n);
writeln('Вектор À');
for i:=0 to high(a) do 
begin 
 a[i]:=-5+10*random;
  write(a[i]:5:1);
 end;
writeln;
writeln('Вектор B');
for i:=0 to High(b) do
 begin 
 b[i]:=-5+10*random;
  write(b[i]:5:1);
 end;
writeln;
{Скалярные произведения и длинны векторов}
sk:=0;
da:=0;
db:=0;
for i:=0 to n-1 do 
begin 
 sk:=sk+a[i]*b[i];
  da:=da+sqr(a[i]);
  db:=db+sqr(b[i]); 
end;
{Косинус}
cs:=sk/sqrt(da)/sqrt(db);
write('Cos(aльфа)=',cs:0:3);
readln;
end.
4,6(37 оценок)
Ответ:
gulitenko
gulitenko
19.12.2021
Using System;

class Program
{
    static void Main()
    {
        var random = new Random(DateTime.Now.Millisecond);
        int n = 5;
        int k;
        var c = new int[n, n];
        var b = new int[n];
        
        Console.WriteLine("C:");
        for (var i = 0; i < n; i++)
        {
            for (var j = 0; j < n; j++)
            {
                c[i, j] = random.Next(0, 9);
                Console.Write(c[i, j] + " ");
            }
            Console.WriteLine();
        }
        Console.WriteLine();
        for(int j = 0; j < n; j++) {
        k = 0;
        for(int i = 0; i < n; i++)
          if (c[i, j]==0) k++;
        b[j] = k;
        }
        Console.WriteLine("B:");
        for(int i = 0; i < n; i++)
            Console.Write(b[i] + " ");
        Console.WriteLine();
        Console.ReadKey();
    }
}

Пример:
C:
3 5 1 3 0
1 6 4 1 7
5 2 5 1 2
4 6 3 0 3
2 3 8 0 7
 
B:
0 0 0 2 1
4,4(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ