Похожие работы на «Лабораторные работы по информатике»

Лабораторные работы по информатике
Программирование и комп-ры, Лабораторные работы по информатике, Контрольная ... 0: K = 0 FOR I = 2 TO N STEP 2 IF A(I) > -10 AND A(I) < 5 THEN S = S + A(I) K = K + 1 END IF NEXT I P = 0 FOR I = 1 TO N IF A(I) > 0 THEN P = P + A
... I) END IF NEXT I FOR I = 1 TO N IF A(I) < 0 THEN A(I) = A(I) / P END IF NEXT I IF K = 0 THEN PRINT "Деление на 0" ELSE SR = S / K END IF PRINT "Вывод ...


Общие сведения о языке программирования Qbasic [нестрогое соответствие]
Программирование и комп-ры, Общие сведения о языке программирования Qbasic, Лекция ... 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) >A(y-1) THEN GOTO 20 P=A(i) : K=i m = A ...
... 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 ...


Линейные списки. Стек. Дек. Очередь [нестрогое соответствие]
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом ... Dispose(h); RoundList := q^.Next; end; end; if RoundList <> nil then begin q := RoundList^.Next; i := 1; while q <> RoundList do begin Inc(i); q := q^ ...
... то удаляем его begin if r^.Next <> nil then r^.Next^.Prev := q; q^.Next := r^.Next; if r <> nil then Dispose(r); end else ShowMessage('Элемент уже не ...


Курсовая по информатике [нестрогое соответствие]
Программирование и комп-ры, Курсовая по информатике, Курсовая ... cor; "y="; y; a = x2 NEXT k PRINT "Точность"; t END a = x2 NEXT k PRINT "Точность"; t END pod1: 'отделение корней в интервале а,в' s = 10 * t: x = a ...
... i = 1 TO n s = s + q(i, i) NEXT i k = 0 FOR i = 1 TO n k = k + q(i + 1, i) NEXT i k(i) = k PRINT PRINT "Эл-ты квадратной матрицы (n,n) с макс. суммой


Лабораторные работы по информатике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по информатике, Контрольная ... A("; I; ")="; INPUT A(I) NEXT I S = 0: K = 0: L = 0 FOR I = 1 TO N IF A(I) MOD 3 = 0 THEN S = S + A(I) K = K + 1 END IF NEXT I FOR I = 2 TO N STEP 2 ...
... L + 1 END IF NEXT I PRINT "L="; L IF K = 0 THEN PRINT "Нет среднего значения" ELSE SR = S / K A(N) = A(N) - SR FOR I = 1 TO N PRINT "A("; I; ")="; A(I ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... Inc(J); {Внесение исправлений в шаблон и элемент маршрута о цене и времени} For K:=1 to MClass do If Pattern.Class[K] and P^.class[K] then Npath^.cost ...
... Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) then begin New(Q^.Next); Q:=Q^.next end else Q^.next:=nil; end; ReadLn(Source) ...


Курсовая работа по информатике [нестрогое соответствие]
Кибернетика, Курсовая работа по информатике, Курсовая ... 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) >= 50 AND f(i) < 75 ...
... выловом 50%-75%, отсортированные по названию" PRINT FOR i = 1 TO n IF f(i) <= 75 AND f(i) >= 50 THEN GOSUB 3 NEXT i PRINT #2, "Суда с выловом 75%-100% ...


Курсовая работа по информатике [нестрогое соответствие]
Кибернетика, Курсовая работа по информатике, Курсовая ... в обратном порядке по названию судна PRINT "Данные после сортировки" PRINT FOR i = 1 TO n GOSUB 2 NEXT i REM Группируем PRINT "0%-50%" FOR i = 1 TO n ...
... выловом 50%-75%, отсортированные по названию" PRINT FOR i = 1 TO n IF f(i) <= 75 AND f(i) >= 50 THEN GOSUB 3 NEXT i PRINT #2, "Суда с выловом 75%-100% ...


Программирование логической игры на visual basic [нестрогое соответствие]
Программирование и комп-ры, Программирование логической игры на visual basic , Работа Курсовая ... Label56.Caption If k = 2 Then Label9.BackColor = Label56.BackColor If k = 2 Then Label9.ForeColor = Label56.ForeColor If k = 3 Then Label10.Caption ...
... Label56.Caption If k = 9 Then Label16.BackColor = Label56.BackColor If k = 9 Then Label16.ForeColor = Label56.ForeColor If k = 10 Then Label17.Caption ...


Разработка модернизированного лабораторного стенда по проведению лабораторных работ в лаборатории импульсной техники [нестрогое соответствие]
Технология, Разработка модернизированного лабораторного стенда по проведению лабораторных работ в лаборатории импульсной техники, 10 CLS 20 SCREEN 2 30 PRINT "РАСЧЕТ НАДЕЖНОСТИ РЭА " 40 PRINT "-" 50 PRINT " НАЖМИТЕ ПРОБЕЛ " 60 PRINT "-" 80 IF INKEY$ <> " " THEN GOTO 80 90 CLS 95 ...
... GOTO 420 390 IF G < 10000 THEN GOTO 440 400 IF G < 100000 THEN GOTO 460 410 IF G < 1000000 THEN GOTO 480 420 S = (INT(G / 100) + 1) * 100 430 GOTO 490 ...