Сложности с решением задач у полного чайника

[osipvs]

В понедельник экзамен, а этому Паскалю вообще не обучалачь даже, а нужно позарез, если можно помогите с решением следующих задач:
6.1 Для следующего описания типов переменных в динамической памяти построен линейный связанный список (nach – указатель на начало списка; последний элемент списка в адресной части имеет значение nil).

Type ptr1=^element1;
element1=record
     info : char;        link : ptr1;
end;
Var nach, tek : ptr1;     i : integer;

Что будет выведено на экран для данного фрагмента:

 tek:=nach;   for i:=1 to 3 do tek:=tek^.link;     writeln(tek^.info);

6.2 Имеется следующее описание типов переменных. Для данного описания в динамической памяти по-строен двунаправленный список (nach – указатель на начало списка; kon -указатель на конец списка).

Type ptr=^elem;
 elem=record
     info : integer;     right, left : ptr;
 end;
Var nach, kon, tek : ptr;
        i : integer;

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

writeln(nach^.right^.left^.right^.info);

3.5 . Запишите заголовок процедуры имеющей 3 аргумента имеющих тип byte (i,j,k). Изменение значения j в процедуре должно влиять на значение фактического параметра, i,j,k – вещественные переменные уд-военной точности.
6.3 В приведенном фрагменте программы nach — ссылка на первый элемент списка. Список объявлен сле-дующим образом:

Type SS = ^List;  List = record   a : char;   next : SS;   end;
Var nach, P : SS;   S : integer; 
P := nach; S := 0;     while Not(P = Nil) do begin S := S + 1; P := P^.next;  end;   writeln(S);

Что выведет программа на экран монитора?
6.4 . Что будет выведено на экран в приведенном фрагменте программы, где F — ссылка на первый эле-мент списка (на рисунке это nach). Список объявлен следующим образом:

Type Uk = ^EL;  EL = Record X : Char;   N : Uk   End;
Var   F,P,B,M : Uk;   S : Char;
             Begin     P := F;
While P^.N <> Nil Do  Begin	 B := P;   M := P;
     While B <> Nil Do Begin   If B^.X  <  M^.X Then  M := B;  B := B^.N  End;
     S := P^.X;  P^.X := M^.X;  M^.X := S;  P := P^.N
End;  P := F;   While P^.N <> Nil  Do Begin P := P^.N;  Write(P^.X);  End;
End.

4.8 Определить значение переменной s после выполнения следующих операторов:

 var   i, n : byte;   s : real;  
              s:=1; n:=1;  for i:=2 to n do  s:=s+1/i;

5.5Чему равны значения переменных i и s после окончания цикла в фрагменте программы (язык Паскаль) прохода по матрице

mas: array[1..4,1..4] of integer: s:=0;  i:=1;   while i<4 do begin  i:=i+1;  s:=s+mas[i][i];end ;

1234
2341
8471
5 1 7 9

Рисунки во вложении. Заранее благодарна

[Stilet]

Что будет выведено на экран для данного фрагмента:

Символ в третьем элементе. Но это не код а сплошная шуба для багов.

6.2

То же что и

writeln(nach^.right^.info);

3.5 . Запишите заголовок процедуры имеющей 3 аргумента имеющих тип byte (i,j,k).

Procedure(i,k:byte;var j:double);

[Anatole]

6.3 Количество элементов в списке, тоесть 5
5.5 i=4 s=11
4.8 s=1

[Serge_Bliznykov]

6.1
tek:=nach; for i:=1 to 3 do tek:=tek^.link; writeln(tek^.info);

на мой взгляд.
сначала tek показывает на первый элемент в списке.
потом ТРИ раза переходим на следующий...
в результате, после цикла tek показывает на 4-й элемент.
TEK^.info это значение ЧЕТВЁРТОГО элемента списка.

[Stilet]

это значение ЧЕТВЁРТОГО элемента списка.

Согласен. Я с нуля считал )

[osipvs]

Спасибо огромное. Вы даже не представляете, что это для меня значит. Если это не совсем наглость вот еще последние задачи:
6. 5 Определить значение переменной s после выполнения следующих операторов:

 var   i, j, s : integer;  
              s:=-5;  for i:=0  to 20 do   for j:=i  to  4 do  if   i = j  then s:=s+i;

7.5 Пусть имеется следующее описание типов переменных. Для данного описания в динамической памяти построен линейный связанный список (nach – указатель на начало списка; последний элемент списка в адресной части имеет значение nil):

Type ptr1=^element1;
element1=record    info : char;   link : ptr1;   end; 
Var nach,tek : ptr1;    i : integer;
Что будет выведено на экран в результате выполнения следующего фрагмента программы:
tek:=nach;     while tek^.info<>'c' do tek:=tek^.link;    writeln(tek^.link^.info);

5. 6 В программе вводится строка символов (цифр и букв). Фрагмент алгоритма подсчитывает сумму цифр в строке. Запишите оператор, который должен быть вставлен на место символов ?.

  Var St : string;    s,i,d,k : integer;
begin
   readln(St); s := 0; for i := 1 to Length (St) do
   begin val(St[i], d, k);    ??????????????????????   end;  writeln(s);
end.

6. 6 Имеется следующее описание типов переменных. Для данного описания в динамической памяти построен двунаправленный список (nach – указатель на начало списка; kon -указатель на конец списка).

Type ptr=^element;
element=record   info : char;   right, left : ptr;   end;
Var nach,kon,tek: ptr;
       i:integer;

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

 writeln(kon^.left^.left^.right^.left^.info);

7.6 Что будет выведено на экран монитора в результате выполнения данного фрагмент кода:

 var i,a: byte;
             ms: array[1..6] of byte: 
содержимое массива  ms:              2 3 4 1 8 3.
             a:=ms[1];    for i:=2 to 5 do if ms[i]<a then a:=ms[i]; writeln('a=',a);

5.7 Вычислите значение R после выполнения операции присваивания при

 A:= False; B:= False; X:= 3; Y:= 2;              	R := Not (A Or B Or (X > 2) And (Y < 0));

6.7 Для приведенного ниже описания в динамической памяти построен двунаправленный список (nach – указатель на начало списка; kon -указатель на конец списка):

Type ptr=^element;
element=record
   info : integer;   right,left : ptr;
end;
Var nach,kon,tek : ptr;
       i:integer;
Что будет выведено на экран в результате выполнения оператора:
writeln(nach^.right^.right^.right^.info);

7. 7 Что будет выведено на экран монитора в результате выполнения данного фрагмент кода:

var  a,b: integer;  begin   a=25; b=52; a:=a+b;  b:=a-b;  a:=a-b; writeln('a=',a,' b=',b); end;

8.8 Вычислить результат вызова функции fun(4) описанной ниже:

  function fun(n:byte):byte;         
              begin  if n<=1 then fun:=1 else fun:=fun(n-1)+fun(n-2);  end;

Рисунки к 6.6 и 6.7 теже, что и к 6.2
Еще раз спасибо.

From Stilet: Наглость твоя в том что ты не оформляешь свой пост читабельно. Код выдеяй особым предназначенным для того тегом по кнопке #

[osipvs]

Извините, не знала что нужно так делать, исправлюсь. Только помогите пожалуйста.

[Anatole]

8.8 результат выполнения (из Turbo Pascal) 5
7.7 a=52 b=25
5.7 R=true
7.6 a=1
6.6 s=5
5.6 if k=0 then s:=s+d;

[osipvs]

Спасибо огромное за помощь.

Огромнейшее спасибо!!!!!! Поступила. УРА!!!!!! И с вашей большой помощью. Еще раз спасибо!!!!!!!!!!!

[Stilet]

Поздравляю.