Строки.Составить различные виды кроссвордов

@naty7773 · Регистрация: 27.04.2011

Author24 — интернет-сервис помощи студентам

Из двух заданных с клавиатуры слов составить различные виды кроссвордов. При невозможности составить кроссворд (во введенных словах нет ни одной одинаковой буквы) напечатать сообщение об ошибке

......Помогите пожалуйста написать программу!!!!Вобще не знаю как делать((((

@ermolay · 29.03.2012, 09:24

Pascal

  var
    str1,str2: string;
    n,m,i,j,p,q,k: byte;
begin
  write('vvedite pervoe slovo: ');
  readln(str1);
  write('vvedite vtoroe slovo: ');
  readln(str2);
 
  n:=length(str1);
  m:=length(str2);
 
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if str1[i]=str2[j] then
      begin
        for p:=1 to n do
        begin
          for q:=1 to m do
          begin
            if q=j then write(str1[p])
              else if p=i then write(str2[q])
                else write(' ');
          end;
          writeln;
        end;
        writeln;
        inc(k);
      end;
    end;
  end;
  if k=0 then writeln('net sovpadenii');
  readln
end.

Добавлено через 45 секунд
написал экспромтом, возможно код не самый оптимальный

@naty7773 · 29.03.2012, 15:50 **[ТС]**

Да ладно!!!Мне хоть как-то разобраться надо было)))Спасибо огромное!!!!

@naty7773 12 / 0 / 0 Регистрация: 27.04.2011 Сообщений: 42
		1
	Строки.Составить различные виды кроссвордов 29.03.2012, 00:22. Показов 1679. Ответов 2 Метки нет (Все метки) Из двух заданных с клавиатуры слов составить различные виды кроссвордов. При невозможности составить кроссворд (во введенных словах нет ни одной одинаковой буквы) напечатать сообщение об ошибке ......Помогите пожалуйста написать программу!!!!Вобще не знаю как делать(((( Миниатюры 0

@naty7773 12 / 0 / 0 Регистрация: 27.04.2011 Сообщений: 42
	29.03.2012, 15:50 [ТС]	3
	Да ладно!!!Мне хоть как-то разобраться надо было)))Спасибо огромное!!!! 0

Строки.Составить различные виды кроссвордов

Решение