Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу не знаю как решать
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Tolian92 Tolian92 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 07.12.2011
По умолчанию не знаю как решать - 10.12.2011, 15:07

В квадратной матрице К (5*5), элементами которой являются шестибуквенные слова, найти слово, в котором первый символ - буква А , и заменить на первое слово, в котором не будет ни одной буквы А .
Ответить с цитированием
  (#2 (permalink)) Старый
Сергей29 Сергей29 вне форума
Member
 
Сообщений: 951
Сказал(а) спасибо: 5
Поблагодарили 86 раз(а) в 86 сообщениях
Регистрация: 20.03.2011
По умолчанию 11.12.2011, 16:23

Pascal Код:
Program prog_1;
uses Crt;
const a_letter=['A','a'];
      number_arr=5;
      sword:array[1..number_arr,1..number_arr] of string [6] =
      (('noword','begin2','array1','const3','divdiv')
      ,('downto','else34','extern','file45','forwar')
      ,('functi','inline','got56o','apple_','notnot')
      ,('overla','packed','proced','progra','record')
      ,('adobe_','absolu','string','then67','while8'));
 Var
  _letter:string[1];
  d_word, i_word, c_word:string[6];
  e_sword:array[1..number_arr,1..number_arr] of string [6];  
  a, i, j, a_subw, _subw: Integer;
Begin
clrscr;
For i:=1 to number_arr do
begin
For j:=1 to number_arr do
begin
e_sword[i,j]:=sword[i,j];
_letter:='';
_letter:=Copy(e_sword[i,j],1,1);
if not (_letter[1] in a_letter) then inc(_subw)
else
if _letter[1] in a_letter then
begin
inc(a_subw);
c_word:='';
c_word:=Copy(e_sword[1,1],1,6);
Delete(e_sword[i,j],1,6);
Insert(c_word,e_sword[i,j],1);
end;
end;
end;
Write('Iznachalnie array:');
Writeln;
For i:=1 to number_arr do
begin
For j:=1 to number_arr do
Write(sword[i,j],' ');
Writeln;
end;
e_sword[i,j]:=sword[i,j];
Writeln;
Writeln('Chislo not zamenenix slov:', _subw);
Writeln('Chislo zamenenix slov:', a_subw);
Writeln;
Writeln('Znachenia array:');
For i:=1 to number_arr do
begin
For j:=1 to number_arr do  
Write(e_sword[i,j],' ');
Writeln;
end;
readln;
end.
стоило бы описать более подробно задачу или поинтересоваться
Ответить с цитированием
Пользователь сказал cпасибо:
yara21 (11.12.2011)
  (#3 (permalink)) Старый
Tolian92 Tolian92 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 07.12.2011
По умолчанию 12.12.2011, 00:30

Цитата:
Сообщение от Сергей29 Посмотреть сообщение
Pascal Код:
Program prog_1;
uses Crt;
const a_letter=['A','a'];
      number_arr=5;
      sword:array[1..number_arr,1..number_arr] of string [6] =
      (('noword','begin2','array1','const3','divdiv')
      ,('downto','else34','extern','file45','forwar')
      ,('functi','inline','got56o','apple_','notnot')
      ,('overla','packed','proced','progra','record')
      ,('adobe_','absolu','string','then67','while8'));
 Var
  _letter:string[1];
  d_word, i_word, c_word:string[6];
  e_sword:array[1..number_arr,1..number_arr] of string [6];  
  a, i, j, a_subw, _subw: Integer;
Begin
clrscr;
For i:=1 to number_arr do
begin
For j:=1 to number_arr do
begin
e_sword[i,j]:=sword[i,j];
_letter:='';
_letter:=Copy(e_sword[i,j],1,1);
if not (_letter[1] in a_letter) then inc(_subw)
else
if _letter[1] in a_letter then
begin
inc(a_subw);
c_word:='';
c_word:=Copy(e_sword[1,1],1,6);
Delete(e_sword[i,j],1,6);
Insert(c_word,e_sword[i,j],1);
end;
end;
end;
Write('Iznachalnie array:');
Writeln;
For i:=1 to number_arr do
begin
For j:=1 to number_arr do
Write(sword[i,j],' ');
Writeln;
end;
e_sword[i,j]:=sword[i,j];
Writeln;
Writeln('Chislo not zamenenix slov:', _subw);
Writeln('Chislo zamenenix slov:', a_subw);
Writeln;
Writeln('Znachenia array:');
For i:=1 to number_arr do
begin
For j:=1 to number_arr do  
Write(e_sword[i,j],' ');
Writeln;
end;
readln;
end.
стоило бы описать более подробно задачу или поинтересоваться
спасибо!Я сам не знаю как решать((
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа в ,знаю что не в тему, но не знаю куда поместить Света1992 Работа 0 02.11.2011 23:39
Транспортная задача как ее решать Perepel Delphi 0 05.06.2011 23:02
Задача на графы как их правильно решать 7ema С/С++ 6 13.11.2010 14:11
Как решать примеры из книги SICP AD Lisp 22 10.10.2009 01:18
Excel как решать задачи shalun Visual Basic 5 27.10.2008 18:27
Графический метод как им решать задачи ZOC Алгоритмы 5 12.05.2006 12:56
Как в Delphi решать задачи при помощи sin SilentmaN Вопросы начинающих программистов 22 27.10.2005 21:46
Как решать задачи на последовательность iit3 Pascal 1 04.09.2005 04:29
Как решать задачи на С++ paspartu Вопросы начинающих программистов 1 04.05.2005 17:31
Как решать типовые задачи при помощи С++ TObject Вопросы начинающих программистов 1 26.03.2005 22:58
Помогаю решать вопросы с VB Dominator Visual Basic 9 23.01.2005 23:22
Как решать задачи с алгоритмом NP Anonymous Алгоритмы 1 22.03.2003 22:07



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов