4 года назад

Скласти допомiжний алгоритм переïзду перехрестя . пожалуйстааа

Знания

Информатика

1 ответ:

Ms610628 [142]4 года назад

0 0

По-перше треба поглядити на світлофор и якщо він зелений то іти якщо червоний то ні

Читайте также

Дан одномерный массив из n целых чисел требуется написать функцию которая посчитает сколько раз в этом массиве встречается элеме

Bepa

===== PascalABC.NET =====

function ЧислоВторыхМаксимумов(a: array of integer) :=

a.GroupBy(p -> p) // сгруппировали одинаковые

.Select(p -> (p.Count, p.Key)) // создали кортежи (кол, значение)

.OrderByDescending(p -> p[1]) // отсортировали по убыванию значений

.Skip(1) // пропустили первый элемент

.Take(1) // взяли только второй элемент

.Select(p -> p[0]); // выделили из кортежа количество

begin

var n:=ReadInteger('n ='); // длина массива

var a:=ArrRandom(n, 1, 10); // инициализируем массив

a.Println; // выводим его

ЧислоВторыхМаксимумов(a).Println // вызываем функцию, выводим результат

end.

0 0

4 года назад

помогите пожалуйста написать программу по инфе..."Напишите программу получение из заданного целочисленного массива размером 30 э

-Фемида- [7]

Const N = 30;
Var a:array [1..N] of integer; b,c,d,i:integer;
begin
Writeln('Vvedite massiv');
for i:=1 to N do
readln(a[i]);
b:=0; c:=0; d:=0;
for i:=1 to N do begin
if a[i] = 0 then inc(b);
if a[i] > 0 then inc(c);
if a[i] < 0 then inc(d);
end;
writeln('Kol-vo ravnih 0 - ',b);
writeln('Kol-vo bolshe 0 - ',c);
writeln('Kol-vo menshe 0 - ',d);
readln;
end.

<span>
</span>

0 0

4 года назад

Загадано имя файла и даны три маски файлов ,однозначно определяющих это имя:?*sk*?.*j*?? *os?*al.*p? m?*kv*?.*??g Известно,что

Сашк0

Moskval.jpg (это если последний символ имени l, а не 1)

0 0

4 года назад

Прочитать ещё 2 ответа

Проведите вычислительный эксперимент в таблице расчета количества рыб в пруду, поставив следующую цель: подобрать такое значение

фагот [175]

Рекомендуется использовать формулу Мальтуса, изменения числа рыб N= k*N-q*N*N
Если за начальное количество рыб принять N0,то через год рыб в пруду будет
N1=N0+K*N0-q*N0*N0,через два года N2=N1+K*N1-q*N1*N1 ...
В таблице Excel в ячейку A1 введите значение к=1,в ячейку B1 значение q=0,01,в ячейку С1 значение N0=100, в ячейку В2 формулу =C1+A1*C1-B1*C1*C1 (это количество рыб за 1 год) , в ячейку В3 формулу
=B2+$A$1*B2-$B$1*B2*B2(количество рыб за 2 год) , скопируйте формулу с ячейки В3 до ячейки В11.
<span>Изменяйте значение ячейки А1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.</span>

0 0

4 года назад

Даю 30 баллов!!! написать программу для определения количества корней квадратного уравнения по коэффициентам a, b, c

Виталий2017

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a,b,c:real;
Writeln('Введите коэффициенты квадратного уравнения (a b c)');
Read(a,b,c);
if a=0 then begin
    Writeln('а=0 делает уравнение линейным');
    if b=0 then Writeln('Корней нет')
    else Writeln('Один корень ')
    end
else begin
    var d:=b*b-4*a*c;
    if d<0 then Writeln('Нет действительных корней')
    else
      if d=0 then Writeln('Один корень')
      else Writeln('Два корня')
    end
end.

0 0

4 года назад

Прочитать ещё 2 ответа