Похожие работы на «Розробка та виконання програм на мові Pascal»

Розробка та виконання програм на мові Pascal
Программирование и комп-ры, Розробка та виконання програм на мові Pascal, Лекция ... ln(t); if t<-3 then obch:=exp(a)+a*b; if ((t<=3) and (t>=-3)) then obch:=sin(t)/cos(t)+sqrt(a*b+b); end; begin clrscr; t:=t1; y:=obch(t); writeln('при ...
... var y,t:real; function obch(t:real):real; begin if t>3 then obch:=exp(t)/ln(t) else if t<-3 then obch:=exp(a)+a*b else obch:=sin(t)/cos(t)+sqrt(a*b+b) ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... Gx и Gy в точке [x,y] } procedure TMainForm.DefGradient(var Gx, Gy: real; x,y: word); var a, b, c, d, e, g, h, i: byte; begin with Image.Canvas do ...
... Pixels[x,y-1] = clBlack then b := 0 else b := 1; if Pixels[x+1,y-1] = clBlack then c := 0 else c := 1; if Pixels[x-1,y] = clBlack then d := 0 else d ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... M] else if (y mod 4)<>0 then DayInMonth:=28 else if (y mod 100)<>0 then DayInMonth:=29 else if (y mod 400)<>0 then DayInMonth:=28 else DayInMonth:=29 ...
... stime(st); until not DTErr; gotoxy(11,y+1); writeln(stime(st) div 60,':',stime(st) mod 60); end; procedure writedat(b:dat); begin write(b.time div 60, ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... c,p,q,x); writeln('a=', a,', b=',b,', c=',c,', p=',p,', q=',q,', x=',x:6:3); m:=(a+b+c+p) div q; k:=m mod 9; if k=0 then begin y:=sqrt(arctan(4.7*x)/x ...
... exp(cos(x)*cos(x)*ln(x)); writeln('К=0, значение переменной Y равно ',y:6:3); end; if k=1 then begin y:=exp(sin(x)*ln(2)); writeln('К=1, значение ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x:=tg[i].getx; y:=tg[i].gety; x:=x+(random(3)-1); y:=y+(random(3)-1); if x<5 then x:=6;if x>635 then x:=634;if y<17 then y:=18; if y>480 then y:=479
... 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: ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... end; x:=tg[i].getx; y:=tg[i].gety; x:=x+(random(3)-1); y:=y+(random(3)-1); if x<5 then x:=6;if x>635 then x:=634;if y<17 then y:=18; if y>480 then y
... ЧЕРНЫЙ'; 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: ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... подсчета результата записана так: z:=p*100 div z; {расчет количества правильных ответов} Writeln('количество правильных ответов: ',p); Write('оценка ...
... и цикл с параметром от 0 до 2} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin {вывод редактируемого вопроса на экран} Read(c ...


Быстрые алгоритмы сортировки [нестрогое соответствие]
Программирование и комп-ры, Быстрые алгоритмы сортировки, Курсовая Procedure ConSwap(i, j : Integer); Var b : Real; Begin If a[i] < a[j] then begin b := a[i]; a[i] := a[j]; a[j] := b end End; Procedure Conflict(i, k ...
... low; j:= hi; x:= a[i]; While i< j do if a[i+1]<=x then begin a[i]:= a[i+1]; a[i+1]:=x; i:= i+1; end else begin if a[j]<=x then begin y:=a[j]; a[j]:=a


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... новое:'); read(nn);a.e3:=nn; end; writeln; writeln('Изменить цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a. ...
... Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c:=readkey; ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... cell_place.x:=x; cell_place.y:=y; write(' '); end; '#' : begin write(' '); i[arg_edit]:=i[arg_edit]+1; marker_place[arg_edit,i[arg_edit]].x:=x; marker ...
... a>='0') and (a<='9')) or (a='.') then begin LI[y]:=a; write(a); y:=y+1 end; if a=#8 then begin y:=y-1; gotoXY(ad.x+y-1,ad.y); write(' '); gotoXY(ad.x+ ...