Загрузка...
Загрузка...

Помогите с Паскалем

Тема в разделе "С/С++/Pascal/Delphi", создана пользователем farenheit, 10.12.2012.

  1. farenheit

    farenheit

    Статус:
    Оффлайн
    Регистрация:
    31.05.2012
    Сообщения:
    31
    Репутация:
    930 +/-
    Ребята нужна помощь в написании задачи, вот условие:
    Создать стек из случайных целых чисел и найти в нем максимальное и минимальное значение
    За помощь поставлю плюшку
     
  2. Flamestrike

    Flamestrike

    Статус:
    Оффлайн
    Регистрация:
    23.11.2012
    Сообщения:
    1.174
    Репутация:
    792 +/-
    cча сделаю )10 мин
     
  3. Flamestrike

    Flamestrike

    Статус:
    Оффлайн
    Регистрация:
    23.11.2012
    Сообщения:
    1.174
    Репутация:
    792 +/-
    сколько случайных чисел?
     
  4. farenheit

    farenheit

    Статус:
    Оффлайн
    Регистрация:
    31.05.2012
    Сообщения:
    31
    Репутация:
    930 +/-
    Без понятия, возможно n-ое количество, возможно вообще бесконечное количество, скорее всего n-ое, что бы можно было ввести нужное количество чисел, ну а в общем на твое усмотрение, если что, сам доработаю
     
  5. Flamestrike

    Flamestrike

    Статус:
    Оффлайн
    Регистрация:
    23.11.2012
    Сообщения:
    1.174
    Репутация:
    792 +/-
    ок сча
     
  6. Flamestrike

    Flamestrike

    Статус:
    Оффлайн
    Регистрация:
    23.11.2012
    Сообщения:
    1.174
    Репутация:
    792 +/-
    Если долго не будет , я все равно сделаю)
     
  7. F1ReF0X

    F1ReF0X

    Статус:
    Оффлайн
    Регистрация:
    18.11.2012
    Сообщения:
    3.101
    Репутация:
    1.221 +/-
    uses crt;
    type
    uk=^stack;
    stack=record
    i:integer;
    a:uk
    end;
    var
    u1,u2:uk;
    ch:integer;
    procedure create;
    begin
    u2:=nil;
    while true do
    begin
    read(ch);
    if ch<0 then exit;
    new(u1);
    u1^.i:=ch;
    u1^.a:=u2;
    u2:=u1;
    end;
    end;
    procedure writest;
    begin
    writeln('Stack is');
    repeat
    if(u1^.i mod 7=0)then
    writeln(u1^.i);
    u2:=u1^.a;
    dispose(u1);
    u1:=u2;
    until u1=nil;
    end;
    begin
    create;
    writest;

    end.
     
  8. Flamestrike

    Flamestrike

    Статус:
    Оффлайн
    Регистрация:
    23.11.2012
    Сообщения:
    1.174
    Репутация:
    792 +/-
    отдал свою плюху ему и тебе :)
     
  9. farenheit

    farenheit

    Статус:
    Оффлайн
    Регистрация:
    31.05.2012
    Сообщения:
    31
    Репутация:
    930 +/-
    Задача не та, кто может еще помочь?
     
  10. freezee

    freezee

    Статус:
    Оффлайн
    Регистрация:
    27.11.2012
    Сообщения:
    19
    Репутация:
    4 +/-
    ща 5 сек
     
  11. freezee

    freezee

    Статус:
    Оффлайн
    Регистрация:
    27.11.2012
    Сообщения:
    19
    Репутация:
    4 +/-
    Код:
    var
      a: array[1..99999999] of integer;
      i, k, l, m: integer;
    
    begin
      randomize;
      readln(k);
      for i := 1 to k do 
      begin
        a[i] := random(1000);
        write(' ', a[i]);
      end;
      l := a[1];
      m := a[1];
      for i := 1 to k do 
      begin
        if a[i] < l then l := a[i];
        if a[i] > m then m := a[i];
      end;
      writeln('Наименьшее=', l);
      writeln('Наибольшее=', m);
    end.
    готово
     
    Последнее редактирование: 11.12.2012