Найти Номер Элемента В Последовательности

Тема в разделе "Pascal and Delphi", создана пользователем tolyanl1985, 21 ноя 2012.

  1. tolyanl1985

    tolyanl1985 New Member

    Регистрация:
    19 ноя 2012
    Сообщения:
    4
    Симпатии:
    0
    вводится последовательность из N вещественных чисел, найти последнее отрицательное число в последовательности!

    :rolleyes:Ребят помогите плиз решить
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    var i,n,num:integer;
    r1,r2:real;
    begin
    writeln('N=?');readln(n);
    num:=0;
    r2:=0;
    for i:=1 to n do
    begin
    readln(r1);
    if r1<0 then
    begin
    num:=i;
    r2:=r1;
    end;
    end;
    if num=0 then writeln('Отрицательных чисел не было введено')
    else writeln('Последнее отрицательное число: ',r2:0:4,' и оно является ',num,' введенным числом');
    end.
     
  3. tolyanl1985

    tolyanl1985 New Member

    Регистрация:
    19 ноя 2012
    Сообщения:
    4
    Симпатии:
    0


    ошибки где-то не правильно считает


    Добавлено:


    ошибки где-то не правильно считает
     
  4. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    Ошибки? Где-то? вариантов два: посмотри на мой код) я там переменную переправил)) бугага
     
  5. tolyanl1985

    tolyanl1985 New Member

    Регистрация:
    19 ноя 2012
    Сообщения:
    4
    Симпатии:
    0
    А сорри всё правильно! А как сделать чтобы числа вводились в строчку через пробел, а не каждый раз через Enter?
     
  6. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    O_O какой кошмар...
    замени readln() на read()
     
  7. tolyanl1985

    tolyanl1985 New Member

    Регистрация:
    19 ноя 2012
    Сообщения:
    4
    Симпатии:
    0
    Огромное те спасибо!!! как те плюсик поставить? :rolleyes:
     
  8. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    помоему новичкам нельзя так делать) но там где репутация под моей аватаркой...
     
  9. tolyanl1985

    tolyanl1985 New Member

    Регистрация:
    19 ноя 2012
    Сообщения:
    4
    Симпатии:
    0
    Да, не нажимается!!! Всё равно огромное пасябки те
     
  10. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    Учись, студент! Счастливо)
     
Загрузка...

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