Pascal несколько задач

Тема в разделе "Pascal and Delphi", создана пользователем Flaxy, 18 ноя 2010.

Статус темы:
Закрыта.
  1. Flaxy

    Flaxy Гость

    Помощь нужна в решении задач! Срочно! По Пильщикову:
    9.25. type имя = (Анна, ... ,Юрий);
    Родство = (сын,дочь,отец,матъ,нет);
    var TP: array [имя,имя] of родство;
    И,ВД: имя; k: integer;
    На основе (непротиворечивой) таблицы родства ТР (ТР[х,у]=нет, если у не является ни родителем, ни ребенком х'а, ТР[х,у]=сын, если у—сын х'а, и т. и.) присвоить переменной:
    а)* В — имя одной (любой) из внучек человека с именем И, если такие есть;

    10.16. Программа. Дана последовательность, содержащая от 1 до 30 слов, в каждом из. которых от 1 до 5 строчных латинских букв; между соседними словами — запятая, за последним словом — точка. Напечатать:в) эту же последовательность слов, но удалив из нее повторные вхождения слов;

    11.27*. type неотриц = 0. .maxint;
    Описать функцию F(m,n)=n!*m!/(n+m)! где п и т—неотрицательные целые числа. (Определить внутреннюю функцию, вычисляющую факториал.)

    12.6. Решить предыдущую задачу в предположении, что имеются функция ЧислоДетей(х), указывающая число детей человека с именем х, и функция Pe6enoK(x,k) указывающая имя k-го ребенка человека с именем X; (k не должно превышать число детей человека х).

    14.26. Программа. Дан текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст.

    15.26*. type FR=file of real;
    Описать логическую функцию mid(f,m) которая определяет, имеет ли файл f типа FR нечетную длину, и, если имеет, присваивает параметру т средний элемент этого файла.

    13.23. const n = 300;
    type запись = rесоrd ключ:integer;
    тело: аrrау [1..99] of 'a'.. 'z'
    end;
    таблица = array [l..n] оf запись;
    Считая, что в таблице записи имеют различные ключи, описать:
    а) процедуру упор(Т), упорядочивающую записи таблицы Т по возрастанию их ключей;
     
  2. acorn

    acorn PHP Developer

    Регистрация:
    29 авг 2004
    Сообщения:
    599
    Симпатии:
    3
    учитывая форму постановки, позвольте поинтересоваться: каков бюджет? :D
     
  3. Flaxy

    Flaxy Гость

    Я так просмотрел , вроде задачи не сложные, могу дать по 10 грн за каждую
     
  4. XTen

    XTen Active Member

    Регистрация:
    18 сен 2010
    Сообщения:
    26
    Симпатии:
    0
    Если оплата не в грн будет то пиши
    ICQ: 410691984
     
Загрузка...
Статус темы:
Закрыта.

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