Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов
Перезагрузить страницу исправьте мои ошибки
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
heiress heiress вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 07.03.2008
По умолчанию 16.03.2008, 11:16

вот задача
задан текст, состоящий из строк, которые в свою очередь состоят из слов.
разработать программу которая находит все строки-палиндромы(перевертыши) и печатает их в порядке увеличения кол-ва слов, палиндромы с одинаковым кол-вом слов следует печатать по алфавиту.
вот что у меня получилось
Код:
   Program Zplata;
      uses wincrt;
type re=record
str,w,b:string;
k,p,s:byte;
end;
var a:array [1..10] of re;
i,n,t,j,h,f:byte;
u,r:string;
begin
write('n=');
readln(n);  

for i:=1 to n do begin
write('a[',i,'].str=');
readln(a[i].str);
a[i].w:=a[i].str;
while pos(' ',a[i].w)>0 do
delete(a[i].w,pos(' ',a[i].w),1);
a[i].b:='';
For j:=1 to Length(a[i].w) do begin
a[i].b:=a[i].w[j]+a[i].b;
end; 
 end;
for i:=1 to n-1 do
  for j:=i+1 to n do
if (a[i].b = a[i].w) and (Length(a[i].w)>Length(a[i].w)) then begin
                     	r:= a[i].str;
	             	a[i].str:= a[j].str;
		 a[j].str:= r;
           	     	end;
     if (a[i].b = a[i].w) and(Length(a[i].w)= Length(a[i].w)) and  ( a[i].str<a[j].str) then begin
                     	r:= a[i].str;
	             	a[i].str:= a[j].str;
		a[j].str:= r;
           	     	end;
 for i:=1 to n do
writeln(a[i].str);
end.
но не выводит ни по алфавиту, ни по кол-ву слов.
помогите!!!
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как исправить ошибки? SADIST C++ Builder 11 04.10.2011 16:47
Исправьте пожалуйста kseniya_geo Lisp 1 15.09.2011 23:31
Ошибки Haskell95 Любые вопросы от новичков 4 15.07.2011 01:07
Как найти ошибки nona C++ Builder 0 29.05.2011 19:26
Как исправить баг ошибки schanker2 Вопросы начинающих программистов 9 18.11.2009 11:52
Игра "Агрессия" при запуске выдает ошибки. Лог ошибки в теме. rauchend Любые вопросы от новичков 9 20.02.2009 14:51
При установке виндовс ошибки записи файлов, как устранить ошибки? Monk of monastery Любые вопросы от новичков 8 26.08.2008 23:37
Что означает код ошибки 0? kminas Visual Basic 1 29.01.2008 12:42
C# Lan как исправить ошибки System.Mega Сетевое программирование 0 03.04.2006 02:30
Как исправить ошибки в BDE An_Life MSSQL Server 1 07.03.2003 10:40



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