Question

СРОЧНО ПАСКАЛЬ Написать программу Задачи на строки Даны две произвольные строчки. Совпадают ли они побуквенно?

Answer 1

Ответ:

program sovpadenie_strok;

uses crt;

var

s1,s2:string;

i:integer;

f:boolean;

begin

read(s1);

read(s2);

if (length(s1)=length(s2))then

begin

i:=1;

f:=false;

while(i<length(s1))and(f=false)

do

begin

if s1[i]<>s2[i] then f:=true;

i:=i+1

end;

if f=true then

write('Строки побуквенно не совпадают')

else

write('Строки побуквенно совпадают')

end

else

write('Строки разной длины')

end.

Answer 2

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

pascalCopy code
program CompareStrings;

var
  str1, str2: string;
  i: integer;
  match: boolean;

begin
  match := true; // Предполагаем, что строки совпадают

  // Ввод двух строк
  Write('Введите первую строку: ');
  Readln(str1);
  Write('Введите вторую строку: ');
  Readln(str2);

  // Проверка на равенство длин строк
  if Length(str1) <> Length(str2) then
    match := false
  else
  begin
    // Сравнение символов побуквенно
    for i := 1 to Length(str1) do
    begin
      if str1[i] <> str2[i] then
      begin
        match := false;
        Break; // Если найдено несовпадение, прерываем цикл
      end;
    end;
  end;

  // Вывод результата
  if match then
    Writeln('Строки совпадают побуквенно.')
  else
    Writeln('Строки не совпадают побуквенно.');

  Readln;
end.

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