Глава 3. Начала программирования ♡ 12. Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове «БАЙТ». 13. Запишите на языке Паскаль программу, которая формирует и выводит на экран строку символов, коды которых равны 66, 69, 71, 73, 78. вые величины 14. Разработайте программу, которая запрашивает три строко взаимосвязанные прилагательное, сущест вительное и глагол, а затем выводит все варианты фраз с использованием введённых слов. Пример входных данных ЗЕЛЁНЫЕ Листья РАСПУСКАЮТСЯ Пример выходных данных ЗЕЛЁНЫЕ ЛИСТЬЯ РАСПУСКАЮТСЯ ЗЕЛЁНЫЕ РАСПУСКАЮТСЯ ЛИСТЬЯ ЛИСТЬЯ ЗЕЛЁНЫЕ РАСПУСКАЮТСЯ ЛИСТЬЯ РАСПУСКАЮТСЯ ЗЕЛЁНЫЕ РАСПУСКАЮТСЯ ЗЕЛЁНЫЕ ЛИСТЬЯ РАСПУСКАЮТСЯ ЛИСТЬЯ ЗЕЛЁНЫЕ Попробуйте доказать, что других вариантов фраз с использо ванием трёх данных слов не существует. Обсудите этот вопрос в группе.

Ответ: Решение задач по программированию на языке Паскаль.

Задача 12

• Описание: Написать программу на языке Паскаль, которая вычисляет сумму кодов букв в слове «БАЙТ».
• Решение:

program SumByteCodes;
var
  s: string;
  i, sum: integer;
begin
  s := 'БАЙТ';
  sum := 0;
  for i := 1 to length(s) do
    sum := sum + ord(s[i]);
  writeln('Сумма кодов букв в слове БАЙТ: ', sum);
end.

Задача 13

• Описание: Написать программу на языке Паскаль, которая формирует и выводит на экран строку символов, коды которых равны 66, 69, 71, 73, 78.
• Решение:

program CharCodesToString;
var
  i: integer;
begin
  for i := 1 to 5 do
  begin
    case i of
      1: write(chr(66));
      2: write(chr(69));
      3: write(chr(71));
      4: write(chr(73));
      5: write(chr(78));
    end;
  end;
  writeln;
end.

Задача 14

• Описание: Разработать программу, которая запрашивает три строковые величины (прилагательное, существительное и глагол), а затем выводит все варианты фраз с использованием введенных слов.
• Решение:

program GeneratePhrases;
var
  adj, noun, verb: string;
begin
  writeln('Введите прилагательное:');
  readln(adj);
  writeln('Введите существительное:');
  readln(noun);
  writeln('Введите глагол:');
  readln(verb);

  writeln(adj, ' ', noun, ' ', verb);
  writeln(adj, ' ', verb, ' ', noun);
  writeln(noun, ' ', adj, ' ', verb);
  writeln(noun, ' ', verb, ' ', adj);
  writeln(verb, ' ', adj, ' ', noun);
  writeln(verb, ' ', noun, ' ', adj);
end.

Ответ: Решение задач по программированию на языке Паскаль.