Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2010, 00:00   #1
DimaSSololo
Новичок
Джуниор
 
Регистрация: 26.05.2010
Сообщений: 1
По умолчанию Нужно разобраться с программным кодом.

Имеется код:

program prim72;

{$APPTYPE CONSOLE}
const c=['a'..'z','A'..'Z','а'..'я','А'..'Я' ,'1'..'9'];
var
a,b:array[1..256] of string;
s,temp1,temp2:string;
i,max1,max2,j:integer;
begin
writeln('Введите строку:');
readln(s);
temp1:='';
temp2:='';
max1:=0;
max2:=0;
for i:=1 to length(s) do
begin
if (s[i] in c) then
begin
temp1:=temp1+s[i];
if temp2<>'' then
begin
inc(max2);
b[max2]:=temp2;
temp2:=''
end;
end;
if (not (s[i] in c))
or (i=length(s)) then
begin
temp2:=temp2+s[i];
if temp1<>'' then
begin
inc(max1);
a[max1]:=temp1;
temp1:=' '
end;
end;
end;
for i:=1 to max1-1 do
for j:=i+1 to max1 do
if a[j]<a[i] then
begin
temp1:=a[j];
a[j]:=a[i];
a[i]:=temp1
end;
writeln('Алфавитный порядок:');
for i:=1 to max1 do
writeln(a[i]);
readln;
readln
end.

Если можно напишите почему мы постоянно присваиваем temp1 и temp2 значение ' ' ?
DimaSSololo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите разобраться с кодом! sid Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 13.04.2010 17:53
не могу разобраться с кодом morocko HTML и CSS 1 10.02.2010 21:23
Помогите с программным кодом!!! vittt Microsoft Office Excel 1 12.03.2008 12:23
Помогите с программным кодом! profi Помощь студентам 1 25.11.2007 12:29
Помогите разобраться с кодом С++ Noor Помощь студентам 20 10.10.2007 17:42