Например: Напечатать сорок любых символов.
В программе используется функция WhereX – она определяет позицию курсора в строке (принимает значения от 1 до 80, изменяется автоматически при выводе информации на экран). С помощью этой функции можно проверить, где находится курсор. Аналогичная функция WhereY – определяет строку, в которой в данный момент находится курсор (принимает значения от 1 до 25). Условие (wherex<40) означает, что при выводе на экран еще не достигнута 40 позиция в текущей строке.
Program Stroka; { Stroka - имя программы }
Uses crt;
procedure Str_Simw; { Str_Simw - имя процедуры }
begin
while wherex<40 do write('$'); { - тело процедуры }
writeln
end;
Begin
clrscr;
Str_Simw; { - вызов процедуры (два раза)}
Str_Simw;
Readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить пример.
2. Взять любую программу суммирования числового ряда и часть программы описать с помощью процедуры.
3. Применить процедуру Str_Simw для подчеркивания.