Похожие работы на «Паскаль (практическое использование)»

Паскаль (практическое использование)
Программирование и комп-ры, Паскаль (практическое использование), Реферат ... 11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в
... 10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в


Обработка экономической информации средствами языка Pascal
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... Остаток на'); gotoxy(w+35,5);writeln('конец года'); textcolor(9); gotoxy(w-16,6); write('- '); Установка цвета символов и текстового экрана для вывода ...
... if c=#121 then begin write('Вводим новое:'); read(nn);a.e3:=nn; end; writeln; writeln('Изменить цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin ...


Из опыта создания универсальных тестовых редакторов
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... If z>=90 Then Begin Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then Begin Writeln('4') Writeln(b1,"4"); End; else If z>=40 Then Begin Writeln('3 ...
... oform; Begin TextBackGround(green); {установка цвета фона} clrscr; TextColor(red); {цвет текста} GoToXY(20,10); {перевод курсора в нужную позицию} ...


Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним ... СЕАНС'); GotoXY(64,6); writeln(ball3[1]); GoToXY(75,6); writeln(ball3[2]); GoToXY(64,8); writeln(ball4[l]); GoToXY(75,8); writeln(ball4[2]); GoToXY(64 ...
... l]); GoToXY(75,12); writeln(bal16[2]); GoToXY(64,14); writeln(bal17[l]); GoToXY(75,14); writeln(ball7[23) GoToXY(64,18); writeln(tog[l]); GoToXY(75,18 ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... Item.Size, Item.Date); if Item.Attributes = 1 then if DirTree.Selected <> nil then begin if DirTree.Selected <> nil then Node := DirTree.Selected. ...
... 10);FloodFill(routers[2].x,routers[2].y,whi te); Circle(routers[3].x,routers[3].y,10);FloodFill(routers[3].x,routers[3].y,whi te); Circle(routers[4].x ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... name); i:=1; f:=0; assign(ff,'airport.dat'); reset(ff); repeat read(ff,buf); if buf.fio=name then begin clrscr; writeln(' Информация о пассажире: ...
... Подтверждение д/н-'); with buf do begin gotoxy(29,2);readln(numreis); gotoxy(29,3);readln(kuda); gotoxy(29,4);readln(time); gotoxy(29,5);readln(price) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... объекта init Тип Tosob имеет четыре параметра: x - расположение по координате Х экрана y - расположение по координате Y экрана age - возраст точки col ...
... IF COL=3 THEN COLO:='ГОЛУБОЙ'; IF COL=4 THEN COLO:='КРАСНЫЙ'; IF COL=5 THEN COLO:='ФИОЛЕТОВЫЙ'; IF COL=6 THEN COLO:='КОРИЧНЕВЫЙ'; IF COL=7 THEN COLO: ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... объекта init Тип Tosob имеет четыре параметра: x - расположение по координате Х экрана y - расположение по координате Y экрана age - возраст точки col ...
... ЧЕРНЫЙ'; IF COL=1 THEN COLO:='СИНИЙ'; IF COL=2 THEN COLO:='ЗЕЛЕНЫЙ'; IF COL=3 THEN COLO:='ГОЛУБОЙ'; IF COL=4 THEN COLO:='КРАСНЫЙ'; IF COL=5 THEN COLO: ...


Турбо Паскаль 7.0 [нестрогое соответствие]
Программирование и комп-ры, Турбо Паскаль 7.0, Реферат ... Age < 20) then begin WriteLn (Reply21); WriteLn (Reply22) end; if (20 <= Age) and (Age < 40) then WriteLn(Reply3); if Age >= 40 then WriteLn(Reply4) ...
... на 1, если 5x-3y<1, то на 1 увеличивается х. Program Diophant; var х, у: byte; begin x:=1;y:=1; repeat if(5*x-3*y)>1theny:=y+1; if (5 * x - 3 * у) < 1 ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... присваивания, вызова процедуры), либо т.н. составной оператор, состоящий из нескольких простых операторов, помещённых между словами begin и end.
... Четверг'); Fri: writeln('Пятница'); Sat: writeln('Суббота'); Sun: writeln('Воскресенье'); NoDay: writeln('Такого дня нет в календаре'); end; until ...