Тема 4: Комплексный

Задача 1. Условия:

В каких операторах используются допустимые выражения ?:

var k,m:integer; h:char; b:boolean;  
begin
h:='4'; m:=4;
{1}b:=boolean(m) > boolean(h) and pred((7>9));
{2}k:=byte(boolean(m)) + byte(boolean(h)) 
    and pred((3>4));
{3}k:=byte(boolean(m) > boolean(h) and succ((1>2)));
{4}k:=byte(boolean(m)) + ord(boolean(h) 
         and pred((5-2)));
end.

Задача 2. Условия:

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

var m,n:char;  b:byte;  
begin
  b:=0; n:='y'; 
  for m:='z' downto 'w' do 
     repeat n:=chr(ord(succ(n))+1); 
        inc(b);
     until n >= m;
write(b); readln;
end.

Задача 3. Условия:

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

var m,s: set of byte; b:byte;
  begin m:=[1,2..4,7]; s:=m - [1*3];
     for b:= 0 to 255 do
       if b in s then write(b);
     readln;
  end.

Задача 4. Условия:

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

var fi:file of integer; m,n:integer;
begin
  assign(fi,'fff.dan');
  rewrite(fi);
  m:=3; n:=7;
  write(fi,m,n);
  close(fi);
  reset(fi); n:=1;
  repeat  
     read(fi,m); n:=n*m;
  until eof(fi);   close(fi);
  write(n); readln;
end.

Задача 5. Условия:

Исходный список: 5, 4, 3, 2, 1 (создан и заполнен. head^.inf = 5).
Что будет выведено на экран в результате
выполнения программы:

type ref=^el; 
     el=record 
       inf:integer; 
       next:ref 
     end; 
var head,hh,rr,golova: ref; s,m,i,j: integer;
begin
   {создание и заполнение списка - начало}
    new(head); hh:=head; golova:=hh; hh^.inf:=5;
    for m:=4 downto 1 do
       begin
          new(hh^.next); rr:= hh^.next;
          rr^.inf:=m; hh:=rr;
       end; rr^.next:=nil;
   {создание и заполнение списка - конец}

     s:=0; i:=0; hh:=head;
     while head<>nil do 
        begin
           s:= s+head^.inf; i:=i+2; rr:=head; 
           head:=head^.next
        end; 
     j:= s*i div i;
     while hh<>nil do
        begin
          if hh^.inf>0.1*j then
             hh^.inf:= hh^.inf+1;
          hh:= hh^.next;
        end;

      hh:=golova;
    while hh<>nil do
       begin
          write(hh^.inf);hh:=hh^.next;
       end;   readln;
end.