Задачка на одномерные масивы в Паскале. Помогите если не сложно)

Тема в разделе "Pascal and Delphi", создана пользователем mcbeat, 5 янв 2011.

  1. mcbeat

    mcbeat Гость

    Дано масив A розміру N. Вивести спочатку його елементи з парними номерами (у порядку зростання номерів), а потім — елементи з непарними номерами (також у порядку зростання номерів):
    A2, A4, A6, …, A1, A3, A5, … ...
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Код (Text):
    var a:array[1..10] of integer;
    i:integer;
    begin
    for i:=1 to 10 do
    begin
    writeln('vvedite element nomer ',i);
    readln(a[i]);
    end;
    writeln('elementi s parnimi nomerami : ');
    for i:=1 to 10 do
    if i mod 2 = 0 then write(a[i],' ');
    writeln;
    writeln('elementi s ne parnimi nomerami : ');
    for i:=1 to 10 do
    if i mod 2 = 1 then write(a[i],' ');
    readln;
    end.
     
  3. mcbeat

    mcbeat Гость

    Огромное спасибо за решение, насчет языка тоже спасибо, буду знать))))

    Добавлено: Вот еще одна задача на одномерные масивы, помогите если не сложно, просто в программировании я ДУБ))))) :)

    Дано массив размера N. Найти номера тех элементов массива, которые больше своего левого соседа, и количество таких элементов. Найденые номера выводить в порядке убывания.
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Вроде так:
    Код (Text):
    var a:array[1..10] of integer;
    i,k:integer;
    begin
    writeln('vvedite elementi');
    for i:=1 to 10 do
    begin
    writeln('vvedite element nomer ',i);
    readln(a[i]);
    end;
    k:=0;
    writeln('nomera ');
    for i:=10 downto 2 do
    if a[i]>a[i-1] then begin k:=k+1; writeln(i); end;
    writeln('kolichestvo = ',k);
    readln;
    end.
     
  5. mcbeat

    mcbeat Гость

    Бльшое СПС за отзывчивость и понимание!!!!)))) :)
     
  6. mcbeat

    mcbeat Гость

    Есть еще одна задачка, с котрой у меня туго.

    вот она: 2. Дано массив размера N. Заменить каждый элемент массива на среднее арефметическое этого элемента и его соседей.

    А вот то что получилось, но она работает как-то не правильно(((((


    Код (Delphi):
    program reshenie;
    var i,n:integer; a:array [1..1000] of real;
    begin
    randomize;
    writeln('Введите размер массива');
    readln(n);
    for i:=1 to n do

    begin
    a[i]:=random(100)+1;
    write(a[i]:4:2,' ');
    end;
    writeln;
    a[1]:=(a[1]+a[2])/2;
    for i:=2 to n-1 do
    a[i]:=(a[i]+a[i-1]+a[i+1])/3;
    a[n]:=(a[n]+a[n-1])/2;
    for i:=1 to n do
    write(a[i]:4:2,' ');
    readln;
    end.
     
  7. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    надо использовать временные переменные для значения текущего и предыдущего элементов
    заменить кусок вычислений на подобное:
    Код (Delphi):
    var ap,ai:real;
    //...
    ai:=a[1];
    a[1]:=(ai+a[2])/2;
    for i:=2 to n-1 do
    begin
    ap:=ai;
    ai:=a[i];
    a[i]:=(ap+ai+a[i+1])/3;
    end;
    a[n]:=(a[n]+ai)/2;
    //...
     
Загрузка...
Похожие Темы - Задачка на одномерные
  1. Hehabr
    Ответов:
    1
    Просмотров:
    482
  2. Gepard26
    Ответов:
    0
    Просмотров:
    1.113
  3. lisica198808
    Ответов:
    0
    Просмотров:
    1.018
  4. student55
    Ответов:
    1
    Просмотров:
    1.711
  5. vbs
    Ответов:
    21
    Просмотров:
    7.503

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