В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
маріна2017
маріна2017
13.02.2020 00:17 •  Информатика

Напишите программу на языке Scratch который кот проходит к точке 0,100 и потом обратно в точке помагитеее​

Показать ответ
Ответ:
aimnura73
aimnura73
07.08.2022 08:55

var a:array [byte,byte] of real;
i,j,n,m:byte;
s:real;
d,p:word;

begin
write('Введите количество строк n = ');readln(n);
write('Введите количество строк m = ');readln(m);
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);

s:=0;d:=0;p:=0;
for i:=1 to m do begin
for j:=1 to n do
s:=s+a[j,i];
for j:=1 to n do
if a[j,i]<(s/n) then inc(d);
writeln('Количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' Среднее арифметическое = ',(s/n):0:4);
p:=p+d;
d:=0;s:=0;
end;
writeln('Общее количество элементов меньших элементов в столбцах = ',p);
writeln('Матрица');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.

0,0(0 оценок)
Ответ:
AndroidBot2018
AndroidBot2018
06.08.2020 03:57

#include <math.h>

#include <cstdlib>
#include <iostream>

 

using namespace std;

 

 

 

int main()

{

 float x1,x2,x3,y1,y2,y3;

 cout<<"введите кординаты первой точки"<<endl;

 cin>>x1;

 cin>>y1;

 cout<<"введите кординаты второй точки"<<endl;

 cin>>x2;

 cin>>y2;

 cout<<"введите кординаты третьей точки"<<endl;

 cin>>x3;

 cin>>y3;

 float ax=x1-x2,ay=y1-y2,bx=x2-x3,by=y2-y3,cx=x3-x1,cy=y3-y1;

 float a=sqrt(ax*ax+ay*ay);

 float b=sqrt(bx*bx+by*by);

 float c=sqrt(cx*cx+cy*cy);

 float S,P,p;

 P=a+b+c;

 p=P/2;

 S=sqrt(p*(p-a)*(p-b)*(p-c));

 cout<<"Площадь равна "<<S<<" Периметр равен "<<P<<endl;

 system("PAUSE");

 return 0 ;

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота