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

Написать программу в басике.Определить площадь и высоту равностороннего треугольника, периметр которого равен f.Программу надо написать подробно

Без всяких формул, программу на басике. БЕЗ ФОРМУЛЫ ГЕРОНА ,А НУЖНО ОЧЕНЬ ПРОСТУЮ,ЧТОБЫ ПОНЯТЬ

👇
Ответ:
QureAdmiral
QureAdmiral
26.04.2021

Public Function square()

a = 2.5

h = 2

square = (((3) ^ (1 / 2)) * (a) ^ (2)) / 4

End Function

Public Function height()

a = 2.5

h = 2

square = (((3) ^ (1 / 2)) * (a)) / 2

End Function

Объяснение:

height -  высота

square - площадь

4,7(62 оценок)
Открыть все ответы
Ответ:
MMMOZG
MMMOZG
26.04.2021

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

#include <stdio.h>

#include <stdlib.h>     // предоставляет rand() и srand()

#include <time.h>       // предоставляет time()

 

// число строк в массиве:

#define M 5

// длина каждой строки:

#define N 7

 

int main ()

{

   srand(time(NULL));      // новая точка отсчета рнд

   int B[M][N];            // массив

   int cnt;                // число отрицательных

   int i, j;

 

   // заполняем массив случайными:

   for (i=0; i<M; i++)

       for (j=0; j<N; j++)

           B[i][j] = rand() %21 - 10;

 

   // считаем отрицательные:

   for (i=0; i<N; i++)

   {

       cnt = 0;        // перед каждым новым столбцом сбрасываем счетчик отрицательных

       for (j=0; j<M; j++)

           if (B[i][j] < 0) cnt++;

       printf("column #%i, count is: %d\n", i, cnt);

   }

 

   return 0;   // конец программы

4,4(60 оценок)
Ответ:
drblk3282
drblk3282
26.04.2021

ОбъясОтличник

program prog;

uses crt;

var a,b,v:integer;

begin

clrscr;

write('Возраст Антона = ');

readln(a);

write('Возраст Бориса = ');

readln(b);

write('Возраст Виктора = ');

readln(v);

writeln;

if (a>b)and(a>v) then writeln('Антон старше всех.');

if (b>a)and(b>v) then writeln('Борис старше всех.');

if (v>a)and(v>b) then writeln('Виктор старше всех.');

if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');

if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');

if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');

if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');

end.

Подробнее - на -

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