Дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). вывести строку (в pascal), содержащую эти же слова, разделенные одним пробелом и расположенные в алфавитном порядке.
Ответы на вопрос:
program slova; usescrt;
varwords : array[1..100] of string; wc : integer; all,currword,tmp : string; i,j : integer;
begin
clrscr;
wc : = 1;
writeln('‚ўґ¤ёвґ б«®ў : '); // 'введите слова'
read(all);
all : = all + chr(32)+ chr(32);
for i : = 1 to length(all)-1 do begin
if ord(all[i]) = 32 then begin
if currword < > '' then begin words[wc] : = currword; inc(wc);
currword : = ''; end;
continue;
end else begin
currword : = currword + all[i];
end;
end;
for i : = 1 to wc-2 do for j : = i + 1 to wc-1 do if words[i] > words[j] then begin tmp : = words[i]; words[i] : = words[j]; words[j] : = tmp; end;
writeln('ђґ§г«мв в: '); // 'результат'
for i : = 1 to wc-1 do write(words[i] + ' ');
readln(tmp); read(tmp);
end.
Популярно: Информатика
-
ПолинаЗнаетОтвет09.02.2020 14:12
-
vladmakarchuk8006.03.2023 22:26
-
drmarinda14.09.2020 18:44
-
diken121.08.2021 17:19
-
ппппппп2501.06.2022 19:58
-
dmgkmmsdk17.01.2023 16:12
-
з1з103.07.2021 00:31
-
SmertKiller12.03.2023 07:51
-
dianabalaganska19.03.2020 11:43
-
makar32ryc05.03.2022 03:50