Похожие работы на «Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций»

Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций
... и комп-ры, Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций, Контрольная ... int(random(200)); sum_x:=sum_x+x[cycle01]; sum_y:=sum_y+y[cycle00]; end; end; mid_x:=sum_x/n2; mid_y:=sum_y/m2; delt_x:=mid_x/mid_y; delt_y:=mid
... end; if kl=3 then begin kl:=2; textcolor(15);gotoxy(25,1);write(str3); textcolor(14);gotoxy(13,1);write(str2); end; end; #77: begin if kl=2 then begin ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... w-10,4);write('продукции на '); gotoxy(w-10,5);write('начало года'); gotoxy(w+9,3);write('Приход'); gotoxy(w+8,4);write('продукции'); gotoxy(w+11,5) ...
... w+8,4);write('продукции'); gotoxy(w+11,5);write('шт'); gotoxy(w+18,4);write('Расход'); gotoxy(W+20,5);write('шт'); gotoxy(w+26,4);write('Цена за' ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... c5); for w:=2 to 79 do begin gotoxy(w,h); write(c2); end; gotoxy(w,h); write(c6); for h:=24 downto 1 do begin gotoxy(w,h); write(c4); end; gotoxy(w,h) ...
... c10); for h:=2 to 24 do begin gotoxy(w,h); write(chr(179)); end; gotoxy(w,20); write(c8); gotoxy(59,25); write(c9); gotoxy(62,4); writeln('F1-Помошь' ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... номер рейса-'); writeln(' Подтверждение д/н-'); with buf do begin gotoxy(29,2);readln(fio); gotoxy(29,3);readln(pasp); gotoxy(29,4);readln(city) ...
... menu[punkt]); punkt:=punkt-1; textattr:=sel; gotoxy(x,y+punkt-1); write(menu[punkt]); textattr:=norm; end; end; case of end else if ch=chr(13) then


Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций [нестрогое соответствие]
... и комп-ры, Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций, Контрольная ... Введите кол-во элементов массива X'); readln(n); gotoxy(5, 3);write('Введите значения массива X'); for i := 1 to n do begin gotoxy(i*4-2, 5); read(x[i ...
... 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 ...


Автоматическое рабочее место для работника склада [нестрогое соответствие]
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая ... i:=0 to Schet-1 do begin Summ_:=Summ_+(List[i].price*List[i].kol); Sum_p:=Sum_p+(List[i].price*List[i].kol_p); Sum_r:=Sum_r+(List[i].price*List[i].kol ...
... Bas.kol>List[j].kol then begin Bas:=List[j]; k:=j end; 3: if Bas.price>List[j].price then begin Bas:=List[j]; k:=j end; 5: if Bas.kol_p>List[j].kol_p ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...
... Write('Результат'); End; 50:Begin TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure pannel; ...


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... NextRef >= Symbol_Table_Length); end; if Offset[0] <> Chr(0) then begin write(f_out, tab, tab); case Prefix of REP: begin write(f_out, 'REP '); Prefix ...
... f_out, 'DS:'); Prefix := NoPrefix end; end; end; write(f_out, Operand2); end else write(f_out, tab); end; if Comment <= Ord(Line[0]) then writeln(f_ ...


Лабораторная работа по информатике, вариант №13, с методическим пособием.zip [нестрогое соответствие]
Программирование и комп-ры, Лабораторная работа по информатике, вариант №13, с методическим пособием.zip, Контрольная ... Введите кол-во элементов массива X'); readln(n); gotoxy(5, 3);write('Введите значения массива X'); for i := 1 to n do begin gotoxy(i*4-2, 5); read(x[i ...
... 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 ...


Паскаль (практическое использование) [нестрогое соответствие]
Программирование и комп-ры, Паскаль (практическое использование), Реферат ... 11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в
... 10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в