![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 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 значение ' ' ? |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите разобраться с кодом! | 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 |