Программа 2
Описание файла
Файл "Программа 2" внутри архива находится в следующих папках: Программа 2, Отчет. Документ из архива "Программа 2", который расположен в категории "". Всё это находится в предмете "программирование" из 4 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "остальное", в предмете "программирование" в общих файлах.
Онлайн просмотр документа "Программа 2"
Текст из документа "Программа 2"
Задание 2
2 строки входные и одна выходная, нужно перемешать строки:
строка1_вх: 1 2 3 4 5 6
строка2_вх: 1111 2222 3333
строка_вых: 1 1111 2 2222 3 3333 4 5 6
Листинг программы
function Kolichestvo_slov(str: string):integer;
var
kol_slov, i: integer;
next_slovo: boolean;
begin
kol_slov := 0;
next_slovo := false;
for i := 1 to length(str) do begin
if (str[i] = ' ') and next_slovo then begin
inc(kol_slov);
next_slovo := false;
end;
if str[i] <> ' ' then next_slovo := true;
end;
result := kol_slov;
end;
function Preobrazovat_stroku(str: string):string;
var
podstroka : string;
i: integer;
probel: boolean;
begin
str := Trim(str);
probel := false;
i := 1;
while i <= length(str) do begin
if str[i] <> ' ' then probel := false;
if probel = true then begin
delete(str, i, 1);
i := i - 1;
end;
if str[i] = ' ' then probel := true;
i := i + 1;
end;
result := str + ' ';
end;
procedure TForm1.RunClick(Sender: TObject);
Var
s1,s2,r:string;
i, j, k1, k2: integer;
begin
k1 := Kolichestvo_slov(str1.Text);
k2 := Kolichestvo_slov(str2.Text);
if k1 >= k2 then begin
s1 := Preobrazovat_stroku(str1.Text);
s2 := Preobrazovat_stroku(str2.Text);
end else begin
s2 := Preobrazovat_stroku(str1.Text);
s1 := Preobrazovat_stroku(str2.Text);
end;
j := 1;
for i := 1 to length(s1) do begin
r := r + s1[i];
if s1[i] = ' ' then begin
while (j < length(s2)) and (s2[j] <> ' ') do begin
r := r + s2[j];
inc(j);
end;
r := r + ' ';
inc(j);
end;
end;
Res.Text := r;
end;
end.
Скриншоты программы