Количество символов в строке экрана

[Решетова Алена]

Задача звучит так: Написать процедуру, которая выводит числа от 0 до 9 в строку без пробела. Выполнить эту процедуру в программе 10 раз и определить число символов в одной строке экрана. Переделать процедуру, что бы она выводила числа в столбец. Выполнить процедуру 5 раз и определить число символов в столбце экрана.

Но что значит в строке и столбце экрана? По умолчанию в строке экрана помещается 80 символов, в столбце 25. Но как это реализовать в программе?

{$mode objfpc} 
program K; 

uses crt; 
var i : byte; 

procedure n1 (); 
var i:byte; 
begin 
for i:=0 to 9 do write(i); 
end; 

procedure n2 (); 
var i:byte; 
begin 
for i:=0 to 9 do writeln(i); 
end; 

BEGIN 
For i:=0 to 9 do n1;	

For i:=0 to 4 do n2;	
END.

[MisterDie]

{$mode objfpc} 
program K; 
uses crt;  
var i : byte; 
procedure n1 (); 
var i:byte; 
begin 
for i:=0 to 9 do write(i); 
end; 
procedure n2 (); 
var i:byte; 
begin 
for i:=0 to 9 do writeln(i); 
end; 
begin
For i:=1 to 10 do n1; 
writeln;
writeln('Символов в строке: ', 10*10);
writeln;
For i:=1 to 5 do n2;
writeln('Символов в столбце: ', 10*5);
end.

Так?

[Решетова Алена]

Нет. До этого бы я и сама додумалась. Здесь имеется кол-во символов в одной строке ЭКРАНА. Экран же 80х25 символов. А как это в программе реализовать? Может сс поощью ассемблера. Я его плохо знаю.

[monster-bonster]

Заведите массив из 80x25 элементов.
затем напишите функцию которая считает количество символов в строке массива и еще одну которая считает количество символов в столбце.

Заполните массив как в условии задачи и попробуйте посчитать
количество символов в строке и столбце.
Если вам нужно более конкретное решение, пишите.

[Решетова Алена]

Спасибо, уже не надо) Подсказали, что есть функции Wherex:char; и Wherey:char;
Программно определить текущее положение курсора позволяют 2 стандартные функции Wherex:char; и Wherey:char;, возвращающие, соответственно, текущие x- и y-координату курсора.

Столбец легко:
For i:=0 to 4 do n2;
Writeln;
y:=byte(Wherey);
Writeln(y);

А вот со строкой.. надо положение курсора с каждым символов перемещать.. пока что не сделала. Можете помочь, если не затруднит)

[s-andriano]

Я тоже не понимаю формулировки этой задачи:

Сообщение от Решетова Алена

Написать процедуру, которая выводит числа от 0 до 9 в строку без пробела. Выполнить эту процедуру в программе 10 раз и определить число символов в одной строке экрана.

В первом предложении говорится о выводе в строку (в переменную типа string?).
Во второй - что-то об экране.
Совершенно непонятно, как одно с другим связано.

Ds: Условие некорректно. Необходимо уточнить условие.

[Решетова Алена]

Да, да. Не понятная задача. Это даже не мне задали. Попросили просто помочь. Интересно, преподаватель сам то понимает о чем речь?))

[Решетова Алена]

Спасибо всем за помощь!)

[ViktorR]

Так понял, что надо вывести некоторое число символов (цифр) в строке окна и определить значение I, когда положение курсора по строке (X) "обнулится" - курсор встанет в начало строки.
Затем выводим столбец (Y) символов (цифр) и так-же ожидаем, когда курсор "перескачет" в начало экрана. Число J будет тем числом, которое и даст нам число строк в окне.

В модуле Crt есть функция, с помощью которой можно задать размер окна, например, для вывода некоторого сообщения. Можно поиграть


Вроде так ...

[Serge_Bliznykov]

согласен с ViktorR.

А вообще, задача, действительно, не очень...
Если бы я решал её, то я бы воспользовался тем фактом, что текст в DOS выводится в видеопамять, к ней имеется прямой доступ.
Достаточно пройтись по нужной строке (столбцу) и прочитать, какие символы и сколько их...