Помогите решить...
А вот и задача:
Написать процедура, которая выводит на экран рамку. В качестве параметров процедуры должны передаваться координаты левого верхнего угла рамки и ее размер (не используя машинную графику.
И еще вопрос, как мне сделать, чтобы объект, например круг, залить каким-то цветом и чтобы этот цвет менялся с черным с определенной периодичностью ???...
Буду очень благодарен...
Очень большая просьба помогите написать код задачи на TurboPascal 7.0 ...
А вот и задача:
Написать процедура, которая выводит на экран рамку. В качестве параметров процедуры должны передаваться координаты левого верхнего угла рамки и ее размер (не используя машинную графику.
Uses Crt;
Var i,x,y,r:Integer;
Begin
Window(1,1,80,25);
ClrScr;
Write('Levogo verhnego: x: '); ReadLn(x);
Write('Levogo verhnego: y: '); ReadLn(y);
Write('Razmer: '); ReadLn(r);
ClrScr;
GoToXY(x,y); Write(#218 );
For i:=x+1 To x+(r*5)-1 Do Write(#196); Write(#191);
For i:=y+1 To y+r-1 Do
Begin
GoToXY(x,i); Write(#179);
GoToXY(x+(r*5),i); Write(#179);
End;
GoToXY(x,y+r); Write(#192);
For i:=x+1 To x+(r*5)-1 Do Write(#196); Write(#217);
Window(x+1,y+1,x+(r*5)-1,y+r-1);
Write('TEXT');
ReadKey;
End.
Большое спасибо что помогли, но ваш код не дал того результата который просился в задаче, в задаче просят вывести рамку, а у вас выводит просто некоторые части рамки. и что обозначает Write( #218 ) ?
СМОТРИ ASCII.Write-Написать #218 код символа по ASCII ,то же самое что и write(CHR(218)).
СМОТРИ ASCII.Write-Написать #218 код символа по ASCII ,то же самое что и write(CHR(218)).
Вот именно, смотри аски коды... (т.к. ты просил без графики)
а #218 в данном случае - это левый верхний угол
for CrazyTimon:
Весь наш мир матрица......найти бы её исходник. :o
трудно будет его достать... :P
Вот именно, смотри аски коды... (т.к. ты просил без графики)
а #218 в данном случае - это левый верхний угол
Большое спасибо... !!!
Написать программу "угадай число". Правила игры такие: играет двое, один загадает число, другой - угадает. На каждом шаге тот, кто угадует делает предположение, а комп - говорит, сколько цифр числа угадано и сколько из них занимают правильное положение в записи числа и так пока не угадают чило...
Поиск рулит: ключевые слова "исходник быки и коровы"
Вот, например: http://www.distedu.ru/mirror/_math/algolist.manual.ru/misc/bullcow.php