Срочно помогите решить задачи!!!!!!!!!

[Firma4]

Срочно помогите решить задачи по Qbasic:
1. Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + AN.
2. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)
3. В заданном массиве A(N) определите количество элементов, которые меньше заданного значения
4. Проверить истинность высказывания: "Данное целое число является нечетным трехзначным числом"

[геннадий]

Срочно помогите решить задачи по Qbasic:
1. Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + AN.
2. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)
3. В заданном массиве A(N) определите количество элементов, которые меньше заданного значения
4. Проверить истинность высказывания: "Данное целое число является нечетным трехзначным числом"

Вообще-то не по адресу. Зайди в Высокие технологии - языки

REM Задача 1 . Заданное число А (любое), N (натуральное)
INPUT A,N
S=0
FOR i=1 TO N
S=S+i
NEXT i
S = 1+A*S
PRINT "сумма по первой задаче "; S

REM Задача 2 . Формируем массив объемом N так, чтобы он содержал как положительные, так и отрицательные элементы

DIM A(N)
FOR i=1 TO N
A(i)= RND()-0.5
REM ФУНКЦИЯ RND() возвращает вещественное случайное число в диапазоне 0 ... 1
NEXT i

REM число положительных N1, их сумма S1
N1 = 0
S1 = 0
FOR i=1 TO N
S1 = S1 + (A(i) > 0)*A(i)
N1 = N1 + (A(i) > 0)
NEXT i

REM число отрицательных N2, их произведение S2
N2 = 0
S2 = 1
FOR i=1 TO N
S2 = S2*( (A(i) < 0)*A(i) + (A(i) >= 0))
N2 = N2 + (A(i) < 0)
NEXT i
PRINT N1 S1 N2 S2

REM Задача 3
REM N3 - число элементов массива , меньших заданного числа S3
N3 = 0
INPUT S3
FOR i=1 TO N
N3 = N3 + (A(i) < S3)
NEXT i
PRINT N3

REM Задача 4. Вводим целое (а вообще-то натуральное!) число X
INPUT Х
REM вычисляем трехзначность
B4 = (X > 99)*(X < 1000)

REM вычисляем нечетность B5
REM вычисляем последнюю цифру С
REM Функция INT(Z) возвращает целую часть числа Z
C = X - 10 * INT(X / 10)
B5 = (C = 1) + (C = 3) + (C = 5) + (C = 7) + (C = 9)

REM вычисляем трехзначность И нечетность B
B = B4 * B5

PRINT "проверяемое число" Х
IF B=1 PRINT "это число трехзначн и нечетное"; GO TO 10
PRINT "это число не есть трехзначн и нечетное"
10 END

[Firma4]

Спасибо! А на 2 и 3 задачи ответы не знаешь????????

[геннадий]

Спасибо! А на 2 и 3 задачи ответы не знаешь????????

Все 4 сделал, но:

перевод на твою, действующую, версию языка будет иметь свои особенности, которых не знаю я, но знают успешные сокурсники.

[Firma4]

А почему в 2, 3 задачах выводит значение 0, может там че то не правильно?

[FreOn]

Firma4, массив в 3-ей объявить не забыл?
Это даже не вузовские задачи, класс 9.

[Firma4]

напиши подробнее

Добавлено через 38 секунд
А то я не шарю

[Paralax]

Firma4
http://forum.bratsk.org/showthread.p...171#post795171

[Firma4]

А это точно Qbasic,что такое NegativMulti, NegativCount, PositivCount и т.д. Их можно заменить простыми буквами??и что такое REDIM, first, second, RANDOMIZE TIMER
OPTION BASE 1
'$DYNAMIC
DIM a(10)????????????

[Paralax]

А это точно Qbasic,

Точно

что такое NegativMulti, NegativCount, PositivCount и т.д. Их можно заменить простыми буквами??

Названия переменных. Можно

и что такое REDIM, first, second, RANDOMIZE TIMER
OPTION BASE 1
'$DYNAMIC
DIM a(10)????????????

Директивы и операторы языка. Все строки начинающие с ' (апостроф) - являются комментариями

Скопируй текст в текстовый файл c расширением BAS и открой Васиком. В нем и писалось...

[Firma4]

Всё спасибо большое все получилось! А 3-ю не знаешь как решить?

[Paralax]

Срочно помогите решить задачи по Qbasic:
3. В заданном массиве A(N) определите количество элементов, которые меньше заданного значения

Эту чтоль?

RANDOMIZE TIMER
OPTION BASE 1
'$DYNAMIC
DIM a(10)
CLS
INPUT "Enter count elements of dimension (Min>10)"; ElemCount%

' Создаем и заполняем массив двумя способами на выбор

IF ElemCount% > 10 THEN
  REDIM a(ElemCount%)
ELSE
  ElemCount% = 10
END IF

'first
PRINT "Dimension"
FOR i = 1 TO ElemCount%
 a(i) = INT((RND * 20) + 1) - 10
 PRINT i; "="; a(i),
NEXT i

'second
'FOR i = 1 TO ElemCount%
' PRINT "Elem "; i;
' INPUT a(i)
'NEXT i

PRINT

'Вводим нужное число и считаем элементы, меньше введеного числа

CountElem = 0
INPUT "Enter a number"; MyNumber

FOR i = 1 TO ElemCount%

  IF a(i) < MyNumber THEN
   CountElem = CountElem + 1
  END IF

NEXT i

PRINT "Count elements"
PRINT "Count ="; CountElem

[FAN]

Офигели совсем. Домашнюю работу за вас выполнять будем?

[Firma4]

если хотите можно еще вот эти решить:
1. В заданном массиве X(N) замените нулями все отрицательные компоненты, положительные единицей.
2. Вывести на печать номера элементов заданного массива Y(N), удовлетворяющих условию 0<yi<1.
3. Дано вещественное число A и целое число N (>0). Вывести A в степени N : AN = A*A*A*A....*A(числа A перемножаются N раз)
4. Дано целое число N (>1). Вывести наименьшее целое K, при котором выполняется неравенство 3K>N, и само значение 3K.
5. Проверить истинность высказывания: "Данные числа x,y являются координатами точки, лежащей в первой или третьей координатной четверти"
6. Проверить истинность высказывания: "Среди трех данных чисел есть хотя бы одна пара взаимно противоположных".

[Paralax]

если хотите можно еще вот эти решить:
1. В заданном массиве X(N) замените нулями все отрицательные компоненты, положительные единицей.

RANDOMIZE TIMER
OPTION BASE 1
'$DYNAMIC
DIM a(10)
CLS
INPUT "Enter count elements of dimension (Min>10)"; ElemCount%

IF ElemCount% > 10 THEN
  REDIM a(ElemCount%)
ELSE
  ElemCount% = 10
END IF

'first
PRINT "Array"
FOR i = 1 TO ElemCount%
 a(i) = INT((RND * 20) + 1) - 10
 PRINT i; "="; a(i),
NEXT i

'second
'FOR i = 1 TO ElemCount%
' PRINT "Elem "; i;
' INPUT a(i)
'NEXT i

PRINT

PRINT "Modifying array"

FOR i = 1 TO ElemCount%

  IF a(i) > 0 THEN
   a(i) = 1
  ELSE
   a(i) = 0
  END IF

  PRINT a(i);

NEXT i

PRINT

2. Вывести на печать номера элементов заданного массива Y(N), удовлетворяющих условию 0<yi<1.

RANDOMIZE TIMER
OPTION BASE 1
'$DYNAMIC
DIM a(10)
CLS
INPUT "Enter count elements of dimension (Min>10)"; ElemCount%

IF ElemCount% > 10 THEN
  REDIM a(ElemCount%)
ELSE
  ElemCount% = 10
END IF

'first
PRINT "Array"
FOR i = 1 TO ElemCount%
 a(i) = RND * 2
 PRINT i; "="; a(i),
NEXT i

'second
'FOR i = 1 TO ElemCount%
' PRINT "Elem "; i;
' INPUT a(i)
'NEXT i

PRINT

PRINT "Elements number"

FOR i = 1 TO ElemCount%

  IF a(i) < 1 THEN
   PRINT i;
  END IF

NEXT i

PRINT

3. Дано вещественное число A и целое число N (>0). Вывести A в степени N : AN = A*A*A*A....*A(числа A перемножаются N раз)

Ничо не понял что выводить? Итог или саму формулу....

[qwas]

Человеку лень кжку в руки взять и причитать чё к чему, а зачем на форуме добрые люди есть.

[Мечта]

да это школьные задачи, мы такие в 10-11 классе решали.

[Firma4]

Там наверно формулу надо вывести. Я бы решил сам, но там теория краткая, не совсем все понятно. Я сам только пару задач решил.

[Пиратка]

А курсовые по котлам делаете?

[Firma4]

Ну может еще 4, 5 и 6 задачки для полного счастья