Похожие работы на «Отчет по практике по Turbo Pascal »

Отчет по практике по Turbo Pascal
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... writeln('',k,' ',l,' ',m,'':30,'K=',k:3,' L=',l:3,' M=',m:3); writeln; writeln('':25,'Введите вещественные числа A,B,C,D,E,F:'); readln(a,b,c,d,e,f) ...
... a,b,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* ...


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


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... I:=0; REPEAT I:=I+1; begin x:=hr[i].getx; y:=hr[i].gety; At:=hr[I].DAIAGE; CTp:=hr[I].DAIZWET; if (z mod 365)=0 then BEGIN at:=at+1; {Happy New Year! ...
... Function Tposition.Gety:integer; Begin Gety:=y End; Constructor Tosob.Init(x0,y0,age0:integer;col:word); Begin Tposition.Init(x0,y0); AGE:=AGE0; color ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... getx; y1:=tg[k].gety; at1:=tg[k].daiage; ct1:=tg[k].daizwet; tg[k].done; tg[k-1].init(x1,y1,at1,ct1); tg[k-1].show; until k>=g; TG[G].INIT(0,0,0,0); G ...
... Function Tposition.Gety:integer; Begin Gety:=y End; Constructor Tosob.Init(x0,y0,age0:integer;col:word); Begin Tposition.Init(x0,y0); AGE:=AGE0; color ...


Лабораторная работа по информатике, вариант №13, с методическим пособием.zip [нестрогое соответствие]
Программирование и комп-ры, Лабораторная работа по информатике, вариант №13, с методическим пособием.zip, Контрольная ... координаты'); for i :=1 to n do begin read(x[i]); write(" ");readln(y[i]); end; writeln("Наиболее удаленная точка находится на расстояни =", s:=vec(x, ...
... 1 to m do begin gotoxy(i*4-2, 12); read(y[i]); end; l := 0; st(x,z,n,l); st(y,z,m,l); gotoxy(5, 15);write("Результативный массив Z"); for i:=1 to l do ...


Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций [нестрогое соответствие]
Программирование и комп-ры, Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций ... ... координаты'); for i :=1 to n do begin read(x[i]); write(" ");readln(y[i]); end; writeln("Наиболее удаленная точка находится на расстояни =", s:=vec(x, ...
... 1 to m do begin gotoxy(i*4-2, 12); read(y[i]); end; l := 0; st(x,z,n,l); st(y,z,m,l); gotoxy(5, 15);write("Результативный массив Z"); for i:=1 to l do ...


Контрольная по информатике [нестрогое соответствие]
Программирование и комп-ры, Контрольная по информатике, Контрольная PROGRAM_KR0; VAR_A,B,C,H,P,X,Y:REAL; BEGIN WRITELN("Введите значения a и b"); READLN(A,B); WRITELN("Введите шаг Н и число С"); READLN(H,C); X:=A; P:=1 ...
PROGRAM_LR5; CONST_N1=100; VAR_K,N:INTEGER; X:ARRAY[1..N1]_OF_REAL; BEGIN WRITE("Введите количество чисел в последовательности n="); READLN(N) ...


Основы программирования на языке Паскаль [нестрогое соответствие]
Программирование и комп-ры, Основы программирования на языке Паскаль, Реферат ... На первый взгляд решение очевидно, но оно не столь тривиально, как | |кажется. | |Program Example; | |Var A,B,C : Real; {A,B - для хранения аргументов ...
... X - любое число') | |Else Writeln('Корней нет! ') | | Else Begin X:=-C/B; Writeln('X=',X:8:3) End | |Else | |Begin | |D:=B*B-4*A*C; | |If D<0 Then ...


Приближенное вычисление определенного интеграла при помощи квадратурной формулы Чебышева [нестрогое соответствие]
Математика, Приближенное вычисление определенного интеграла при помощи квадратурной формулы Чебышева , Работа Курсовая ... для расчета интеграла по квадратурной формуле Чебышева } procedure cheb(var y:aa;var ich:real); var i:integer; Begin ich:=0; for i:=1 to n do ich:=ich ...
... 3 |',z:9:6,'|',x[3]:9:6,' |',y[3]:9:6,'|'); writeln('| 4 |',l:9:6,'|',x[4]:9:6,' |',y[4]:9:6,'|'); writeln('| 5 |',k:9:6,'|',x[5]:9:6,' |',y[5]:9:6, ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... 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, ...
... 1440)) mod 1440; delay:=(delay div 1440)+((a.time+(delay mod 1440)) div 1440); while delay+b.day>DayInMonth(b.month,b.year) do begin delay:=delay-1- ...