Печать чисел в две колонки

@maliyusha · Регистрация: 25.12.2008

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

Задача:
Дан текстовый файл f, содержащий целые числа от 1 до 100. Подготовить новый файл для печати этих чисел в две колонки. В левой колонке должны быть размещены числа от 1 до 50, в правой колонке − числа от 51 до 100. Выровнять числа по левому краю.
Пожалуйста, подскажите как можно осуществить решение задачи и как примерно будет выглядеть код, наверняка многим встречались решения подобных задач. Спасибо

@Vladiator · 03.03.2009, 19:23

Сообщение от maliyusha

Задача:
Дан текстовый файл f, содержащий целые числа от 1 до 100. Подготовить новый файл для печати этих чисел в две колонки. В левой колонке должны быть размещены числа от 1 до 50, в правой колонке − числа от 51 до 100. Выровнять числа по левому краю.
Пожалуйста, подскажите как можно осуществить решение задачи и как примерно будет выглядеть код, наверняка многим встречались решения подобных задач. Спасибо

Pascal

program xxx;
var
 f_in,f_out:Text;
 m,q,w:array[1..4]of byte;
 i,qc,wc:integer;
begin
 assign(f_in,'in.txt');//вместо "in.txt" введите имя входного файла
 assign(f_out,'out.txt');//вместо "out.txt" имя выходного файла
 reset(f_in);
 for i:=1 to 4 do read(f_in,m[i]);
 close(f_in);
 qc:=1;
 wc:=1;
 for i:=1 to 4 do
  if m[i]<51 then begin
   q[qc]:=m[i];
   qc:=qc+1;
  end else begin
   w[wc]:=m[i];
   wc:=wc+1;
  end;
 rewrite(f_out);
 for i:=1 to 4 do begin
  if q[i]<>0 then write(f_out,q[i]:4);
  if w[i]<>0 then writeln(f_out,w[i]) else writeln(f_out);
 end;
 close(f_out);
end.

@maliyusha 1 / 1 / 0 Регистрация: 25.12.2008 Сообщений: 41
		1
	Печать чисел в две колонки 03.03.2009, 18:55. Показов 1898. Ответов 1 Метки нет (Все метки) Задача: Дан текстовый файл f, содержащий целые числа от 1 до 100. Подготовить новый файл для печати этих чисел в две колонки. В левой колонке должны быть размещены числа от 1 до 50, в правой колонке − числа от 51 до 100. Выровнять числа по левому краю. Пожалуйста, подскажите как можно осуществить решение задачи и как примерно будет выглядеть код, наверняка многим встречались решения подобных задач. Спасибо 0

	03.03.2009, 19:23

Печать чисел в две колонки

Решение