Объединить файлы путем попарного совмещения компонент

@lexaolia · Регистрация: 16.04.2010

Author24 — интернет-сервис помощи студентам

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

@STGE · 16.04.2010, 23:48

Pascal

uses crt;
var h: file of string; a,b: word; k,l,s,min: string; i,w: byte;
begin
clrscr;
s:='';
a:=random(900)+100;
b:=random(900)+100;
str(a,k);
str(b,l);
for i:=1 to 3 do
s:=s+a[i]+b[i];
min:=s[1];
for i:=1 to length(s) do
if s[i]<min then 
begin
min:=s[i];
w:=i;
end;
s[w]:=s[w]+s[length(s)-1];
s[length(s)-1]:=s[w]-s[length(s)-1];
s[w]:=s[w]-s[length(s)-1];
assign(h,'text.bin');
rewrite(h);
write(h,s);
close(h);
end.

Program was not compiled

@lexaolia 0 / 0 / 0 Регистрация: 16.04.2010 Сообщений: 8
		1
	Объединить файлы путем попарного совмещения компонент 16.04.2010, 23:24. Показов 1554. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с созданием программы и блок схемы для нее, заранее спасибо вам: Сформировать два файла целых чисел одинаковой длины и . Затем необходимо слить их в файл таким образом, чтобы сначала шла компонента из , потом из и т. д. В файле поменять местами минимальную и предпоследние компоненты. Файлы вывести до и после преобразования. 0

	16.04.2010, 23:48

Объединить файлы путем попарного совмещения компонент

Решение