Question

СРОЧНО. Это все на паскале 1) Написать программу, определяющую коды букв в слове БИТ.2) Запишите программу, которая определяет и выводит на экран символы, коды которых равны 119, 114, 105, 116, 101. Составить из этих символов строку

Answer 1

Ответ:

Объяснение:

Обе задачки сведем в одну программу.

Листинг и результат работы:

Answer 2

Конечно, вот пример программы на Pascal для выполнения указанных задач:

1. Программа, определяющая коды букв в слове "БИТ":

pascalCopy code
program CodeOfWord;
var
  Word: string;
  i: integer;
begin
  Word := 'БИТ';
  
  writeln('Коды символов в слове "', Word, '":');
  
  for i := 1 to Length(Word) do
    writeln(Word[i], ' - ', ord(Word[i]));
end.

2. Программа, которая определяет и выводит на экран символы с заданными кодами (119, 114, 105, 116, 101) и составляет из них строку:

pascalCopy code
program CharactersFromCodes;
var
  Codes: array[1..5] of integer;
  i: integer;
  ResultString: string;
begin
  Codes[1] := 119;
  Codes[2] := 114;
  Codes[3] := 105;
  Codes[4] := 116;
  Codes[5] := 101;
  ResultString := '';

  writeln('Символы с кодами 119, 114, 105, 116, 101:');
  
  for i := 1 to 5 do
  begin
    ResultString := ResultString + chr(Codes[i]);
    writeln(Codes[i], ' - ', chr(Codes[i]));
  end;

  writeln('Результат: ', ResultString);
end.

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