Программа 2 (1082076)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

Задание 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.

Скриншоты программы

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов учебной работы