Пожалуйста напишите прогу на Pascal'е!

[Impulsive]

Для меня сложно, а сдавать надо...

Множества.
#1
Вычислить значение отношений:
['a','b']=['b','a']
#2
Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке:
все глухие согласные буквы, которые входят в каждое нечетное слово и не входят хотябы в одно четное слово.
Примечание: гласные буквы: а,е,и,о,у,ы,э,ю,я (без ё); согласные - все остальные буквы, кроме й,ь,ъ; звонкие согласные - б,в,г,д,ж,з,л,м,н,р; глухие согласные - к,п,с,т,ф,х,ц,ч,ш,щ.

Файлы.
#3
type цена=record руб:0..maxit;
коп:0..99 end;
прейскурант=file of цена;
Описать процедуру min(П,Ц), присваивающую параметру Ц наименьшую цену из непустого прейскуранта П.

Ссылки.
#4
Одно из возможных представлений "длинного" текста - это разделить его на участки (строки) равной длины и создать массив ссылок на эти строки:
const d=...; {длина строки}
n=...; {максимальное число строк}
type строка=packed array [1..d] of char;
ссылка=|строка; ("палочка вверх - значек стрелочки вверх")
текст=array [1..n] of ссылка;
(Если в тексте менее n строк, то последние элементы массива равны nil не должно быть. Если операции над текстом указан номер отсутствующей строки, т.е. элемент массива с этим номером равен nil, то такая операция не выполняется.)
Процедуру ДОБАВИТЬ (T,i,j), добовляющую после i-й строки текста T копию j-й строки.



Сделайте пожалуйста, оч нужно!! Огромное спасибо!

[Хыиуду]

1. Тру. Нутром чую, что истина, а доказать не могу
2. Начало - разбиение строки на слова, раздел "Алгоритмы"
3. C:=P[1]; for i:=2 to length(P) do
if P.rub*100+P.kop<C.rub*100+C.kop then C:=P;

[Impulsive]

попробую

[chnry]

Пиши в чат 393877884.
Помогу.

[BBB]

1. Тру. Нутром чую, что истина, а доказать не могу

А если так?

Код: Выделить всё

begin
  writeln (['a','b']=['b','a']);
end.

Листинг дает:

Код: Выделить всё

TRUE

[Dim...ON]

пиши в аську 198-012-696
помогу

[Medved]

Вот файл тхт переименуй на раs и будет #2

[Impulsive]

Спасиб большое!
Были небольшие погрешности, вродь поправил!
а задачка проще не решаеться? а то это не для моих мозгов!!.. Хелп в понедельник - 2 первые сдавать!

[Medved]

Послать то же с объяснениями (комментариями)?

[Impulsive]

Если не трудно!