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

Заполнить массив р15 случайными числами и составить программу, которая удвоит элементы меньше !

👇
Ответ:
LizaZay
LizaZay
29.03.2020

Pascal:

var p:array[1..15] of integer;

i:integer;

begin

for i:=1 to 15 do

begin

p[i] := random(31);

if p[i] < 7 then

p[i] := p[i] * 2;

write(p[i], ' ');

end;

end.

Java:

package com.znanija

import java.util.Random;

public class Main {

public static void main(String[] args) {

Random rand = new Random();

int[] p = new int[15];

for (int i=0;i<15;i++) {

p[i] = rand.nextInt(31);

if (p[i] < 7)

p[i] *= 2;

System.out.print(p[i] + " ");

}

}

}

4,4(99 оценок)
Открыть все ответы
Ответ:
RakoT1511
RakoT1511
29.03.2020
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
  Point=record
  x,y:real
  end;

function GetPoint(c:char):Point;
begin
  Writeln('Введите координаты точки ',c,':');
  Read(Result.x,Result.y)
end;

function Line(A,B:Point):real;
begin
  Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

function SqTriangle(pA,pB,pC:Point):real;
begin
  var a:=Line(pB,pC);
  var b:=Line(pA,pC);
  var c:=Line(pA,pB);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var p:=(a+b+c)/2;
    Result:=sqrt(p*(p-a)*(p-b)*(p-c))
    end
  else Result:=0
end;

begin
  var A:=GetPoint('A');
  var B:=GetPoint('B');
  var C:=GetPoint('C');
  Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.

Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975
4,4(42 оценок)
Ответ:
Nelai54
Nelai54
29.03.2020

Во первых хочу заметить, что в реальном мире однозначно односторонних не бывает, особенно если дело касается живого

 1) Источник: учебник Приемник: школьник.

 2) Источник: письмо Приемник: бабушка.

 3) Источник: будильник Приемник: мальчик.

 7) Источник: газета Приемник: человек.

 8) Источник: лист изменений Приемник: ученики. ??

10) Источник: знак Приемник: водители

11) Источник: билет Приемник: мальчик.

Все эти ситуации однотипные, односторонние по типу. Хотя конечно приемник может влиять на книгу/газету и тп, но информация в ней от этого не изменится

 9) Источник: диспетчер. Приемник: пассажиры. ??

Вообще говоря случай односторонний, но возможно влияние на то что скажет диспечер. Например кто-то придет и скажет, что потерял ребенка и диспечер объявит об этом на всю станцию.

 4) Источник: Таня, Лена Приемник: Таня, Лена. Двусторонний (и так все понятно)

 5) Источник: учитель Приемник: класс

Впринцепе односторонний, но ученики могут задавать вопросы. Тут скорее двустороний подчиненный, без разрешения учителя, ученики ничего не говорят. С другой стороны учитель смотрит, как его слушают ученики, считывает настроение класса, тп

 6) Источник: регулировщик Приемник: водители, пешеходы

Это все-таки двусторонний процесс, регулировшик следит за машинами и ситуацией, решает как лучше разрулить ситуацию, а окружающие слушаются его команд.

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