Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Листингprogram project1; uses SysUtils, things, math; var X: array of extended; a, C, D: extended; N, i: integer; s: string; Calculated: boolean = False; begin while not Calculated do begin N:= abs(round(RequestNumber('Задайте чётное число для N:'))); if Odd(N) then // В качестве альтернативы можно проверять N%2 <> 0 begin writeln('Ошибка. Вы задали нечётное число.'); Calculated:= false; end else begin for i:= 1 to N do begin SetLength(X, i); X[High(X)]:= RequestNumber(Format('Задайте X%d:', [i])); end; C:= 0; D:= 0; for i:= 0 to (N div 2)-1 do //Потому, что индекс в динамическом массиве начинается с 0 begin C += X[i]; end; for i:= N div 2 to N-1 do begin D += X[i]; end; Calculated:= true; end; s:= Format('Результат: C=%.3f; D=%.3f', [C, D]); writeln(s); readln(); end; end. Результаты работы программы Блок-схема
Переменные
Задача 1.4.2. Условие Разработать алгоритм и программу обработки одномерных массивов, используя единственный цикл. Вычислить куб суммы и число тех элемент заданного массив X1, X2…Xn значение которых меньше R или находятся в пределах от T до P.
|