Несколько фрагментов программ, Массивы, указатели, множества, файлы Опции

[Alla]

Очень прошу о помощи:
Сразу хочу сказать, что нужны только фрагменты решения конкретной задачи, писать всю программу не надо.
Мне действительно очень неловко, но и выбора у меня нет завтра с утра уже надо все сдавать... Сразу хочу сказать, я пользовался и Поиском и FAQ, на часть вопросов мне удалось найти оттветы, но в некоторых моментах я не уверен...

1.
- дан одномерный массив, найти последний отрицательный элемент;
- дана матрица размерности N*N, найти сумму (произведение) положительных (отрицательных, четных) элементов матрицы;
- дана матрица размерности N*N, найти минимальный (максимальный) элемент, и заменить нулями элементы в строке и столбце, на пересечении которых расположен дан¬ный элемент.

2.
- дан текст. Найти множество, элементами которого являются встречающиеся в тексте цифры от ‘0’ до ‘9’ и знаки арифметических операций;
- вывести элементы множества, составленного из произвольных букв от A..Z, в алфавитном порядке;
- не используя дополнительные переменные, поменять местами значения переменных-множеств А и В.

3.
- компонентами файла G являются натуральные числа. Найти количество удвоенных нечетных среди компонент;
- дано имя файла и целые положительные числа N и K. Создать текстовый файл с указанным именем и записать в него N строк, каждая из которых состоит из K символов «*»;
- дана строка S и текстовый файл. Добавить строку S в начало файла;
- дано целое число К и текстовый файл; сформировать новый файл, удалив из исходного файла строку с номером К, если строки с таким номером нет, то переписать файл без изменений.
________________________________________________________________________________
________________

А вот несколько заданий которые мне в принципе не понятны:
1.
Имеется следующее описание переменных:
var x,y: ^integer;
Указать значение x^ и y^ после выполнения следующих операторов:
new(x);
x^:=17;
new(y);
y^:=-5;
x^:=x^+y^;
y^:=y^+12;
2.
Имеется следующее описание переменных:
var a,b: ^integer;
x: ^real;
p: pointer;
Возможны ли следующие присваивания:
 a:=b;
 p:=x;
 x:=a;
 b:=x;
 p:=b;
 p:=x; a:=p;
 x^:=sgr(x^)-a^*7;
 a^:=x;
 b^:=a^+b^;
 b^:=25*b;
 a^:=x^*3-b^;
 a:=a^*3-b^;
4
Пусть имеется следующее описание типов и переменных:
Type ptr1=^element1;
element1=record
info:char;
link:ptr1;
end;
Var nach,tek: ptr1;
i:integer;
Для данного описания в динамической памяти построен линейный связанный список (nach – указатель на начало списка; последний элемент списка в адресной части имеет значение nil):

nach
________        _________                                          ___________ 
     ]  ]      [       [ ]                                        [     [ \ /  ]
  a  ]  ] ___> [    b  [ ] ____> аналогично ____> аналогично ____>[  e  [ / \  ]
_____]_ ]      [ ______[_]         для С           для D          [ ____[/___\ ]

Что будет выведено на экран в результате выполнения следующих действий:

	writeln(nach^.info);
	writeln(nach^.link^.info);
	writeln(nach^.link^.link^.info);
	writeln(nach^.link^.link^.link^.info);
	tek:=nach;
while tek^.link<>nil do tek:=tek^.link;
writeln(tek^.info);
	tek:=nach;
while tek^.link^.link<>nil do tek:=tek^.link;
writeln(tek^.info);
	tek:=nach;
for i:=1 to 3 do tek:=tek^.link; 
writeln(tek^.info);
	tek:=nach;
while tek^.info<>'c' do tek:=tek^.link;
writeln(tek^.link^.info);

________________________________________________________________________________
________________
Я вас очень прошу помогите, от этого зависит мое будущее - будущее экономиста...
Я не прошу вас писать все ответы, дайте хотя бы конкретные ссылки где можно найти ответы, поиск выдает ОООЧЕНЬ много и найти что-то конкретное очень трудно, да и как мне стало понятно в интернете кроме вашего форума нет больше не одного нормального сайта по Паскалю. Помогите пожалуйста ...

Сообщение отредактировано: volvo - 5.11.2006 23:32