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

Тема: 2 одномерных массива

  1. #1 2 одномерных массива 
    Новичок
    Регистрация
    15.12.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    [Ссылки могут видеть только зарегистрированные пользователи. ] сможете решить?
    Ответить с цитированием  
     

  2. #2  
    Профи
    Регистрация
    31.10.2011
    Адрес
    Планета Земля
    Сообщений
    117
    Сказал(а) спасибо
    7
    Поблагодарили 9 раз(а) в 8 сообщениях
    Сделал программу.
    Проверить не получилось поскольку есть один нюанс - массив по условию самой задачи должен быть динамическим (т.е сперва обьявляешь массив длины N, а затем вводишь N с клавиатуры), а программа Турбо Паскаль, которая стоит у меня, поддерживает только фиксированные массивы (с заранее заданной длиной).

    В остальных версиях паскаля поддерживаются и динамические массивы.

    Код :
    program Zadacha2;
     
    var N,M: integer;
    var X: array [1..N] of real;	{обьявляем массив X}
    var Y: array [1..M] of real;   {обьявляем массив Y}
     
    var Max_X,Min_X:real; 	
    var i: integer;
    begin
     
    writeln ('Введите размер массива X'); 
    readln N; 
    writeln ('Введите размер массива Y');
    readln M;
     
    for i:=1 to N do
       begin
          writeln ('Введите',' ', i, '-ый элемент массива X');
          readln (X[i])
          end;
     
    for i:=1 to N do
       begin
          writeln ('Введите',' ', i, '-ый элемент массива Y);
          readln (Y[i])
          end;
     
    Max_X:=X[1];
    K:=0;
     
    for i:=1 to N do
        begin
           if X[i] > Max_X then Max_X:=X[i]
           else break;
        end;
     
    Min_X:=9999999999999;
    for i:=1 to N do
         begin
            if x[i] < Min_X then Min_X:=X[i]   
    	   else break;
           end;
     
    if M<(N-2) then 
    begin 
     
    for i:=1 to N do
          begin
             if (Y[i] <> Max_x) and (Y[i] <> Max_X) then
              X[i]:=Y[i]
           else  break;
           end;
     
         end
    else 
      break;
    end;
     
     
    for i:=1 to N do
        begin
          writeln (X[i]); {выводим на экран элементы массива X}
        end;  
     
    for i:=1 to M do
        begin
           writeln (Y[i]);  {выводим на экран элементы массива Y}
        end;
    end.


    P.S Это нужно просто сдать преподавателю, чтобы засчитал, или же нужно еще и на компе проверить ?
    Последний раз редактировалось Doomer_; 16.12.2011 в 00:33.
    Ответить с цитированием  
     

  3. #3  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Цитата Сообщение от Doomer_ Посмотреть сообщение
    а программа Турбо Паскаль, которая стоит у меня, поддерживает только фиксированные массивы (с заранее заданной длиной).
    Поищите информацию о динамической памяти в Turbo Pascal. C помощью механизма динамической памяти можно спокойно не только выделять память под массив, размерность которого вводит сам пользователь, но и менять размеры массива по ходу программы . Ограничение только одно - в Turbo Pascal завести массив, элементы которого занимают более 64Кб не получится. В смысле, не получится без шаманства =). С шаманством можно и до 500-600Кб
    Дружба-магия-радость!
    Ответить с цитированием  
     

  4. #4  
    Профи
    Регистрация
    31.10.2011
    Адрес
    Планета Земля
    Сообщений
    117
    Сказал(а) спасибо
    7
    Поблагодарили 9 раз(а) в 8 сообщениях
    Про динамическую память в Turbo Pascal слышал. просто заказчику нужно выполнить задания с помощью простых приемов, без хитростей.
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 1
    Последнее сообщение: 09.11.2011, 22:46
  2. Ответов: 2
    Последнее сообщение: 19.05.2011, 22:05
  3. Ответов: 2
    Последнее сообщение: 13.05.2011, 22:22
  4. Ответов: 4
    Последнее сообщение: 01.04.2011, 00:58
  5. Ответов: 2
    Последнее сообщение: 08.02.2011, 22:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •