Похожие работы на «Лабораторная работа №6»

Программатор ПЗУ (программный интерфейс)
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... begin if (p>0)or(l1<>0)then dec(p); if p<0 then begin dec(l1,16); p:=15; goto RePaINt; end; end; $49: begin if (l1>319) then begin dec(l1,320) end ...
... Then If (Key<>chr(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] ...


Лабораторная работа №6
Программирование и комп-ры, Лабораторная работа №6, Реферат ... x,y:real; begin x:=-3; for i:=1 to 12 do begin if x<0 then y:=sqrt(3)*x/3; if x>1 then y:=ln(x); if(x>=0) and (x<=1) then y:=0; writeln('y=',y); x:=x+ ...
... 00 y=-1.4433756730E+00 y=-1.1547005384E+00 y=-8.6602540379E-01 y=-5.7735026919E-01 y=-2.8867513460E-01 y= 0.0000000000E+00 y= 0.0000000000E+00 y= 0. ...


Аппроксимация
Программирование и комп-ры, Аппроксимация, Курсовая ... 1;end; p:=0; for j:=1 to n do begin if p1[j]>0 then begin if abs(a[r,j])>p then begin p:=abs(a[r,j]);s:=j;end; end;end; if p=0 then begin writeln(fo, ...
... 1 |-1 |0 |-2 | |y4= |0 |1 |0 |2 | |y5= |2 |1 |0 |4 | |z= |-4 |-4 |0 |0 | | |-x1 |-y4 |-x3 |1 | |0= |-2 |1 |1 |0 | |y2= |1 |1 |0 |1 | |y3= |-1 |1 |0 |0


Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним ... ball5[nomer5]; K[nomer5]:=K[nomer5]+1; end; end; 6:begin NOMER6:=NOMER6+1; If NOMER6<3 then begin RAZDEL60; ball6[nomer6]:=rez6; Itog[nomer6]:=Itog[ ...
... X:0;Y:0),(X:640;Y:0), (X:640;Y:350), (X:0;Y:350),(X:0;Y:8),(X:5;Y:8), (X:5;Y:345), (X:635;Y:345),(X:635;Y:5),(X:0;Y:5), (X:0;Y:0)); begin SetColor(14) ...


Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления
Технология, Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления, ... 2':begin SetActivePage(1);SetVisualPage(1); CopyToPRN; end end; SolveDiagram; end; 'Q','q':quit else SetColor(GetMaxColor); SetVisualPage(0); end end; ...
... if AComponent=0 then begin if BComponent>0 then IntAngle:=90 else IntAngle:=-90; end else if BComponent=0 then begin if AComponent>0 then IntAngle:=0 ...


Линейное программирование: решение задач графическим способом [нестрогое соответствие]
Программирование и комп-ры, Линейное программирование: решение задач графическим способом, Курсовая ... Frac(N.b / k) = 0) then begin if (Frac(N.y / k) = 0) then if (j=k) then begin N.b:=N.b / k; N.x:=N.x / k; N.y:=N.y / k; Break; end end; k:=k-1; until ...
... бесчисленное мн-во решений} outX:=dx/_d; outY:=dy/_d; end; if (_d = 0) and ((dx = 0) xor (dy = 0)) then begin{исклюсаем - нет решений} SetColor(Red


Турбо Паскаль 7.0 [нестрогое соответствие]
Программирование и комп-ры, Турбо Паскаль 7.0, Реферат ... приветствия} WriteLn('How old are you?'); {Вопрос о возрасте} ReadLn(Age); {Ввод возраста} if 12 < Age then WriteLn(Reply1 ); if (12 <= Age) and (Age ...
... это с помощью так называемых "программных скобок" - операторов begin и end. begin <оператор1>; < оператор 2>; < оператор М> end; Любая группа ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... правильных ответов} Writeln('количество правильных ответов: ',p); Write('оценка '); {выставление оценки} If z>=90 Then Begin Writeln('5') Writeln(b1, ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... l не равна 1 и 2, а равна 3, то выполняется алгоритм добавления записи else if l=3 then begin Очистка экрана, установка цвета фона и символов и вывод ...
... delay(1000); writeln('Reload-'); write('Exit-'); c:=readkey; if c=#27 then begin menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... e:=length(st); i:=1; mode:=0; a:=0; while (i<=e) do begin c:=ord(st[i])-ord('0'); if ((mode mod 2)=0) and (c>=0) and (c<=9) then begin S:=c; inc(mode) ...
... 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 ...