Похожие работы на «Basic»

Basic
Программирование и комп-ры, Basic, Реферат ... 1, b: PRINT "x э ["; a; ","; b; "]" CLOSE i1 = 0: d = (300 * a) / b DIM y1(1400) FOR i = a TO b i1 = i1 + 1 y1(i1) = y(i, a1): 'PRINT y1(i1) NEXT i
... Функция y = "; a1 PRINT #2, "x э ["; a; ", "; b; "]" FOR i = a TO b i1 = i1 + 1 PRINT #2, "y("; i; ")= "; y1(i) NEXT i CLOSE PSET (300 + d, 175 - y1(1 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... procedure dead;{хищники едеят в радиусе 1 пиксель} begin for i:=1 to m do begin x:=hr[i].getx; y:=hr[i].gety; j:=0; repeat j:=j+1; -14- x1:=tg[j].getx ...
... 1)) or((x=x1-1)and(y=y1+1))or((x=x1+1)and(y=y1))or((x=x1+1)and (y=y1-1))or((x=x1+1)and(y=y1+1))then begin tg[j].done; tg[j].init(0,0,0,0); tt:=tt+1; k ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... едеят в радиусе 1 пиксель} begin for i:=1 to m do begin x:=hr[i].getx; y:=hr[i].gety; j:=0; repeat j:=j+1; x1:=tg[j].getx; y1:=tg[j].gety; if ((x=x1) ...
... 1))or((x=x1+1)and(y=y1))or((x=x1+1)and (y=y1-1))or((x=x1+1)and(y=y1+1))then begin tg[j].done; tg[j].init(0,0,0,0); tt:=tt+1; k:=j; repeat k:=k+1; x1: ...


Основные понятия информатики [нестрогое соответствие]
Программирование и комп-ры, Основные понятия информатики, Лекция ... О КОМАНДАХ Переход в другой каталог - выделить этот каталог и нажать клавишу (Enter); Переход на другую панель - нажать клавишу (TAB); ВЫБОР ГРУППЫ ...
... Renmov - переименование файла (файлов) или каталога, пересылка файла (файлов) в другой каталог; MkDir - cоздание подкаталога; Delete - уничтожение ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... a,length(a),1); a:=a+'1'; {изменение расширения} Assign(y,a); {создание нового файла вопросов} delete(a,length(a),1); a:=a+'2'; {изменение расширения} ...
... c); Readln(u); while not EOF(u) do Begin {дозапись значений в копируемый файл} Readln(u,b); Writeln(a1,b); End; Window(10,10,53,20); {закрытие окна ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... открыт для ввода/вывода} AssignFile(F2, 't2.txt'); {связывание F2 с файлом 'text.txt'} Rewrite(F2, 1); {файл открыт для вывода} try Size := FileSize( ...
... F1} CloseFile(F2); {закрытие файла F2} end; end; В этом примере объявлен указатель на строку Buffer с завершающим нулем, которая будет использована ...


Основы ПЭВМ [нестрогое соответствие]
Программирование и комп-ры, Основы ПЭВМ , Рефераты Блок-схема алгоритма решения задачи. | |начало | ... | |A, B, N | ... | |описание массивов X(N), | |E(N) | ... | |I=1, N | ... | |E(I) | ... | |I=1 ...
... край "; TAB(40); "Количество жителей " PRINT FOR I = 1 TO N PRINT TAB(5); A$(I); TAB(45); Т(I) NEXT I PRINT PRINT TAB(5); "Мат. ожидание"; TAB(45); M ...


Разработка автоматизированной системы учета выбывших из стационара [нестрогое соответствие]
Программирование и комп-ры, Разработка автоматизированной системы учета выбывших из стационара , Рефераты ... ENDIF vars[8]=time_B *- vars[9] =extra1(OLD,"OLDS") _OLD=OLD _OLD_D=OLD_D vars[10] =MASSA _MASSA =MASSA vars[11] =PLACE_LIV _PLACE_LIV=PLACE_LIV vars
... bir,day_bas) IF VAL(years)>0 txt=years IF VAL(years)=1 txt=txt+" год" ELSEIF VAL(years)<5 txt=txt+" года" ELSE txt=txt+" лет" ENDIF ELSE mons=INT((day ...


Постановка, настройка и исследование абонентского программного обеспечения сети Internet [нестрогое соответствие]
Программирование и комп-ры, Постановка, настройка и исследование абонентского программного обеспечения сети Internet, ... command=getch(); if (command=='y' || command== 'Y') { base=fopen("base.dat","rb"); if (base==NULL) return; fread (&k,sizeof(k),1,base); //чтение ...
... значений критериев fwrite (&k,sizeof(k),1,base); //в файл base.dat fwrite (&d,sizeof(d),1,base); fclose(base); }; }; //конец else printf (" Ввод ...


Интернет [нестрогое соответствие]
Программирование и комп-ры, Интернет, ... command=getch(); if (command=='y' || command== 'Y') { base=fopen("base.dat","rb"); if (base==NULL) return; fread (&k,sizeof(k),1,base); //чтение ...
... значений критериев fwrite (&k,sizeof(k),1,base); //в файл base.dat fwrite (&d,sizeof(d),1,base); fclose(base); }; }; //конец else printf (" Ввод ...