Похожие работы на «Разработка базы данных, отражающей учет успеваемости студентов »

Разработка базы данных, отражающей учет успеваемости студентов
Программирование и комп-ры, Разработка базы данных, отражающей учет успеваемости студентов , Работа Курсовая ... 3);gotoxy(8,tek+3);write(nast.st[tek]); if ch='+' then tek:=tek+1 else tek:=tek-1; if tek=1 then tek:=nast.m else if tek=nast.m+1 then tek:=2; key:=#0 ...
... m); tek:=2; end; 8:begin nast:=menu4; menus(nast,nast.m); tek:=2; end; 9: begin exist:=true; end; end; end else if nast.st[1]=menu3.st[1] then begin ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... c>=0) and (c<=9) then begin S:=c; inc(mode) end else if (c<=9) and (c>=0) then S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) ...
... y mod 100)<>0 then DayInMonth:=29 else if (y mod 400)<>0 then DayInMonth:=28 else DayInMonth:=29 end; Function DayDiffer(A,B:dat):Integer; Var m1,m2, ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... c:=readkey; textmode(Co80); if c=#27 then begin menu; goto menu2 end else exitt; end else {-Заново- -} if l=2 then begin clrscr; textbackground(14) ...
... Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c:=readkey; ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... 1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{есть нетерминал} Blank; If not (s[i ...
... NotT);{в общий список теминалов&нетерминалов} inc(CTrmNotTrm); End; Blank; Goto OrS; End Else Begin Error(8);{нет нетерминала или терминала} Goto New; ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; ...
... 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: ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; ...
... ЧЕРНЫЙ'; 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: ...


СУБД автостоянка на Паскале [нестрогое соответствие]
Программирование и комп-ры, СУБД автостоянка на Паскале, Курсовая ... procedure Openfile; var rez:integer;ch:char; begin while rez<>0 do begin writeln('Задайте имя файла'); readln(filename); assign(f,filename); reset(f) ...
... y') or (k='Y') then while not eof(f) do begin read(f,st); clrscr; writeln('Фамилия хозяина:',st.Sname_Hozaina); writeln('Имя хозяина:',st.Name_Hozaina ...


Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры [нестрогое соответствие]
Программирование и комп-ры, Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с ... ... crx,cr_type,false); | |if promah then promah:=false; | |end else begin | |if cr_ind mod cr_type*5=0 then begin | |if promah then begin | |if flang=0 ...
... crx,cr_type,false); | |swim:=false; | |end; | |end else begin | |crx:=crx+1; | |Sheep(croldx,cr_type,false); | |Sheep(crx,cr_type,true); | |croldx: ...


Численное решение модельного уравнения диссипации, конвекции и кинетики [нестрогое соответствие]
Математика, Численное решение модельного уравнения диссипации, конвекции и кинетики, Контрольная ... по времени от: '); If Data=1 then begin t0:=0; Write(t0:1:0); WriteLn; end else ReadLn(t0); Write(' до: '); If Data=1 then begin T:=1; Write(T:1:0) ...
... Kol_voT:2); WriteLn; end else ReadLn(Kol_voT); WriteLn;WriteLn; WriteLn(' Введите коэффициенты'); Write(' a='); If Data=1 then begin a:=1; Write(a:1:0 ...


Курсовая работа по базе данных СУБД [нестрогое соответствие]
Программирование и комп-ры, Курсовая работа по базе данных СУБД, Курсовая ... procedure Openfile; var rez:integer;ch:char; begin while rez<>0 do begin writeln('Задайте имя файла'); readln(filename); assign(f,filename); reset(f) ...
... y') or (k='Y') then while not eof(f) do begin read(f,st); clrscr; writeln('Фамилия хозяина:',st.Sname_Hozaina); writeln('Имя хозяина:',st.Name_Hozaina ...