Решаем задачи Абрамян на Паскале. String16

String16. Дана строка. Преобразовать в ней все прописные латинские буквы в строчные.

Решение:

program String16;
var
  i:integer;
  S:string;

begin
 Write('S:');
 Readln (S);

 for i:=1 to Length(S) do
  if (ord(S[i]) in  [97..122]) then S[i]:=chr(ord(S[i])-32);

 Writeln(S);
end.

program String16;

var

i:integer;

S:string;

begin

Write('S:');

Readln (S);

for i:=1 to Length(S) do

if (ord(S[i]) in [97..122]) then S[i]:=chr(ord(S[i])-32);

Writeln(S);

end.

Другие задачи из раздела String можно посмотреть здесь.

Комментарии 3

Решение на Python:

def UpperLat(msg):
    input_string = input(msg)
    output_string = ""
    for char_counter in range(0, len(input_string)):
        if 65 <= ord(input_string[char_counter]) <= 90:
            output_string += input_string[char_counter].lower()
        else:
            output_string += input_string[char_counter]
    return output_string

StrinG = UpperLat("Введите строку:")
print(StrinG)

def UpperLat(msg):

input_string = input(msg)

output_string = ""

for char_counter in range(0, len(input_string)):

if 65 <= ord(input_string[char_counter]) <= 90:

output_string += input_string[char_counter].lower()

else:

output_string += input_string[char_counter]

return output_string

StrinG = UpperLat("Введите строку:")

print(StrinG)

Ответить

Решение на Java от новичка

int i,t;
    String L,s="";
    Scanner sc=new Scanner(System.in);
    L=sc.nextLine();
    for(i=0; i<L.length(); i++)
        if((L.charAt(i)>='A')&&(L.charAt(i)<='Z')){
          t=(int)(L.charAt(i))+32;
              s=s+(char)(t);
        }
    else
            s=s+L.charAt(i);
    
     System.out.println(s+" ");

int i,t;

String L,s="";

Scanner sc=new Scanner(System.in);

L=sc.nextLine();

for(i=0; i<L.length(); i++)

if((L.charAt(i)>='A')&&(L.charAt(i)<='Z')){

t=(int)(L.charAt(i))+32;

s=s+(char)(t);

}

else

s=s+L.charAt(i);

System.out.println(s+" ");

Ответить

program string_14; //PascalABC.NET

begin
  var s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  
  for var i := 1 to s.Length do
    if s[i] in ['A'..'Z'] then
      s[i]:=s[i].ToLower;
  
  s.Println; //abcdefghijklmnopqrstuvwxyz
end.

program string_14; //PascalABC.NET

begin

var s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

for var i := 1 to s.Length do

if s[i] in ['A'..'Z'] then

s[i]:=s[i].ToLower;

s.Println; //abcdefghijklmnopqrstuvwxyz

end.

Ответить

Решаем задачи Абрамян на Паскале. String16

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ