АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Практическое задание N 1. 35

Читайте также:
  1. Window(x1, y1, x2, y2); Задание окна на экране.
  2. В основной части решается практическое задание.
  3. Глава 1. Первое практическое занятие по методу ПМТ
  4. Домашнее задание
  5. Домашнее задание
  6. Домашнее задание
  7. Домашнее задание
  8. Домашнее задание
  9. Домашнее задание
  10. Домашнее задание
  11. Домашнее задание
  12. Домашнее задание

 

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;

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.017 сек.)