Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[Ivs]

Сколько смог.....

Код

{Program N_1;
uses crt;
var
  s:string;
  i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=pos('!',s);
  i:=i+1;
  while i<=length(s) do
  begin
     if s[i]='!' then s[i]:='.';
     i:=i+1;
  end;
  writeln('OutPut -> ',s);
  readln;
end. }

{Program N_2;
uses crt;
var
  s:string;
  i,j:integer;
  b:boolean;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  for i:=1 to length(s)-1 do
     for j:=i+1 to length(s) do
      if s[i]=s[j] then
      begin
         b:=true;
         write('Yes! This is ',s[i],'!');
         readln;
         halt;
      end;
  write('No!');
  readln;
end.}

{Program N_3;
uses crt;
var
  M:set of char;
  s,sl:string;
  i:integer;
  b:boolean;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input word -> ');readln(sl);
  for i:=1 to length(s) do M:=M+[s[i]];
  b:=true;
  for i:=1 to length(sl) do
     if not(sl[i] in M) then begin b:=false;break;end;
  if b then write('All symbols of word are in string')
     else write('NOoooo!');
  readln;
end.}

{Program N_4;
uses crt;
var
  s,s1,s2,res:string;
  i,j,k:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  for i:=1 to length(s) do
     if s[i]=':' then k:=k+1;
  if k>=2 then
  begin
     i:=pos(':',s);
     s1:=Copy(s,1,i-1);
     for j:=length(s) downto i+1 do
      if s[j]=':' then
      begin
         s2:=Copy(s,j+1,length(s));
         break;
      end;
  write('OutPut: ',s1+s2);
  end else write('No correct data!');
  readln;
end.}

{Program N_5;
uses crt;
var
  s,str:string;
  i1,i2,j,i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i1:=0;i2:=0;
  for i:=length(s) downto 1 do
     if s[i]='(' then begin i1:=i;break end;
  for j:=length(s) downto i1+1 do
     if s[j]=')' then begin i2:=j;break end;

  if (i1=0) or (i2=0) then begin write('No correct data!');readln;exit end
  else str:=copy(s,i1+1,(i2-i1)-1);

  write('OutPut -> ',str);
  readln;
end.}

{Program N_6;
uses crt;
var
  s,s2:string;
  i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;
  while i<=length(s) do
  begin
     if (s[i]='o') and (s[i+1]='n') then begin s2:=s2+'online';i:=i+1;end
                            else s2:=s2+s[i];
     i:=i+1;
  end;
  if s=s2 then write('No correct data')
        else write('OutPut -> ',s2);
  readln;
end.}

{Program N_7;
uses crt;
var
  s,t:string;
  i,k,j:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     k:=k+1;
     i:=i+1;
  end;
  write('Word: ',k);
  readln;
end. }

{Program N_8;
uses crt;
var
  s,t:string;
  i,min:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  min:=length(s);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)<min then min:=length(t);
     i:=i+1;
  end;
  write('Very small word this is ',min,' symbols');
  readln;
end.}

{Program N_9;’®¦Ґ б ¬®Ґ зв® N_8}

{Program N_10;
uses crt;
var
  s,t:string;
  i,long,k:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input long -> ');readln(long);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)=long then k:=k+1;
     i:=i+1;
  end;
  write('OutPut -> ',k);
  readln;
end.}

{Program N_11;
uses crt;
var
  s,t:string;
  i,max,k:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;max:=0;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)>=max then begin max:=length(t);k:=k+1 end;
     i:=i+1;
  end;
  writeln('Very long word: ',k);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)=max then writeln(t);
     i:=i+1;
  end;
  readln;
end. }