Question

Очень срочно! Информатика. Помогите, кто разбирается) Чепуху не писать, для уточнений есть комментарии. Протестировать программы в Паскаль и нужны результаты. Спасибо) Задание 1. Написать программу для решения задачи. Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы. Задание 2. Написать программу для решения задачи. Дана строка, содержащая текст. Сколько слов в тексте? Сколько цифр в тексте?

Answer 1

Ответ:

Объяснение:

Задание 1

program bukva;

const R=[' ','.',',',';',':','?','!','-']; // разделители

var

s,bukv:string;

i,kol,len:integer;

procedure UpCaseRus(var s:string);

{русские в верхний регистр}

var i:integer;

begin

for i:=1 to length(s) do

if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)

else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)

else if s[i]='ё' then s[i]:='Ё';

end;

begin

readln(s);

readln(bukv);

UpCaseRus(s);

UpCaseRus(bukv);

For i:=length(s) downto 2 do

if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);

len:=length(s);

kol:=0;

for i:=len downto 1 do

begin

if s[i] in R then

if s[i+1]=bukv then kol:=kol+1;

end;

if s[1]=bukv then kol:=kol+1;

writeln('Слов на букву '+bukv+' ',kol);

readln;

end.

Задание 2

const r=[' ','.',',',';',':','?','!','-'];

var

s:string;

i,kol,d:integer;

begin

readln(s);

len:=length(s);

kol:=0;  d:=0;

For i:=length(s) downto 2 do

       if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);

for i:=1 to length(s) do

begin

if s[i] in r then kol:=kol+1

else if (s[i] in ['0'..'9']) then d:=d+1;

end;

writeln('Слов всего ',kol+1);

writeln('Цифр  в тексте ',d);

readln;

end.

Answer 2

Конечно, я могу помочь вам написать программы на Паскале для решения этих задач. Вот код для обеих задач:

Задание 1: Подсчёт слов, начинающихся с указанной буквы

pascalCopy code
program CountWordsWithLetter;

uses
  SysUtils;

function CountWordsStartingWithLetter(inputText: string; letter: Char): Integer;
var
  words: TStringArray;
  word: string;
  i, count: Integer;
begin
  inputText := Trim(inputText);
  words := SplitString(inputText, ' ');
  count := 0;
  for i := 0 to High(words) do
  begin
    word := LowerCase(words[i]);
    if (Length(word) > 0) and (word[1] = LowerCase(letter)) then
      Inc(count);
  end;
  Result := count;
end;

var
  text: string;
  startingLetter: Char;
  wordCount: Integer;
begin
  WriteLn('Введите текст:');
  ReadLn(text);
  
  WriteLn('Введите букву, для которой нужно подсчитать количество слов:');
  ReadLn(startingLetter);

  wordCount := CountWordsStartingWithLetter(text, startingLetter);
  WriteLn('Количество слов, начинающихся с буквы "', startingLetter, '": ', wordCount);
end.

Задание 2: Подсчёт слов и цифр в тексте

pascalCopy code
program CountWordsAndDigits;

uses
  SysUtils;

procedure CountWordsAndDigitsInText(inputText: string; var wordCount, digitCount: Integer);
var
  i: Integer;
  ch: Char;
begin
  inputText := Trim(inputText);
  wordCount := 0;
  digitCount := 0;

  for i := 1 to Length(inputText) do
  begin
    ch := inputText[i];
    if IsLetter(ch) then
    begin
      // Подсчёт слов
      while (i <= Length(inputText)) and (IsLetter(inputText[i]) or (inputText[i] = '-')) do
        Inc(i);
      Inc(wordCount);
    end
    else if IsDigit(ch) then
    begin
      // Подсчёт цифр
      Inc(digitCount);
    end;
  end;
end;

var
  text: string;
  wordCount, digitCount: Integer;
begin
  WriteLn('Введите текст:');
  ReadLn(text);
  
  CountWordsAndDigitsInText(text, wordCount, digitCount);
  WriteLn('Количество слов в тексте: ', wordCount);
  WriteLn('Количество цифр в тексте: ', digitCount);
end.

Скопируйте код каждой программы в свою среду разработки на Паскале, запустите и протестируйте их с разными входными данными, чтобы убедиться, что результаты корректны.