Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Задача на тему Ссылочные типы

Автор: ISTka 30.11.2010, 13:59

Добрый день!) Надеюсь на вашу помощь)

Код


type    ref = ^real;
    vector = array[1..10] of ref;

Описать логическую функцию ifsort(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x расположены в порядке возрастания.

*Если можно, то решение с комментариями)

Автор: t_gran 1.12.2010, 06:00

ISTka, Вы как я понял с помощью форума решили все свои лабораторные выполнить? А сами, что 0 без палочки? Запомните, нет слова "не могу", есть слово "не хочу"! Я и на этот раз помогу, но знайте, с моей помощью вы себя как будущего специалиста рубите на корню.

Код


function ifsort(theArr: vector): boolean;
var
   i: integer;
   sort: boolean;
begin
   sort:= true;
   
   for i:= 1 to 10 do
      if (theArr[i]^ > theArr[i+1]^) then
      begin
         sort:= false;
         break;
      end;
   IfSort:= sort;
end;

Цитата

*Если можно, то решение с комментариями)

Нет уж, извольте хоть немного мозг напрячь!

Тестовый пример с бинарником:

Автор: ISTka 1.12.2010, 06:23

И на этот раз спасибо за помощь.
Выполнить все лабры с помощью форума? Уж извините, вы не видели весь объем! На каждую тему около 15 задач, а тем около 20! Я сделала практически все, осталось всего несколько задач. И не надо такой интонацией говорить, что я не хочу мозгами шевелить. Я попросила помощи в решении нескольких задач, и не вижу в этом ничего, что бы рубило во мне будущего специалиста на корню. Если у вас нет настроения, желания, времени, возможности помочь, вас никто не заставляет.