Важная информация
Показано с 1 по 5 из 5

Тема: Помогите пожалуйста с задачкой ) Очень надо и как можно быстрее. Прошу

  1. #1 Помогите пожалуйста с задачкой ) Очень надо и как можно быстрее. Прошу 
    Новичок
    Регистрация
    19.12.2011
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Дан вектор из вещественных чисел,которые вводятся с клавиатуры. Есть ли в нём отрицательные дроби. Если есть создать новый массив ,найти max и min отсортировать по убыванию и вывести на экран
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    programmersforum
    cyberforum
    iforum

    Сколько же форумов вы ещё подпрягли вашей задачей?
    Даже в сервис гугл написали)))
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. #3  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Код pascal:
    program abc;
    uses crt;
    var mass,new:array[1..1000]of real;
    var i,j,n,l:integer;
    min,max,tmp:real;
    yeah:boolean;
    begin
    yeah:=true;
    l:=0;
    clrscr;
    textcolor(10);
    Writeln('Vvedite kolichestvo elementov'); ;
    Readln(n);
    Writeln('Vvedite element ');
    Readln(tmp);
    i:=1;
    mass[i]:=tmp;
     
     
    For i:=1 to n do begin
    Writeln('Vvedite element ');
    Readln(tmp);
    mass[i]:=tmp;
    if mass[i]<0 then begin
     
                      if (mass[i]>max)or yeah then max:=mass[i];
                      if (mass[i]<min)or yeah then min:=mass[i];
                      yeah:=false;
                      l:=l+1;
                      new[l]:=mass[i];
                      end;
    end;
    if l=0 then begin writeln('net otrizatelnix elementov'); readln; halt; end;
    writeln('max=',max);
    writeln('min=',min);
    for i:=1 to l-1 do
    for j:=1 to l-1 do
    if new[j]<new[j+1] then begin
    tmp:=new[j];
    new[j]:=new[j+1];
    new[j+1]:=tmp;
    end;
    for i:=1 to l do Writeln('#',i,'= ',new[i]);
    readln;
    end.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    АААААА!!!!!
    Только сейчас заметил, что надо на бейсике, а сделал на паскале.
    Сейчас исправлю.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. #5  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Вот на бейсике
    Код qbasic:
    DIM mass(1000)
    DIM new(1000)
    yeah = 1
    l = 0
    CLS
    PRINT "Vvedite kolichestvo elementov"
    INPUT n
    FOR i = 1 TO n
    PRINT "Vvedite element "
    INPUT tmp
    mass(i) = tmp
    IF mass(i) < 0 THEN
     
                      IF (mass(i) > max) OR (yeah = 1) THEN max = mass(i)
                      IF (mass(i) < min) OR (yeah = 1) THEN min = mass(i)
                      yeah = 0
                      l = l + 1
                      new(l) = mass(i)
                   END IF
    NEXT i
    IF l = 0 THEN PRINT "net otrizatelnix elementov": END
     
     
    PRINT "max="; max
    PRINT "min="; min
    FOR i = 1 TO l - 1
    FOR j = 1 TO l - 1
    IF new(j) < new(j + 1) THEN
    tmp = new(j)
    new(j) = new(j + 1)
    new(j + 1) = tmp
    END IF
    NEXT j
    NEXT i
    FOR i = 1 TO l
    PRINT "#"; i; "="; new(i)
    NEXT i
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 14
    Последнее сообщение: 11.02.2014, 01:16
  2. Ответов: 0
    Последнее сообщение: 06.11.2012, 21:12
  3. Ответов: 6
    Последнее сообщение: 22.05.2012, 16:15
  4. Очень надо,помогите!Оператор CASE
    от FOTE в разделе Turbo Pascal
    Ответов: 6
    Последнее сообщение: 14.02.2012, 22:28
  5. Помогите с задачкой по функциям
    от PreF1993 в разделе QBasic
    Ответов: 2
    Последнее сообщение: 01.12.2010, 20:53
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •