1)что такое программа? 2)что такое язык программирования 3)что такое конструктор лего? где он применяется? 4)что такое среда программирования scratch? 5)кто создал программу scratch? 6)что такое команда? 7)как можно загрузить среду программирования scratch? 8)из скольких частей состоит данная средпрограммирлвания? 9)в каком году придуман язык лого? 10)что такое анимация? 11)какие действия нужно применить в среде программирования scratch ? 12)какие виды алгоритмов вы знаете?

👇

Ответ:

vladik33316

19.04.2020

Компью́терная програ́мма — 1) комбинация компьютерных инструкций и данных, позволяющая аппаратному обеспечению вычислительной системы выполнять вычисления или функции управления 2) синтаксическая единица, которая соответствует правилам определённого языка программирования, состоящая из определений и операторов или инструкций, необходимых для определённой функции, задачи или решения проблемы

ЯЗЫК ЛОГО В 1967

4,4(90 оценок)

Открыть все ответы

Ответ:

зубрильчик

19.04.2020

Var
    a, b: real ;

begin
    Write('тормозной путь, определенного для данного места при полном служебном торможении = ');
    readln(a);
    Write('тормозной путь для на 120 км/ч для пассажирских поездов = ');
    readln(b);
    if b < a then a := b;
    Write('тормозной путь для на 80 км/ч для грузовых поездов = ');
    readln(b);
    if b < a then a := b;
    Write('тормозной путь при экстренном торможении с учетом пути, проходимого поездом за время, необходимое для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда = ');
    readln(b);
    if b > a then a := b;
    Write('участок, где видимость сигналов менее 400 м? да-1/нет-0 ');
    readln(b);
    if (b = 1) and (a < 1000) then a := 1000;
    Write('железнодорожная линия, вновь оборудуемая автоблокировкой? да-1/нет-0 ');
    readln(b);
    if (b = 1) and (a < 1000) then a := 1000;
    writeln(a);
end.

4,8(45 оценок)

Ответ:

PomogyBratan

19.04.2020

1. Традиционное решение

const
n=10;
var
x,y:array[1..n] of integer;
sx,sy,i:integer;
begin
Randomize;
Write('X: ');
sx:=0;
for i:=1 to n do begin
    x[i]:=Random(101)-50;
    Write(x[i],' ');
    sx:=sx+x[i]
    end;
Writeln;
Write('Y: ');
sy:=0;
for i:=1 to n do begin
    y[i]:=Random(101)-50;
    Write(y[i],' ');
    sy:=sy+y[i]
    end;
Writeln;
Writeln('Сумма х= ',sx,', сумма y= ',sy);
if sx>sy then for i:=1 to n do y[i]:=0
else for i:=1 to n do x[i]:=0;
Write('X: ');
for i:=1 to n do Write(x[i],' ');
Writeln;
Write('Y: ');
for i:=1 to n do Write(y[i],' ');
Writeln
end.

Пример
X: 4 29 -50 -18 37 -43 -18 9 41 28
Y: -8 41 -18 -6 -10 -10 47 -8 -29 25
Сумма х= 19, сумма y= 24
X: 0 0 0 0 0 0 0 0 0 0
Y: -8 41 -18 -6 -10 -10 47 -8 -29 25

2. Аналогичное решение средствами PascalABC.Net 3.2

const
n=10;
begin
var x:=ArrRandom(n,-50,50); Write('X: '); x.Println;
var y:=ArrRandom(n,-50,50); Write('Y: '); y.Println;
var sx:=x.Sum; var sy:=y.Sum;
Writeln('Сумма х= ',sx,', сумма y= ',sy);
if sx>sy then y:=ArrFill(n,0) else x:=ArrFill(n,0);
Write('X: '); x.Println;
Write('Y: '); y.Println
end.

Выбирать вам...)))

4,7(22 оценок)

Это интересно:

Искусство-и-развлечения

23.04.2020

Мастерство подбора музыки: Как выбрать мелодии для разных мероприятий?...

Здоровье

15.05.2020

Угревые струпья: как расправиться с ними быстро и эффективно?...

14.02.2020

Как быть честным(ой)?...

Компьютеры-и-электроника

03.09.2020