Question

Решить задачу в Паскале (абв - всё в одной программе!)"В символьном массивеиз 6 элементов, заданных с клавиатуры:а) поменять все маленькие латинские буквы на большие;б) найти кол-во запятых;в) поменять все маленькие русские буквы на большие."СРОЧНО!!! жду верного решения :) спасибо заранее

Answer 1

var l,k:char; m,s:string; n,i,a:integer; begin read(s); l:=s[1]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[2]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[3]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[4]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[5]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[6]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; writeln(m); writeln(n); end.

Answer 2

Решение задачи в Паскале

Для решения данной задачи в Паскале, мы можем использовать следующий код:

program ArrayManipulation;

uses
  SysUtils;

var
  arr: array[1..6] of Char;
  i, countCommas: Integer;

begin
  // Ввод элементов массива
  for i := 1 to 6 do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

// Пункт а) Замена маленьких латинских букв на большие
  for i := 1 to 6 do
  begin
    if (arr[i] >= 'a') and (arr[i] <= 'z') then
      arr[i] := Chr(Ord(arr[i]) - 32);
  end;

// Пункт б) Подсчет количества запятых
  countCommas := 0;
  for i := 1 to 6 do
  begin
    if arr[i] = ',' then
      Inc(countCommas);
  end;

// Пункт в) Замена маленьких русских букв на большие
  for i := 1 to 6 do
  begin
    if (arr[i] >= 'а') and (arr[i] <= 'я') then
      arr[i] := Chr(Ord(arr[i]) - 32);
  end;

// Вывод измененного массива и количества запятых
  WriteLn('Измененный массив:');
  for i := 1 to 6 do
    Write(arr[i], ' ');
  WriteLn;
  WriteLn('Количество запятых: ', countCommas);

ReadLn;
end.

Эта программа позволяет пользователю ввести 6 символов в массив, выполняет указанные операции и выводит измененный массив и количество запятых.