Помогите! СРОЧНО!

Тема в разделе "Delphi - FAQ", создана пользователем Dead, 25 ноя 2007.

Статус темы:
Закрыта.
  1. Dead

    Dead Гость

    Люди добрые! Помогите мне! Преподаватель задачи дал :( , а я не пойму как решать! А скоро сессия! ПОМОГИТЕ! Кто че может решить, РЕШИТЕ!

    Задние 1:
    1. Заменить последний элемент массива, кратный 3, нулем.
    2. Заменить элементы массива с четными номерами на произведение значения этого элемента и его номера.
    3. Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле Ai = i*Di2, а если нечетный, то по формуле Ai = Di / (i-1)

    Задание 2:
    Дан двумерный массив размером n*m, заполненный случайным образом.
    1. Заменить минимальный по модулю элемент каждого столбца нулем
    2. Вставить после каждой строки, содержащей минимальное значение строку из нулей.
    3. Удалить все столбцы, в которых первый элемент больше последнего

    Задание 3:
    Дан двумерный массив размером n*m.
    1. Заменить максимальный элемент каждой строки номером столбца, в которой он находится.
    2. Вставить после всех столбцов, содержащих нулевой элемент, первый столбец .
    3. Удалить все строки, в которых встретится четный отрицательный элемент.
    4. Поменять местами первый и предпоследний столбцы.
    Кто-нибудь! Спасите меня!
     
  2. Dead

    Dead Гость

    Эт в Авиационном универе! Ты знаешь как решать?
     
  3. Nusen'ka

    Nusen'ka Гость

    приветик всем)) Пожалуйста помогите найти ошибку)) или не одну!) Пожалуйста....
    Код (Text):
    procedure TForm3.BitBtn1Click(Sender: TObject);
    var st: string;
    k,i,n,max,min: integer;
    begin
    n:=length (st);
    max:=0; i:=1;
    while i<=n do
    if ( st[i]<> '')and( i=1 or(st[i-1]<>'')
    then
    begin
    k:=1;
    while (i<n)and(st[i+1]<>' ') do
    i:=i+1;
    if (i-k+1>max) then
    begin
    max:=i-k+1;
    i:=i+1;
    end;
    end
    max:=99999; i:=1;
    while i<=n do
    if ( st[i]<> '')and( i=1 or(st[i-1]<>'')
    then
    begin
    k:=1;
    while (i<n)and(st[i+1]<>' ') do
    i:=i+1;
    if (i-k+1<min) then
    begin
    min:=i-k+1;
    i:=i+1;
    end;
    end;
    else
    i:=i+1;

    end;
     
  4. Dead

    Dead Гость


    Вообщем да
     
  5. Nusen'ka

    Nusen'ka Гость

    да спасибки)))
     
Загрузка...
Статус темы:
Закрыта.

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