Цитата:
Сообщение от Xploit
Здравствуйте! Задачи на паскале. Выручите пожалста.
1. Вычислить частичную сумму числового ряда с задаваемой пользователем точностью. Вывести на экран найденное значение частичной суммы и номер последнего рассмотренного члена ряда.
S=1-1/2+1/4-1/8+⋯+〖(-1)〗^n 1/2^n +… Ссылка удалена точность : 0,5∙10⁻⁴
|
Подобные задачи рассмотрены в #11 и #33. Попробуйте поменять вид ряда самостоятельно. Функцию X2np (возведение в целую положительную степень) рекомендую сохранить.
Цитата:
2. Работа с одномерными массивами. можно взять массивы состоящие из пяти, шести элементов.
Дано натуральное число n, целые числа A₁, A₂, … A_n . Найти наибольшее из нечетных и количество четных чисел.
|
CONST
N=6;
VAR
A:ARRAY[1..N] of INTEGER;
Max_Odd, Num_Even, i:INTEGER;
BEGIN
Randomize;
Max_Odd:=0;
Num_Even:=0;
FOR i:=1 TO N DO
BEGIN
A[i]:=Random(99);
IF ((A[i] mod 2)=1) AND (A[i]>Max_Odd) THEN Max_Odd:=A[i];
IF (A[i] mod 2)=0 THEN INC(Num_Even);
Write(A[i]:4);
END;
WriteLn;
WriteLn('Maximum odd value is ', Max_Odd);
WriteLn('Number of even values is ', Num_Even);
ReadLn;
END.