Похожие работы на «Курсовая работа программирование на Pascal»

Курсовая работа программирование на Pascal
Программирование и комп-ры, Курсовая работа программирование на Pascal, Курсовая ... OF BYTE= (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); var d0,d, {Дни рождения и месяцы} m0,m, {Месяцы рождения и текущий} y0,y, {Годы рождения и ...
... дата должна быть позже даты рождения)} var correctly: boolean; {Признак правильности ввода} {-} PROCEDURE InpDate (text: string; var d,m,y: integer) ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... весь календарь значениями "нет дня":} for m:=1 to 12 do for d:=1 to 31 do CL[m,d]:=NoDay; {2. Строим массив-календарь:} m:=1; d:=1; wd:=Mon; repeat CL ...
... 7,8,10,12: if d=31 then begin m:=m+1; d:=1; end else d:=d+1; 2: if d=28 then begin m:=m+1; d:=1; end else d:=d+1; end; wd:=tWeekDay((ord(wd)+1) mod 7) ...


Линейное программирование: решение задач графическим способом [нестрогое соответствие]
Программирование и комп-ры, Линейное программирование: решение задач графическим способом, Курсовая ... 0 then begin{исклюсаем бесчисленное мн-во решений} outX:=dx/_d; outY:=dy/_d; end; if (_d = 0) and ((dx = 0) xor (dy = 0)) then begin{исклюсаем - нет ...
... которой содержит n неизвестных и m линейно независимых уравнений, если N и M связаны соотношением N - M = 2. Действительно, пусть поставлена задача ...


Объективное программирование [нестрогое соответствие]
Программирование и комп-ры, Объективное программирование , Лекции ... Си. //- структура dat - аналог класса объектов "дата" -typedef struct dat { unsigned day; unsigned month; unsigned year; } DAT; //----- набор функций ...
... выше пример в другой форме: //- структура dat - аналог класса объектов "дата" --struct dat { unsigned day; unsigned month; unsigned year; int TestData ...


Экзаменационные билеты по трем предметам из раздела программирования и компьютеров за декабрь 2000 г [нестрогое соответствие]
Программирование и комп-ры, Экзаменационные билеты по трем предметам из раздела программирования и компьютеров за декабрь 2000 г, Билеты ... 100; type vector = array [1 . . n] of real; Var a, b, c, d : vector; Опишите процедуру sum (x, y, z), которая присваивает вектору z сумму векторов х и ...
... программа program dynamic Var x : ^ boolean; y : boolean; begin {A} new (x); {B} x ^ : = true; y : = not x ^; {C} dispоse (x); {D} writeln (y) end.


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад 8. Таблица 8 |Операция|Тип операндов |Тип результата |Пример | |+ |Integer, real |integer, real |X + Y | |- |Integer, real |integer, real |Result - 1 ...
... 3); {a= 81, d= -3} Пример показывает, что два, казалось бы, корректных способа обраще-ния к функции дают тем не менее разные результаты вычислений.


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... r:citycode; function min(a:mcost):longint; {Минимальная стоимость по классам} var i:integer; m:longint; begin m:=1000000000; for i:=1 to Mclass do if ...
... ReadLn(St); SDate(st,d); Until not DTErr; GotoXY(10,y); writeln(d.day,'.',d.month,'.',d.year,' ',Rweek[Dweek(d)]); repeat gotoxy(1,y+1); write('"аҐ=п ...


Основные понятия алгоритмического языка [нестрогое соответствие]
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 2) _ подчеркивание 3) 10 цифр:
... F-} Procedure Simps(F:Func; a,b:Real; N:Integer; var INT:Real); var sum, h: Real; j:Integer; begin if Odd(N) then N:=N+1; h:=(b-a)/N; sum:=0.5*(F(a)+F ...


Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x [нестрогое соответствие]
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним ... byte); {процедура создания окна меню} Label Met; Const Kr=9; Var M:array[l..Kr] of string[60]; I,T:byte; Ch:char; Fl:boolean; begin Cursor(False); Fl: ...
... 30)); Mno:array[1..5] of PointType=((X:460;Y:170),(X:590;Y:230), (X:590;Y:260),(X:430;Y:260),(X:460;Y:170)); {Константы для формирование иллюстраций к ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... June','July','August','September','October','November', 'December'); var d:string[10]; s:string[30]; s1:string[3]; begin write('Enter date (dd:mm:yyyy ...
... random(frmlesson.Height); if (x in [pic1.Left..pic1.Left+pic1.Width]) or (y in [pic1.Top..pic1.Top+pic1.Height]) then exit; q:=frmlesson.canvas.pixels ...