Похожие работы на «Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) »

Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов)
Программирование и комп-ры, Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) , Работа Курсовая ... сессий по одному на строке " OPEN "rez" FOR OUTPUT AS #1 FOR j = 1 TO 25 FOR i = 1 TO 5 INPUT re(j, i): PRINT #1, re(j, i) NEXT i, j CLOSE PRINT "Файл ...
INPUT #1, fa$(i): NEXT i FOR i = 1 TO 25 FOR j = 1 TO 5 INPUT #2, re(i, j) NEXT j, i CLOSE CLS : x = 0: z = 1: PRINT " Список студентов" PRINT " № Ф,И ...


Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов [нестрогое соответствие]
Программирование и комп-ры, Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов , Работа Курсовая ... 20 * Rnd() - 10 - Возвращает Single значение, содержащее случайное число от 0 до 1. Next j Next i Sheet3.Cells(3, 2) = " Матрица заполнена случайными ...
... End Sub Sub getA() ' ввод матрицы из файла[pic] For i = 1 To n For j = 1 To n If Sheet3.Visible = xlSheetHidden Then MsgBox ("Введите матрицу А из ...


Курсовая по информатике [нестрогое соответствие]
Программирование и комп-ры, Курсовая по информатике, Курсовая ... 2 1 DIM q(m, m) FOR i = 1 TO m FOR j = 1 TO m IF i < j THEN q(i, j) = EXP(RND) * SIN(RND - .5) IF i = j THEN q(i, j) = LOG(10 * RND) / SIN(RND) IF i ...
... max = s(i): ii = i NEXT i PRINT USING "##.####"; q(ii, j); NEXT j PRINT PRINT PRINT "Строка в которой разность стоящих рядом эл-тов наименьшая" min ...


Общие сведения о языке программирования Qbasic [нестрогое соответствие]
Программирование и комп-ры, Общие сведения о языке программирования Qbasic, Лекция ... i = 0 TO 9 PRINT "Введите 10 элементов" INPUT A (i) FOR i=0 TO 9 NEXT i INPUT A(i) FOR i = 0 TO 9 NEXT i FOR y = 9 TO i STEP - 1 FOR i=0 TO 9 IF A (y) ...
... TO 9 A (y) = A (y-1) : A (y-1) = m IF A(y)>P THEN GOTO 50 20 NEXT y P=A(y):K=y NEXT i 50 NEXT y FOR i=0 TO 9 A(K)=A(i):A(i)=P PRINT А(i) NEXT i NEXT i ...


Основы ПЭВМ [нестрогое соответствие]
Программирование и комп-ры, Основы ПЭВМ , Рефераты ... TO K D(I) = LEN(C$(I)) NEXT I FOR I = 1 TO K FOR J = 1 TO D(I) R$(I, J) = MID$(C$(I), J, 1) NEXT J NEXT I FOR I = 1 TO K B = 0 FOR J = 1 TO D(I) IF R$ ...
... D / (N - 1) S = SQR(D) K = S / M CLS PRINT TAB(15); "Обработка данных переписи населения " PRINT PRINT TAB(8); "Область, край "; TAB(40); "Количество ...


Курсовая работа по информатике [нестрогое соответствие]
Кибернетика, Курсовая работа по информатике, Курсовая ... j), n$(j + 1): SWAP c$(j), c$(j + 1): SWAP s$(j), s$(j + 1) SWAP k(j), k(j + 1): SWAP f(j), f(j + 1): SWAP t(j), t(j + 1) 1 : NEXT j NEXT i PRINT REM
... 1 TO n GOSUB 2 NEXT i REM Группируем PRINT "0%-50%" FOR i = 1 TO n IF f(i) > 0 AND f(i) < 50 THEN GOSUB 2 NEXT i PRINT "50%-75%" FOR i = 1 TO n IF f(i ...


Курсовая работа по информатике [нестрогое соответствие]
Кибернетика, Курсовая работа по информатике, Курсовая ... j), n$(j + 1): SWAP c$(j), c$(j + 1): SWAP s$(j), s$(j + 1) SWAP k(j), k(j + 1): SWAP f(j), f(j + 1): SWAP t(j), t(j + 1) 1 : NEXT j NEXT i PRINT REM
... REM Выводим в выходной файл INPUT "Введите имя выходного файла"; file2$ OPEN file2$ FOR OUTPUT AS #2 PRINT #2, "Суда с выловом 0%-50%, отсортированные ...


Администрирование локальных сетей [нестрогое соответствие]
Программирование и комп-ры, Администрирование локальных сетей, Лекция ... w |Имеются ли права на запись в файл | |x |Можно ли исполнять этот файл ? | |Z |Пустой ли файл | 2.3.5 Задания Каждый раз когда одна или больше команд ...
... из собственности менеджера ресурсов. -edit поместить ресурсы собственности менеджера в файл Для задания ресурсов используют строку вида: [client


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... LabelS.BackColor = &HFFOOOO Elself Combo2.Text = "Зеленый" Then LabelS.BackColor = &HCOOO& End If Combo3.Enabled = True Label3.Enabled = True End Sub ...
... Fields.Count-1 Gridl.Col = I If IsNull(Datal.Recordset.Fields(I)-Value) Then Gridl.Text = "" Else Gridl.Text - Datal.Recordset.Fields(I).Value End If ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... описания процедуры MatrMult} Procedure Prim; {заголовок процедуры Prim} Var i, j: Integer; Begin For i:= 1 to n do {блок задания элементов матриц Q1, ...
... что Warn1, но в 4 строки} var i,j: byte; begin i:=Length(s1); j:=i; i:=Length(s2); if (i>j) then j:=i; i:=Length(s3); if (i>j) then j:=i; i:=Length(s4 ...