Похожие работы на «Программирование алгоритмов линейной структуры»

Программирование алгоритмов линейной структуры
Программирование и комп-ры, Программирование алгоритмов линейной структуры, Методические указания ... A '); readln(a); a:=sin((sqrt(abs(exp(5*ln(x))+a))))/(exp(- x)+exp(9))/cos(sqrt(abs(exp(5*ln(x))+a)))/(exp(-x)+exp(9)); y:=3.14*(a)-1.65*exp(-x
*a)+0.33*ln((sqr(x)+1)/(sqr(x)+pi)); writeln('Значение Y ', y:3:3); readkey; end.


Основные понятия алгоритмического языка
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая ... pBegin; repeat writeln(pAux^.sD); pAux:=pAux^.pNext; until pAux=NIL; writeln; writeln('ВВЕДИ КЛЮЧ ДЛЯ ВСТАВКИ СТРОКИ'); readln(sKey); writeln('ВВЕДИ
... readln(sC); InsComp(sKey,sC); writeln; writeln('ВВЕДИ КЛЮЧ УДАЛЯЕМОЙ СТРОКИ'); readln(sKey); DelComp(sKey,pBegin); writeln; writeln(' ***** ВЫВОД ...


Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления
Технология, Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления, ... 1 to 4 do Writeln; Writeln(' Параметры АД:'); Writeln; Writeln(' As =',A1:6,' Ar =',A2:6); Writeln(' Ks =',K1:6,' Kr =',K2:6); Writeln(' Ls`=',L11:6, ...
... K1/L21*x[1]; I21b:=x[4]/L21-K1/L21*x[2]; I21:=Sqrt(sqr(I21a)+sqr(I21b)); I0a:=I1a+I21a;I0b:=I1b+I21b; I0:=sqrt(sqr(I0a)+sqr(I0b)); t:=t+dt; PutPixel( ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... 5.5; u:=2.3; v:=0.8; writeln('Протокол работы програмы'); writeln('вычисление значений a и b'); a:=(x+y/(5+sqrt(x)))/abs(y-sin(x)+sqrt(x))+5*arctan(x) ...
... К=0, значение переменной Y равно ',y:6:3); end; if k=1 then begin y:=exp(sin(x)*ln(2)); writeln('К=1, значение переменной Y равно ',y:6:3); end; if k= ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... Четверг'); Fri: writeln('Пятница'); Sat: writeln('Суббота'); Sun: writeln('Воскресенье'); NoDay: writeln('Такого дня нет в календаре'); end; until ...
... c.z:=a.z+b.z; end; procedure VecSub(a,b: tVec3D; var c: tVec3D); begin c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z; end; procedure VecMultNum(k: real; a: ...


Контрольная по информатике [нестрогое соответствие]
Программирование и комп-ры, Контрольная по информатике, Контрольная ... VAR_A,B,C,H,P,X,Y:REAL; BEGIN WRITELN("Введите значения a и b"); READLN(A,B); WRITELN("Введите шаг Н и число С"); READLN(H,C); X:=A; P:=1; WHILE_X<=B_ ...
... схему и написать программу вычисления значения у(х) для любого значения аргумента х. sin2?x+cos?x,, если x > 5 y = x3+x2+1, если x ? 1 PROGRAM_LR2; ...


Разработка модели технологического процесса получения ребристых труб и ее апробация [нестрогое соответствие]
Технология, Разработка модели технологического процесса получения ребристых труб и ее апробация, ... VremZal:=A*pow(Co,M); Tn:=(TempZal+TLikv)/2; T1:=sqr((C1*Ro1*Ro*(Tn-Tlikv)/(1.128*Bf*(Tn-Tf)))+sqrt(VremZal)); T3:=sqr(Le*Ro3*Ro/(1.13*Bf*(Tevt-Tf) ...
... spis[1].X); writeln(fil,spis[1].Y); writeln(fil,spis[2].X); writeln(fil,spis[2].Y); writeln(fil,spis[3].X); writeln(fil,spis[3].Y); writeln(fil,spis[4 ...


Вычислительная практика I курс [нестрогое соответствие]
Программирование и комп-ры, Вычислительная практика I курс, Реферат ... a,b,c,S,p,r :Real; Begin Clrscr; Writeln( "Введите размер катета a:" ); Readln(a); Writeln( "Введите размер гипотенузы, который больше катета (a) c: ...
... ты x и y " ); Readln (x,y); t:=sqrt(sqrt(sqr(y)+sqrt(x)))*(ln(x*y))*2E-5; Writeln ( " Значение t=",t:3:3); c:=2.2*sin(abs(x))/cos(abs(x))*(sqr(y)-2.25 ...


Лекция по паскалю [нестрогое соответствие]
Программирование и комп-ры, Лекция по паскалю, Лекция ... b = _ 144 Program _ prim; сlrscr - оператор гашения экрана; var a, b: integer; x ,y: real; begin writeln (" введите a, b "); readln ( a, b); x: = a ...
... x); if x>90 then writeln ("функция не определена") else begin if x<0 then y: = 0 else y: = SIN (x*PI/180); writeln ("y = ",y:8:3); end; (составной ...


Основы программирования на языке Паскаль [нестрогое соответствие]
Программирование и комп-ры, Основы программирования на языке Паскаль, Реферат ... 2/A; | |X2:=(-B-SQRT(D))/2/A; | |Writeln ('X1=', X1:8:3, ' X2=',X2:8:3) | |End | |End. | | Интересно, что в качестве оператора, который выполняется по ...
... уравнения (A, B, C) '); | |If A=0 Then | | If B=0 Then | |If C=0 Then Writeln('X - любое число') | |Else Writeln('Корней нет! ') | | Else Begin X:=-C/ ...