2015-04-20
273
1. Создать на экране несколько рядов разворачивающихся по горизонтали. либо по вертикали окон разного цвета с надписями.
2. Вывести на экране несколько рядов карточек со случайными номерами цветов, в различных диапазонах для каждого ряда. В центре экрана вывести окно с сообщением о количестве рядов с одинаковым цветом карточек.
Приведем пример операторов для построения орнаментов.
Для построения орнаментов в текстовом режиме удобно использовать массив N1xN2 значений из нулей и единиц, записанных в файле.
Например, при N1=3, N2=5, можно записать в текстовом редакторе файл 0 0 1 0 0
со значениями: 0 1 0 1 0
1 1 1 1 1
В программе следует открыть файл с орнаментом и считать значения в массив, например:
for i:= 1 to N1 do begin for j:= 1 to N2 do read(f, a[ i, j ]); readln(f) end;
где f - файловая переменная, a[i, j] - элемент массива N1xN2.
Орнамент можно разместить в окне, например, операторами:
Window(x1, y1, x1+N2, y1+N1); TextBackGround(Green); ClrScr;
for i:= 1 to N1 do
for j:= 1 to N2 do if a[i,j] <> 0 then begin GotoXY(j,i); write(#219) end;
Приведем примеры операторов, позволяющих строить в текстовом режиме горизонтальные и вертикальные гистограммы. Пусть требуется построить N значений функции Y=Sin(x); на интервале от 0 до Pi.
|
|
|
1) Определим дискретные значения "х" и "Y".
for i:= 0 to N do begin x[i]:= Pi*i/N; Y[i]:=Sin(x[i]) end;
2) Определим наибольшее значение функции "Y": Y_max:=1; и размеры окна:
xm:= lo(WindMax)+1; ym:= hi(WindMax)+1;
 |
3) Определим коэффициенты масштабирования по осям X и Y:
 | |||
 |
km_x:= (xm-5)/Y_max; km_y:= (ym-5)/Y_max;
4) Для построения вертикальной гистограммы
можно использовать операторы:
for i:=0 to N do begin Yg:=round(km_y*Y[i]); { графические значения Y[i]}
for j:=1 to Yg do begin GotoXY(i, ym-j); { переход на новую строку }
write (#219) { рисуем вертикальный столбик }
end end;
5) Для построения горизонтальной гистограммы
можно использовать операторы:
for i:=0 to N do begin Yg:=round(km_x*Y[i]); { графические значения Y[i]}
GotoXY(1, i+1); { переход на новую строку }
for j:=1 to Yg do write (#220) { рисуем горизонтальный столбик}
end;
