Составить процедуру. "Рисующую" на экране вертикальную линию из любого числа символов " * "

@boxer_001 · Регистрация: 05.11.2010

Составить процедуру. "Рисующую" на экране вертикальную линию из любого числа символов " * ".

@Puporev · 17.11.2010, 17:09

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

из любого числа символов " * ".

А если это число больше 25?

@boxer_001 · 17.11.2010, 17:17 **[ТС]**

ну лучше было бы если бы число было меньше 25.

@Puporev · 17.11.2010, 17:26

Pascal

uses crt;
procedure Line(x,y,k:byte);
var i:byte;
begin
clrscr;
for i:=y to y+k do
 begin
  gotoXY(x,i);
  write('*');
 end;
end;
var x,y,k:byte;
begin
clrscr;
repeat
write('Расстояние от левого края экпана от 1 до 80 x=');
readln(x);
until x in [1..80];
repeat
write('Верхняя точка линии от 1 до 23 y=');
readln(y);
until y in [1..23];
repeat
write('Длина линии от 1 до ',25-y,' k=');
readln(k);
until k in [1..25-y];
Line(x,y,k);
readln
end.

@boxer_001 1 / 1 / 0 Регистрация: 05.11.2010 Сообщений: 9
		1
	Составить процедуру. "Рисующую" на экране вертикальную линию из любого числа символов " * " 17.11.2010, 16:43. Показов 2896. Ответов 3 Метки нет (Все метки) Составить процедуру. "Рисующую" на экране вертикальную линию из любого числа символов " * ". __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Puporev Почетный модератор 64271 / 47570 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	17.11.2010, 17:09	2
	Сообщение от boxer_001 из любого числа символов " * ". А если это число больше 25? 0

@boxer_001 1 / 1 / 0 Регистрация: 05.11.2010 Сообщений: 9
	17.11.2010, 17:17 [ТС]	3
	ну лучше было бы если бы число было меньше 25. 0

Опции темы