Помогите С Решением Задачи Обработки Одномерных Массивов.

Тема в разделе "Pascal and Delphi", создана пользователем Thrillseeker, 18 мар 2014.

  1. Thrillseeker

    Thrillseeker New Member

    Регистрация:
    21 апр 2013
    Сообщения:
    4
    Симпатии:
    0
    Задача:
    Переменной Х присвоить 1, если элементы массива В(40), образуют возрастающую последовательность и значение 0 в противном случае.

    Что сделано:
    Есть код, рабочий, но есть ли возможность показать сначала нормальный масмив, а уже потом конечный?

    uses crt;
    const N=40;
    var B:array[1..N] of integer;
    i,x:integer;
    begin
    clrscr;
    writeln ('massive');
    randomize;
    for i:=1 to N do
    begin
    B:=random(10);
    write(b);
    end;
    writeln;
    begin
    if (B)<(B[i+1])
    then x:=1
    else x:=0;
    writeln (x);
    readln
    end;
    end.

    В сети нашел другой код:

    uses crt;
    const
    n=10;
    var a:array[1..n] of integer;
    var i,j,b,x:integer;
    begin
    clrscr;
    for i:=1 to n do
    begin
    a[ i]:=trunc(random*10);
    write(' ',a[ i]);
    end;
    writeln;
    write('b=');
    read:)ooo:;
    x:=0;
    for i:=1 to n do
    begin
    if a[ i]=b then
    begin
    for j:=1 to (i-1) do
    if (a[j]>0) and (a[j] mod 2=0) then
    x:=x+a[j] else x:=0;
    break;
    end;
    end;
    write(x);
    end.
     
  2. Orlando

    Orlando New Member

    Регистрация:
    5 ноя 2011
    Сообщения:
    3
    Симпатии:
    0
    Тут ты сравниваешь только два элемента из 40ка нужных: if (B)<(B[i+1])
    Включи эту проверку в for чтобы просмотреть все элементы массива и сравнить соседние.
    Если хоть один раз вернет false тогда в Х записывай ноль, завершай цикл и выводи ответ.
     
Загрузка...
Похожие Темы - Помогите Решением Задачи
  1. sonia2000
    Ответов:
    0
    Просмотров:
    965
  2. Masha111
    Ответов:
    3
    Просмотров:
    1.543
  3. Allexei
    Ответов:
    12
    Просмотров:
    3.565
  4. gafa
    Ответов:
    0
    Просмотров:
    1.283
  5. krank
    Ответов:
    3
    Просмотров:
    1.538

Поделиться этой страницей