Похожие работы на «Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x »
Программа эмуляции развития популяций животных
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат
... Х экрана y - расположение по координате Y экрана age - возраст точки col - цвет вывода на экран Задействованы функции: daizwet - получение цвета
... 1+x; if g>4000 then begin key:=true; end; end else begin end; end; end; {*} procedure hnew; begin I:=0; REPEAT I:=I+1; begin x:=hr[i].getx; y:=hr[i] ...
Программа эмуляции развития популяций животных
Зоология, Программа эмуляции развития популяций животных,
... Х экрана y - расположение по координате Y экрана age - возраст точки col - цвет вывода на экран Задействованы функции: daizwet - получение цвета
... integer); Begin x:=x0; y:=y0; End; Function Tposition.Getx:integer; Begin GetX:=x End; Function Tposition.Gety:integer; Begin Gety:=y End; Constructor ...
Модули и объекты в языке Турбо Паскаль 7.0
Программирование и комп-ры, Модули и объекты в языке Турбо Паскаль 7.0 , Работа Курсовая
... x.re - y.re; z . im := x.Im - y. Im; end {SubC}; PROCEDURE MulC; begin z.re := x.re * y.re - x.im * y.im; z.lm := x.re * y.im + x.im * y.re; end {MulC
... DivC; var zz : real; begin zz :=sqr(y.re) + sqr(y.im); z.re := (x.re * y.re + x.im * y.im) / zz; z.lm := (x.re * y.im - x.lm * y.re) / zz; end {DIvC} ...
Обработка экономической информации средствами языка Pascal
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая
... составного оператора begin.end end; Завершение процедуры вывода заставки end; Процедура вывода сообщения об ошибке - error: begin Обнуление счетчика i ...
... 27 then begin menu; goto menu2 end Иначе выполняется процедура выхода - exitt else begin exitt; Завершение составного оператора begin.end end Если l ...
Программатор ПЗУ (программный интерфейс)
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс),
... в процедуре Color |Переменная |Назначение | |C1 |Цвет символа | |С2 |Цвет экрана | 3. Процедура Loc - позиция курсора на экране Таблица 2.2 Переменные ...
... 08)) Then Begin If y<>9 Then Begin zs[y]:=Key; Wrt(key+'-'); inc(y); End; End Else If y<>1 Then Begin dec(y); Loc(25+y,12); zs[y]:=' '; Wrt('- '); End ...
Паскаль (практическое использование)
Программирование и комп-ры, Паскаль (практическое использование), Реферат
... end; label { раздел описания меток } finish; var {Описания раздела переменных} D:record end; f:text; { файл итогов опроса} a,b:integer; {переменные a, ...
... Error { Процедура вывода ошибки } end; {конец составного оператора} TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста ...
Записная книжка на Delphi 7
Программирование и комп-ры, Записная книжка на Delphi 7 , Работа Самостоятельная
... not'); // Сохранить предыдущий текст с //именем которое ввели в окне сохранения файла memo1.Clear(); //Очистить компонент Memo от предыдущего текста ...
... x, y: integer; tempstr: string; begin assignfile(f, 'Base.zap'); // открыть файл "Base" reset(f); // Сбить файл readln(f, temp); //Прочитать файл ...
Языки и технологии программирования
Программирование и комп-ры, Языки и технологии программирования, Курсовая
... вывода на экран дуг (частей окружностей) | | |с произвольным начальным углом, цветом и | | |координатами центра | |demobars |функция вывода на экран ...
... Y; if Location>Delta.Y+pred(Size.Y) then Location:= Delta.Y+pred(Size.Y); for n:= 0 to pred(Size.Y) do {Size.Y- кол-во строк окна} begin k:= Delta.Y+n ...
Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним
... графическим режимом ; 2) функции управления графическим режимов; 3) процедуры управления экраном, окном, страницей; 4) процедуры управления цветом и ...
... Модуль RAZDEL2 Модуль RAZDEL5 Модуль RAZDEL7 Модуль RAZDEL4 Модуль RAZDEL6 Процедура RAZDEL10 Процедура RAZDEL20 Процедура RAZDEL30 Процедура RAZDEL40 ...
Программирование на Delphi
Программирование и комп-ры, Программирование на Delphi , Рефераты
... Begin Result:=fData; End; function tIntegerFiled.GetData: string; Begin Result:=IntToStr(fData); End; function tExtendedFiled.GetData: string; Begin ...
... Основные разделы Железо: > раздел hardware Обзоры программ: > раздел software Программирование: > раздел programming Операционные системы: > раздел ОС ...
