PascalABC. Массивы символов.

[Shah69]

1.Введите массив символов из 11 элементов.Переведите все строчные буквы-символы в верхний регистр.

2.Дан массив символов, содержащий число в двоичной системе счисления. Проверить правильность ввода этого числа(в его записи должны быть только символы 0 и 1). Если число введено неверно, повторить ввод. При правильном вводе перевести в десятичную систему систему счисления.

3.Введите массив символов из 5 элементов.Определите, является ли он палиндромом (то есть при чтении наоборот содержание не изменяется, например слово "БОБ").

[Alex11223]

Зачем вы выкладываете сюда эти задания?

[Shah69]

С надеждой на помощь. Или мне здесь не помогут?

[Alex11223]

А как помочь если вы только выложили задание, но не задали никаких конкретных вопросов, не показали свой код и т.п.?

Вы не перепутали "помочь" с "решить за меня"?

[Shah69]

Если бы я знал как решать, я бы с этим вопросом сюда не пришел. Так, увы я плох в программировании, и хочу разобраться, но объяснить некому.

[Alex11223]

Ну если кто-то кто решит за вас, то это вам мало чем поможет, а что именно вам непонятно вы не рассказали.

Начните с чтения какого-нибудь учебника по Паскалю.

[newerow1989]

var p:array[1..11] of char;
    i:integer;
begin
   For i:=1 to 11 do
   begin
      Write('p[',i,'] = ');
      Readln(p[i]);
   end;
   For i:=1 to 11 do
      //If (p[i]>='a') and (p[i]<='z') then // - эта строка на усмотрение: ее можно удалить или оставить
         p[i]:=UpCase(p[i]);
   For i:=1 to 11 do
      Write(p[i]);
   Readln;
end.

function Pravo(s:string):boolean;
var i:integer;
begin
   Result:=s<>'';
   For i:=1 to Length(s) do
      If not (s[i] in ['0','1']) then
      begin
         Result:=false;
         Break;
      end;
end;

function Perewod_iz_2_w_10(s2:string):integer;
var i,j:integer;
begin
   Result:=0;
   For j:=1 to Length(s2) do
   begin
      i:=StrToInt(s2[j]);
      Result:=Result+Round(i*Power(2,Length(s2)-j));
   end;
end;

var s:string;
    i:integer;
begin
   Repeat
      Write('s = '); Readln(s);
   Until Pravo(s);
   i:=Perewod_iz_2_w_10(s);
   Writeln(i);
   Readln;
end.

var s,s1:array[1..5] of char;
    i:integer;
begin
   For i:=1 to 5 do
   begin
      Write('s[',i,'] = ');
      Readln(s[i]);
   end;
   For i:=1 to Length(s) do
      s1[i]:=s[Length(s)-i+1];
   If s=s1 then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.