Работа с текстовыми файлами в языке Паскаль - 26 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

26
(n = 10) в текстовый файл необходимо записать следующую информацию:
3 XXX
5 XXXXX
7 XXXXXXX
4 XXXX
8 XXXXXXXX
4 XXXX
6 XXXXXX
1 X
5 XXXXX
0
Входные данные:
Натуральное число N и последовательность из N целых неотрицательных
чисел, хранящаяся в первых N элементах массива VA.
Выходные денные:
Последовательность строк, выводимая в текстовый файл VFText.
Текст процедуры:
{
Запись в текстовый файл последовательности целых
неотрицательных чисел в виде столбиковой диаграммы,
ориентированной слева направо.
Входные данные:
N - размер последовательности;
VA - последовательность;
VFText - текстовый файл.
}
procedure WriteDiagramLR(
N: Integer; var VA: TVector;
var VFText: Text);
var
I, J: Integer;
begin

Страницы