Другие языки программирования и технологии

Решение задач с одномерными массивами

Подготовить (для отладки программы) на диске файл In.txt, содержащий 12
вещественных или целых (в вариантах с I) чисел, среди которых должны быть
отрицательные, положительные и равные нулю; для целых четные и нечетные.
Составить программу, которая:
вводит из файла In.txt числа в массив и выводит этот массив в результирующий
a)
файл Out.txt;
дополнительные параметры, если они упоминаются в тексте задания, ввести с
b)
клавиатуры и так же вывести в результирующий файл Out.txt;
вычисляет значения всех переменных, которые входят в состав вещественного
c)
выражения, и значение самого вещественного выражения;
выводит значения всех вычисленных переменных и выражения с пояснениями;
d)
e) оформляет результаты, используя форматный вывод с управлением
редактирования данных.

Вот мое выражение (R/Q+1)+S

R минимальный элемент массива
Q произведение элементов массива с нечетными номерами
S количество значений в массиве из интервала [A, B] (A, B ввести с
клавиатуры)

Ребята программисты, вам это сделать недолго, помогите плз.
Дархан Исаев
Дархан Исаев
522
Dim FrFi1 As Integer, FrFi2 As Integer
Dim i As Long, Z(12) As Single
Dim R As Single, Q As Single, S As Long, A As Single, B As Single
A = InputBox("")
B = InputBox("")
R = -3.402823E+37
Q = 1
S = 0
FrFi1 = FreeFile
Open "c:\00\In.txt" For Input As FrFi1
FrFi2 = FreeFile
Open "c:\00\Out.txt" For Output As FrFi2
Print #FrFi2, "Исходный массив: "
For i = 1 To 12
Input #FrFi1, Z(i)
Print #FrFi2, Z(i)
If Z(i) > R Then R = Z(i)
If i Mod 2 <> 0 Then Q = Q * Z(i)
If Z(i) >= A And Z(i) <= B Then S = S + 1
Next i
Print #FrFi2, ""
Print #FrFi2, "R=" & R
Print #FrFi2, "Q=" & Q
Print #FrFi2, "S=" & S
Print #FrFi2, ""
If Q = 0 Then
Print #FrFi2, "Вычисление не возможно, т. к. Q=0"
Else
Print #FrFi2, "(R/Q+1)+S=" & ((R / Q + 1) + S)
End If
Close
Дима Васильев
Дима Васильев
71 594
Лучший ответ
> вам это сделать недолго

Нам-то недолго, а тебе за это "недолго" заплатить следует.

За знания, коих у тебя нет и кои тебе нахрен не нужны, а не за "недолго".

И попробуй только варежку свою разинуть что знания не стоят ни копейки.
Наиль Пояшев
Наиль Пояшев
32 502
Сделаю конечно, если заплатите и это делфи или лазарус. В С++ я больше не делаю, так как по ошибке очистил часть диска где стояла эта среда программирования.
Tahir Alyarov
Tahir Alyarov
2 592

Похожие вопросы