40 S = S + i / (2 * i – 1)
45 IF (i = N) THEN 55
50 i = i + 1: GOTO 40
55 PRINT “Сумма”; N; “членов прогрессии S =”; S
60 END
Возможно вы искали - Реферат: Контуры Photoshop
Задание №10
Вычислить с точностью е бесконечную сумму и указать количество учтенных слагаемых. S= 1 +1/4 +1/9 +…+1/N2
5 REM Вычисление бесконечной суммы с точностью е .
10 CLS
15 PRINT “Вычислить бесконечную суммупрогрессии с точностью е= 0.000S= 1 +1/4 +1/9 +…+1/N^2”
Похожий материал - Реферат: Криптографическая защита функционирование ЛВС в реальном режиме времени
20 PRINT “Введите количество слагаемых N=”
25 INPUT N
30 S = 0
35 i = 1
40 S = S + 1/i ^ 2
45 IF (i = N) THEN 55
Очень интересно - Реферат: Курсовик по FoxPro
50 i = i +1: GOTO 40
55 PRINT “Суммы”; N; “членов прогрессии S=”;USING “#. ###”; S
60 END
Задание №11
Подсчитать количество цифр в тексте. Распечатать все встречающие цифры.
Вам будет интересно - Реферат: Лекции по высокоуровневым методам информатики и программированию
05 REM Подсчет цифр.
10 CLS
15 PRINT “Вычисление цифр в тексте”
20 INPUT "Введите текст"; Stroka$
25 N% = 0
Похожий материал - Реферат: Линейные списки. Стек. Дек. Очередь
30 FOR I = 1 TO LEN(Stroka$)
35 Pstr$ = MID$(Stroka$, I, 1)
40 IF ASC(Pstr$) > 47 AND ASC(Pstr$) < 58 THEN N% = N% + 1: PRINT Pstr$
45 NEXT I