Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дан текст. Устранить в нем лишние пропуски, оставив между словами не более 2-х пропусков. Определить суму кодов всех парных слов. Результат вывести на экран в 10-ной и 16-ой системах счисления.
Блок схема

Просмотров: 137
Объяснение: +
Отзывов: 0

РЕШЕНИЕ:

Program PascalGuru; {-------------------------------------------------} function dec2hex(des:integer):string; var i,ost,n,l:integer; s,s1,sbox,temp:string; begin n:=0; i:=0; s:=''; repeat inc(n); inc(i); ost:=des mod 16;//остаток des:=des div 16;//целая часть if ost>=10 then begin if ost=10 then s:=s+'A'; if ost=11 then s:=s+'B'; if ost=12 then s:=s+'C'; if ost=13 then s:=s+'D'; if ost=14 then s:=s+'E'; if ost=15 then s:=s+'F'; end else begin str(ost,temp); s:=s+temp; end; until des=0; {Переворачиваем содержимое} n:=1; l:=length(s); for i:=1 to (l div 2) do begin sbox:=s[n]; s[n]:=s[l+1-n]; s[l+1-n]:=sbox[1]; inc(n); end; dec2hex:=s; end; {-------------------------------------------------} var s:string; i,n,p,summa:integer; A:array[1..50] of string; begin write('Vvedite stroku slov [cerez probely]:'); readln(s); i:=1; repeat if copy(s,i,2)=' ' then delete(s,i,1) else inc(i); until i>length(s); {оставили по 1 пропуску} writeln; writeln('Preobrazovannaya stroka: ',s); i:=0; repeat inc(i); p:=pos(' ',s); A[i]:=copy(s,1,p-1); delete(s,1,p); until p=0; n:=i; A[n]:=s; summa:=0; for i:=1 to n do if not odd(i) then begin s:=A[i]; for p:=1 to length(s) do summa:=summa+ord(s[p]); end; writeln('Summa [10s]: ',summa); writeln('Summa [16s]: ',dec2hex(summa)); readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.