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

Лабораторная работа №11
Программирование и комп-ры, Лабораторная работа №11, Реферат ... begin clrscr; writeln('введите ',xmax,' букв латинского алфавита'); for i:=1 to xmax do read(stroka[i]); for i:=1 to xmax do writeln(stroka[i]); for i ...
xmax do codes[i]:=ord(stroka[i]); for i:=1 to xmax do writeln(codes[i]); max:=codes[1]; for i:=1 to xmax do begin if max < codes[i] then max:=codes[i] ...


Помехоустойчивое кодирование, распознавание символов [нестрогое соответствие]
Разное, Помехоустойчивое кодирование, распознавание символов, Курсовая ... 1 to 1 do su[l] := su[l] + ((not f[i+m,j+n]) xor mask1[l,m,n]) and 1; for l := 5 to 12 do for m:=-2 to 2 do for n:=-2 to 2 do su[l] := su[l] + ((not f
... рисуем рамку;100-цвет} for x:=xmin-1 to xmax+1 do f[x,ymin-1]:=100; for x:=xmin-1 to xmax+1 do f[x,ymax+1]:=100; for y:=ymin-1 to ymax+1 do f[xmin-1,y ...


Арканоид на Паскале [нестрогое соответствие]
Программирование и комп-ры, Арканоид на Паскале, Курсовая ... y,48+x,y-20,0,false); end; end; procedure search_y; begin case y of 22..42: begin y:=42; stroika; end; 43..63: begin y:=63; stroika; end; 64..84: ...
... y:=189; stroika; end; 190..210:begin y:=210; stroika; end; 211..231:begin y:=231; stroika; end; 232..252:begin y:=252; stroika; end; 263..273:begin y: ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... FindMaximumInArray; var a: array[1..10] of real; i,max: integer; begin for i:=1 to 10 do begin write('Введите элемент номер ',i,' -> '); readln(a[i] ...
... Среда'); Thu: writeln('Четверг'); Fri: writeln('Пятница'); Sat: writeln('Суббота'); Sun: writeln('Воскресенье'); NoDay: writeln('Такого дня нет в ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; end; m:=m+1+x; if (m>1000) or ...
... vozrast} if x1=0 then begin for i:=1 to m do begin hr[i].init(0,0,0,0); hr[i].done; end; end; if (x10) then begin repeat j:=j+1; if hr[j].daiage=y1 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... if t>0 then begin x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0, ...
... if j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... if z[i]<0 then b:=b+1; end; clrscr; writeln('Исходные данные'); for i:=1 to n do write(z[i]:4); writeln; writeln('Количество положительных элементов ...
... readln(a[j,i]); end; clrscr; writeln; writeln('Исходная матрица:'); for i:=1 to n do begin d:=d+2; for j:=1 to n do begin b[j,i]:=d+a[j,i]; gotoxy(i*6 ...


Основы программирования на языке Паскаль [нестрогое соответствие]
Программирование и комп-ры, Основы программирования на языке Паскаль, Реферат ... коэффициенты уравнения (A, B, C) '); | |If A=0 Then | | If B=0 Then | |If C=0 Then Writeln('X - любое число') | |Else Writeln('Корней нет! ') | | Else ...
... Writeln; Writeln('Список учащихся:'); | |While Not(Eof(F)) Do | |Begin | |Read(F,S); | |If S[1]<>'Ш' Then | |Writeln(S) | |End; | |Close(F) | |End. ...


Защита данных от несанкционированного доступа [нестрогое соответствие]
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... 1, i) + Exten; break; end; Assign(OutF, OutputFileName); Rewrite(OutF); for i := 1 to length(Password) do TPassword[i]:=ord(Password[i]); k := 1; ...
... 1 to length(Pas) do Pas[i] :=chr(ord(Pas[i]) xor 27); if Pas <> Pass then begin MyMessageBox(' Неверный пароль!!!', nil, mfError+mfOkButton); ClrScr; ...


Разработка базы данных, отражающей учет успеваемости студентов [нестрогое соответствие]
Программирование и комп-ры, Разработка базы данных, отражающей учет успеваемости студентов , Работа Курсовая ... t4); nay:=true; break; end; tem1:=tem1^.sled; end; end; 4:begin {Найти размер стипендии} writeln('Введите фамилию студента'); readln(str1); tem1:=tt1; ...
... tt1; namer:='1'+names; end; 2:begin temr:=tt2; namer:='2'+names; end; 3:begin temr:=tt3; namer:='3'+names; end; 4:begin temr:=tt4; namer:='4'+names; ...