Материалы, похожие на работу «Контрольная по информатике»

Object Pascal — Реферат
... Алфавит языка Основными символами языка Object Pascal являются: символы _ 26 больших и 26 малых латинских букв A,B, .Y,Z, a,b, ., y,z 10 арабских цифр
Var y, Z: array [1 .. 10] of Real;
... R с целью сокращения времени вычислений) и оператор внутреннего цикла со счетчиком j. Поскольку наружный цикл в своем теле содержит несколько операторов, то они заключены в ... ...
... Приведём простейший пример программы, единственная цель которой ( вывести на экран какое-нибудь приветствие: program Hello; begin writeln('Hello, ...
Перепишем его с использованием процедуры: program Max2; var a,b,c,m: integer; procedure FindMax; begin if a>b then m:=a else m:=b; if c>m then m:=c; end; begin write('Введите a ...
implementation procedure VecAdd(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 VecSub(a,b: tVec3D; var c: tVec3D); begin c.x:=a.x-b.x ... ...
Содержание. Введение 1. Постановка задачи 1. 1. Организационно-экономическая сущность задачи 1. 2. Входные данные 1. 3. Постоянная информация 1. 4 ...
Inc(R.A.Y,3); Inc(R.B.Y,3);
9_A3j-йЕеQНд!сТ+Ё\:@!.)шiJ$к_@sы:+J+c_°Qе+°FC1°-йСъ3.MKn°kfEж2т{_о+-.рqчEМФ_-,WпЕ-.Z2Я+п+г?#+ цsD;x+щў+сзВХ/АBkцwс@°=Хg_m>k-)o№_ЙШПч=ц+.уХU6ёы6a+-b=ВЭ+э+ьнлырїH-_Ё+°vи ... ...
Министерство Образования и Науки Республики Беларусь Минский Государственный Высший Радиотехнический Колледж Защита данных от несанкционированного ...
Inc(R.A.Y,3); Inc(R.B.Y,3); end; if AOptions and fdOkButton 0 then begin
Процедура управления формой курсора} procedure SetCursorSize(c_start,c_end:byte); var regs: registers; begin with regs do begin ah:=$01; ch:=c_start; cl:=c_end; end; intr($10,regs ... ...
Основные понятия алгоритмического языка 1. ОСНОВНЫЕ ПОНЯТИЯ АЛГОРИТМИЧЕСКОГО ЯЗЫКА СОСТАВ ЯЗЫКА. Обычный разговорный язык состоит из четырех основных ...
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
ProcType = Procedure (a,b: Real; var x,y: Real);...
Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления Описан объект автоматического ...
var b:real;
'M','m':begin...
Основные понятия алгоритмического языка 1. О С Н О В Н Ы Е П О Н Я Т И Я А Л Г О Р И Т М И Ч Е С К О Г О Я З Ы К А СОСТАВ ЯЗЫКА. Обычный разговорный ...
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z
Procedure Simps(F:Func; a,b:Real; N:Integer; var INT:Real); var sum, h: Real; j:Integer; begin if Odd(N) then N:=N+1; h:=(b-a)/N; sum:=0.5*(F(a)+F(b)); for j:=1 to N-1 do sum:=sum ... ...
Нейтрофилы — Реферат
Аннотация Создана и реализована, в виде компьютерной программы, математическая модель движения популяции клеток. Показано, что широко принятое в ...
procedure write_angle; var i, j, k : word; z : real; shift : array[1..30] of real; f : text; begin assign(f,'angle.txt'); rewrite(f); with step_distri[angle] do for j:=0 to 10 do ...
do begin loc_calc[i]:=0; for k:=j+1 to 100 do begin z:=(x[k]-x[k-j])*(x[k]-x[k-j])+(y[k]-y[k-j])*(y[k]-y[k-j]); loc_calc[i]:=loc_calc[i]+z; end; shift[i]:=loc_calc[i]/(100-j ... ...
Аппроксимация — Реферат
Министерство общего и профессионального образования Российской Федерации Московский Государственный Строительный Университет Кафедра информатики и ...
program approx; uses crt,gausstpu; const nm=20; type vect1=array[1..nm] of real; var c:matr; a,b:vect; x,y,z:vect1; n,i,j,m:integer; f1,f2:text; procedure Create_BC(n,m:integer ...
Create_BC(n,m,x,y,c,b); writeln(f2); writeln(f2,'Матрица системы линейных уравнений для аппроксимации и вектор правых частей); for i:=1 to m+1 do begin for j:=1 to m+1 do write(f2 ... ...
ш2.0 - 1 - ОГЛАВЛЕНИЕ 1. Введение а) Актуальность темы дипломной работы б) Цели работы в) Научная новизна результатов дипломной работы г) Научная и ...
PROCEDURE RP(X:REAL;VAR Y,R:VEC);
WRITE('P,X,X9,H,Y[1],Y[2]?...
Аппроксимация — Реферат
Оглавление. I. Математическая часть. Название 1.1 Постановка задачи 2.1 Изложение метода 3.1 Блок-схема алгоритма. Описание исходных данных и ...
7.2 Листинг модуля, исходных данных и результатов машинного расчета. unit isnum; interface uses typesm,mjim; procedure isnu(var k1:k1t;m,n:integer; var a:at; var p1,q1:vec1it; var ...
r,j])>p then begin p:=abs(a[r,j]);s:=j;end; end;end; if p=0 then begin writeln(fo,'Исключить r',r:6,'-ое нуль-уравнение нельзя'); close(fi);close(fo);halt end; mji(m,n,a,r,s); p2[r ... ...
Институт Переподготовки Кадров Уральского Государственного Технического Университета Кафедра микропроцессорной техники Курсовая работа ПРОГРАММА ...
- q,x,y,x1,y1,t,i,j,k,at,at1,ct1,ctp типа integer для
Begin Gety:=y End;...
ПРОГРАММА ЭМУЛЯЦИИ РАЗВИТИЯ ЖИВОТНЫХ 1. ВВЕДЕНИЕ. Ради интереса было дано задание написать программу типа "Жизнь", но с некоторыми изменениями в ...
- q,x,y,x1,y1,t,i,j,k,at,at1,ct1,ctp типа integer для использования их в теле циклов
Begin Gety:=y End;...
Защита данных от несанкционированного доступа 1. Введение. Появившиеся в начале 80-ых персональные ЭВМ (ПЭВМ или ПК) прочно вошли во все сферы ...
BlockRead(F[k, 1], M, Size[k]-3, NumRead);
Inc(R.A.Y,3); Inc(R.B.Y,3);...
Экзаменационный билет по предмету АЛГОРИТМИЧЕСКИЕ ЯЗЫКИ И ПРОГРАММИРОВАНИЕ Билет № 1 1) Оператор цикла с предусловием в языке Турбо Паскаль. Приведите ...
begin {A} new (x); {B} x ^ : = true; y : = not x ^
1) Процедуры вывода Write и Writeln в языке Турбо Паскаль....
Семантика оператора "case". Одной из форм оператора выбора в языке Pascal является оператор сase. Синтаксис этого оператора приведен ниже. сase ...
while i31 do begin s:=s+b[i]; i:=i-1; end
wp(j:=j+1, 0<j U("i: 0 $ i $ j: b[i]=5))...
Институт Переподготовки Кадров Уральского Государственного Технического Университета Кафедра микропроцессорной техники Оценка работы Члены комиссии ...
program fauna; uses mycrt,dos,graph,fauna1,tpcrt; var q,x,y,x1,y1,gd,gm,t,i,j,k,AT,at1,ct1,ctp:integer;{общие} g,v,m,w:integer;{} ct,ch:shortint;{цвет} tmin,tmax,hmin,hmax,tp,hp ...
END; if at>w then {Old ?} begin hr[i].done; hr[i].init(0,0,0,0); for j:=i+1 to m do begin x1:=hr[j].getx; y1:=hr[j].gety; at1:=hr[j].daiage; ct1:=hr[j].daizwet; hr[j].done; hr[j-1 ... ...
Институт Переподготовки Кадров Уральского Государственного Технического Университета Кафедра микропроцессорной техники Курсовая работа ПРОГРАММА ...
- q,x,y,x1,y1,t,i,j,k,at,at1,ct1,ctp типа integer для
Begin Gety:=y End;...
Решение систем дифференциальных уравнений методом Рунге - Кутты 4 порядка Курсовая работа по дисциплине : Математические методы и модели в расчетах на ...
j( x, y, y1, ... y(n) )=0. 1.1
PROGRAM smith_04;USES crt; VAR i,n:integer; sum,k1,k2,k3,k4,p,dp,eps,Xn,Xk,X,dX:real; rSR,C,dC,r1,r2,r3,r4,cPR:array[1..3] of real;...
Цель работы: Изучение правил описания и вызова подпрограмм: процедур и функций. Получение навыков и овладение приемами работы над подпрограммами ...
Procedure Umn (X,Y:matrics; t:integer; Var Z:matrics); var i,j,k,s:integer; begin {Umno} for i:=1 to t do for j:=1 to t do begin
End; begin{lab_12} clrscr; writeln('Введите размеры матриц X,Y:');read(t); writeln('Введите ',t*t,' элемента для каждой матрицы:'); writeln('Введите матрицу X:');vvod(t,X); writeln ... ...
©2007—2016 Пуск!by | По вопросам сотрудничества обращайтесь в contextus@mail.ru